[stamp-cvs] CVS stamp

[rstrandh]

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))