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