equal
deleted
inserted
replaced
684 |
684 |
685 |form| |
685 |form| |
686 |
686 |
687 aDirectionSymbol == #up ifTrue:[ |
687 aDirectionSymbol == #up ifTrue:[ |
688 form := (self class upArrowButtonForm:arrowStyle on:device). |
688 form := (self class upArrowButtonForm:arrowStyle on:device). |
689 name := 'upButton'. |
|
690 ]. |
689 ]. |
691 aDirectionSymbol == #down ifTrue:[ |
690 aDirectionSymbol == #down ifTrue:[ |
692 form := (self class downArrowButtonForm:arrowStyle on:device). |
691 form := (self class downArrowButtonForm:arrowStyle on:device). |
693 name := 'downButton'. |
|
694 ]. |
692 ]. |
695 aDirectionSymbol == #left ifTrue:[ |
693 aDirectionSymbol == #left ifTrue:[ |
696 form := (self class leftArrowButtonForm:arrowStyle on:device). |
694 form := (self class leftArrowButtonForm:arrowStyle on:device). |
697 name := 'leftButton'. |
|
698 ]. |
695 ]. |
699 aDirectionSymbol == #right ifTrue:[ |
696 aDirectionSymbol == #right ifTrue:[ |
700 form := (self class rightArrowButtonForm:arrowStyle on:device). |
697 form := (self class rightArrowButtonForm:arrowStyle on:device). |
701 name := 'rightButton'. |
|
702 ]. |
698 ]. |
703 self form:form |
699 self form:form |
704 |
700 |
705 "Modified: 22.1.1997 / 11:59:38 / cg" |
701 "Modified: 24.2.1997 / 21:19:59 / cg" |
706 ! ! |
702 ! ! |
707 |
703 |
708 !ArrowButton methodsFor:'initialization'! |
704 !ArrowButton methodsFor:'initialization'! |
709 |
705 |
710 initStyle |
706 initStyle |
857 ! ! |
853 ! ! |
858 |
854 |
859 !ArrowButton class methodsFor:'documentation'! |
855 !ArrowButton class methodsFor:'documentation'! |
860 |
856 |
861 version |
857 version |
862 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.37 1997-02-13 21:00:18 ca Exp $' |
858 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.38 1997-02-24 20:20:10 cg Exp $' |
863 ! ! |
859 ! ! |