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

(with-gui ()
  (frame (:size #C(640 280) :title "Hello Snow World" :on-close :exit)
    (panel (:layout "grow, wrap")
      (text-field :id tf :text "Snow"
		  :label (label :text "Hello World!"
				:font (font "Georgia" 12 :bold)
				:foreground :blue));;columns="20"
      (button :text "Click Here" :on-action "submit"))
    (panel (:layout "dock south")
      (label :text "Clicks:" :font (font "Georgia" 36 :bold))
      (label :id cnt :font (font "Georgia" 36 :bold)))
    (show self)))