Page 302 Table of Contents Index Page 304
Chapters
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30
A, B, C, D, E



CHAPTER 28. APPLICATION FRAMES
 
     (make-application-frame 'puzzle
                             :width 80 :height 80)))
     (run-frame-top-level puzzle)))

The following is an application frame with two layouts:
 
 (define-application-frame test-frame () ()
   (:panes
     (a (horizontally ()
          (make-pane 'push-button :label "Press me")
          (make-pane 'push-button :label "Squeeze me")))
     (b toggle-button)
     (c slider)
     (d text-field)
     (e :interactor-pane
        :width 300 :max-width +fill+
        :height 300 :max-height +fill+))
   (:layout
     (default
       (vertically ()
         a b c (scrolling () e)))
     (other
       (vertically ()
         a (scrolling () e) b d))))

 (define-test-frame-command (com-switch :name t :menu t)
                            ()
   (setf (frame-current-layout *application-frame*)
   (ecase (frame-current-layout *application-frame*)
     (default other)
     (other default))))

 (let ((test-frame
         (make-application-frame 'test-frame)))
   (run-frame-top-level test-frame))


Page 302 Table of Contents Index Page 304
Chapters
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30
A, B, C, D, E