hg/stx-libwidg: ArrowButton.st@e40b815ce3e2 (annotated)

1 3ebee08bea15 Initial revision claus parents: diff changeset	1	"
3ebee08bea15 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	3	All Rights Reserved
1 3ebee08bea15 Initial revision claus parents: diff changeset	4
3ebee08bea15 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
3ebee08bea15 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
3ebee08bea15 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
3ebee08bea15 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
3ebee08bea15 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
3ebee08bea15 Initial revision claus parents: diff changeset	10	hereby transferred.
3ebee08bea15 Initial revision claus parents: diff changeset	11	"
3ebee08bea15 Initial revision claus parents: diff changeset	12
2250 59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	13	"{ Package: 'stx:libwidg' }"
59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	14
1 3ebee08bea15 Initial revision claus parents: diff changeset	15	Button subclass:#ArrowButton
1053 b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	16	instanceVariableNames:'arrowStyle direction'
440 2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	17	classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	18	CachedStyle DefaultArrowStyle DefaultBackgroundColor
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	19	DefaultForegroundColor DefaultActiveBackgroundColor
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	20	DefaultActiveForegroundColor DefaultEnteredBackgroundColor
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	21	DefaultEnteredForegroundColor DefaultDisabledForegroundColor
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	22	DefaultArrowButtonActiveLevel DefaultArrowButtonPassiveLevel
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	23	DownArrowFormFile UpArrowFormFile LeftArrowFormFile
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	24	RightArrowFormFile'
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	25	poolDictionaries:''
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	26	category:'Views-Interactors'
1 3ebee08bea15 Initial revision claus parents: diff changeset	27	!
3ebee08bea15 Initial revision claus parents: diff changeset	28
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 781 diff changeset	29	!ArrowButton class methodsFor:'documentation'!
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	30
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	31	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	32	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	33	COPYRIGHT (c) 1993 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	34	All Rights Reserved
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	35
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	36	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	37	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	38	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	39	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	40	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	41	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	42	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	43	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	44
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	45	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	46	"
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	47	ArrowButtons display an arrow as their label; they are mainly
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	48	used for scrollbars, but can be useful on their own in some applications.
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	49	Beside the contents, their default behavior is to perform their action
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	50	when pressed - not (as is the default for normal buttons) when released.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	51
65 b33e4f3a264e * empty log message * claus parents: 62 diff changeset	52	Indivdual ArrowButtons can be created by sending one of:
580 a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	53	ArrowButton upIn:aView /downIn: / leftIn: or rightIn:
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	54	passing the parent view as argument.
65 b33e4f3a264e * empty log message * claus parents: 62 diff changeset	55
130 338e856bddc9 . claus parents: 128 diff changeset	56	See examples.
338e856bddc9 . claus parents: 128 diff changeset	57
580 a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	58
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	59	[styleSheet parameters:]
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	60
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	61	arrowButtonStyle <Symbol> the style of the button;
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	62	#motif, #st80 or nil (default)
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	63	arrowButtonForegroundColor <nil \| Color> foregroundColor
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	64	arrowButtonBackgroundColor <nil \| Color> backgroundColor
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	65
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	66	arrowButtonActiveForegroundColor foregroundColor when pressed
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	67	arrowButtonActiveBackgroundColor backgroundColor when pressed
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	68
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	69	arrowButtonEnteredForegroundColor foregroundColor when mouse pointer entered
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	70	arrowButtonEnteredBackgroundColor backgroundColor when mouse pointer entered
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	71
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 580 diff changeset	72	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 580 diff changeset	73	Claus Gittinger
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 580 diff changeset	74
580 a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	75	[See also:]
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	76	Button Toggle CheckToggle CheckBox
a31ba5bcc4c0 commentary Claus Gittinger <cg@exept.de> parents: 440 diff changeset	77	ScrollBar
130 338e856bddc9 . claus parents: 128 diff changeset	78
62 7cc1e330da47 * empty log message * claus parents: 60 diff changeset	79	"
7cc1e330da47 * empty log message * claus parents: 60 diff changeset	80	!
1 3ebee08bea15 Initial revision claus parents: diff changeset	81
62 7cc1e330da47 * empty log message * claus parents: 60 diff changeset	82	examples
7cc1e330da47 * empty log message * claus parents: 60 diff changeset	83	"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	84	example1:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	85	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	86	\|v p b1 b2 b3 b4\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	87
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	88	v := StandardSystemView extent:200@200.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	89	p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	90	b1 := ArrowButton upIn:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	91	b2 := ArrowButton downIn:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	92	b3 := ArrowButton leftIn:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	93	b4 := ArrowButton rightIn:p.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	94
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	95	b1 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	96	b2 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	97	b3 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	98	b4 action:['whatEver you like here ...'].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	99
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	100	v open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	101	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	102
1 3ebee08bea15 Initial revision claus parents: diff changeset	103
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	104	example2:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	105	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	106	\|v p b1 b2 b3 b4\|
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	107
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	108	v := StandardSystemView extent:200@200.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	109	p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	110	b1 := (ArrowButton upIn:p) extent:30@30.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	111	b2 := (ArrowButton downIn:p) extent:30@30.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	112	b3 := (ArrowButton leftIn:p) extent:30@30.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	113	b4 := (ArrowButton rightIn:p) extent:30@30.
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	114
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	115	b1 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	116	b2 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	117	b3 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	118	b4 action:['whatEver you like here ...'].
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	119
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	120	v open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	121	[exEnd]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	122
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	123
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	124	example3:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	125	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	126	\|v p b1 b2 b3 b4\|
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	127
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	128	v := StandardSystemView extent:200@200.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	129	p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	130	b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	131	b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	132	b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	133	b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0).
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	134
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	135	b1 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	136	b2 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	137	b3 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	138	b4 action:['whatEver you like here ...'].
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	139
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	140	v open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	141	[exEnd]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	142
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	143
65 b33e4f3a264e * empty log message * claus parents: 62 diff changeset	144	example4 (not good coding style, to explicitely use a particular style,
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	145	just a demonstration how it looks ..):
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	146	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	147	\|v p b1 b2 b3 b4 oldStyle\|
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	148
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	149	oldStyle := View defaultStyle.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	150	View defaultStyle:#motif.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	151
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	152	v := StandardSystemView extent:100@100.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	153	p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	154
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	155	b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	156	b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	157	b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	158	b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0).
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	159
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	160	b1 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	161	b2 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	162	b3 action:['whatEver you like here ...'].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	163	b4 action:['whatEver you like here ...'].
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	164
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	165	View defaultStyle:oldStyle.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	166	v open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	167	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	168	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	169	! !
1 3ebee08bea15 Initial revision claus parents: diff changeset	170
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 781 diff changeset	171	!ArrowButton class methodsFor:'instance creation'!
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	172
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	173	downIn:aView
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	174	"create and return a new down-button in aView"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	175
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	176	^ (super in:aView) direction:#down
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	177
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	178	"Modified: 22.1.1997 / 11:59:08 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	179	!
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	180
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	181	leftIn:aView
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	182	"create and return a new left-button in aView"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	183
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	184	^ (super in:aView) direction:#left
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	185
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	186	"Modified: 22.1.1997 / 11:59:14 / cg"
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	187	!
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	188
1053 b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	189	new
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	190	"return a new arrowButton - direction defaults to #up"
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	191
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	192	^ super new direction:#up
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	193	!
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	194
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	195	rightIn:aView
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	196	"create and return a new right-button in aView"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	197
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	198	^ (super in:aView) direction:#right
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	199
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	200	"Modified: 22.1.1997 / 11:59:21 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	201	!
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	202
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	203	upIn:aView
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	204	"create and return a new up-button in aView"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	205
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	206	^ (super in:aView) direction:#up
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	207
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	208	"Modified: 22.1.1997 / 11:59:27 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	209	! !
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	210
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 781 diff changeset	211	!ArrowButton class methodsFor:'defaults'!
1 3ebee08bea15 Initial revision claus parents: diff changeset	212
1455 9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	213	DownArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	214
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	215	^DownArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	216	!
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	217
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	218	LeftArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	219
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	220	^LeftArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	221	!
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	222
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	223	RightArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	224
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	225	^RightArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	226	!
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	227
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	228	UpArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	229
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	230	^UpArrowForm
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	231	!
9670fb4c4558 form access methods for the UpDownButton added tz parents: 1430 diff changeset	232
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	233	defaultDownArrowButtonForm
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	234	"return the default form used for the scrollDown Button
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	235	(if no styleSheet value is defined, and no form can be constructed)"
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	236
2250 59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	237	<resource: #programImage>
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	238	<resource: #style (#'name')>
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	239
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	240	(StyleSheet name startsWith:#win9) ifTrue:[
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	241	^ Form
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	242	width:11 height:11
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	243	fromArray:#[
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	244	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	245	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	246	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	247	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	248	2r00111111 2r10000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	249	2r00011111 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	250	2r00001110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	251	2r00000100 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	252	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	253	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	254	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	255	]
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	256	].
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	257
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	258	^ Form width:16 height:16
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	259	fromArray:#[2r00000000 2r00000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	260	2r00001111 2r11110000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	261	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	262	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	263	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	264	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	265	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	266	2r01111000 2r00011110
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	267	2r01000000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	268	2r00100000 2r00000100
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	269	2r00010000 2r00001000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	270	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	271	2r00000100 2r00100000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	272	2r00000010 2r01000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	273	2r00000001 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	274	2r00000000 2r00000000]
1008 5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	275
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	276	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	277	self defaultDownArrowButtonForm
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	278	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	279
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	280	"Modified: / 26.3.1999 / 15:16:07 / cg"
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	281	!
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	282
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	283	defaultLeftArrowButtonForm
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	284	"return the default form used for the scrollLeft Button
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	285	(if no styleSheet value is defined, and no form can be constructed)"
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	286
2250 59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	287	<resource: #programImage>
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	288	<resource: #style (#'name')>
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	289
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	290	(StyleSheet name startsWith:#win9) ifTrue:[
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	291	^ Form
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	292	width:11 height:11
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	293	fromArray:#[
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	294	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	295	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	296	2r00000010 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	297	2r00000110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	298	2r00001110 2r10000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	299	2r00011110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	300	2r00001110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	301	2r00000110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	302	2r00000010 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	303	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	304	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	305	]
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	306	].
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	307
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	308	^ Form width:16 height:16
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	309	fromArray:#[2r00000000 2r00000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	310	2r00000001 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	311	2r00000010 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	312	2r00000100 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	313	2r00001000 2r11111110
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	314	2r00010000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	315	2r00100000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	316	2r01000000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	317	2r01000000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	318	2r00100000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	319	2r00010000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	320	2r00001000 2r11111110
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	321	2r00000100 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	322	2r00000010 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	323	2r00000001 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	324	2r00000000 2r00000000]
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	325
1008 5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	326	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	327	self defaultLeftArrowButtonForm
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	328	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	329
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	330	"Modified: / 26.3.1999 / 15:17:38 / cg"
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	331	!
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	332
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	333	defaultRightArrowButtonForm
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	334	"return the default form used for the scrollRight Button
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	335	(if no styleSheet value is defined, and no form can be constructed)"
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	336
2250 59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	337	<resource: #programImage>
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	338	<resource: #style (#'name')>
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	339
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	340	(StyleSheet name startsWith:#win9) ifTrue:[
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	341	^ Form
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	342	width:11 height:11
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	343	fromArray:#[
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	344	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	345	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	346	2r00001000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	347	2r00001100 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	348	2r00001110 2r10000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	349	2r00001111 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	350	2r00001110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	351	2r00001100 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	352	2r00001000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	353	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	354	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	355	]
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	356	].
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	357	^ Form width:16 height:16
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	358	fromArray:#[2r00000000 2r00000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	359	2r00000001 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	360	2r00000001 2r01000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	361	2r00000001 2r00100000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	362	2r01111111 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	363	2r01000000 2r00001000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	364	2r01000000 2r00000100
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	365	2r01000000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	366	2r01000000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	367	2r01000000 2r00000100
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	368	2r01000000 2r00001000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	369	2r01111111 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	370	2r00000001 2r00100000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	371	2r00000001 2r01000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	372	2r00000001 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	373	2r00000000 2r00000000]
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	374
1008 5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	375	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	376	self defaultRightArrowButtonForm
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	377	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	378
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	379	"Modified: / 26.3.1999 / 15:18:29 / cg"
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	380	!
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	381
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	382	defaultUpArrowButtonForm
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	383	"return the default form used for the scrollUp Button
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	384	(if no styleSheet value is defined, and no form can be constructed)"
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	385
2250 59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	386	<resource: #programImage>
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	387	<resource: #style (#'name')>
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	388
2137 2642e627bb2a eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	389	(StyleSheet name startsWith:#win9) ifTrue:[
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	390	^ Form
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	391	width:11 height:11
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	392	fromArray:#[
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	393	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	394	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	395	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	396	2r00000100 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	397	2r00001110 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	398	2r00011111 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	399	2r00111111 2r10000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	400	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	401	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	402	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	403	2r00000000 2r00000000
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	404	]
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	405	].
770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	406
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	407	^ Form width:16 height:16
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	408	fromArray:#[2r00000000 2r00000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	409	2r00000001 2r10000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	410	2r00000010 2r01000000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	411	2r00000100 2r00100000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	412	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	413	2r00010000 2r00001000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	414	2r00100000 2r00000100
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	415	2r01000000 2r00000010
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	416	2r01111000 2r00011110
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	417	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	418	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	419	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	420	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	421	2r00001000 2r00010000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	422	2r00001111 2r11110000
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	423	2r00000000 2r00000000]
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	424
1008 5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	425	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	426	self defaultUpArrowButtonForm
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	427	"
5c8209ebfcf0 checkin from browser ca parents: 1005 diff changeset	428
1823 770467bf0dc9 added default arrowButton forms for w95 style Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	429	"Modified: / 26.3.1999 / 15:19:11 / cg"
1005 b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	430	!
b84f25a50400 splitted into separate default methods. ca parents: 966 diff changeset	431
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	432	downArrowButtonForm:styleSymbol on:aDevice
959 331da6bc19ec commentary Claus Gittinger <cg@exept.de> parents: 926 diff changeset	433	"return the form used for the scrollDown Button"
1 3ebee08bea15 Initial revision claus parents: diff changeset	434
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	435	<resource: #style (#'arrowButton.downForm')>
923 a6ee1a239fc0 resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 901 diff changeset	436
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	437	\|form\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	438
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	439	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	440	use cached form, if device is appropriate
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	441	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	442	CachedStyle ~~ styleSymbol ifTrue:[
1456 5fb4270152e2 do only set the concerning form to nil tz parents: 1455 diff changeset	443	DownArrowForm := nil
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	444	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	445
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	446	((form := DownArrowForm) notNil and:[form device == aDevice]) ifTrue:[
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	447	^ form
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	448	].
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	449
1870 9bce9ea89db3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	450	form := DownArrowForm := StyleSheet at:#'arrowButton.downForm' default:nil.
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	451	form notNil ifTrue:[^ form].
154 054838fe6c84 . claus parents: 153 diff changeset	452
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	453	"
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	454	special treatment for st80 arrows
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	455	- they do not really fit into the general (bitmap) scheme ...
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	456	(i.e. they are computed instead of drawn from a bitmap)
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	457	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	458	styleSymbol ~~ #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	459	DownArrowFormFile notNil ifTrue:[
2077 376bcf52c98b * empty log message * Claus Gittinger <cg@exept.de> parents: 2057 diff changeset	460	form := Smalltalk imageFromFileNamed:DownArrowFormFile forClass:self.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	461	form isNil ifTrue:[
2057 e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	462	'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR.
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	463	] ifFalse:[
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	464	form := form onDevice:aDevice.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	465	]
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	466	]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	467	].
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	468
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	469	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	470	form to use as a fallback, if no bitmap file is present
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	471	(actually not really needed - just to show something useful, in
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	472	case of a bad installation)
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	473	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	474	form isNil ifTrue:[
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	475	styleSymbol == #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	476	form := Form width:9 height:9 depth:1 on:Display.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	477	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	478	form clear.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	479	form lineWidth:2.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	480	form capStyle:#round.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	481	form paint:(Color colorId:1).
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	482	form displayLineFromX:0 y:2 toX:4 y:6.
901 fb2ed5eaaa37 * empty log message * Claus Gittinger <cg@exept.de> parents: 899 diff changeset	483	form displayLineFromX:4 y:6 toX:8 y:2.
fb2ed5eaaa37 * empty log message * Claus Gittinger <cg@exept.de> parents: 899 diff changeset	484	form beImmediateForm.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	485	] ifFalse:[
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	486	form := self defaultDownArrowButtonForm onDevice:aDevice.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	487	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	488	].
1 3ebee08bea15 Initial revision claus parents: diff changeset	489	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	490
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	491	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	492	remember form for next use
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	493	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	494	CachedStyle := styleSymbol.
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	495	DownArrowForm := form.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	496
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	497	^ form
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	498
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	499	"Modified: / 26.10.1997 / 17:01:54 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	500	!
3ebee08bea15 Initial revision claus parents: diff changeset	501
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	502	leftArrowButtonForm:styleSymbol on:aDevice
959 331da6bc19ec commentary Claus Gittinger <cg@exept.de> parents: 926 diff changeset	503	"return the form used for the scrollLeft Button"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	504
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	505	<resource: #style (#'arrowButton.leftForm')>
923 a6ee1a239fc0 resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 901 diff changeset	506
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	507	\|form\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	508
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	509	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	510	use cached form, if device is appropriate
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	511	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	512	CachedStyle ~~ styleSymbol ifTrue:[
1456 5fb4270152e2 do only set the concerning form to nil tz parents: 1455 diff changeset	513	LeftArrowForm := nil
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	514	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	515
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	516	((form := LeftArrowForm) notNil and:[form device == aDevice]) ifTrue:[
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	517	^ form
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	518	].
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	519
1870 9bce9ea89db3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	520	form := LeftArrowForm := StyleSheet at:#'arrowButton.leftForm' default:nil.
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	521	form notNil ifTrue:[^ form].
154 054838fe6c84 . claus parents: 153 diff changeset	522
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	523	"
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	524	special treatment for st80 arrows
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	525	- they do not really fit into the general (bitmap) scheme ...
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	526	(i.e. they are computed instead of drawn from a bitmap)
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	527	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	528	styleSymbol ~~ #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	529	LeftArrowFormFile notNil ifTrue:[
2077 376bcf52c98b * empty log message * Claus Gittinger <cg@exept.de> parents: 2057 diff changeset	530	form := Smalltalk imageFromFileNamed:LeftArrowFormFile forClass:self.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	531	form isNil ifTrue:[
2057 e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	532	'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR.
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	533	] ifFalse:[
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	534	form := form onDevice:aDevice.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	535	]
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	536	]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	537	].
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	538
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	539	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	540	form to use as a fallback, if no bitmap file is present
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	541	(actually not really needed - just to show something useful, in
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	542	case of a bad installation)
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	543	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	544	form isNil ifTrue:[
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	545	styleSymbol == #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	546	form := Form width:9 height:9 depth:1 on:Display.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	547	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	548	form clear.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	549	form lineWidth:2.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	550	form capStyle:#round.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	551	form paint:(Color colorId:1).
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	552	form displayLineFromX:6 y:0 toX:2 y:4.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	553	form displayLineFromX:2 y:4 toX:6 y:8.
901 fb2ed5eaaa37 * empty log message * Claus Gittinger <cg@exept.de> parents: 899 diff changeset	554	form beImmediateForm.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	555	] ifFalse:[
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	556	form := self defaultLeftArrowButtonForm onDevice:aDevice.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	557	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	558	].
1 3ebee08bea15 Initial revision claus parents: diff changeset	559	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	560
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	561	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	562	remember form for next use
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	563	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	564	CachedStyle := styleSymbol.
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	565	LeftArrowForm := form.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	566
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	567	^ form
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	568
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	569	"Modified: / 26.10.1997 / 17:01:47 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	570	!
3ebee08bea15 Initial revision claus parents: diff changeset	571
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	572	rightArrowButtonForm:styleSymbol on:aDevice
959 331da6bc19ec commentary Claus Gittinger <cg@exept.de> parents: 926 diff changeset	573	"return the form used for the scrollRight Button"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	574
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	575	<resource: #style (#'arrowButton.rightForm')>
923 a6ee1a239fc0 resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 901 diff changeset	576
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	577	\|form\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	578
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	579	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	580	use cached form, if device is appropriate
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	581	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	582	CachedStyle ~~ styleSymbol ifTrue:[
1456 5fb4270152e2 do only set the concerning form to nil tz parents: 1455 diff changeset	583	RightArrowForm := nil
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	584	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	585
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	586	((form := RightArrowForm) notNil and:[form device == aDevice]) ifTrue:[
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	587	^ form
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	588	].
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	589
1870 9bce9ea89db3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	590	form := RightArrowForm := StyleSheet at:#'arrowButton.rightForm' default:nil.
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	591	form notNil ifTrue:[^ form].
154 054838fe6c84 . claus parents: 153 diff changeset	592
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	593	"
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	594	special treatment for st80 arrows
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	595	- they do not really fit into the general (bitmap) scheme ...
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	596	(i.e. they are computed instead of drawn from a bitmap)
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	597	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	598	styleSymbol ~~ #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	599	RightArrowFormFile notNil ifTrue:[
2077 376bcf52c98b * empty log message * Claus Gittinger <cg@exept.de> parents: 2057 diff changeset	600	form := Smalltalk imageFromFileNamed:RightArrowFormFile forClass:self.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	601	form isNil ifTrue:[
2057 e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	602	'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR.
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	603	] ifFalse:[
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	604	form := form onDevice:aDevice.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	605	]
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	606	]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	607	].
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	608
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	609	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	610	form to use as a fallback, if no bitmap file is present
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	611	(actually not really needed - just to show something useful, in
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	612	case of a bad installation)
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	613	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	614	form isNil ifTrue:[
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	615	styleSymbol == #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	616	form := Form width:9 height:9 depth:1 on:Display.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	617	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	618	form clear.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	619	form lineWidth:2.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	620	form capStyle:#round.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	621	form paint:(Color colorId:1).
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	622	form displayLineFromX:2 y:0 toX:6 y:4.
901 fb2ed5eaaa37 * empty log message * Claus Gittinger <cg@exept.de> parents: 899 diff changeset	623	form displayLineFromX:6 y:4 toX:2 y:8.
fb2ed5eaaa37 * empty log message * Claus Gittinger <cg@exept.de> parents: 899 diff changeset	624	form beImmediateForm.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	625	] ifFalse:[
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	626	form := self defaultRightArrowButtonForm onDevice:aDevice.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	627	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	628	].
1 3ebee08bea15 Initial revision claus parents: diff changeset	629	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	630
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	631	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	632	remember form for next use
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	633	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	634	CachedStyle := styleSymbol.
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	635	RightArrowForm := form.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	636
4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	637	^ form
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	638
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	639	"Modified: / 26.10.1997 / 17:01:40 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	640	!
3ebee08bea15 Initial revision claus parents: diff changeset	641
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	642	upArrowButtonForm:styleSymbol on:aDevice
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	643	"return the form used for the scrollUp Button"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	644
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	645	<resource: #style (#'arrowButton.upForm')>
923 a6ee1a239fc0 resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 901 diff changeset	646
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	647	\|form\|
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	648
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	649	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	650	use cached form, if device is appropriate
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	651	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	652	CachedStyle ~~ styleSymbol ifTrue:[
1456 5fb4270152e2 do only set the concerning form to nil tz parents: 1455 diff changeset	653	UpArrowForm := nil
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	654	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	655
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	656	((form := UpArrowForm) notNil and:[form device == aDevice]) ifTrue:[
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	657	^ form
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	658	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	659
1870 9bce9ea89db3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	660	form := UpArrowForm := StyleSheet at:#'arrowButton.upForm' default:nil.
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	661	form notNil ifTrue:[^ form].
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	662
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	663	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	664	special treatment for st80 arrows
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	665	- they do not really fit into the general (bitmap) scheme ...
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	666	(i.e. they are computed instead of drawn from a bitmap)
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	667	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	668	styleSymbol ~~ #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	669	UpArrowFormFile notNil ifTrue:[
2077 376bcf52c98b * empty log message * Claus Gittinger <cg@exept.de> parents: 2057 diff changeset	670	form := Smalltalk imageFromFileNamed:UpArrowFormFile forClass:self.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	671	form isNil ifTrue:[
2057 e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	672	'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR.
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	673	] ifFalse:[
e839e5da4ab7 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2055 diff changeset	674	form := form onDevice:aDevice.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	675	]
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	676	]
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	677	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	678
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	679	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	680	form to use as a fallback, if no bitmap file is present
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	681	(actually not really needed - just to show something useful, in
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	682	case of a bad installation)
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	683	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	684	form isNil ifTrue:[
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	685	styleSymbol == #st80 ifTrue:[
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	686	form := Form width:9 height:9 depth:1 on:aDevice.
270 aa6a36e199e7 be tolerant in case form creation fails Claus Gittinger <cg@exept.de> parents: 205 diff changeset	687	form isNil ifTrue:[^ nil].
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	688	form clear.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	689	form lineWidth:2.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	690	form capStyle:#round.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	691	form paint:(Color colorId:1).
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	692	form displayLineFromX:0 y:6 toX:4 y:2.
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	693	form displayLineFromX:4 y:2 toX:8 y:6.
901 fb2ed5eaaa37 * empty log message * Claus Gittinger <cg@exept.de> parents: 899 diff changeset	694	form beImmediateForm.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	695	] ifFalse:[
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	696	form := self defaultUpArrowButtonForm onDevice:aDevice.
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	697	form isNil ifTrue:[^ nil].
3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	698	].
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	699	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	700
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	701	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	702	remember form for next use
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	703	"
1321 c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	704	CachedStyle := styleSymbol.
c585942b58a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	705	UpArrowForm := form.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	706
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	707	^ form
657 3215022ac50c printNL -> printCR Claus Gittinger <cg@exept.de> parents: 593 diff changeset	708
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	709	"Modified: / 26.10.1997 / 17:01:32 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	710	!
3ebee08bea15 Initial revision claus parents: diff changeset	711
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	712	updateStyleCache
440 2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	713	"extract values from the styleSheet and cache them in class variables"
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	714
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	715	<resource: #style (#'arrowButton.style'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	716	#'arrowButton.activeLevel' #'arrowButton.passiveLevel'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	717	#'arrowButton.backgroundColor' #'arrowButton.foregroundColor'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	718	#'arrowButton.activeBackgroundColor' #'arrowButton.activeForegroundColor'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	719	#'arrowButton.enteredBackgroundColor' #'arrowButton.enteredForegroundColor'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	720	#'arrowButton.disabledForegroundColor'
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	721	#'arrowButton.downForm' #'arrowButton.upForm'
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	722	#'arrowButton.leftForm' #'arrowButton.rightForm'
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	723	#'arrowButton.downFormFile' #'arrowButton.upFormFile'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	724	#'arrowButton.leftFormFile' #'arrowButton.rightFormFile')>
440 2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 270 diff changeset	725
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	726	\|styleSheet\|
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	727
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	728	styleSheet := StyleSheet.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	729
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	730	DefaultArrowStyle := styleSheet at:#'arrowButton.style' default:styleSheet name.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	731	DefaultArrowStyle := DefaultArrowStyle asSymbol.
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	732
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	733	DefaultArrowButtonActiveLevel := styleSheet at:#'arrowButton.activeLevel' default:nil.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	734	DefaultArrowButtonPassiveLevel := styleSheet at:#'arrowButton.passiveLevel' default:nil.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	735
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	736	DefaultBackgroundColor := styleSheet colorAt:#'arrowButton.backgroundColor'.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	737	DefaultForegroundColor := styleSheet colorAt:#'arrowButton.foregroundColor'.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	738	DefaultActiveBackgroundColor := styleSheet colorAt:#'arrowButton.activeBackgroundColor'.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	739	DefaultActiveForegroundColor := styleSheet colorAt:#'arrowButton.activeForegroundColor'.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	740	DefaultEnteredBackgroundColor := styleSheet colorAt:#'arrowButton.enteredBackgroundColor'.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	741	DefaultEnteredForegroundColor := styleSheet colorAt:#'arrowButton.enteredForegroundColor'.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	742	DefaultDisabledForegroundColor := styleSheet colorAt:#'arrowButton.disabledForegroundColor'.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	743
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	744	DownArrowForm := styleSheet at:#'arrowButton.downForm' default:nil.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	745	UpArrowForm := styleSheet at:#'arrowButton.upForm' default:nil.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	746	LeftArrowForm := styleSheet at:#'arrowButton.leftForm' default:nil.
026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	747	RightArrowForm := styleSheet at:#'arrowButton.rightForm' default:nil.
1 3ebee08bea15 Initial revision claus parents: diff changeset	748
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	749	UpArrowFormFile := DownArrowFormFile := LeftArrowFormFile := RightArrowFormFile := nil.
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	750	UpArrowForm isNil ifTrue:[
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	751	UpArrowFormFile := styleSheet at:#'arrowButton.upFormFile' default:'ScrollUp.xbm'.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	752	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	753	DownArrowForm isNil ifTrue:[
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	754	DownArrowFormFile := styleSheet at:#'arrowButton.downFormFile' default:'ScrollDn.xbm'.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	755	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	756	LeftArrowForm isNil ifTrue:[
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	757	LeftArrowFormFile := styleSheet at:#'arrowButton.leftFormFile' default:'ScrollLt.xbm'.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	758	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	759	RightArrowForm isNil ifTrue:[
1863 026d793b0923 checkin from browser Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	760	RightArrowFormFile := styleSheet at:#'arrowButton.rightFormFile' default:'ScrollRt.xbm'.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	761	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	762
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	763	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	764	self updateStyleCache
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	765	"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	766
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	767	"Modified: 31.8.1995 / 03:01:14 / claus"
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	768	"Modified: 20.10.1997 / 13:50:57 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	769	! !
3ebee08bea15 Initial revision claus parents: diff changeset	770
3ebee08bea15 Initial revision claus parents: diff changeset	771	!ArrowButton methodsFor:'accessing'!
3ebee08bea15 Initial revision claus parents: diff changeset	772
1053 b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	773	direction
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	774	"return the buttons direction - a symbol"
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	775
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	776	^ direction
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	777	!
b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	778
1 3ebee08bea15 Initial revision claus parents: diff changeset	779	direction:aDirectionSymbol
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	780	"create and return a new arrow button in aView"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	781
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	782	\|form\|
fd1b68b48422 * empty log message * claus parents: 1 diff changeset	783
1 3ebee08bea15 Initial revision claus parents: diff changeset	784	aDirectionSymbol == #up ifTrue:[
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	785	form := (self class upArrowButtonForm:arrowStyle on:device).
1 3ebee08bea15 Initial revision claus parents: diff changeset	786	].
3ebee08bea15 Initial revision claus parents: diff changeset	787	aDirectionSymbol == #down ifTrue:[
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	788	form := (self class downArrowButtonForm:arrowStyle on:device).
1 3ebee08bea15 Initial revision claus parents: diff changeset	789	].
3ebee08bea15 Initial revision claus parents: diff changeset	790	aDirectionSymbol == #left ifTrue:[
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	791	form := (self class leftArrowButtonForm:arrowStyle on:device).
1 3ebee08bea15 Initial revision claus parents: diff changeset	792	].
3ebee08bea15 Initial revision claus parents: diff changeset	793	aDirectionSymbol == #right ifTrue:[
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	794	form := (self class rightArrowButtonForm:arrowStyle on:device).
1 3ebee08bea15 Initial revision claus parents: diff changeset	795	].
1053 b9f8bf97815c remember direction; new-creation defaults to #up Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	796	direction := aDirectionSymbol.
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	797	self form:form
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	798
1041 976147f19ad7 * empty log message * Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	799	"Modified: 24.2.1997 / 21:19:59 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	800	! !
3ebee08bea15 Initial revision claus parents: diff changeset	801
1958 9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	802	!ArrowButton methodsFor:'accessing-look'!
9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	803
9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	804	allViewBackground:something
9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	805	super viewBackground:something.
9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	806	bgColor := activeBgColor := enteredBgColor := something
9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	807	! !
9d53df393af1 allViewBackground stuff Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	808
1821 b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	809	!ArrowButton methodsFor:'focus handling'!
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	810
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	811	wantsFocusWithButtonPress
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	812	"no, do not catch the keyboard focus on button click"
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	813
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	814	^ false
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	815
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	816
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	817
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	818
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	819	! !
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1456 diff changeset	820
1 3ebee08bea15 Initial revision claus parents: diff changeset	821	!ArrowButton methodsFor:'initialization'!
3ebee08bea15 Initial revision claus parents: diff changeset	822
3ebee08bea15 Initial revision claus parents: diff changeset	823	initStyle
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	824	"setup viewStyle specifics"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	825
1 3ebee08bea15 Initial revision claus parents: diff changeset	826	super initStyle.
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	827
60 f3c738c24ce6 mostly style claus parents: 59 diff changeset	828	DefaultBackgroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	829	bgColor := DefaultBackgroundColor onDevice:device
60 f3c738c24ce6 mostly style claus parents: 59 diff changeset	830	].
f3c738c24ce6 mostly style claus parents: 59 diff changeset	831	DefaultForegroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	832	fgColor := DefaultForegroundColor onDevice:device
60 f3c738c24ce6 mostly style claus parents: 59 diff changeset	833	].
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	834	DefaultActiveForegroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	835	activeFgColor := DefaultActiveForegroundColor onDevice:device
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	836	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	837	DefaultActiveBackgroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	838	activeBgColor := DefaultActiveBackgroundColor onDevice:device
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	839	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	840	DefaultEnteredForegroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	841	enteredFgColor := DefaultEnteredForegroundColor onDevice:device
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	842	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	843	DefaultEnteredBackgroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	844	enteredBgColor := DefaultEnteredBackgroundColor onDevice:device
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	845	].
153 a60507aaa7a0 . claus parents: 139 diff changeset	846	DefaultDisabledForegroundColor notNil ifTrue:[
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	847	disabledFgColor := DefaultDisabledForegroundColor onDevice:device
153 a60507aaa7a0 . claus parents: 139 diff changeset	848	].
a60507aaa7a0 . claus parents: 139 diff changeset	849
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	850	arrowStyle := DefaultArrowStyle.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	851
128 06a050529335 . claus parents: 77 diff changeset	852	DefaultArrowButtonActiveLevel notNil ifTrue:[onLevel := DefaultArrowButtonActiveLevel].
06a050529335 . claus parents: 77 diff changeset	853	DefaultArrowButtonPassiveLevel notNil ifTrue:[offLevel := DefaultArrowButtonPassiveLevel].
06a050529335 . claus parents: 77 diff changeset	854	offLevel ~~ level ifTrue:[self level:offLevel].
06a050529335 . claus parents: 77 diff changeset	855
06a050529335 . claus parents: 77 diff changeset	856	"/ "
06a050529335 . claus parents: 77 diff changeset	857	"/ special treatment for motif arrows
06a050529335 . claus parents: 77 diff changeset	858	"/ - they do not really fit into the general (bitmap) scheme ...
06a050529335 . claus parents: 77 diff changeset	859	"/ "
06a050529335 . claus parents: 77 diff changeset	860	"/ arrowStyle == #motif ifTrue:[
06a050529335 . claus parents: 77 diff changeset	861	"/ onLevel := 0.
06a050529335 . claus parents: 77 diff changeset	862	"/ offLevel := 0.
06a050529335 . claus parents: 77 diff changeset	863	"/ self level:0.
06a050529335 . claus parents: 77 diff changeset	864	"/ ]
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	865
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 959 diff changeset	866	"Modified: 22.1.1997 / 11:57:00 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	867	!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	868
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	869	initialize
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	870
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	871	super initialize.
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	872	hSpace := vSpace := 0.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	873	controller beTriggerOnDown.
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	874
980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	875	"Modified: 6.3.1997 / 20:58:49 / cg"
1 3ebee08bea15 Initial revision claus parents: diff changeset	876	! !
3ebee08bea15 Initial revision claus parents: diff changeset	877
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	878	!ArrowButton methodsFor:'redrawing'!
fd1b68b48422 * empty log message * claus parents: 1 diff changeset	879
fd1b68b48422 * empty log message * claus parents: 1 diff changeset	880	drawWith:fg and:bg
fd1b68b48422 * empty log message * claus parents: 1 diff changeset	881	"this is a q&d hack for motif ..."
fd1b68b48422 * empty log message * claus parents: 1 diff changeset	882
1284 8c3f71ee81bc * empty log message * Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	883	\|topLeft botRight isString orgX orgY r colors\|
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	884
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	885	arrowStyle ~~ #motif ifTrue:[
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	886	^ super drawWith:fg and:bg.
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	887	].
fd1b68b48422 * empty log message * claus parents: 1 diff changeset	888
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	889	"
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	890	the code below does a lot of bitmap drawing, but allows
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	891	to 3D-ify any logo (it draws it displaced by some pixels
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	892	to the upper left in one-color and displaced to the
60 f3c738c24ce6 mostly style claus parents: 59 diff changeset	893	lower right in the other color). It should be rewritten to
f3c738c24ce6 mostly style claus parents: 59 diff changeset	894	cache the result for later drawing operations.
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	895	"
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	896	logo notNil ifTrue:[
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	897	self paint:bg.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	898	self fillRectangleX:0 y:0 width:width height:height.
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	899
1996 4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	900	shadowColor := shadowColor onDevice:device.
4478ffac9765 #on: -> onDevice: Claus Gittinger <cg@exept.de> parents: 1958 diff changeset	901	lightColor := lightColor onDevice:device.
153 a60507aaa7a0 . claus parents: 139 diff changeset	902
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	903	controller pressed ifTrue:[
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	904	topLeft := shadowColor.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	905	botRight := lightColor
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	906	] ifFalse:[
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	907	topLeft := lightColor.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	908	botRight := shadowColor
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	909	].
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	910
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	911	isString := logo isString.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	912
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	913	isString ifFalse:[
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	914	logo depth ~~ 1 ifTrue:[
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	915	"/ allow for deep logos (for motif)
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	916	"/ one catch: if the view background is a complex pixmap
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	917	"/ we cannot use this as colorMap entry.
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	918	"/ therefore, compute the average colors and take these
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	919	"/ (this looks ok for buttons ...)
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 24 diff changeset	920
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	921	r := (0@0 corner:10@10).
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	922
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	923	colors := (Array with:(bg averageColorIn:r)
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	924	with:(topLeft averageColorIn:r)
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	925	with:(botRight averageColorIn:r)
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	926	with:(fg averageColorIn:r)).
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	927	colors ~= logo colorMap ifTrue:[
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	928	logo release.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	929	logo colorMap:colors.
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	930	].
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	931	logo photometric:#palette.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	932	logo := logo on:device.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	933
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	934	self displayForm:logo x:labelOriginX y:labelOriginY.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	935	^ self
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	936	].
1430 0940cd4e9d93 Form>>on: replaced by Form>>onDevice: tz parents: 1364 diff changeset	937	logo := logo onDevice:device.
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	938	orgX := labelOriginX.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	939	orgY := labelOriginY.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	940	] ifTrue:[
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	941	orgY := height - font height // 2 + font ascent.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	942	orgX := width - labelOriginX // 4 - 1.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	943	].
1105 980fe41d7f0a assign colorMap AFTER conversion to a device form Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	944
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	945	self paint:topLeft.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	946	#(-1 0 -1) with:#(-1 -1 0) do:[:dX :dY \|
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	947	\|x y\|
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	948
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	949	x := orgX + dX.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	950	y := orgY + dY.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	951
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	952	isString ifTrue:[
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	953	self displayString:logo x:x y:y.
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	954	] ifFalse:[
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	955	self displayForm:logo x:x y:y.
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	956	]
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	957	].
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	958
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	959	self paint:botRight.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	960	#(1 1 0) with:#(0 1 1) do:[:dX :dY \|
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	961	\|x y\|
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	962
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	963	x := orgX + dX.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	964	y := orgY + dY.
5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	965
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	966	isString ifTrue:[
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	967	self displayString:logo x:x y:y.
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	968	] ifFalse:[
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	969	self displayForm:logo x:x y:y.
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	970	]
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	971	].
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	972
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	973	"
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	974	finally, the form itself
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	975	"
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	976	self paint:fg.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	977	isString ifTrue:[
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	978	self displayString:logo x:orgX y:orgY.
ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	979	] ifFalse:[
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	980	self displayForm:logo x:orgX y:orgY.
765 ea6ecf2a5b30 keep deep device image cached Claus Gittinger <cg@exept.de> parents: 657 diff changeset	981	]
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	982	]
153 a60507aaa7a0 . claus parents: 139 diff changeset	983
a60507aaa7a0 . claus parents: 139 diff changeset	984	"Modified: 31.8.1995 / 03:03:12 / claus"
1137 5ec9db9453f1 must release cached device image, when topLeft/botRight Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	985	"Modified: 19.3.1997 / 17:11:22 / cg"
6 fd1b68b48422 * empty log message * claus parents: 1 diff changeset	986	! !
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	987
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 781 diff changeset	988	!ArrowButton class methodsFor:'documentation'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	989
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	990	version
2250 59f867f90887 resource Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	991	^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.60 2000-08-30 21:22:14 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	992	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 19 Sep 2000 13:48:19 +0200
changeset 2273	e40b815ce3e2
parent 2250	59f867f90887
child 2532	b65a512346bd
permissions	-rw-r--r--