Hi,
New to LTK, I just want to change the button height, but couldn’t.
Doing it in (make-instance …), I got “Invalid initialization argument: :HEIGHT in call for class #<STANDARD-CLASS BUTTON>” error.
Doing it in (configure b :height 10), then I got “Tcl/Tk error: unknown option “-height””.
What’s the proper way to do it?
Sample code:
(defun display-image-button (filename)
(with-ltk ()
(format-wish "package require Img")
(let* ((img (make-image))
(b (make-instance
'button
:text "Hello World!"
:image img
:width 10
:command (lambda ()
(do-msg "Bye! \"Hello World!\"")
(setf *exit-mainloop* t)))))
;; Pack the canvas
(pack b)
;(scrollregion c 0 0 800 800)
;; Load the image from the file
(image-load img filename)
;; Draw the image on the canvas
;(create-image c 0 0 :image img)
(configure b :height 10)
)) )
thanks,
David
