ltk how to expand widgets with grid?

[Frank]

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)