Frank
9 years ago
Hello,
I'm toying around with ltk and trying a simple example. I want the
entry widget to expand horizontally when you resize the window. Somehow
I seem not to get it.
(defun test ()
(with-ltk ()
(let* ((f (make-instance 'frame :padding 10))
(e (make-instance 'entry :master f :width 20)))
(grid f 0 0 :sticky "nsew")
(grid-columnconfigure f 0 "weight" 1)
(grid e 0 0 :sticky "nsew"))))
(test)
I'm toying around with ltk and trying a simple example. I want the
entry widget to expand horizontally when you resize the window. Somehow
I seem not to get it.
(defun test ()
(with-ltk ()
(let* ((f (make-instance 'frame :padding 10))
(e (make-instance 'entry :master f :width 20)))
(grid f 0 0 :sticky "nsew")
(grid-columnconfigure f 0 "weight" 1)
(grid e 0 0 :sticky "nsew"))))
(test)