author | penk |
Thu, 10 Jul 2003 14:38:47 +0200 | |
changeset 5042 | 0879ce37c521 |
parent 5027 | d58f89caf66f |
child 5102 | 5210b069cf1b |
permissions | -rw-r--r-- |
4318 | 1 |
"{ Package: 'stx:libtool' }" |
2 |
||
3 |
AbstractSettingsApplication subclass:#FileBrowserV2SettingsAppl |
|
4966 | 4 |
instanceVariableNames:'sortDirectoriesBeforeFiles showDirectoryTree sortCaseless |
5 |
showHiddenFiles openMultipleApplicationsForType |
|
6 |
toolBarVisibleHolder viewDirectoryDescription |
|
7 |
openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription |
|
8 |
viewPreview viewTime viewSize viewSizeInBytes viewType |
|
9 |
viewDetails viewPermissions viewGroup viewDirsInContentsBrowser |
|
10 |
viewOwner filenameEntryFieldVisibleHolder' |
|
4318 | 11 |
classVariableNames:'' |
12 |
poolDictionaries:'' |
|
13 |
category:'Interface-Tools-File' |
|
14 |
! |
|
15 |
||
16 |
||
17 |
!FileBrowserV2SettingsAppl class methodsFor:'icon'! |
|
18 |
||
19 |
defaultIcon |
|
20 |
||
21 |
^ FileBrowserV2 applicationIcon |
|
22 |
! ! |
|
23 |
||
24 |
!FileBrowserV2SettingsAppl class methodsFor:'interface specs'! |
|
25 |
||
26 |
windowSpec |
|
27 |
"This resource specification was automatically generated |
|
28 |
by the UIPainter of ST/X." |
|
29 |
||
30 |
"Do not manually edit this!! If it is corrupted, |
|
31 |
the UIPainter may not be able to read the specification." |
|
32 |
||
33 |
" |
|
34 |
UIPainter new openOnClass:FileBrowserV2SettingsAppl andSelector:#windowSpec |
|
35 |
FileBrowserV2SettingsAppl new openInterface:#windowSpec |
|
36 |
FileBrowserV2SettingsAppl open |
|
37 |
" |
|
38 |
||
39 |
<resource: #canvas> |
|
40 |
||
41 |
^ |
|
42 |
#(#FullSpec |
|
43 |
#name: #windowSpec |
|
44 |
#window: |
|
45 |
#(#WindowSpec |
|
46 |
#label: 'Settings' |
|
47 |
#name: 'Settings' |
|
48 |
#min: #(#Point 10 10) |
|
49 |
#max: #(#Point 1024 768) |
|
4966 | 50 |
#bounds: #(#Rectangle 16 46 450 587) |
4318 | 51 |
) |
52 |
#component: |
|
53 |
#(#SpecCollection |
|
54 |
#collection: #( |
|
55 |
#(#VerticalPanelViewSpec |
|
56 |
#name: 'VerticalPanel1' |
|
57 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
58 |
#horizontalLayout: #fit |
|
4966 | 59 |
#verticalLayout: #top |
4318 | 60 |
#horizontalSpace: 3 |
61 |
#verticalSpace: 3 |
|
62 |
#component: |
|
63 |
#(#SpecCollection |
|
64 |
#collection: #( |
|
65 |
#(#VerticalPanelViewSpec |
|
66 |
#name: 'VerticalPanel2' |
|
67 |
#horizontalLayout: #fit |
|
68 |
#verticalLayout: #center |
|
69 |
#horizontalSpace: 3 |
|
70 |
#verticalSpace: 3 |
|
71 |
#component: |
|
72 |
#(#SpecCollection |
|
73 |
#collection: #( |
|
74 |
#(#FramedBoxSpec |
|
75 |
#label: 'Show' |
|
76 |
#name: 'FramedBox1' |
|
77 |
#labelPosition: #topLeft |
|
78 |
#translateLabel: true |
|
79 |
#component: |
|
80 |
#(#SpecCollection |
|
81 |
#collection: #( |
|
82 |
#(#CheckBoxSpec |
|
83 |
#label: 'Hidden Files' |
|
84 |
#name: 'CheckBox1' |
|
85 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
|
86 |
#model: #showHiddenFiles |
|
87 |
#translateLabel: true |
|
88 |
) |
|
89 |
#(#CheckBoxSpec |
|
90 |
#label: 'Directory Tree' |
|
91 |
#name: 'CheckBox2' |
|
92 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 45 0) |
|
93 |
#model: #showDirectoryTree |
|
94 |
#translateLabel: true |
|
95 |
) |
|
96 |
#(#CheckBoxSpec |
|
97 |
#label: 'Regular Files in TreeView (Left)' |
|
98 |
#name: 'CheckBox3' |
|
99 |
#layout: #(#LayoutFrame 20 0 50 0 0 1.0 70 0) |
|
100 |
#model: #viewFilesInDirectoryTree |
|
101 |
#translateLabel: true |
|
102 |
) |
|
103 |
#(#CheckBoxSpec |
|
104 |
#label: 'Directories in ContentsView (Right)' |
|
105 |
#name: 'CheckBox4' |
|
106 |
#layout: #(#LayoutFrame 0 0.0 75 0 0 1.0 95 0) |
|
107 |
#model: #viewDirsInContentsBrowser |
|
108 |
#translateLabel: true |
|
109 |
) |
|
110 |
#(#CheckBoxSpec |
|
111 |
#label: 'Toolbar' |
|
112 |
#name: 'CheckBox11' |
|
113 |
#layout: #(#LayoutFrame 0 0.0 100 0 0 1.0 120 0) |
|
114 |
#model: #toolBarVisibleHolder |
|
115 |
#translateLabel: true |
|
116 |
) |
|
117 |
#(#CheckBoxSpec |
|
118 |
#label: 'Path Entry && Filter' |
|
119 |
#name: 'CheckBox12' |
|
120 |
#layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 145 0) |
|
121 |
#model: #filenameEntryFieldVisibleHolder |
|
122 |
#translateLabel: true |
|
123 |
) |
|
124 |
) |
|
125 |
||
126 |
) |
|
127 |
#extent: #(#Point 434 175) |
|
128 |
) |
|
129 |
#(#FramedBoxSpec |
|
130 |
#label: 'Sort' |
|
131 |
#name: 'FramedBox2' |
|
132 |
#labelPosition: #topLeft |
|
133 |
#translateLabel: true |
|
134 |
#component: |
|
135 |
#(#SpecCollection |
|
136 |
#collection: #( |
|
137 |
#(#CheckBoxSpec |
|
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
138 |
#label: 'Ignore Case' |
4318 | 139 |
#name: 'CheckBox6' |
140 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
|
141 |
#model: #sortCaseless |
|
142 |
#translateLabel: true |
|
143 |
) |
|
144 |
#(#CheckBoxSpec |
|
145 |
#label: 'Directories before Files' |
|
146 |
#name: 'CheckBox7' |
|
147 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 45 0) |
|
148 |
#model: #sortDirectoriesBeforeFiles |
|
149 |
#translateLabel: true |
|
150 |
) |
|
151 |
) |
|
152 |
||
153 |
) |
|
154 |
#extent: #(#Point 434 75) |
|
155 |
) |
|
156 |
#(#FramedBoxSpec |
|
157 |
#label: 'Application Notebook' |
|
158 |
#name: 'FramedBox3' |
|
159 |
#labelPosition: #topLeft |
|
160 |
#translateLabel: true |
|
161 |
#component: |
|
162 |
#(#SpecCollection |
|
163 |
#collection: #( |
|
164 |
#(#CheckBoxSpec |
|
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
165 |
#label: 'Text Editor for all Types' |
4318 | 166 |
#name: 'CheckBox8' |
167 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
|
168 |
#model: #openAlwaysInTextEditor |
|
169 |
#translateLabel: true |
|
170 |
) |
|
171 |
#(#CheckBoxSpec |
|
172 |
#label: 'Open Multiple Applications' |
|
173 |
#name: 'CheckBox9' |
|
174 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 45 0) |
|
175 |
#model: #openMultipleApplicationsForType |
|
176 |
#translateLabel: true |
|
177 |
) |
|
178 |
#(#CheckBoxSpec |
|
179 |
#label: 'Auto Open Directory Description' |
|
180 |
#name: 'CheckBox10' |
|
181 |
#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 70 0) |
|
182 |
#model: #viewDirectoryDescription |
|
183 |
#translateLabel: true |
|
184 |
) |
|
185 |
) |
|
186 |
||
187 |
) |
|
188 |
#extent: #(#Point 434 100) |
|
189 |
) |
|
190 |
#(#FramedBoxSpec |
|
4966 | 191 |
#label: 'Columns in Contents Browser' |
4318 | 192 |
#name: 'FramedBox4' |
193 |
#labelPosition: #topLeft |
|
194 |
#translateLabel: true |
|
195 |
#component: |
|
196 |
#(#SpecCollection |
|
197 |
#collection: #( |
|
198 |
#(#CheckBoxSpec |
|
199 |
#label: 'Details' |
|
200 |
#name: 'CheckBox22' |
|
201 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
|
202 |
#model: #viewDetails |
|
203 |
#translateLabel: true |
|
204 |
) |
|
205 |
#(#CheckBoxSpec |
|
206 |
#label: 'Suffix' |
|
207 |
#name: 'CheckBox13' |
|
208 |
#layout: #(#LayoutFrame 20 0.0 25 0 170 0 45 0) |
|
209 |
#enableChannel: #viewDetails |
|
210 |
#model: #viewType |
|
211 |
#translateLabel: true |
|
212 |
) |
|
213 |
#(#CheckBoxSpec |
|
214 |
#label: 'Permissions' |
|
215 |
#name: 'CheckBox21' |
|
216 |
#layout: #(#LayoutFrame 170 0.0 25 0 -5 1 45 0) |
|
217 |
#enableChannel: #viewDetails |
|
218 |
#model: #viewPermissions |
|
219 |
#translateLabel: true |
|
220 |
) |
|
221 |
#(#CheckBoxSpec |
|
222 |
#label: 'Owner' |
|
223 |
#name: 'CheckBox14' |
|
224 |
#layout: #(#LayoutFrame 20 0.0 50 0 170 0 70 0) |
|
225 |
#enableChannel: #viewDetails |
|
226 |
#model: #viewOwner |
|
227 |
#translateLabel: true |
|
228 |
) |
|
229 |
#(#CheckBoxSpec |
|
230 |
#label: 'Group' |
|
231 |
#name: 'CheckBox18' |
|
232 |
#layout: #(#LayoutFrame 170 0.0 50 0 -5 1 70 0) |
|
233 |
#enableChannel: #viewDetails |
|
234 |
#model: #viewGroup |
|
235 |
#translateLabel: true |
|
236 |
) |
|
237 |
#(#CheckBoxSpec |
|
238 |
#label: 'Size' |
|
239 |
#name: 'CheckBox15' |
|
240 |
#layout: #(#LayoutFrame 20 0.0 75 0 170 0 95 0) |
|
241 |
#enableChannel: #viewDetails |
|
242 |
#model: #viewSize |
|
243 |
#translateLabel: true |
|
244 |
) |
|
245 |
#(#CheckBoxSpec |
|
246 |
#label: 'Date && Time' |
|
247 |
#name: 'CheckBox19' |
|
248 |
#layout: #(#LayoutFrame 170 0.0 75 0 -5 1 95 0) |
|
249 |
#enableChannel: #viewDetails |
|
250 |
#model: #viewTime |
|
251 |
#translateLabel: true |
|
252 |
) |
|
253 |
#(#CheckBoxSpec |
|
4966 | 254 |
#label: 'Size in Bytes' |
4318 | 255 |
#name: 'CheckBox16' |
256 |
#layout: #(#LayoutFrame 20 0.0 100 0 170 0 120 0) |
|
257 |
#enableChannel: #viewDetails |
|
4966 | 258 |
#model: #viewSizeInBytes |
4318 | 259 |
#translateLabel: true |
260 |
) |
|
261 |
#(#CheckBoxSpec |
|
262 |
#label: 'Preview' |
|
263 |
#name: 'CheckBox20' |
|
264 |
#layout: #(#LayoutFrame 170 0.0 100 0 -5 1 120 0) |
|
265 |
#enableChannel: #viewDetails |
|
266 |
#model: #viewPreview |
|
267 |
#translateLabel: true |
|
268 |
) |
|
4966 | 269 |
#(#CheckBoxSpec |
270 |
#label: 'File Info' |
|
271 |
#name: 'CheckBox23' |
|
272 |
#layout: #(#LayoutFrame 20 0.0 125 0 170 0 145 0) |
|
273 |
#enableChannel: #viewDetails |
|
274 |
#model: #viewDescription |
|
275 |
#translateLabel: true |
|
276 |
) |
|
4318 | 277 |
) |
278 |
||
279 |
) |
|
4966 | 280 |
#extent: #(#Point 434 171) |
4318 | 281 |
) |
282 |
) |
|
283 |
||
284 |
) |
|
285 |
#extent: #(#Point 434 530) |
|
286 |
) |
|
287 |
) |
|
288 |
||
289 |
) |
|
290 |
) |
|
291 |
) |
|
292 |
||
293 |
) |
|
294 |
) |
|
295 |
! ! |
|
296 |
||
297 |
!FileBrowserV2SettingsAppl methodsFor:'accessing'! |
|
298 |
||
299 |
requestor |
|
300 |
"return the value of the instance variable 'requestor' (automatically generated)" |
|
301 |
||
302 |
| masterApplication | |
|
303 |
masterApplication := self masterApplication. |
|
304 |
masterApplication notNil ifTrue:[ |
|
305 |
^ masterApplication requestor. |
|
306 |
]. |
|
307 |
^ nil |
|
308 |
! ! |
|
309 |
||
310 |
!FileBrowserV2SettingsAppl methodsFor:'actions'! |
|
311 |
||
4574 | 312 |
basicSaveSettings |
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
313 |
|aspectList req writeToCurrentFileBrowser| |
4574 | 314 |
|
315 |
aspectList := AbstractFileBrowser userPreferencesAspectList. |
|
5027 | 316 |
req := self settingsDialog. |
4574 | 317 |
writeToCurrentFileBrowser := (req notNil and:[req isKindOf:AbstractFileBrowser]). |
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
318 |
aspectList do:[ :aAspect | |value| |
4574 | 319 |
value := (self perform:aAspect) value. |
320 |
(currentUserPrefs perform:((aAspect asString, ':') asSymbol) with:value). |
|
321 |
writeToCurrentFileBrowser ifTrue:[ |
|
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
322 |
(req perform:aAspect) value:value. |
4574 | 323 |
]. |
324 |
]. |
|
325 |
! |
|
326 |
||
4318 | 327 |
help |
328 |
||
329 |
self warn:'no help available here'. |
|
330 |
"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html']. |
|
331 |
! |
|
332 |
||
4574 | 333 |
readSettings |
334 |
|req receiver aspectList| |
|
4318 | 335 |
|
5027 | 336 |
req := self settingsDialog. |
4574 | 337 |
receiver := (req notNil and:[req isKindOf:AbstractFileBrowser]) ifTrue:[ |
338 |
req |
|
339 |
] ifFalse:[ |
|
340 |
currentUserPrefs |
|
341 |
]. |
|
4318 | 342 |
aspectList := AbstractFileBrowser userPreferencesAspectList. |
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
343 |
aspectList do:[:aAspect | |value| |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
344 |
value := (receiver perform:aAspect) value. |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
345 |
(self perform:aAspect) value:value |
4318 | 346 |
]. |
4574 | 347 |
self modifiedChannel value:false |
4318 | 348 |
! ! |
349 |
||
350 |
!FileBrowserV2SettingsAppl methodsFor:'aspects'! |
|
351 |
||
352 |
filenameEntryFieldVisibleHolder |
|
353 |
filenameEntryFieldVisibleHolder isNil ifTrue:[ |
|
354 |
filenameEntryFieldVisibleHolder := true asValue. |
|
5042 | 355 |
filenameEntryFieldVisibleHolder onChangeSend:#updateModifiedChannel |
356 |
to:self |
|
4318 | 357 |
]. |
5042 | 358 |
^ filenameEntryFieldVisibleHolder |
4318 | 359 |
! |
360 |
||
361 |
openAlwaysInTextEditor |
|
362 |
openAlwaysInTextEditor isNil ifTrue:[ |
|
363 |
openAlwaysInTextEditor := true asValue. |
|
5042 | 364 |
openAlwaysInTextEditor onChangeSend:#updateModifiedChannel to:self |
4318 | 365 |
]. |
5042 | 366 |
^ openAlwaysInTextEditor |
4318 | 367 |
! |
368 |
||
369 |
openMultipleApplicationsForType |
|
370 |
openMultipleApplicationsForType isNil ifTrue:[ |
|
371 |
openMultipleApplicationsForType := true asValue. |
|
5042 | 372 |
openMultipleApplicationsForType onChangeSend:#updateModifiedChannel |
373 |
to:self |
|
4318 | 374 |
]. |
5042 | 375 |
^ openMultipleApplicationsForType |
4318 | 376 |
! |
377 |
||
378 |
showDirectoryTree |
|
379 |
showDirectoryTree isNil ifTrue:[ |
|
380 |
showDirectoryTree := true asValue. |
|
5042 | 381 |
showDirectoryTree onChangeSend:#updateModifiedChannel to:self |
4318 | 382 |
]. |
5042 | 383 |
^ showDirectoryTree |
4318 | 384 |
! |
385 |
||
386 |
showHiddenFiles |
|
387 |
showHiddenFiles isNil ifTrue:[ |
|
388 |
showHiddenFiles := true asValue. |
|
5042 | 389 |
showHiddenFiles onChangeSend:#updateModifiedChannel to:self |
4318 | 390 |
]. |
5042 | 391 |
^ showHiddenFiles |
4318 | 392 |
! |
393 |
||
394 |
sortCaseless |
|
395 |
sortCaseless isNil ifTrue:[ |
|
396 |
sortCaseless := true asValue. |
|
5042 | 397 |
sortCaseless onChangeSend:#updateModifiedChannel to:self |
4318 | 398 |
]. |
5042 | 399 |
^ sortCaseless |
4318 | 400 |
! |
401 |
||
402 |
sortDirectoriesBeforeFiles |
|
403 |
sortDirectoriesBeforeFiles isNil ifTrue:[ |
|
404 |
sortDirectoriesBeforeFiles := true asValue. |
|
5042 | 405 |
sortDirectoriesBeforeFiles onChangeSend:#updateModifiedChannel to:self |
4318 | 406 |
]. |
5042 | 407 |
^ sortDirectoriesBeforeFiles |
4318 | 408 |
! |
409 |
||
410 |
toolBarVisibleHolder |
|
411 |
toolBarVisibleHolder isNil ifTrue:[ |
|
412 |
toolBarVisibleHolder := true asValue. |
|
5042 | 413 |
toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self |
4318 | 414 |
]. |
5042 | 415 |
^ toolBarVisibleHolder |
4318 | 416 |
! |
417 |
||
418 |
viewDescription |
|
419 |
viewDescription isNil ifTrue:[ |
|
420 |
viewDescription := true asValue. |
|
5042 | 421 |
viewDescription onChangeSend:#updateModifiedChannel to:self |
4318 | 422 |
]. |
5042 | 423 |
^ viewDescription |
4318 | 424 |
! |
425 |
||
426 |
viewDetails |
|
427 |
viewDetails isNil ifTrue:[ |
|
428 |
viewDetails := true asValue. |
|
5042 | 429 |
viewDetails onChangeSend:#updateModifiedChannel to:self |
4318 | 430 |
]. |
5042 | 431 |
^ viewDetails |
4318 | 432 |
! |
433 |
||
434 |
viewDirectoryDescription |
|
435 |
viewDirectoryDescription isNil ifTrue:[ |
|
436 |
viewDirectoryDescription := true asValue. |
|
5042 | 437 |
viewDirectoryDescription onChangeSend:#updateModifiedChannel to:self |
4318 | 438 |
]. |
5042 | 439 |
^ viewDirectoryDescription |
4318 | 440 |
! |
441 |
||
442 |
viewDirsInContentsBrowser |
|
443 |
viewDirsInContentsBrowser isNil ifTrue:[ |
|
444 |
viewDirsInContentsBrowser := true asValue. |
|
5042 | 445 |
viewDirsInContentsBrowser onChangeSend:#updateModifiedChannel to:self |
4318 | 446 |
]. |
5042 | 447 |
^ viewDirsInContentsBrowser |
4318 | 448 |
! |
449 |
||
450 |
viewFilesInDirectoryTree |
|
451 |
viewFilesInDirectoryTree isNil ifTrue:[ |
|
452 |
viewFilesInDirectoryTree := true asValue. |
|
5042 | 453 |
viewFilesInDirectoryTree onChangeSend:#updateModifiedChannel to:self |
4318 | 454 |
]. |
5042 | 455 |
^ viewFilesInDirectoryTree |
4318 | 456 |
! |
457 |
||
458 |
viewGroup |
|
459 |
viewGroup isNil ifTrue:[ |
|
460 |
viewGroup := true asValue. |
|
5042 | 461 |
viewGroup onChangeSend:#updateModifiedChannel to:self |
4318 | 462 |
]. |
5042 | 463 |
^ viewGroup |
4318 | 464 |
! |
465 |
||
466 |
viewOwner |
|
467 |
viewOwner isNil ifTrue:[ |
|
468 |
viewOwner := true asValue. |
|
5042 | 469 |
viewOwner onChangeSend:#updateModifiedChannel to:self |
4318 | 470 |
]. |
5042 | 471 |
^ viewOwner |
4318 | 472 |
! |
473 |
||
474 |
viewPermissions |
|
475 |
viewPermissions isNil ifTrue:[ |
|
476 |
viewPermissions := true asValue. |
|
5042 | 477 |
viewPermissions onChangeSend:#updateModifiedChannel to:self |
4318 | 478 |
]. |
5042 | 479 |
^ viewPermissions |
4318 | 480 |
! |
481 |
||
482 |
viewPreview |
|
483 |
viewPreview isNil ifTrue:[ |
|
484 |
viewPreview := true asValue. |
|
5042 | 485 |
viewPreview onChangeSend:#updateModifiedChannel to:self |
4318 | 486 |
]. |
5042 | 487 |
^ viewPreview |
4318 | 488 |
! |
489 |
||
490 |
viewSize |
|
491 |
viewSize isNil ifTrue:[ |
|
492 |
viewSize := true asValue. |
|
5042 | 493 |
viewSize onChangeSend:#updateModifiedChannel to:self |
4318 | 494 |
]. |
5042 | 495 |
^ viewSize |
4318 | 496 |
! |
497 |
||
4966 | 498 |
viewSizeInBytes |
499 |
viewSizeInBytes isNil ifTrue:[ |
|
500 |
viewSizeInBytes := false asValue. |
|
5042 | 501 |
viewSizeInBytes onChangeSend:#updateModifiedChannel to:self |
4966 | 502 |
]. |
5042 | 503 |
^ viewSizeInBytes |
4966 | 504 |
! |
505 |
||
4318 | 506 |
viewTime |
507 |
viewTime isNil ifTrue:[ |
|
508 |
viewTime := true asValue. |
|
5042 | 509 |
viewTime onChangeSend:#updateModifiedChannel to:self |
4318 | 510 |
]. |
5042 | 511 |
^ viewTime |
4318 | 512 |
! |
513 |
||
514 |
viewType |
|
515 |
viewType isNil ifTrue:[ |
|
516 |
viewType := true asValue. |
|
5042 | 517 |
viewType onChangeSend:#updateModifiedChannel to:self |
4318 | 518 |
]. |
5042 | 519 |
^ viewType |
4318 | 520 |
! ! |
521 |
||
522 |
!FileBrowserV2SettingsAppl methodsFor:'queries'! |
|
523 |
||
524 |
hasUnsavedChanges |
|
525 |
||
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
526 |
|aspectList req receiver| |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
527 |
|
5027 | 528 |
req := self settingsDialog. |
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
529 |
receiver := (req notNil and:[req isKindOf:AbstractFileBrowser]) ifTrue:[ |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
530 |
req |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
531 |
] ifFalse:[ |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
532 |
currentUserPrefs |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
533 |
]. |
4318 | 534 |
|
535 |
aspectList := AbstractFileBrowser userPreferencesAspectList. |
|
536 |
aspectList do:[ : aAspect | |
|
4939
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
537 |
(self perform:aAspect) value ~= (receiver perform:aAspect) value ifTrue:[ |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
538 |
^ true |
101cc4d46184
fixes to allow settings dialog to be opened from browser
Claus Gittinger <cg@exept.de>
parents:
4627
diff
changeset
|
539 |
] |
4318 | 540 |
]. |
541 |
^ false |
|
542 |
! ! |
|
543 |
||
544 |
!FileBrowserV2SettingsAppl class methodsFor:'documentation'! |
|
545 |
||
546 |
version |
|
5042 | 547 |
^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.11 2003-07-10 12:38:47 penk Exp $' |
4318 | 548 |
! ! |