equal
deleted
inserted
replaced
42 documentation to be added. |
42 documentation to be added. |
43 |
43 |
44 [author:] |
44 [author:] |
45 Thomas Zwick |
45 Thomas Zwick |
46 " |
46 " |
47 ! |
|
48 |
|
49 history |
|
50 |
|
51 "Created: / 10.1.1998 / 11:00:06 / tz" |
|
52 "Modified: #windowSpec / 5.2.1998 / 09:36:40 / cg" |
|
53 "Modified: #windowSpec / 5.2.1998 / 12:25:27 / cg" |
|
54 ! ! |
47 ! ! |
55 |
48 |
56 !FileSelectionBrowser class methodsFor:'instance creation'! |
49 !FileSelectionBrowser class methodsFor:'instance creation'! |
57 |
50 |
58 request: aTitle fileFilters: fileFilters |
51 request: aTitle fileFilters: fileFilters |
289 accept value: true. |
282 accept value: true. |
290 self close |
283 self close |
291 ! |
284 ! |
292 |
285 |
293 readDirectory |
286 readDirectory |
294 "Diesen Mist musste ich machen, weil ztk es nicht fertig bringt, |
|
295 seine Models upzudaten, bevor er die Callbacks aufruft!!!!!!" |
|
296 |
287 |
297 |dir| |
288 |dir| |
298 directoryView listOfFiles removeAll. |
|
299 directoryView directory: |
289 directoryView directory: |
300 (dir := (self directoryTreeView model list at: |
290 (dir := (self directoryTreeView model list at: |
301 self directoryTreeView model selection) contents name); |
291 self directoryTreeView model selection) contents name); |
302 readDirectory. |
292 readDirectory. |
303 directory isNil ifTrue: [self class lastSelection: dir] |
293 directory isNil ifTrue: [self class lastSelection: dir] |