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@laposte.net> To: <ltk-user@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@common-lisp.net http://common-lisp.net/mailman/listinfo/ltk-user