--- a/FileBrowser.st	Mon Jan 16 18:23:28 2006 +0100
+++ b/FileBrowser.st	Tue Jan 17 13:18:46 2006 +0100
@@ -200,7 +200,7 @@
 addToCommandHistory:aCommandString for:aFilename
     |cmd suffix|
 
-    (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
+    (aCommandString notEmptyOrNil) ifTrue:[
         CommandHistory notNil ifTrue:[
             CommandHistory addFirst:aCommandString.
             CommandHistory size > CommandHistorySize ifTrue:[
@@ -3513,7 +3513,7 @@
 
     ok ifTrue:[
         name1 := name1 value.
-        (name1 isNil or:[name1 isEmpty]) ifTrue:[
+        (name1 isEmptyOrNil) ifTrue:[
 "/            text1 := subView contents.
             text1 := subView list asStringCollection withTabs.
             text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
@@ -4237,7 +4237,7 @@
                 
                 "/            subView insertStringAtCursor:cmd.
                 "/            subView insertCharAtCursor:(Character cr).
-                (cmd notNil and:[ cmd notEmpty ]) ifTrue:[ 
+                (cmd notEmptyOrNil) ifTrue:[ 
                     self class addToCommandHistory:cmd for:nil.
                     self doExecuteCommand:cmd replace:false.
                     commandView contents:nil.
@@ -7520,5 +7520,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.607 2006-01-09 08:56:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.608 2006-01-17 12:16:53 cg Exp $'
 ! !