Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use filename-construct
authorClaus Gittinger <cg@exept.de>
Fri, 07 Aug 1998 20:01:33 +0200
changeset 1639 ae51010bd1dc
parent 1638 3168c74c3d48
child 1640 1ddc9c17b4bf
use filename-construct
FSelBox.st file | annotate | diff | comparison | revisions
FileSelectionBox.st file | annotate | diff | comparison | revisions 
--- a/FSelBox.st	Fri Aug 07 20:00:51 1998 +0200
+++ b/FSelBox.st	Fri Aug 07 20:01:33 1998 +0200
@@ -552,13 +552,19 @@
 !
 
 directorySelected
+    "a directory was selected - show the new path in the inputField,
+     if we are in directory mode"
+
     selectingDirectory ifTrue:[
-        enterField contents:(selectionList directory pathName
-                             , '/' , selectionList selectionValue).
+        |newDir|
+
+        newDir := (selectionList directory)
+                      construct:selectionList selectionValue.
+        enterField contents:newDir pathName.
     ].
 
-    "Modified: 18.4.1996 / 18:40:41 / cg"
-    "Created: 18.4.1996 / 18:46:15 / cg"
+    "Created: / 18.4.1996 / 18:46:15 / cg"
+    "Modified: / 7.8.1998 / 17:19:26 / cg"
 !
 
 doubleClick
@@ -634,5 +640,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.49 1998-06-16 13:11:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.50 1998-08-07 18:01:33 cg Exp $'
 ! !
--- a/FileSelectionBox.st	Fri Aug 07 20:00:51 1998 +0200
+++ b/FileSelectionBox.st	Fri Aug 07 20:01:33 1998 +0200
@@ -552,13 +552,19 @@
 !
 
 directorySelected
+    "a directory was selected - show the new path in the inputField,
+     if we are in directory mode"
+
     selectingDirectory ifTrue:[
-        enterField contents:(selectionList directory pathName
-                             , '/' , selectionList selectionValue).
+        |newDir|
+
+        newDir := (selectionList directory)
+                      construct:selectionList selectionValue.
+        enterField contents:newDir pathName.
     ].
 
-    "Modified: 18.4.1996 / 18:40:41 / cg"
-    "Created: 18.4.1996 / 18:46:15 / cg"
+    "Created: / 18.4.1996 / 18:46:15 / cg"
+    "Modified: / 7.8.1998 / 17:19:26 / cg"
 !
 
 doubleClick
@@ -634,5 +640,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.49 1998-06-16 13:11:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.50 1998-08-07 18:01:33 cg Exp $'
 ! !
hg/stx-libwidg