(deftool ("test" "tool") ((file "~konstan/.login"))
  "This is the VIP tool" 
  (title "Picasso:  Editor") 
  (frames (f1 ("frame")))
  (init-code (format t "Howdy Fellows~%"))
  (exit-code (ppi self)))

