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

author	Claus Gittinger <cg@exept.de>
	Fri, 08 Oct 1999 12:20:51 +0200
changeset 2030	30247cb8fab0
parent 1996	4478ffac9765
child 2055	ce11bcb1269b
permissions	-rw-r--r--