blob: a084601b68d5527592d08ecf59f9c48602e4e4d7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(def *menu-bar* (new Menu *shell* SWT/BAR))
(def *file-menu-header* (new MenuItem *menu-bar* SWT/CASCADE))
(.setText *file-menu-header* "&File")
(def *file-menu* (new Menu *shell* SWT/DROP_DOWN))
(.setMenu *file-menu-header* *file-menu*)
(def *options-menu-header* (new MenuItem *menu-bar* SWT/CASCADE))
(.setText *options-menu-header* "&Options")
(def *options-menu* (new Menu *shell* SWT/DROP_DOWN))
(.setMenu *options-menu-header* *options-menu*)
(def *stats-menu-header* (new MenuItem *menu-bar* SWT/CASCADE))
(.setText *stats-menu-header* "&Stats")
(def *stats-menu* (new Menu *shell* SWT/DROP_DOWN))
(.setMenu *stats-menu-header* *stats-menu*)
(def *help-menu-header* (new MenuItem *menu-bar* SWT/CASCADE))
(.setText *help-menu-header* "&Help")
(def *help-menu* (new Menu *shell* SWT/DROP_DOWN))
(.setMenu *help-menu-header* *help-menu*)
|
