--- a/FileSelectionBrowser.st Thu Feb 05 13:46:11 1998 +0100
+++ b/FileSelectionBrowser.st Thu Feb 05 16:07:58 1998 +0100
@@ -44,13 +44,6 @@
[author:]
Thomas Zwick
"
-!
-
-history
-
- "Created: / 10.1.1998 / 11:00:06 / tz"
- "Modified: #windowSpec / 5.2.1998 / 09:36:40 / cg"
- "Modified: #windowSpec / 5.2.1998 / 12:25:27 / cg"
! !
!FileSelectionBrowser class methodsFor:'instance creation'!
@@ -291,11 +284,8 @@
!
readDirectory
- "Diesen Mist musste ich machen, weil ztk es nicht fertig bringt,
- seine Models upzudaten, bevor er die Callbacks aufruft!!!!!!"
|dir|
- directoryView listOfFiles removeAll.
directoryView directory:
(dir := (self directoryTreeView model list at:
self directoryTreeView model selection) contents name);