diff -r 7698ab17b146 -r beb8b4b43b26 ArrowButton.st
--- a/ArrowButton.st	Mon Oct 14 17:47:43 2002 +0200
+++ b/ArrowButton.st	Mon Oct 14 18:14:14 2002 +0200
@@ -384,7 +384,7 @@
         styleSheetFileName := #'arrowButton.activeDownFormFile'.
     ].
     formVariableName isNil ifTrue:[
-        self halt.
+        self error:'invalid direction' mayProceed:true.
         ^ nil
     ].
 
@@ -432,7 +432,7 @@
         styleSheetFileName := #'arrowButton.downFormFile'.
     ].
     formVariableName isNil ifTrue:[
-        self halt.
+        self error:'invalid direction' mayProceed:true.
         ^ nil
     ].
 
@@ -743,7 +743,7 @@
         styleSheetFileName := #'arrowButton.disabledDownFormFile'.
     ].
     formVariableName isNil ifTrue:[
-        self halt.
+        self error:'invalid direction' mayProceed:true.
         ^ nil
     ].
 
@@ -789,7 +789,7 @@
         styleSheetFileName := #'arrowButton.enteredDownFormFile'.
     ].
     formVariableName isNil ifTrue:[
-        self halt.
+        self error:'invalid direction' mayProceed:true.
         ^ nil
     ].
 
@@ -1044,5 +1044,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.65 2002-09-23 09:39:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.66 2002-10-14 16:14:14 stefan Exp $'
 ! !