equal
deleted
inserted
replaced
128 ! ! |
128 ! ! |
129 |
129 |
130 !FileSelectionBrowser class methodsFor:'accessing'! |
130 !FileSelectionBrowser class methodsFor:'accessing'! |
131 |
131 |
132 loadImageFileNameFilters |
132 loadImageFileNameFilters |
133 ^self saveImageFileNameFilters addAll: #('*.jpeg' '*.jpg' '*'); yourself |
133 ^ OrderedCollection |
134 |
134 withAll: #( |
135 "Modified: / 29.7.1998 / 00:56:29 / cg" |
135 '*.xpm ; *.xbm ; *.gif ; *.tif ; *.tiff ; *.bmp ; *.jpeg ; *.jpg' |
|
136 '*' |
|
137 ) |
|
138 |
|
139 "Modified: / 12.9.1998 / 17:23:42 / cg" |
136 ! |
140 ! |
137 |
141 |
138 projectFileNameFilters |
142 projectFileNameFilters |
139 ^Array withAll: #('*.st' '*.*o' '*.s' '*.c' 'Make*' '*.project') |
143 ^Array withAll: #( |
140 |
144 '*.st ; *.*o ; *.s ; *.c ; Make* ; *.project' |
|
145 '*' |
|
146 ) |
|
147 |
|
148 "Modified: / 12.9.1998 / 17:23:22 / cg" |
141 ! |
149 ! |
142 |
150 |
143 saveImageFileNameFilters |
151 saveImageFileNameFilters |
144 ^ OrderedCollection withAll: #('*.xpm' '*.xbm' '*.gif' '*.tif' '*.tiff' '*.bmp') |
152 ^ OrderedCollection |
145 |
153 withAll: #( |
146 "Modified: / 29.7.1998 / 00:55:14 / cg" |
154 '*.xpm ; *.xbm ; *.gif ; *.tif ; *.tiff ; *.bmp' |
|
155 '*' |
|
156 ) |
|
157 |
|
158 "Modified: / 12.9.1998 / 17:23:54 / cg" |
147 ! ! |
159 ! ! |
148 |
160 |
149 !FileSelectionBrowser class methodsFor:'interface specs'! |
161 !FileSelectionBrowser class methodsFor:'interface specs'! |
150 |
162 |
151 windowSpec |
163 windowSpec |
373 |
385 |
374 directoryView listOfFileFilters: listOfFileFilters ? #('*'). |
386 directoryView listOfFileFilters: listOfFileFilters ? #('*'). |
375 directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName asFilename baseName]. |
387 directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName asFilename baseName]. |
376 directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName]. |
388 directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName]. |
377 directoryView fileFilterSelectAction: [:fileFilter| |
389 directoryView fileFilterSelectAction: [:fileFilter| |
378 self valueOfFileName value: ( |
390 "/ CG: obscure code - isn't the code below the same as ? |
379 ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.', |
391 "/ self valueOfFileName value:((self valueOfFileName value ? 'unknown') |
380 (fileFilter copy reverse readStream upTo: $.) reverse)]. |
392 "/ asFilename |
|
393 "/ withSuffix:(fileFilter asFilename suffix)) |
|
394 self valueOfFileName value: ( |
|
395 ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.', |
|
396 (fileFilter copy reverse readStream upTo: $.) reverse) |
|
397 ]. |
381 self directoryTreeView selectPathname: directory ? self class lastSelection ? Filename currentDirectory asAbsoluteFilename name. |
398 self directoryTreeView selectPathname: directory ? self class lastSelection ? Filename currentDirectory asAbsoluteFilename name. |
382 |
399 |
383 self directoryInputField entryCompletionBlock: |
400 self directoryInputField entryCompletionBlock: |
384 [:f| |
401 [:f| |
385 |completedDirectory| |
402 |completedDirectory| |
405 directoryView selectionOfFile value: |
422 directoryView selectionOfFile value: |
406 (directoryView listOfFiles detect: [:row| row baseName = self valueOfFileName value] ifNone: nil). |
423 (directoryView listOfFiles detect: [:row| row baseName = self valueOfFileName value] ifNone: nil). |
407 |
424 |
408 ^super postBuildWith:aBuilder |
425 ^super postBuildWith:aBuilder |
409 |
426 |
410 "Modified: / 24.8.1998 / 17:43:44 / cg" |
427 "Modified: / 12.9.1998 / 17:10:44 / cg" |
411 ! ! |
428 ! ! |
412 |
429 |
413 !FileSelectionBrowser class methodsFor:'documentation'! |
430 !FileSelectionBrowser class methodsFor:'documentation'! |
414 |
431 |
415 version |
432 version |