forked from ktekinay/Xojo-EnvironmentVars_MTC
-
Notifications
You must be signed in to change notification settings - Fork 0
/
MyEnvVars.xojo_code
139 lines (123 loc) · 2.58 KB
/
MyEnvVars.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
131
132
133
134
135
136
137
138
139
#tag Class
Protected Class MyEnvVars
Inherits EnvironmentVars_MTC
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return BooleanValueFor( CurrentMethodName )
End Get
#tag EndGetter
#tag Setter
Set
BooleanValueFor( CurrentMethodName ) = value
End Set
#tag EndSetter
Attributes( HideValue ) HIDDEN_BOOLEAN As Boolean
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )
End Get
#tag EndGetter
#tag Setter
Set
ValueFor( CurrentMethodName ) = value
End Set
#tag EndSetter
Attributes( HideValue ) Shared HIDDEN_STRING As String
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )
End Get
#tag EndGetter
READ_ONLY_STRING As String
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return BooleanValueFor( CurrentMethodName )
End Get
#tag EndGetter
#tag Setter
Set
BooleanValueFor( CurrentMethodName ) = value
End Set
#tag EndSetter
Shared READ_WRITE_BOOLEAN As Boolean
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )
End Get
#tag EndGetter
#tag Setter
Set
ValueFor( CurrentMethodName ) = value
End Set
#tag EndSetter
Shared READ_WRITE_STRING As String
#tag EndComputedProperty
#tag ViewBehavior
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="READ_ONLY_STRING"
Visible=false
Group="Behavior"
InitialValue=""
Type="String"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="HIDDEN_BOOLEAN"
Visible=false
Group="Behavior"
InitialValue=""
Type="Boolean"
EditorType=""
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass