mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-28 17:20:22 +00:00
add more samples for Xojo language
This commit is contained in:
Kenichi Maehashi
22
samples/Xojo/App.xojo_code
Normal file
22
samples/Xojo/App.xojo_code
Normal file
@@ -0,0 +1,22 @@
|
||||
#tag Class
|
||||
Protected Class App
|
||||
Inherits Application
|
||||
#tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public
|
||||
#Tag Instance, Platform = Windows, Language = Default, Definition = \"&Delete"
|
||||
#Tag Instance, Platform = Linux, Language = Default, Definition = \"&Delete"
|
||||
#tag EndConstant
|
||||
|
||||
#tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public
|
||||
#Tag Instance, Platform = Windows, Language = Default, Definition = \"E&xit"
|
||||
#tag EndConstant
|
||||
|
||||
#tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
|
||||
#Tag Instance, Platform = Mac OS, Language = Default, Definition = \"Cmd+Q"
|
||||
#Tag Instance, Platform = Linux, Language = Default, Definition = \"Ctrl+Q"
|
||||
#tag EndConstant
|
||||
|
||||
|
||||
#tag ViewBehavior
|
||||
#tag EndViewBehavior
|
||||
End Class
|
||||
#tag EndClass
|
||||
23
samples/Xojo/BillingReport.xojo_report
Normal file
23
samples/Xojo/BillingReport.xojo_report
Normal file
@@ -0,0 +1,23 @@
|
||||
#tag Report
|
||||
Begin Report BillingReport
|
||||
Compatibility = ""
|
||||
Units = 0
|
||||
Width = 8.5
|
||||
Begin PageHeader
|
||||
Type = 1
|
||||
Height = 1.0
|
||||
End
|
||||
Begin Body
|
||||
Type = 3
|
||||
Height = 2.0
|
||||
End
|
||||
Begin PageFooter
|
||||
Type = 5
|
||||
Height = 1.0
|
||||
End
|
||||
End
|
||||
#tag EndReport
|
||||
|
||||
#tag ReportCode
|
||||
#tag EndReportCode
|
||||
|
||||
112
samples/Xojo/MainMenuBar.xojo_menu
Normal file
112
samples/Xojo/MainMenuBar.xojo_menu
Normal 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
|
||||
14
samples/Xojo/MyToolbar.xojo_toolbar
Normal file
14
samples/Xojo/MyToolbar.xojo_toolbar
Normal file
@@ -0,0 +1,14 @@
|
||||
#tag Toolbar
|
||||
Begin Toolbar MyToolbar
|
||||
Begin ToolButton FirstItem
|
||||
Caption = "First Item"
|
||||
HelpTag = ""
|
||||
Style = 0
|
||||
End
|
||||
Begin ToolButton SecondItem
|
||||
Caption = "Second Item"
|
||||
HelpTag = ""
|
||||
Style = 0
|
||||
End
|
||||
End
|
||||
#tag EndToolbar
|
||||
304
samples/Xojo/Window1.xojo_window
Normal file
304
samples/Xojo/Window1.xojo_window
Normal file
@@ -0,0 +1,304 @@
|
||||
#tag Window
|
||||
Begin Window Window1
|
||||
BackColor = &cFFFFFF00
|
||||
Backdrop = 0
|
||||
CloseButton = True
|
||||
Compatibility = ""
|
||||
Composite = False
|
||||
Frame = 0
|
||||
FullScreen = False
|
||||
FullScreenButton= False
|
||||
HasBackColor = False
|
||||
Height = 400
|
||||
ImplicitInstance= True
|
||||
LiveResize = True
|
||||
MacProcID = 0
|
||||
MaxHeight = 32000
|
||||
MaximizeButton = True
|
||||
MaxWidth = 32000
|
||||
MenuBar = 1153981589
|
||||
MenuBarVisible = True
|
||||
MinHeight = 64
|
||||
MinimizeButton = True
|
||||
MinWidth = 64
|
||||
Placement = 0
|
||||
Resizeable = True
|
||||
Title = "Sample App"
|
||||
Visible = True
|
||||
Width = 600
|
||||
Begin PushButton HelloWorldButton
|
||||
AutoDeactivate = True
|
||||
Bold = False
|
||||
ButtonStyle = "0"
|
||||
Cancel = False
|
||||
Caption = "Push Me"
|
||||
Default = True
|
||||
Enabled = True
|
||||
Height = 20
|
||||
HelpTag = ""
|
||||
Index = -2147483648
|
||||
InitialParent = ""
|
||||
Italic = False
|
||||
Left = 260
|
||||
LockBottom = False
|
||||
LockedInPosition= False
|
||||
LockLeft = True
|
||||
LockRight = False
|
||||
LockTop = True
|
||||
Scope = 0
|
||||
TabIndex = 0
|
||||
TabPanelIndex = 0
|
||||
TabStop = True
|
||||
TextFont = "System"
|
||||
TextSize = 0.0
|
||||
TextUnit = 0
|
||||
Top = 32
|
||||
Underline = False
|
||||
Visible = True
|
||||
Width = 80
|
||||
End
|
||||
End
|
||||
#tag EndWindow
|
||||
|
||||
#tag WindowCode
|
||||
#tag EndWindowCode
|
||||
|
||||
#tag Events HelloWorldButton
|
||||
#tag Event
|
||||
Sub Action()
|
||||
Dim total As Integer
|
||||
|
||||
For i As Integer = 0 To 10
|
||||
total = total + i
|
||||
Next
|
||||
|
||||
MsgBox "Hello World! " + Str(total)
|
||||
End Sub
|
||||
#tag EndEvent
|
||||
#tag EndEvents
|
||||
#tag ViewBehavior
|
||||
#tag ViewProperty
|
||||
Name="BackColor"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="&hFFFFFF"
|
||||
Type="Color"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Backdrop"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
Type="Picture"
|
||||
EditorType="Picture"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="CloseButton"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Composite"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="False"
|
||||
Type="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Frame"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="0"
|
||||
Type="Integer"
|
||||
EditorType="Enum"
|
||||
#tag EnumValues
|
||||
"0 - Document"
|
||||
"1 - Movable Modal"
|
||||
"2 - Modal Dialog"
|
||||
"3 - Floating Window"
|
||||
"4 - Plain Box"
|
||||
"5 - Shadowed Box"
|
||||
"6 - Rounded Window"
|
||||
"7 - Global Floating Window"
|
||||
"8 - Sheet Window"
|
||||
"9 - Metal Window"
|
||||
"10 - Drawer Window"
|
||||
"11 - Modeless Dialog"
|
||||
#tag EndEnumValues
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="FullScreen"
|
||||
Group="Appearance"
|
||||
InitialValue="False"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="FullScreenButton"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="False"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="HasBackColor"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="False"
|
||||
Type="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Height"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="400"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="ImplicitInstance"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Interfaces"
|
||||
Visible=true
|
||||
Group="ID"
|
||||
Type="String"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="LiveResize"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MacProcID"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="0"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MaxHeight"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="32000"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MaximizeButton"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MaxWidth"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="32000"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MenuBar"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
Type="MenuBar"
|
||||
EditorType="MenuBar"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MenuBarVisible"
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MinHeight"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="64"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MinimizeButton"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="MinWidth"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="64"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Name"
|
||||
Visible=true
|
||||
Group="ID"
|
||||
Type="String"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Placement"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="0"
|
||||
Type="Integer"
|
||||
EditorType="Enum"
|
||||
#tag EnumValues
|
||||
"0 - Default"
|
||||
"1 - Parent Window"
|
||||
"2 - Main Screen"
|
||||
"3 - Parent Window Screen"
|
||||
"4 - Stagger"
|
||||
#tag EndEnumValues
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Resizeable"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Super"
|
||||
Visible=true
|
||||
Group="ID"
|
||||
Type="String"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Title"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="Untitled"
|
||||
Type="String"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Visible"
|
||||
Visible=true
|
||||
Group="Appearance"
|
||||
InitialValue="True"
|
||||
Type="Boolean"
|
||||
EditorType="Boolean"
|
||||
#tag EndViewProperty
|
||||
#tag ViewProperty
|
||||
Name="Width"
|
||||
Visible=true
|
||||
Group="Position"
|
||||
InitialValue="600"
|
||||
Type="Integer"
|
||||
#tag EndViewProperty
|
||||
#tag EndViewBehavior
|
||||
Reference in New Issue
Block a user