hg/stx-libwidg2: LabelAndIcon.st@ba1b2f93afee (annotated)

172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1996 by Claus Gittinger
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
1814 a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	14	"{ Package: 'stx:libwidg2' }"
a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	15
2197 7ad026a1ae93 Make subclass of ModelListEntry Stefan Vogel <sv@exept.de> parents: 1977 diff changeset	16	ModelListEntry subclass:#LabelAndIcon
7ad026a1ae93 Make subclass of ModelListEntry Stefan Vogel <sv@exept.de> parents: 1977 diff changeset	17	instanceVariableNames:'icon gap image offset'
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	classVariableNames:''
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	poolDictionaries:''
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	category:'Views-Support'
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!LabelAndIcon class methodsFor:'documentation'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	copyright
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	COPYRIGHT (c) 1996 by Claus Gittinger
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	All Rights Reserved
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	This software is furnished under a license and may be used
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	only in accordance with the terms of that license and with the
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	inclusion of the above copyright notice. This software may not
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	be provided or otherwise made available to, or used by, any
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	other person. No title to or ownership of the software is
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	hereby transferred.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	documentation
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	an icon and a string, side by side.
178 ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	43	Usable as list entries in a listView (a fileList), as
179 fccdac863996 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	44	popUpMenuItems or as Label/Button image.
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	This is an example class - currently not used by the system.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
179 fccdac863996 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	48	Notice:
fccdac863996 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	49	This is different from ST-80's LabelAndIcon class, which
fccdac863996 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	50	inherits from Label. Therefore, things may change in the future.
fccdac863996 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	51
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	[author:]
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	Claus Gittinger
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	[see also:]
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	ListEntry Text String Icon
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	ListView SelectionInListView
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	examples
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	"
175 44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	63	in a listView:
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	[exBegin]
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	\|top slv wrapper l fileImage dirImage\|
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	fileImage := Image
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	width:16
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	height:16
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	depth:1
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	fromArray:#[2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	2r00011111 2r11100000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	2r00010000 2r00100000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	2r00010000 2r00011000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	2r00010000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	2r00011111 2r11111000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	2r00000000 2r00000000].
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	fileImage photometric:#whiteIs0.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	dirImage := Image
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	width:16
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	height:16
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	depth:1
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	fromArray:#[2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	2r01111111 2r11110000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	2r01000000 2r00001000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	2r01000000 2r00000100
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	2r01000000 2r00000010
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	2r01000000 2r00000010
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	2r01000000 2r00000010
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	2r01000000 2r00000010
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	2r01000000 2r00000010
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	2r01000000 2r00000010
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	2r01111111 2r11111110
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	2r00000000 2r00000000
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	2r00000000 2r00000000].
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	dirImage photometric:#whiteIs0.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	l := OrderedCollection new.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	Filename currentDirectory directoryContents do:[:s \|
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	s asFilename isDirectory ifTrue:[
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	l add:(LabelAndIcon icon:dirImage string:s)
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	] ifFalse:[
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	l add:(LabelAndIcon icon:fileImage string:s)
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	]
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	].
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	slv := SelectionInListView new.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	slv list:l.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	wrapper := HVScrollableView forView:slv miniScrollerH:true.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	top := StandardSystemView extent:150@200.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	top add:wrapper in:(0.0@0.0 corner:1.0@1.0).
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	top open.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	[exEnd]
175 44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	129	in a selectionInListView:
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	[exBegin]
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	\|top slv wrapper l fileImage dirImage\|
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	dirImage := Image fromFile:'DirObj.xbm'.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	fileImage := Image fromFile:'FileObj.xbm'.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	l := OrderedCollection new.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	Filename currentDirectory directoryContents do:[:s \|
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	s asFilename isDirectory ifTrue:[
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	l add:(LabelAndIcon icon:dirImage string:s)
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	] ifFalse:[
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	l add:(LabelAndIcon icon:fileImage string:s)
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	]
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	].
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	slv := SelectionInListView new.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	slv list:l.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	wrapper := HVScrollableView forView:slv miniScrollerH:true.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	top := StandardSystemView extent:150@200.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	top add:wrapper in:(0.0@0.0 corner:1.0@1.0).
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	top open.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	[exEnd]
175 44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	154	in a menu:
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	155	[exBegin]
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	156	\|top l fileImage dirImage\|
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	157
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	158	dirImage := Image fromFile:'DirObj.xbm'.
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	159	fileImage := Image fromFile:'FileObj.xbm'.
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	160
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	161
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	162	l := OrderedCollection new.
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	163	l add:(LabelAndIcon icon:dirImage string:'create directory').
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	164	l add:(LabelAndIcon icon:fileImage string:'create file').
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	165
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	166	top := View new.
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	167
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	168	top middleButtonMenu:(PopUpMenu labels:l
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	169	selectors:#(foo bar)).
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	170
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	171	top open.
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	172	[exEnd]
178 ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	173	in a button/label:
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	174	[exBegin]
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	175	\|top l image\|
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	176
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	177	image := Image fromFile:'DirObj.xbm'.
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	178	l := (LabelAndIcon icon:image string:'directory').
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	179
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	180	top := Button label:l.
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	181	top open.
ba4f86aaa203 example Claus Gittinger <cg@exept.de> parents: 177 diff changeset	182	[exEnd]
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	! !
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	!LabelAndIcon class methodsFor:'instance creation'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	188	form:aForm image:anImage
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	189
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	190	^self new form:aForm image:anImage string:''
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	191	!
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	192
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	193	form:aForm image:anImage string:aString
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	194
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	195	^self new form:aForm image:anImage string:aString
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	196	!
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	197
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	icon:anIcon string:aString
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	199
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	^ self new icon:anIcon string:aString
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	"Created: 12.5.1996 / 20:00:58 / cg"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204
1977 e658f77f88b2 checkin from browser tm parents: 1975 diff changeset	205	label:aString icon:anIcon
e658f77f88b2 checkin from browser tm parents: 1975 diff changeset	206	^ self new icon:anIcon string:aString
e658f77f88b2 checkin from browser tm parents: 1975 diff changeset	207	!
e658f77f88b2 checkin from browser tm parents: 1975 diff changeset	208
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	new
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	^ self basicNew initialize
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	"Created: 12.5.1996 / 20:00:58 / cg"
986 ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	213	!
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	214
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	215	string:aString
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	216
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	217	^ self new icon:nil string:aString
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	218
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	219	"Created: / 21.6.1998 / 04:57:28 / cg"
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	! !
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	!LabelAndIcon methodsFor:'accessing'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223
986 ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	224	beCheckMark
1860 b4c0e45ad336 use a smaller check-icon Claus Gittinger <cg@exept.de> parents: 1817 diff changeset	225	"/ self icon:(CheckToggle checkFormOn:Screen current)
b4c0e45ad336 use a smaller check-icon Claus Gittinger <cg@exept.de> parents: 1817 diff changeset	226	self icon:((CheckToggle smallCheckImageForStyle:#borderedFatcross) onDevice:Screen current)
986 ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	227
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	228	"Created: / 21.6.1998 / 05:01:01 / cg"
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	229	"Modified: / 21.6.1998 / 05:03:23 / cg"
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	230	!
ed6b89c43416 added #beCheckMark for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 981 diff changeset	231
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	232	form:aForm image:anImage string:aString
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	233
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	234	icon := aForm.
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	235	image:= anImage.
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	236	string := aString.
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	237	!
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	238
1975 bad9d0302b03 added #gap martin parents: 1860 diff changeset	239	gap
bad9d0302b03 added #gap martin parents: 1860 diff changeset	240	"return the spacing between the icon and the labelString.
bad9d0302b03 added #gap martin parents: 1860 diff changeset	241	The default is 4"
bad9d0302b03 added #gap martin parents: 1860 diff changeset	242
bad9d0302b03 added #gap martin parents: 1860 diff changeset	243	^ gap
bad9d0302b03 added #gap martin parents: 1860 diff changeset	244	!
bad9d0302b03 added #gap martin parents: 1860 diff changeset	245
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246	gap:pixels
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	"set the spacing between the icon and the labelString.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	The default is 4."
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	gap := pixels.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	"Created: 12.5.1996 / 20:00:52 / cg"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254
286 89cced571c0f add accessing method to get the icon ca parents: 258 diff changeset	255	icon
89cced571c0f add accessing method to get the icon ca parents: 258 diff changeset	256	"return my icon part"
89cced571c0f add accessing method to get the icon ca parents: 258 diff changeset	257
89cced571c0f add accessing method to get the icon ca parents: 258 diff changeset	258	^ icon
89cced571c0f add accessing method to get the icon ca parents: 258 diff changeset	259	!
89cced571c0f add accessing method to get the icon ca parents: 258 diff changeset	260
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	icon:anIcon
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	"set the icon image"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	icon := anIcon.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	"Created: 12.5.1996 / 20:00:52 / cg"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	icon:anIcon string:aString
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	"set both iconImage and the labelString"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	icon := anIcon.
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	string := aString
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	"Created: 12.5.1996 / 20:00:52 / cg"
175 44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	276	!
44a363de85f5 examples Claus Gittinger <cg@exept.de> parents: 172 diff changeset	277
719 3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	278	image
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	279	"return my image"
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	280
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	281	^ image
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	282	!
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	283
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	284	image:anImage
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	285	"set the image"
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	286
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	287	image := anImage
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	288	!
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	289
981 b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	290	offset:pixels
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	291	"set the left offset (i.e. spacing to the left of the icon).
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	292	The default is 0."
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	293
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	294	offset := pixels.
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	295
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	296	"Created: / 21.6.1998 / 03:11:03 / cg"
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	! !
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298
1814 a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	299	!LabelAndIcon methodsFor:'comparing'!
a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	300
2657 20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	301	= aStringOrLabelAndIcon
2674 e877ecb7d8b7 Allow #= comparison against nil Stefan Vogel <sv@exept.de> parents: 2657 diff changeset	302
e877ecb7d8b7 Allow #= comparison against nil Stefan Vogel <sv@exept.de> parents: 2657 diff changeset	303	aStringOrLabelAndIcon isNil ifTrue:[^ false].
e877ecb7d8b7 Allow #= comparison against nil Stefan Vogel <sv@exept.de> parents: 2657 diff changeset	304
2657 20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	305	self hasIcon == aStringOrLabelAndIcon hasIcon ifFalse:[^ false].
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	306	aStringOrLabelAndIcon hasIcon ifTrue:[
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	307	icon = aStringOrLabelAndIcon icon ifFalse:[^ false].
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	308	].
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	309	self hasImage == aStringOrLabelAndIcon hasImage ifFalse:[^ false].
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	310	aStringOrLabelAndIcon hasImage ifTrue:[
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	311	image = aStringOrLabelAndIcon image ifFalse:[^ false].
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	312	].
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	313	^ super = aStringOrLabelAndIcon
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	314	!
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	315
1814 a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	316	sameStringAndEmphasisAs:someStringOrLabelAndIcon
1817 e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	317	someStringOrLabelAndIcon class == self class ifTrue:[
e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	318	icon = someStringOrLabelAndIcon icon ifFalse:[^ false].
e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	319	image = someStringOrLabelAndIcon image ifFalse:[^ false].
e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	320	(string sameStringAndEmphasisAs:someStringOrLabelAndIcon string) ifFalse:[ ^ false].
e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	321	^ true.
e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	322	].
e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	323
1814 a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	324	(string sameStringAndEmphasisAs:someStringOrLabelAndIcon) ifFalse:[ ^ false].
a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	325	(icon isNil and:[image isNil]) ifTrue:[^ true].
1817 e639d2a9d605 tuned compare Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	326	^ false
1814 a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	327	! !
a7697ca7f34f added sameStringAndEmphasisAs Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	328
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	!LabelAndIcon methodsFor:'displaying'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330
2453 3dad4e5c2fbe ascentOn: (is this correct ?) Claus Gittinger <cg@exept.de> parents: 2197 diff changeset	331	ascentOn:aGC
2454 aca5d29e6298 oops - ascent Claus Gittinger <cg@exept.de> parents: 2453 diff changeset	332	^ aGC font ascentOn:aGC device.
2453 3dad4e5c2fbe ascentOn: (is this correct ?) Claus Gittinger <cg@exept.de> parents: 2197 diff changeset	333	!
3dad4e5c2fbe ascentOn: (is this correct ?) Claus Gittinger <cg@exept.de> parents: 2197 diff changeset	334
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	displayOn:aGC x:x y:y opaque:opaque
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	"display the receiver on a GC"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	338	\|y1 x1 iconValue imageValue iconHeight imageHeight stringHeight maxHeight gapY asc\|
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	339
4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	340	gapY := (aGC device pixelPerMillimeter x) rounded.
1860 b4c0e45ad336 use a smaller check-icon Claus Gittinger <cg@exept.de> parents: 1817 diff changeset	341	"/ gapY := 0.
1479 8511f61fe8fe #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 986 diff changeset	342	asc := (aGC font onDevice:aGC device) ascent.
180 c63c079dea01 checkin from browser Claus Gittinger <cg@exept.de> parents: 179 diff changeset	343
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	344	iconValue := icon value.
ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	345	imageValue := image value.
ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	346
ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	347	iconHeight := iconValue notNil ifTrue:[iconValue height] ifFalse:[0].
ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	348	imageHeight := imageValue notNil ifTrue:[imageValue height] ifFalse:[0].
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	349	stringHeight := string size > 0 ifTrue:[string heightOn:aGC] ifFalse:[0].
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	351	maxHeight := ((iconHeight max: imageHeight) + gapY) max: stringHeight.
981 b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	352	x1 := x + offset.
258 e46fadff344c added access to string Claus Gittinger <cg@exept.de> parents: 180 diff changeset	353
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	354	iconValue notNil ifTrue:[
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	355	y1 := y - asc + (maxHeight - iconHeight + 1 // 2).
1860 b4c0e45ad336 use a smaller check-icon Claus Gittinger <cg@exept.de> parents: 1817 diff changeset	356
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	357	icon := iconValue onDevice:aGC device.
578 72916ad0a5f3 fixed centering of the image w.r.t. the fontHeight Claus Gittinger <cg@exept.de> parents: 423 diff changeset	358
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	359	(opaque and:[iconValue mask isNil]) ifTrue:[aGC displayOpaqueForm:iconValue x:x1 y:y1]
ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	360	ifFalse:[aGC displayForm:iconValue x:x1 y:y1].
578 72916ad0a5f3 fixed centering of the image w.r.t. the fontHeight Claus Gittinger <cg@exept.de> parents: 423 diff changeset	361
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	362	x1 := x1 + iconValue width + gap
258 e46fadff344c added access to string Claus Gittinger <cg@exept.de> parents: 180 diff changeset	363	].
e46fadff344c added access to string Claus Gittinger <cg@exept.de> parents: 180 diff changeset	364
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	365	imageValue notNil ifTrue:[
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	366	y1 := y - asc + (maxHeight - imageHeight + 1 // 2).
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	367	image := imageValue onDevice:aGC device.
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	368
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	369	(opaque and:[imageValue mask isNil]) ifTrue:[aGC displayOpaqueForm:imageValue x:x1 y:y1]
ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	370	ifFalse:[aGC displayForm:imageValue x:x1 y:y1].
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	371
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	372	x1 := x1 + imageValue width + gap
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	373	].
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	375	stringHeight ~~ 0 ifTrue:[
4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	376	y1 := y + (maxHeight - stringHeight + 1 // 2).
981 b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	377	string displayOn:aGC x:x1 y:y1 opaque:opaque
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	378	]
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	379
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	380	"Modified: / 21.6.1998 / 03:52:12 / cg"
810 847d7f52a2fd new methods: ca parents: 726 diff changeset	381	!
847d7f52a2fd new methods: ca parents: 726 diff changeset	382
847d7f52a2fd new methods: ca parents: 726 diff changeset	383	on:aDevice
847d7f52a2fd new methods: ca parents: 726 diff changeset	384	"return a new image on a device
847d7f52a2fd new methods: ca parents: 726 diff changeset	385	"
1604 2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	386	^ self onDevice:aDevice
810 847d7f52a2fd new methods: ca parents: 726 diff changeset	387
847d7f52a2fd new methods: ca parents: 726 diff changeset	388	!
847d7f52a2fd new methods: ca parents: 726 diff changeset	389
847d7f52a2fd new methods: ca parents: 726 diff changeset	390	onDevice:aDevice
847d7f52a2fd new methods: ca parents: 726 diff changeset	391	"return a new image on a device
847d7f52a2fd new methods: ca parents: 726 diff changeset	392	"
1604 2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	393	\|form img\|
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	394
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	395	aDevice isNil ifTrue:[^ self].
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	396	icon notNil ifTrue:[form := icon onDevice:aDevice].
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	397	image notNil ifTrue:[img := image onDevice:aDevice].
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	398
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	399	^ LabelAndIcon form:form image:img string:string
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	400
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	401
2c15dd8fb3cf ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	402
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403	! !
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	!LabelAndIcon methodsFor:'initialization'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	initialize
981 b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	408	gap := 4.
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	409	offset := 0.
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	410
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	411	"Modified: / 21.6.1998 / 03:10:19 / cg"
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	! !
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	!LabelAndIcon methodsFor:'queries'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415
2657 20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	416	hasIcon
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	417	^ icon notNil
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	418	!
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	419
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	420	hasImage
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	421	^ image notNil
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	422	!
20d7ed550989 also coare for icon and image when comparing Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	423
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	heightOn:aGC
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	"return the height of the receiver, if it is to be displayed on aGC"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426
719 3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	427	\|iconHeight imageHeight stringHeight oneMillimeter\|
682 861e446e3b24 checkin from browser ca parents: 629 diff changeset	428
861e446e3b24 checkin from browser ca parents: 629 diff changeset	429	oneMillimeter := aGC device pixelPerMillimeter x rounded.
1860 b4c0e45ad336 use a smaller check-icon Claus Gittinger <cg@exept.de> parents: 1817 diff changeset	430	"/ oneMillimeter := 0.
306 f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	431
f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	432	icon notNil ifTrue:[
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	433	iconHeight := icon value height + oneMillimeter
306 f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	434	] ifFalse:[
f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	435	iconHeight := 0
f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	436	].
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	437	image notNil ifTrue:[
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	438	imageHeight := image value height + oneMillimeter
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	439	] ifFalse:[
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	440	imageHeight := 0
4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	441	].
719 3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	442	string size > 0 ifTrue:[
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	443	stringHeight := string heightOn:aGC
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	444	] ifFalse:[
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	445	stringHeight := 0
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	446	].
726 4b3a40124f6d center label, icon and image in the display routine tz parents: 719 diff changeset	447	^ ((iconHeight max: imageHeight) max: stringHeight)
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450	widthOn:aGC
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451	"return the width of the receiver, if it is to be displayed on aGC"
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	452
719 3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	453	\|width\|
306 f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	454
981 b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	455	width := offset.
306 f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	456	icon notNil ifTrue:[
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	457	width := width + icon value width
306 f3954479c7e8 handle nil icons Claus Gittinger <cg@exept.de> parents: 287 diff changeset	458	].
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	459	image notNil ifTrue:[
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	460	width := width + gap + image value width
629 4a2d83659f66 now with image support (-> menu builder) tz parents: 588 diff changeset	461	].
719 3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	462	string size > 0 ifTrue:[
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	463	width := width + gap + (string widthOn:aGC)
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	464	].
3a833ca1c54a better #widthOn: method tz parents: 682 diff changeset	465	^width
981 b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	466
b7558ca52e20 added an optional left-offset Claus Gittinger <cg@exept.de> parents: 810 diff changeset	467	"Modified: / 21.6.1998 / 03:11:14 / cg"
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468	! !
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470	!LabelAndIcon class methodsFor:'documentation'!
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471
c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	version
2773 ba1b2f93afee care for icon-blocks Claus Gittinger <cg@exept.de> parents: 2674 diff changeset	473	^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.36 2004-11-10 12:41:39 cg Exp $'
172 c30e1ff9f9dd intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 10 Nov 2004 13:41:39 +0100
changeset 2773	ba1b2f93afee
parent 2674	e877ecb7d8b7
child 3132	9ee61ede263a
permissions	-rw-r--r--