Update of /project/stamp/cvsroot/stamp In directory clnet:/tmp/cvs-serv8576

Modified Files: stamp.lisp Log Message: A small step in the direction of an ESA.

--- /project/stamp/cvsroot/stamp/stamp.lisp 2007/01/04 06:13:08 1.6 +++ /project/stamp/cvsroot/stamp/stamp.lisp 2007/01/04 09:08:30 1.7 @@ -54,35 +54,40 @@ ;;;(defparameter *folder-image* ;;; (image:read-image-file "folder.ppm"))

+(defclass folders-pane (esa:esa-pane-mixin clim:application-pane) ()) +(defclass headers-pane (esa:esa-pane-mixin clim:application-pane) ()) +(defclass message-pane (esa:esa-pane-mixin clim:application-pane) ()) + (clim:define-application-frame stamp () ((folders :initform (list (cons "Inbox" *inbox-folder*)) :accessor folders) (current-folder :initform nil :accessor current-folder) (current-message :initform nil :accessor current-message)) - (:panes (folders-pane :application - :display-function '(display-folders) - :display-time nil - :width 150 :min-width 150 :max-width 150) - (headers-pane :application - :display-function '(display-headers) - :display-time nil - :width 800 :height 150) - (message-pane :application - :display-function '(display-message) - :display-time nil - :height 450) + (:panes (folders-pane (clim:make-pane 'folders-pane + :display-function '(display-folders) + :display-time nil + :width 150 :min-width 150 :max-width 150)) + (headers-pane (clim:make-pane 'headers-pane + :display-function '(display-headers) + :display-time nil + :width 800 :height 150)) + (message-pane (clim:make-pane 'message-pane + :display-function '(display-message) + :display-time nil + :height 450)) (interactor :interactor :height 20 :max-height 20 :min-height 20) (adjuster1 (clim:make-pane 'clim-extensions:box-adjuster-gadget)) (adjuster2 (clim:make-pane 'clim-extensions:box-adjuster-gadget))) (:layouts (default-layout (clim:vertically () (clim:horizontally () - folders-pane + (clim:scrolling (:width 150 :min-width 150 :max-width 150) + folders-pane) adjuster1 (clim:vertically () - headers-pane + (clim:scrolling (:width 800 :height 150) headers-pane) adjuster2 - message-pane)) + (clim:scrolling (:height 450) message-pane))) interactor))))

(defmethod clim:adopt-frame :after (frame-manager (frame stamp))