; PS/Tk Example Program "Tile Themes"
; Copyright (C) 2007 Nils M Holm
; See the PS/Tk license for conditions of use.

(load "pstk.scm")
(tk-start)
(ttk-map-widgets 'all)
(let ((button
        (lambda (x)
          (let ((b (tk 'create-widget 'button
                       'text: (string-append "Select " x " theme")
                       'command: (lambda ()
                                   (ttk/settheme x)))))
            (tk/pack b 'side: 'top 'fill: 'x)))))
  (map button (ttk/availablethemes))
  (tk/pack (tk 'create-widget 'button
               'text: "Exit" 'command: tk-end)
           'fill: 'x)
  (tk-event-loop))