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