with String_List; use String_List; package Fallback is Mandel_Fallback : String_List.Element_Access_List := String_List.Null_Element_Access_List & "*file_menu.labelString: File" & "*file_menu.mnemonic: F" & "*file_exit.labelString: Exit" & "*file_exit.mnemonic: x" & "*file_exit.accelerator: CtrlQ" & "*file_exit.acceleratorText: Ctrl+Q" & "*calc_but.labelString: Calculate" & "*calc_but.mnemonic: C" & "*help_menu.labelString: Help" & "*help_menu.mnemonic: H" & "*help_about.labelString: About..." & "*help_about.mnemonic: A" & "*about_dialog.dialogTitle: About Mandel" ; end Fallback;