with String_List; use String_List; package Fallback is AdaClock_Fallback : String_List.Element_Access_List := String_List.Null_Element_Access_List & "AdaClock*file_menu.labelString: File" & "AdaClock*file_menu.mnemonic: F" & "AdaClock*file_exit.labelString: Exit" & "AdaClock*file_exit.mnemonic: x" & "AdaClock*help_menu.labelString: Help" & "AdaClock*help_menu.mnemonic: H" & "AdaClock*help_about.labelString: About..." & "AdaClock*help_about.mnemonic: A" & "AdaClock*about_dialog.dialogTitle: About Clock" & "AdaClock*menu_show.labelString: Show Menubar" & "AdaClock*menu_show.mnemonic: M" & "AdaClock*draw.background: ivory1" & "AdaClock*s_finger: SteelBlue4" & "AdaClock*m_finger: SteelBlue3" & "AdaClock*h_finger: SteelBlue2" & "AdaClock*markings: MistyRose4" & "AdaClock*shadow: ivory3" & "AdaClock*draw.width: 100" & "AdaClock*draw.height: 100"; end Fallback;