show the current directory in the label
authorClaus Gittinger <cg@exept.de>
Mon, 01 Oct 2007 19:29:08 +0200
changeset 7855 d8c06d41b20b
parent 7854 90183f8cf078
child 7856 2508daf776bd
show the current directory in the label
FileBrowserV2.st
--- a/FileBrowserV2.st	Mon Oct 01 11:08:01 2007 +0200
+++ b/FileBrowserV2.st	Mon Oct 01 19:29:08 2007 +0200
@@ -1413,7 +1413,11 @@
     ].
     self updatePreview.
 
-    "Modified: / 04-12-2006 / 13:15:48 / cg"
+    nSelected == 1 ifTrue:[
+        self window label:(self currentDirectory baseName)  
+    ].
+
+    "Modified: / 01-10-2007 / 19:29:23 / cg"
 !
 
 fileEntryFieldHolderChanged
@@ -1533,8 +1537,6 @@
 !
 
 update:something with:aParameter from:changedObject
-
-
     changedObject == self selectedDeviceDrive ifTrue:[
         self selectedDeviceDriveChanged.
         ^ self.
@@ -1564,6 +1566,8 @@
     ].             
 
     ^ super update:something with:aParameter from:changedObject.
+
+    "Modified: / 01-10-2007 / 19:21:35 / cg"
 !
 
 updatePreview
@@ -1867,7 +1871,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.172 2007-09-18 07:42:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.173 2007-10-01 17:29:08 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!