(in-package :snow-user)
(in-readtable snow:syntax)

(let ((clicks (make-var 0)) tf)
  (flet ((submit ()
           (setf (widget-text tf) (str (widget-text tf) "#"))
           (incf (var clicks))))
    (with-gui ()
      (frame (:size #C(640 280) :title "Hello Snow World" :on-close :exit)
        (panel (:layout "grow, wrap")
          (label :text "Hello World!" :font (font "Georgia" 12 :bold)
                 :foreground :blue) ;;labelfor="tf"
          (text-field :id tf :text "Snow");;columns="20"
          (button :text "Click Here" :on-action #'submit))
        (panel (:layout "dock south")
          (label :text "Clicks:" :font (font "Georgia" 36 :bold))
          (label :font (font "Georgia" 36 :bold) :text $(c? (str (var clicks)))))
        (show self)))))