equal
deleted
inserted
replaced
382 formVariableName := #ActiveDownArrowForm. |
382 formVariableName := #ActiveDownArrowForm. |
383 styleSheetName := #'arrowButton.activeDownForm'. |
383 styleSheetName := #'arrowButton.activeDownForm'. |
384 styleSheetFileName := #'arrowButton.activeDownFormFile'. |
384 styleSheetFileName := #'arrowButton.activeDownFormFile'. |
385 ]. |
385 ]. |
386 formVariableName isNil ifTrue:[ |
386 formVariableName isNil ifTrue:[ |
387 self halt. |
387 self error:'invalid direction' mayProceed:true. |
388 ^ nil |
388 ^ nil |
389 ]. |
389 ]. |
390 |
390 |
391 ^ self |
391 ^ self |
392 arrowButtonFormForStyle:styleSymbol |
392 arrowButtonFormForStyle:styleSymbol |
430 formVariableName := #DownArrowForm. |
430 formVariableName := #DownArrowForm. |
431 styleSheetName := #'arrowButton.downForm'. |
431 styleSheetName := #'arrowButton.downForm'. |
432 styleSheetFileName := #'arrowButton.downFormFile'. |
432 styleSheetFileName := #'arrowButton.downFormFile'. |
433 ]. |
433 ]. |
434 formVariableName isNil ifTrue:[ |
434 formVariableName isNil ifTrue:[ |
435 self halt. |
435 self error:'invalid direction' mayProceed:true. |
436 ^ nil |
436 ^ nil |
437 ]. |
437 ]. |
438 |
438 |
439 ^ self |
439 ^ self |
440 arrowButtonFormForStyle:styleSymbol |
440 arrowButtonFormForStyle:styleSymbol |
741 formVariableName := #DisabledDownArrowForm. |
741 formVariableName := #DisabledDownArrowForm. |
742 styleSheetName := #'arrowButton.disabledDownForm'. |
742 styleSheetName := #'arrowButton.disabledDownForm'. |
743 styleSheetFileName := #'arrowButton.disabledDownFormFile'. |
743 styleSheetFileName := #'arrowButton.disabledDownFormFile'. |
744 ]. |
744 ]. |
745 formVariableName isNil ifTrue:[ |
745 formVariableName isNil ifTrue:[ |
746 self halt. |
746 self error:'invalid direction' mayProceed:true. |
747 ^ nil |
747 ^ nil |
748 ]. |
748 ]. |
749 |
749 |
750 ^ self |
750 ^ self |
751 arrowButtonFormForStyle:styleSymbol |
751 arrowButtonFormForStyle:styleSymbol |
787 formVariableName := #EnteredDownArrowForm. |
787 formVariableName := #EnteredDownArrowForm. |
788 styleSheetName := #'arrowButton.enteredDownForm'. |
788 styleSheetName := #'arrowButton.enteredDownForm'. |
789 styleSheetFileName := #'arrowButton.enteredDownFormFile'. |
789 styleSheetFileName := #'arrowButton.enteredDownFormFile'. |
790 ]. |
790 ]. |
791 formVariableName isNil ifTrue:[ |
791 formVariableName isNil ifTrue:[ |
792 self halt. |
792 self error:'invalid direction' mayProceed:true. |
793 ^ nil |
793 ^ nil |
794 ]. |
794 ]. |
795 |
795 |
796 ^ self |
796 ^ self |
797 arrowButtonFormForStyle:styleSymbol |
797 arrowButtonFormForStyle:styleSymbol |
1042 ! ! |
1042 ! ! |
1043 |
1043 |
1044 !ArrowButton class methodsFor:'documentation'! |
1044 !ArrowButton class methodsFor:'documentation'! |
1045 |
1045 |
1046 version |
1046 version |
1047 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.65 2002-09-23 09:39:22 cg Exp $' |
1047 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.66 2002-10-14 16:14:14 stefan Exp $' |
1048 ! ! |
1048 ! ! |