-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathSample.xojo_code
130 lines (121 loc) · 2.71 KB
/
Sample.xojo_code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
#tag Class
Protected Class Sample
Inherits SampleBase
#tag Method, Flags = &h0
Sub describe()
Print("Sample:")
Print("baseProperty: " + Str(baseProperty))
Print("decimalNumber: " + Str(decimalNumber))
Print("message: " + message)
if regularDate <> nil then Print("regularDate: " + regularDate.LongDate + " " + regularDate.LongTime + " GMT " + Str(regularDate.GMToffset))
Print("test: " + Str(test))
Dim optionalBoolStr As String
If optionalBool = Nil Then
optionalBoolStr = "Nil"
ElseIf optionalBool Then
optionalBoolStr = "True"
Else
optionalBoolStr = "False"
End If
Print("optionalBool: " + optionalBoolStr)
Print("tm: ")
for each t as Xojo.Core.Date in tm
Print("> " + t.toText(Xojo.Core.Locale.Current, Xojo.Core.Date.FormatStyles.Full, Xojo.Core.Date.FormatStyles.Full))
next
Print(EndOfLine)
End Sub
#tag EndMethod
#tag Property, Flags = &h0
decimalNumber As Double
#tag EndProperty
#tag Property, Flags = &h0
message As String
#tag EndProperty
#tag Property, Flags = &h0
optionalBool As Xoson.O.OptionalBoolean
#tag EndProperty
#tag Property, Flags = &h0
regularDate As Date
#tag EndProperty
#tag Property, Flags = &h0
test As Boolean
#tag EndProperty
#tag Property, Flags = &h0
tm() As Xojo.Core.Date
#tag EndProperty
#tag ViewBehavior
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="message"
Visible=false
Group="Behavior"
InitialValue=""
Type="String"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="decimalNumber"
Visible=false
Group="Behavior"
InitialValue=""
Type="Double"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="regularDate"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="test"
Visible=false
Group="Behavior"
InitialValue=""
Type="Boolean"
EditorType=""
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass