(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")
      (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 :id cnt :font (font "Georgia" 36 :bold)))
    (show self)))