[ltk-user] buttons

[Peter Herth]

Hi Haris,

this would work:


(use-package :ltk)

(defwidget matrix (frame)
  ()
  ((f1 frame :pack (:side :top :fill :both :expand t)
       (b1 button :text "1" :pack (:side :left :fill :both :expand t))
       (b2 button :text "2" :pack (:side :left :fill :both :expand t))
       (b3 button :text "3" :pack (:side :left :fill :both :expand t)))
   (f2 frame :pack (:side :top :fill :both :expand t)
       (b4 button :text "4" :pack (:side :left :fill :both :expand t))
       (b5 button :text "5" :pack (:side :left :fill :both :expand t))
       (b6 button :text "6" :pack (:side :left :fill :both :expand t)))
   (f3 frame :pack (:side :top :fill :both :expand t)
       (b7 button :text "7" :pack (:side :left :fill :both :expand t))
       (b8 button :text "8" :pack (:side :left :fill :both :expand t))
       (b9 button :text "9" :pack (:side :left :fill :both :expand t))))
  )

(defun test ()
  (with-ltk ()
    (pack (make-instance 'matrix) :side :top :fill :both :expand t)))


Peter



On Sun, Jul 24, 2011 at 6:23 PM, Haris Bogdanovich <fbogdanovic at xnet.hr> wrote:
> Hi.
>
> How would I then put 9 buttons in a 3x3 grid with the pack command ?
>
> Thanks
> _______________________________________________
> ltk-user site list
> ltk-user at common-lisp.net
> http://common-lisp.net/mailman/listinfo/ltk-user
>