(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) (text-field :id tf :text "Snow") (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)))))