(defpackage :timer
   (:use :clim-lisp :clim)
   (:export ))
 (in-package :timer)
 
 (define-application-frame timer ()
   ((time :initform 300))
   (:pointer-documentation t)
   (:panes (app :application :display-function 'display-timer :height 200 :width 600)
           (int :interactor :height 200 :width 600))
   (:layouts
    (default (vertically ()
               app int))))
 
 (defun display-timer (frame pane)
   (with-text-style (pane '(:fixed :bold 18))
     (format pane "hello!")))