add more samples for Xojo language

This commit is contained in:
Kenichi Maehashi
2014-06-19 22:59:12 +09:00
parent 14738f037f
commit b14267d40f
5 changed files with 475 additions and 0 deletions

View File

@@ -0,0 +1,112 @@
#tag Menu
Begin Menu MainMenuBar
Begin MenuItem FileMenu
SpecialMenu = 0
Text = "&File"
Index = -2147483648
AutoEnable = True
Visible = True
Begin QuitMenuItem FileQuit
SpecialMenu = 0
Text = "#App.kFileQuit"
Index = -2147483648
ShortcutKey = "#App.kFileQuitShortcut"
Shortcut = "#App.kFileQuitShortcut"
AutoEnable = True
Visible = True
End
End
Begin MenuItem EditMenu
SpecialMenu = 0
Text = "&Edit"
Index = -2147483648
AutoEnable = True
Visible = True
Begin MenuItem EditUndo
SpecialMenu = 0
Text = "&Undo"
Index = -2147483648
ShortcutKey = "Z"
Shortcut = "Cmd+Z"
MenuModifier = True
AutoEnable = True
Visible = True
End
Begin MenuItem EditSeparator1
SpecialMenu = 0
Text = "-"
Index = -2147483648
AutoEnable = True
Visible = True
End
Begin MenuItem EditCut
SpecialMenu = 0
Text = "Cu&t"
Index = -2147483648
ShortcutKey = "X"
Shortcut = "Cmd+X"
MenuModifier = True
AutoEnable = True
Visible = True
End
Begin MenuItem EditCopy
SpecialMenu = 0
Text = "&Copy"
Index = -2147483648
ShortcutKey = "C"
Shortcut = "Cmd+C"
MenuModifier = True
AutoEnable = True
Visible = True
End
Begin MenuItem EditPaste
SpecialMenu = 0
Text = "&Paste"
Index = -2147483648
ShortcutKey = "V"
Shortcut = "Cmd+V"
MenuModifier = True
AutoEnable = True
Visible = True
End
Begin MenuItem EditClear
SpecialMenu = 0
Text = "#App.kEditClear"
Index = -2147483648
AutoEnable = True
Visible = True
End
Begin MenuItem EditSeparator2
SpecialMenu = 0
Text = "-"
Index = -2147483648
AutoEnable = True
Visible = True
End
Begin MenuItem EditSelectAll
SpecialMenu = 0
Text = "Select &All"
Index = -2147483648
ShortcutKey = "A"
Shortcut = "Cmd+A"
MenuModifier = True
AutoEnable = True
Visible = True
End
Begin MenuItem UntitledSeparator
SpecialMenu = 0
Text = "-"
Index = -2147483648
AutoEnable = True
Visible = True
End
Begin AppleMenuItem AboutItem
SpecialMenu = 0
Text = "About This App..."
Index = -2147483648
AutoEnable = True
Visible = True
End
End
End
#tag EndMenu