oops - leftover halt removed.
authorClaus Gittinger <cg@exept.de>
Fri, 11 Sep 1998 15:57:35 +0200
changeset 1674 75149fa16b10
parent 1673 ff43258f2224
child 1675 b1cba2341f95
oops - leftover halt removed.
FSelBox.st
FileSelectionBox.st
--- a/FSelBox.st	Fri Sep 11 15:55:32 1998 +0200
+++ b/FSelBox.st	Fri Sep 11 15:57:35 1998 +0200
@@ -594,7 +594,6 @@
     string := enterField contents.
     (string notNil and:[string notEmpty]) ifTrue:[
         string := string withoutSeparators.
-self halt.
         string asFilename isAbsolute ifTrue:[
             fname := string asFilename
         ] ifFalse:[
@@ -616,7 +615,7 @@
 
     super okPressed
 
-    "Modified: / 9.9.1998 / 21:21:14 / cg"
+    "Modified: / 10.9.1998 / 22:19:11 / cg"
 !
 
 patternChanged
@@ -645,5 +644,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.54 1998-09-09 20:35:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.55 1998-09-11 13:57:35 cg Exp $'
 ! !
--- a/FileSelectionBox.st	Fri Sep 11 15:55:32 1998 +0200
+++ b/FileSelectionBox.st	Fri Sep 11 15:57:35 1998 +0200
@@ -594,7 +594,6 @@
     string := enterField contents.
     (string notNil and:[string notEmpty]) ifTrue:[
         string := string withoutSeparators.
-self halt.
         string asFilename isAbsolute ifTrue:[
             fname := string asFilename
         ] ifFalse:[
@@ -616,7 +615,7 @@
 
     super okPressed
 
-    "Modified: / 9.9.1998 / 21:21:14 / cg"
+    "Modified: / 10.9.1998 / 22:19:11 / cg"
 !
 
 patternChanged
@@ -645,5 +644,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.54 1998-09-09 20:35:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.55 1998-09-11 13:57:35 cg Exp $'
 ! !