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

author	Claus Gittinger <cg@exept.de>
	Tue, 20 Oct 2009 15:00:44 +0200
changeset 3781	715591d6adff
parent 3453	ed5454e9bbd1
child 3782	729c0808727b
permissions	-rw-r--r--