[ltk-user] Problem with scrolled-frame

[lebdan]

Short answer due to my poor english, this is perhaps that you want..
Regards

(in-package :ltk)

(defun display-image (filename)
  (with-ltk ()
    (format-wish "package require Img")
    (let* ((img (make-image))
           (s-canv (make-instance 'scrolled-canvas :width 800 :height 600))
    (cv (canvas s-canv)))

;; pour scrolled-canvas.
 (pack s-canv :expand 1 :fill :both)
 (scrollregion cv 0 0 1024 768)  ; ce sont les dimensions de l'image chargée 
?

;; Load the image from the file
      (image-load img filename)

;; Draw the image on the canvas
      (create-image cv 0 0 :image img))))

;; exemple
(display-image "one-image.jpg")
----- Original Message ----- 
From: <syll-dev at laposte.net>
To: <ltk-user at common-lisp.net>
Sent: Thursday, January 12, 2012 2:35 AM
Subject: [ltk-user] Problem with scrolled-frame


> Hello
>
> I have tried to use scrolled-frame (which is not in the documentation but 
> seem exist...).
>
> This code does not work : the program is frozen and the "wish" process 
> uses all my CPU :s .
>
> (with-ltk ()
> (let* ((p (make-instance 'scrolled-frame :master nil :pack '()))
> (txt (make-instance 'label :text "11" :master p :pack '(:side left))))))
>
> Thank you for your help
>
> Syll
>
>
> Une messagerie gratuite, garantie à vie et des services en plus, ça vous 
> tente ?
> Je crée ma boîte mail www.laposte.net
>
> _______________________________________________
> ltk-user site list
> ltk-user at common-lisp.net
> http://common-lisp.net/mailman/listinfo/ltk-user