(deftool ("vp" "tool") ()
  "This is a demonstration tool for the Picasso Application Framework"
  (title "VIDEO POKER")
  (icon "vp.icon")
  (init-code (setf *random-state* (make-random-state t)))
  (width 670)
  (height 400)
  (frames (main-frame ("frame"))))

#-vp-support
(progn
  (push :vp-support *features*)
  (load (picasso-path "lib/po/vp/support")))
