--- 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 $'
! !