how to change button height? - from beginner - ltk-user - mailman3.common-lisp.net

13 Sep 2015


      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