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