1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
with String_List;
use String_List;
package Fallback is
XmMore_Fallback : String_List.Element_Access_List :=
String_List.Null_Element_Access_List &
"*text.foreground: black" &
"*text.background: grey90" &
"*file_menu.labelString: File" &
"*file_menu.mnemonic: F" &
"*file_exit.labelString: Exit" &
"*file_exit.mnemonic: x" &
"*file_exit.accelerator: Ctrl<Key>Q" &
"*file_exit.acceleratorText: Ctrl+Q" &
"*help_menu.labelString: Help" &
"*help_menu.mnemonic: H" &
"*help_about.labelString: About..." &
"*help_about.mnemonic: A" &
"*about_dialog.dialogTitle: About XmMore" &
"*text.fontList: -adobe-courier-medium-r-normal--12-*-*-*-*-*-*-*"
;
end Fallback;
|
