Mercurial Mercurial > hg > stx-libwidg2 / 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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 03 Jul 1999 15:58:11 +0200
changeset 1428 538efff1b389
parent 1427 03d90634fbbd
child 1429 ec837032e254
checkin from browser
FNmEdtFld.st file | annotate | diff | comparison | revisions
FilenameEditField.st file | annotate | diff | comparison | revisions 
--- a/FNmEdtFld.st	Fri Jul 02 11:53:18 1999 +0200
+++ b/FNmEdtFld.st	Sat Jul 03 15:58:11 1999 +0200
@@ -69,10 +69,12 @@
 
     n := someText.
     directoriesOnly ifFalse:[
-        f := someText asFilename.
-        (f exists and:[f isDirectory]) ifTrue:[
-            (f name endsWith:f separator) ifFalse:[
-                n := f name copyWith:f separator
+        someText notNil ifTrue:[
+            f := someText asFilename.
+            (f exists and:[f isDirectory]) ifTrue:[
+                (f name endsWith:f separator) ifFalse:[
+                    n := f name copyWith:f separator
+                ]
             ]
         ].
     ].
@@ -218,5 +220,5 @@
 !FilenameEditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.26 1999-06-28 08:41:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.27 1999-07-03 13:58:11 cg Exp $'
 ! !
--- a/FilenameEditField.st	Fri Jul 02 11:53:18 1999 +0200
+++ b/FilenameEditField.st	Sat Jul 03 15:58:11 1999 +0200
@@ -69,10 +69,12 @@
 
     n := someText.
     directoriesOnly ifFalse:[
-        f := someText asFilename.
-        (f exists and:[f isDirectory]) ifTrue:[
-            (f name endsWith:f separator) ifFalse:[
-                n := f name copyWith:f separator
+        someText notNil ifTrue:[
+            f := someText asFilename.
+            (f exists and:[f isDirectory]) ifTrue:[
+                (f name endsWith:f separator) ifFalse:[
+                    n := f name copyWith:f separator
+                ]
             ]
         ].
     ].
@@ -218,5 +220,5 @@
 !FilenameEditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.26 1999-06-28 08:41:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.27 1999-07-03 13:58:11 cg Exp $'
 ! !
hg/stx-libwidg2