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