equal
deleted
inserted
replaced
811 button2 borderWidth:borderWidth. |
811 button2 borderWidth:borderWidth. |
812 |
812 |
813 style := styleSheet name. |
813 style := styleSheet name. |
814 ((style = #iris) and:[Screen current hasGrayscales]) ifTrue:[ |
814 ((style = #iris) and:[Screen current hasGrayscales]) ifTrue:[ |
815 "have to change some of Buttons defaults" |
815 "have to change some of Buttons defaults" |
816 clr := (Color gray:25) on:device. |
816 clr := (Color gray:25) onDevice:device. |
817 button1 passiveLevel:2. |
817 button1 passiveLevel:2. |
818 button2 passiveLevel:2. |
818 button2 passiveLevel:2. |
819 button1 foregroundColor:clr. |
819 button1 foregroundColor:clr. |
820 button1 activeForegroundColor:clr. |
820 button1 activeForegroundColor:clr. |
821 button1 enteredForegroundColor:clr. |
821 button1 enteredForegroundColor:clr. |
1075 ! ! |
1075 ! ! |
1076 |
1076 |
1077 !ScrollBar class methodsFor:'documentation'! |
1077 !ScrollBar class methodsFor:'documentation'! |
1078 |
1078 |
1079 version |
1079 version |
1080 ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.63 1999-07-08 13:55:57 cg Exp $' |
1080 ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.64 1999-08-18 14:37:37 cg Exp $' |
1081 ! ! |
1081 ! ! |