-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathWindow1.xojo_window
More file actions
199 lines (189 loc) · 5.27 KB
/
Window1.xojo_window
File metadata and controls
199 lines (189 loc) · 5.27 KB
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
#tag Window
Begin Window Window1
Backdrop = 0
BackgroundColor = &cFFFFFF00
Composite = False
DefaultLocation = 0
FullScreen = False
HasBackgroundColor= False
HasCloseButton = True
HasFullScreenButton= False
HasMaximizeButton= True
HasMinimizeButton= True
Height = 400
ImplicitInstance= True
MacProcID = 0
MaximumHeight = 32000
MaximumWidth = 32000
MenuBar = 334671871
MenuBarVisible = True
MinimumHeight = 64
MinimumWidth = 64
Resizeable = True
Title = "Untitled"
Type = 0
Visible = True
Width = 600
Begin Label Label1
AllowAutoDeactivate= True
Bold = False
DataField = ""
DataSource = ""
Enabled = True
FontName = "System"
FontSize = 0.0
FontUnit = 0
Height = 20
Index = -2147483648
InitialParent = ""
Italic = False
Left = 20
LockBottom = False
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Multiline = False
Scope = 0
Selectable = False
TabIndex = 0
TabPanelIndex = 0
TabStop = True
Text = "Path:"
TextAlignment = 0
TextColor = &c00000000
Tooltip = ""
Top = 97
Transparent = False
Underline = False
Visible = True
Width = 100
End
Begin Label lbPath1
AllowAutoDeactivate= True
Bold = False
DataField = ""
DataSource = ""
Enabled = True
FontName = "System"
FontSize = 0.0
FontUnit = 0
Height = 20
Index = -2147483648
InitialParent = ""
Italic = False
Left = 20
LockBottom = False
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Multiline = False
Scope = 0
Selectable = False
TabIndex = 1
TabPanelIndex = 0
TabStop = True
Text = "path1"
TextAlignment = 0
TextColor = &c00000000
Tooltip = ""
Top = 129
Transparent = False
Underline = False
Visible = True
Width = 349
End
Begin PushButton pbOpen
AllowAutoDeactivate= True
Bold = False
Cancel = False
Caption = "Open"
Default = False
Enabled = True
FontName = "System"
FontSize = 0.0
FontUnit = 0
Height = 22
Index = -2147483648
InitialParent = ""
Italic = False
Left = 447
LockBottom = False
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
MacButtonStyle = 0
Scope = 0
TabIndex = 2
TabPanelIndex = 0
TabStop = True
Tooltip = ""
Top = 193
Transparent = False
Underline = False
Visible = True
Width = 80
End
Begin Label lbPath2
AllowAutoDeactivate= True
Bold = False
DataField = ""
DataSource = ""
Enabled = True
FontName = "System"
FontSize = 0.0
FontUnit = 0
Height = 20
Index = -2147483648
InitialParent = ""
Italic = False
Left = 20
LockBottom = False
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Multiline = False
Scope = 0
Selectable = False
TabIndex = 3
TabPanelIndex = 0
TabStop = True
Text = "path2"
TextAlignment = 0
TextColor = &c00000000
Tooltip = ""
Top = 161
Transparent = False
Underline = False
Visible = True
Width = 507
End
End
#tag EndWindow
#tag WindowCode
#tag Event
Sub Open()
lbPath1.Text = app.myConfig.folderPath
lbPath2.Text = app.myConfig.configPath
End Sub
#tag EndEvent
#tag EndWindowCode
#tag Events pbOpen
#tag Event
Sub Action()
Dim f As New FolderItem(app.myConfig.configPath)
If f<>Nil Then
If f.Exists Then
f.Open("")
Else
MsgBox "Path is ok but there is no file."
End
Else
MsgBox "Failed to open config file."
End
End Sub
#tag EndEvent
#tag EndEvents