| Page 333 | Table of Contents | Index | Page 335 |
| 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 | |||
(with-output-as-gadget (stream)
(let* ((radio-box
(make-pane 'radio-box
:client stream :id 'radio-box)))
(dolist (item sequence)
(make-pane 'toggle-button
:label (princ-to-string (item-name item))
:value (item-value item)
:id item :parent radio-box))
radio-box))
A more complex (and somewhat contrived) example of a push button that calls back into the
(with-output-as-gadget (stream)
(make-pane 'push-button
:label "Click here to exit"
:activate-callback
#'(lambda (button)
(declare (ignore button))
(throw-highlighted-presentation
(make-instance 'standard-presentation
:object `(com-exit ,*application-frame*)
:type 'command)
*input-context*
(make-instance 'pointer-button-press-event
:sheet (sheet-parent button)
:x 0 :y 0
:modifiers 0
:button +pointer-left-button+)))))
| Page 333 | Table of Contents | Index | Page 335 |
| 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 | |||