| Page 322 | Table of Contents | Index | Page 324 |
| 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 | |||
(armed-callback pane (gadget-client pane) (gadget-id pane))
(with-sheet-medium (medium pane)
(highlight-button pane medium)))))
;; When the user releases the button and the button is still armed,
;; call the activate callback.
(defmethod handle-event ((pane push-button-pane) (event pointer-button-release-event))
(with-slots (armed) pane
(when (eql armed ':button-press)
(activate-callback pane (gadget-client pane) (gadget-id pane))
(setf armed t)
(with-sheet-medium (medium pane)
(highlight-button pane medium)))))
| Page 322 | Table of Contents | Index | Page 324 |
| 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 | |||