hg/stx-libwidg: FramedBox.st@003405300276 (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
5 7b4fb1b170e5 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	3	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	4
e6a541c1c0eb Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
e6a541c1c0eb Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
e6a541c1c0eb Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
e6a541c1c0eb Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
e6a541c1c0eb Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
e6a541c1c0eb Initial revision claus parents: diff changeset	10	hereby transferred.
e6a541c1c0eb Initial revision claus parents: diff changeset	11	"
2203 1550851c94f6 add labelChannel ca parents: 1992 diff changeset	12	"{ Package: 'stx:libwidg' }"
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	13
118 3ee5ea99d0e2 . claus parents: 70 diff changeset	14	SimpleView subclass:#FramedBox
2203 1550851c94f6 add labelChannel ca parents: 1992 diff changeset	15	instanceVariableNames:'label labelChannel labelPosition fgColor showFrame frame3D
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	16	horizontalSpace verticalSpace innerHorizontalSpace
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	17	innerVerticalSpace'
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	18	classVariableNames:''
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	19	poolDictionaries:''
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	20	category:'Views-Layout'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	21	!
e6a541c1c0eb Initial revision claus parents: diff changeset	22
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	23	!FramedBox class methodsFor:'documentation'!
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	24
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	25	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	26	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	27	COPYRIGHT (c) 1991 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	28	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	29
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	30	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	31	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	32	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	33	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	34	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	35	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	36	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	37	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	38
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	39	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	40	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	41	a frame around something. The frame may have a label, whose position
133 e58c7c979f33 . claus parents: 130 diff changeset	42	is controlled by the labelPosition variable, a symbol which may be one of:
3673 e1c29dd73768 +hidden label Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	43	[#topCenter #topLeft #topRight #bottomLeft #bottomCenter #bottomRight #hidden]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	44
133 e58c7c979f33 . claus parents: 130 diff changeset	45	The default labelPosition is controlled by the styleSheet variable:
e58c7c979f33 . claus parents: 130 diff changeset	46	'framedBoxLabelPosition' (usually, #topCenter).
e58c7c979f33 . claus parents: 130 diff changeset	47
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	48	Its also possible, to not show the frame but only the label, by setting
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	49	showFrame to false.
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	50
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	51	The distance from the outer viewBorder to the frame is controlled by
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	52	horizontalSpace / verticalSpace. The default is the fonts height.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	53
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	54	The distance from the frame to the interior area is controlled by
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	55	innerHorizontalSpace / innerVerticalSpace. The default is 0.
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	56
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	57	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	58	Claus Gittinger
685 48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	59
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	60	[see also:]
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	61	PanelView Separator
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	62	"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	63	!
e6a541c1c0eb Initial revision claus parents: diff changeset	64
125 3ffa271732f7 . claus parents: 118 diff changeset	65	examples
3ffa271732f7 . claus parents: 118 diff changeset	66	"
3ffa271732f7 . claus parents: 118 diff changeset	67	simple:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	68	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	69	\|top frame1 frame2 frame3\|
125 3ffa271732f7 . claus parents: 118 diff changeset	70
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	71	top := StandardSystemView new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	72	top extent:300@200.
125 3ffa271732f7 . claus parents: 118 diff changeset	73
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	74	frame1 := FramedBox origin:0.0@0.0 corner:0.5@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	75	frame1 label:'frame1'.
3 9d7eefb5e69f claus parents: 0 diff changeset	76
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	77	frame2 := FramedBox origin:0.5@0.0 corner:1.0@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	78	frame2 label:'frame2'.
125 3ffa271732f7 . claus parents: 118 diff changeset	79
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	80	frame3 := FramedBox origin:0.0@0.5 corner:1.0@1.0 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	81	frame3 label:'frame3'.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	82
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	83	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	84	[exEnd]
125 3ffa271732f7 . claus parents: 118 diff changeset	85
3ffa271732f7 . claus parents: 118 diff changeset	86
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	87	non-string label:
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	88	[exBegin]
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	89	\|top frame\|
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	90
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	91	top := StandardSystemView new.
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	92	top extent:300@200.
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	93
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	94	frame := FramedBox origin:0.0@0.0 corner:1.0@1.0 in:top.
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	95	frame label:(Image fromFile:'bitmaps/SBrowser.xbm').
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	96
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	97	top open
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	98	[exEnd]
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	99
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	100
125 3ffa271732f7 . claus parents: 118 diff changeset	101	placing something inside:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	102	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	103	\|top frame1 frame2 frame3 v1 v2 v3\|
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	104
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	105	top := StandardSystemView new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	106	top extent:300@200.
3 9d7eefb5e69f claus parents: 0 diff changeset	107
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	108	frame1 := FramedBox origin:0.0@0.0 corner:0.5@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	109	frame1 label:'frame1'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	110	v1 := View origin:0.0@0.0 corner:1.0@1.0 in:frame1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	111	v1 viewBackground:(Color yellow);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	112	level:1.
125 3ffa271732f7 . claus parents: 118 diff changeset	113
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	114	frame2 := FramedBox origin:0.5@0.0 corner:1.0@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	115	frame2 label:'frame2'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	116	v2 := View origin:0.0@0.0 corner:1.0@1.0 in:frame2.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	117	v2 viewBackground:(Color red);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	118	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	119
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	120	frame3 := FramedBox origin:0.0@0.5 corner:1.0@1.0 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	121	frame3 label:'frame3'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	122	v3 := View origin:0.0@0.0 corner:1.0@1.0 in:frame3.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	123	v3 viewBackground:(Color green);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	124	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	125
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	126	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	127	[exEnd]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	128
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	129
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	130	placing something inside a frame in a dialog:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	131	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	132	\|box panel frame1 frame2 frame3 v1 v1b v2 v3\|
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	133
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	134	box := Dialog new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	135
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	136	frame1 := FramedBox label:'frame1'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	137	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:frame1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	138	v1 := View extent:100@100 in:panel.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	139	v1 viewBackground:(Color red);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	140	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	141	v1b := View extent:100@100 in:panel.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	142	v1b viewBackground:(Color yellow);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	143	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	144
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	145	box addComponent:frame1.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	146
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	147	frame2 := FramedBox label:'frame2'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	148	v2 := View origin:0.0@0.0 corner:1.0@1.0 in:frame2.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	149	v2 viewBackground:(Color green);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	150	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	151	box addComponent:frame2.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	152
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	153	frame3 := FramedBox label:'frame3'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	154	v3 := View origin:0.0@0.0 corner:1.0@1.0 in:frame3.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	155	v3 viewBackground:(Color blue);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	156	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	157	box addComponent:frame3.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	158
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	159	box addOkButton.
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	160	box stickAtBottomWithVariableHeight:frame3.
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	161	box open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	162	[exEnd]
125 3ffa271732f7 . claus parents: 118 diff changeset	163
0 e6a541c1c0eb Initial revision claus parents: diff changeset	164
125 3ffa271732f7 . claus parents: 118 diff changeset	165	placing something inside a frame in a dialog:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	166	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	167	\|box panel frame1 frame2 frame3 v1 v1b v2 v3\|
125 3ffa271732f7 . claus parents: 118 diff changeset	168
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	169	box := Dialog new.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	170
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	171	frame1 := FramedBox label:'frame1'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	172	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:frame1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	173	v1 := View extent:100@100 in:panel.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	174	v1 viewBackground:(Color red);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	175	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	176	v1b := View extent:100@100 in:panel.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	177	v1b viewBackground:(Color yellow);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	178	level:1.
125 3ffa271732f7 . claus parents: 118 diff changeset	179
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	180	box addComponent:frame1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	181
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	182	frame2 := FramedBox label:'frame2'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	183	v2 := View origin:0.0@0.0 corner:1.0@1.0 in:frame2.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	184	v2 viewBackground:(Color green);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	185	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	186	box addComponent:frame2.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	187
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	188	frame3 := FramedBox label:'frame3'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	189	v3 := View origin:0.0@0.0 corner:1.0@1.0 in:frame3.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	190	v3 viewBackground:(Color blue);
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	191	level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	192	box addComponent:frame3.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	193
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	194	box addOkButton.
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	195	box stickAtBottomWithVariableHeight:frame3.
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	196	box open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	197	[exEnd]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	198
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	199
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	200	simple again, default spacings:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	201	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	202	\|top frame v\|
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	203
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	204	top := StandardSystemView new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	205	top extent:300@200.
125 3ffa271732f7 . claus parents: 118 diff changeset	206
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	207	frame := FramedBox origin:0.0@0.0 corner:0.5@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	208	frame label:'frame'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	209
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	210	v := View origin:0.0@0.0 corner:1.0@1.0 in:frame.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	211	v viewBackground:(Color yellow); level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	212
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	213	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	214	[exEnd]
125 3ffa271732f7 . claus parents: 118 diff changeset	215
3ffa271732f7 . claus parents: 118 diff changeset	216
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	217	changing spacings:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	218	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	219	\|top frame v\|
0 e6a541c1c0eb Initial revision claus parents: diff changeset	220
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	221	top := StandardSystemView new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	222	top extent:300@200.
125 3ffa271732f7 . claus parents: 118 diff changeset	223
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	224	frame := FramedBox origin:0.0@0.0 corner:0.5@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	225	frame label:'frame'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	226	frame horizontalSpace:30.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	227	frame verticalSpace:20.
125 3ffa271732f7 . claus parents: 118 diff changeset	228
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	229	v := View origin:0.0@0.0 corner:1.0@1.0 in:frame.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	230	v viewBackground:(Color yellow); level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	231
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	232	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	233	[exEnd]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	234
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	235
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	236	changing inner spacings:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	237	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	238	\|top frame v\|
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	239
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	240	top := StandardSystemView new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	241	top extent:300@200.
125 3ffa271732f7 . claus parents: 118 diff changeset	242
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	243	frame := FramedBox origin:0.0@0.0 corner:0.5@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	244	frame label:'frame'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	245	frame innerHorizontalSpace:30.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	246	frame innerVerticalSpace:20.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	247
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	248	v := View origin:0.0@0.0 corner:1.0@1.0 in:frame.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	249	v viewBackground:(Color yellow); level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	250
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	251	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	252	[exEnd]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	253
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	254
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	255	label only (no frame around):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	256	[exBegin]
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	257	\|top frame v\|
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	258
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	259	top := StandardSystemView new.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	260	top extent:300@200.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	261
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	262	frame := FramedBox origin:0.0@0.0 corner:0.5@0.5 in:top.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	263	frame label:'frame'.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	264	frame showFrame:false.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	265
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	266	v := View origin:0.0@0.0 corner:1.0@1.0 in:frame.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	267	v viewBackground:(Color yellow); level:1.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	268
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	269	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	270	[exEnd]
125 3ffa271732f7 . claus parents: 118 diff changeset	271	"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	272	! !
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	273
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	274	!FramedBox methodsFor:'accessing'!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	275
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	276	font:aFont
664 57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	277	"set the frame labelstrings font.
57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	278	CAVEAT: with the addition of Text objects,
57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	279	this method is going to be obsoleted by a textStyle
57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	280	method, which allows specific control over
57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	281	normalFont/boldFont/italicFont parameters."
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	282
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	283	(font ~= aFont) ifTrue:[
664 57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	284	super font:aFont.
2913 bdf4fb09cfc0 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	285	self invalidate
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	286	]
664 57763dde86f3 commentary Claus Gittinger <cg@exept.de> parents: 608 diff changeset	287
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	288	"Modified: / 6.6.1998 / 20:05:05 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	289	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	290
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	291	foregroundColor
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	292	"return the frame labels foreground color"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	293
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	294	^ fgColor
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	295	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	296
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	297	foregroundColor:aColor
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	298	"set the frame labels foreground color"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	299
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	300	aColor ~= fgColor ifTrue:[
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	301	fgColor := aColor.
2913 bdf4fb09cfc0 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	302	self invalidateRepairNow:true
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	303	]
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	304
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	305	"Modified: / 6.6.1998 / 19:23:14 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	306	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	307
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	308	frameShown
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	309	"return true, if frame is shown;
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	310	if false, oly the label is shown.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	311	OBSOLETE; use #showFrame."
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	312
3672 46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	313	^ self showFrame
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	314	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	315
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	316	horizontalSpace
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	317	"return the number of pixels by which the frame is inset horizontally.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	318	The default, nil, lets the box compute the horizontal inset from the
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	319	labels font height."
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	320
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	321	^ horizontalSpace
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	322
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	323	"Modified: 5.9.1995 / 17:24:21 / claus"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	324	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	325
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	326	horizontalSpace:aNumber
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	327	"set the number of pixels by which the frame is inset horizontally.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	328	The default, nil, lets the box compute the horizontal inset from the
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	329	labels font height."
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	330
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	331	horizontalSpace := aNumber
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	332	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	333
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	334	innerHorizontalSpace:aNumber
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	335	"set the number of pixels by which the interior is inset horizontally from the frame.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	336	The default is 0"
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	337
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	338	innerHorizontalSpace := aNumber
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	339
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	340	"Created: 10.1.1996 / 14:39:20 / cg"
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	341	!
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	342
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	343	innerVerticalSpace:aNumber
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	344	"set the number of pixels by which the interior is inset vertically from the frame.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	345	The default is 0"
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	346
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	347	innerVerticalSpace := aNumber
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	348
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	349	"Created: 10.1.1996 / 14:39:35 / cg"
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	350	!
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	351
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	352	label
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	353	"return the frames labelstring"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	354
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	355	^ label
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	356	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	357
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	358	label:aStringOrImage
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	359	"set the frames labelstring or labelImage"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	360
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	361	(label ~= aStringOrImage) ifTrue:[
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	362	(aStringOrImage isString
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	363	and:[aStringOrImage isEmpty]) ifTrue:[
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	364	label := nil
4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	365	] ifFalse:[
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	366	label := aStringOrImage.
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	367	].
2913 bdf4fb09cfc0 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	368	self invalidateRepairNow:true
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	369	]
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	370
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	371	"Modified: / 5.9.1995 / 17:20:05 / claus"
49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	372	"Modified: / 6.6.1998 / 19:23:17 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	373	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	374
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	375	labelPosition
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	376	"return the labelPosition, which is a symbol describing
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	377	the labels position."
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	378
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	379	^ labelPosition
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	380	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	381
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	382	labelPosition:aSymbol
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	383	"define the position of the label;
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	384	aSymbol may be one of:
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	385	#topLeft, #topCenter, #topRight;
3672 46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	386	#bottomLeft, #bottomCenter or #bottomRight
46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	387	#hidden"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	388
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	389	labelPosition ~~ aSymbol ifTrue:[
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	390	labelPosition := aSymbol.
2913 bdf4fb09cfc0 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	391	self invalidate
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	392	]
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	393
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	394	"Modified: / 6.6.1998 / 20:04:22 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	395	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	396
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	397	layout:something
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	398	"OBSOLETE compatibility interface. Will vanish.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	399	In the meantime, try to figure out what is meant ... a kludge"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	400
2364 de2ff9b393ec Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 2227 diff changeset	401	<resource:#obsolete>
de2ff9b393ec Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 2227 diff changeset	402
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	403	something isLayout ifTrue:[^ super layout:something].
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	404
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	405	self obsoleteMethodWarning:'use #labelPosition:'.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	406	^ self labelPosition:something
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	407
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	408	"Modified: 31.8.1995 / 23:07:00 / claus"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	409	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	410
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	411	setLabel:anImage
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	412	"set the frames label.
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	413	same as #label: for ST-80 GroupBox compatibility"
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	414
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	415	^ self label:anImage
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	416
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	417	"Created: 17.2.1997 / 11:03:04 / cg"
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	418	"Modified: 17.2.1997 / 11:03:24 / cg"
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	419	!
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	420
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	421	setLabelString:anImage
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	422	"set the frames label.
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	423	same as #label: for ST-80 GroupBox compatibility"
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	424
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	425	^ self label:anImage
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	426
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	427	"Modified: 17.2.1997 / 11:03:19 / cg"
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	428	!
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	429
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	430	showFrame
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	431	"return if the view shows its frame.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	432	If false, only the label is drawn"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	433
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	434	^ showFrame
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	435
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	436	"Modified: 5.9.1995 / 17:21:37 / claus"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	437	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	438
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	439	showFrame:aBoolean
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	440	"turn on/off showing of the frame -
3672 46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	441	without a frame, only the label is shown at its position.
46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	442	(unless the label is nil or #hidden)"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	443
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	444	aBoolean ~~ showFrame ifTrue:[
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	445	showFrame := aBoolean.
2913 bdf4fb09cfc0 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	446	self invalidate
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	447	]
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	448
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	449	"Modified: / 6.6.1998 / 20:03:50 / cg"
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	450	!
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	451
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	452	verticalSpace
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	453	"return the number of pixels by which the frame is inset vertically.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	454	The default, nil, lets the box compute the vertical inset from the
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	455	labels font height."
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	456
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	457	^ verticalSpace
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	458
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	459	"Modified: 5.9.1995 / 17:24:21 / claus"
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	460	"Created: 10.1.1996 / 14:38:21 / cg"
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	461	!
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	462
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	463	verticalSpace:aNumber
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	464	"set the number of pixels by which the frame is inset vertically.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	465	The default, nil, lets the box compute the vertical inset from the
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	466	labels font height."
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	467
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	468	verticalSpace := aNumber.
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	469
1555 49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	470	"Created: / 10.1.1996 / 14:38:31 / cg"
49aee7cb2f36 label changes are redrawn immediately Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	471	"Modified: / 6.6.1998 / 20:04:39 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	472	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	473
2227 58426f7611f2 category changes Claus Gittinger <cg@exept.de> parents: 2203 diff changeset	474	!FramedBox methodsFor:'accessing-channels'!
2203 1550851c94f6 add labelChannel ca parents: 1992 diff changeset	475
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	476	labelChannel
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	477	"return the labelChannel - or nil"
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	478
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	479	^ labelChannel.
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	480
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	481
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	482	!
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	483
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	484	labelChannel:aValueHolder
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	485	"set the labelChannel - a valueHolder holding a string
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	486	which is shown as my logo
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	487	"
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	488	labelChannel notNil ifTrue:[
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	489	labelChannel removeDependent:self.
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	490	].
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	491
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	492	(labelChannel := aValueHolder) notNil ifTrue:[
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	493	labelChannel addDependent:self.
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	494	self label:(labelChannel value).
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	495	].
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	496	! !
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	497
2227 58426f7611f2 category changes Claus Gittinger <cg@exept.de> parents: 2203 diff changeset	498	!FramedBox methodsFor:'change & update'!
2203 1550851c94f6 add labelChannel ca parents: 1992 diff changeset	499
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	500	update:what with:aPara from:aModel
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	501	"the MVC way of changing the label ...
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	502	"
2614 9dd0e44e894e beautified Claus Gittinger <cg@exept.de> parents: 2592 diff changeset	503	aModel == labelChannel ifTrue:[
2203 1550851c94f6 add labelChannel ca parents: 1992 diff changeset	504	self label:(aModel value).
2614 9dd0e44e894e beautified Claus Gittinger <cg@exept.de> parents: 2592 diff changeset	505	^ self
2203 1550851c94f6 add labelChannel ca parents: 1992 diff changeset	506	].
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	507	^ super update:what with:aPara from:aModel
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	508	! !
1550851c94f6 add labelChannel ca parents: 1992 diff changeset	509
0 e6a541c1c0eb Initial revision claus parents: diff changeset	510	!FramedBox methodsFor:'drawing'!
e6a541c1c0eb Initial revision claus parents: diff changeset	511
e6a541c1c0eb Initial revision claus parents: diff changeset	512	drawFrame
e6a541c1c0eb Initial revision claus parents: diff changeset	513	"redraw the frame"
e6a541c1c0eb Initial revision claus parents: diff changeset	514
133 e58c7c979f33 . claus parents: 130 diff changeset	515	\|halfSepX halfSepY w h\|
0 e6a541c1c0eb Initial revision claus parents: diff changeset	516
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	517	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	518	if there is no label, give more real estate to the inside
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	519	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	520	label isNil ifTrue:[
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	521	halfSepX := halfSepY := 2
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	522	] ifFalse:[
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	523	halfSepX := halfSepY := (label heightOn:self) // 2.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	524	].
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	525
133 e58c7c979f33 . claus parents: 130 diff changeset	526	horizontalSpace notNil ifTrue:[
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	527	halfSepX := horizontalSpace.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	528	].
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	529	verticalSpace notNil ifTrue:[
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	530	halfSepY := verticalSpace.
133 e58c7c979f33 . claus parents: 130 diff changeset	531	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	532
1635 095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	533	halfSepX := halfSepX + margin.
095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	534	halfSepY := halfSepY + margin.
095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	535
133 e58c7c979f33 . claus parents: 130 diff changeset	536	w := width - halfSepX - halfSepX.
e58c7c979f33 . claus parents: 130 diff changeset	537	h := height - halfSepY - halfSepY.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	538
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	539	frame3D ifFalse:[
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	540	self displayRectangleX:halfSepX
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	541	y:halfSepY
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	542	width:w
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	543	height:h.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	544	^ self
0 e6a541c1c0eb Initial revision claus parents: diff changeset	545	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	546
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	547	w := w + 1.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	548	h := h + 1.
7 15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	549
685 48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	550	self paint:lightColor.
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	551	self displayRectangleX:halfSepX
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	552	y:halfSepY
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	553	width:w
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	554	height:h.
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	555
0 e6a541c1c0eb Initial revision claus parents: diff changeset	556	self paint:shadowColor.
133 e58c7c979f33 . claus parents: 130 diff changeset	557	self displayRectangleX:halfSepX-1
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	558	y:halfSepY-1
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	559	width:w
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	560	height:h.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	561
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	562	"Modified: 17.2.1997 / 11:04:34 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	563	!
e6a541c1c0eb Initial revision claus parents: diff changeset	564
e6a541c1c0eb Initial revision claus parents: diff changeset	565	redraw
e6a541c1c0eb Initial revision claus parents: diff changeset	566	"redraw the frame and name if present"
e6a541c1c0eb Initial revision claus parents: diff changeset	567
e6a541c1c0eb Initial revision claus parents: diff changeset	568	\|labelLen l x y\|
e6a541c1c0eb Initial revision claus parents: diff changeset	569
1084 f890ae939e49 clear in redraw; Claus Gittinger <cg@exept.de> parents: 1019 diff changeset	570	self clear.
f890ae939e49 clear in redraw; Claus Gittinger <cg@exept.de> parents: 1019 diff changeset	571
3672 46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	572	(label isNil or:[ labelPosition == #hidden]) ifTrue:[
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	573	labelLen := 0
0 e6a541c1c0eb Initial revision claus parents: diff changeset	574	] ifFalse:[
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	575	label isString ifTrue:[
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	576	l := ' ' , label , ' '.
1992 6d6b16f9d55e #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1845 diff changeset	577	font := font onDevice:device.
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	578	] ifFalse:[
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	579	l := label
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	580	].
1084 f890ae939e49 clear in redraw; Claus Gittinger <cg@exept.de> parents: 1019 diff changeset	581	labelLen := l widthOn:self
0 e6a541c1c0eb Initial revision claus parents: diff changeset	582	].
e6a541c1c0eb Initial revision claus parents: diff changeset	583
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	584	showFrame ifTrue:[
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	585	self drawFrame.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	586	].
4b9b70b2cc87 2.10.3 pre-final version claus parents: 25 diff changeset	587
0 e6a541c1c0eb Initial revision claus parents: diff changeset	588	labelLen > 0 ifTrue:[
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	589	labelLen < width ifTrue:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	590	(labelPosition == #topLeft
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	591	or:[labelPosition == #topCenter
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	592	or:[labelPosition == #topRight]]) ifTrue:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	593	"
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	594	label at top
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	595	"
1635 095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	596	y := font ascent + margin.
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	597	] ifFalse:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	598	"
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	599	label at bottom
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	600	"
1635 095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	601	y := height - margin - font descent.
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	602	].
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	603	(labelPosition == #topLeft
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	604	or:[labelPosition == #bottomLeft]) ifTrue:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	605	"
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	606	label at left
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	607	"
1635 095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	608	x := font height + margin
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	609	] ifFalse:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	610	(labelPosition == #topRight
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	611	or:[labelPosition == #bottomRight]) ifTrue:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	612	"
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	613	label at right
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	614	"
1635 095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	615	x := width - margin - labelLen - font height
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	616	] ifFalse:[
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	617	"
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	618	label at center
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	619	"
1635 095c31e9c914 fixed drawingPosition, with big margin (i.e. 3D level) Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	620	x := (width - margin - labelLen) // 2
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	621	]
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	622	].
c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	623	self paint:fgColor on:viewBackground.
1019 0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	624	label isString ifTrue:[
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	625	self displayOpaqueString:l x:x y:y
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	626	] ifFalse:[
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	627	l displayOpaqueOn:self x:x y:y - font ascent
0d027812861e allow image-labels (for compatibility with ST-80's GroupBox) Claus Gittinger <cg@exept.de> parents: 993 diff changeset	628	]
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	629	]
0 e6a541c1c0eb Initial revision claus parents: diff changeset	630	]
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	631
1084 f890ae939e49 clear in redraw; Claus Gittinger <cg@exept.de> parents: 1019 diff changeset	632	"Modified: 28.2.1997 / 21:28:09 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	633	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	634
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	635	!FramedBox methodsFor:'event handling'!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	636
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	637	sizeChanged:how
2913 bdf4fb09cfc0 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	638	self invalidate.
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	639	super sizeChanged:how
721 4a01084cf643 use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 713 diff changeset	640
993 51cce445b5d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 959 diff changeset	641	"Modified: 8.2.1997 / 15:19:52 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	642	! !
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	643
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	644	!FramedBox methodsFor:'initialization'!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	645
944 87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	646	fetchDeviceResources
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	647	"fetch device colors, to avoid reallocation at redraw time"
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	648
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	649	super fetchDeviceResources.
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	650
1992 6d6b16f9d55e #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1845 diff changeset	651	fgColor := fgColor onDevice:device.
944 87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	652
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	653	"Created: 15.2.1997 / 16:57:56 / cg"
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	654	!
87c58d0fd30c fetch device resources early Claus Gittinger <cg@exept.de> parents: 914 diff changeset	655
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	656	initStyle
959 331da6bc19ec commentary Claus Gittinger <cg@exept.de> parents: 944 diff changeset	657	"setup style specifics.
331da6bc19ec commentary Claus Gittinger <cg@exept.de> parents: 944 diff changeset	658	The default position is top-center, except for ms-windows, where
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	659	the text is positioned at top-left"
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	660
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	661	<resource: #style (#'framedBox.foregroundColor'
6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	662	#'framedBox.labelPosition'
1845 84f68da8e19b added framedBox.font attribute in styleSheet Claus Gittinger <cg@exept.de> parents: 1635 diff changeset	663	#'framedBox.font'
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	664	#'framedBox.3DFrame')>
608 aedd7bf72edc checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	665
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	666	super initStyle.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	667
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	668	fgColor := StyleSheet at:'framedBox.foregroundColor' default:Black.
6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	669	labelPosition := StyleSheet at:'framedBox.labelPosition' default:#topCenter.
6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	670	frame3D := StyleSheet at:'framedBox.3DFrame' default:true.
4127 003405300276 changed: #initStyle Claus Gittinger <cg@exept.de> parents: 4022 diff changeset	671	font := StyleSheet at:'framedBox.font' default:(StyleSheet at:'label.font' default:font).
2947 31726ebce2a4 font: onDevice james parents: 2913 diff changeset	672	font := font onDevice:device.
4022 e34a6aeee9c6 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 3862 diff changeset	673	self borderWidth:0.
608 aedd7bf72edc checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	674
1364 6610f90eea47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	675	"Modified: / 26.10.1997 / 17:00:57 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	676	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	677
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	678	initialize
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	679	innerHorizontalSpace := innerVerticalSpace := 0.
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	680	super initialize.
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	681	showFrame := true
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	682
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	683	"Modified: 10.1.1996 / 14:38:40 / cg"
2592 e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	684	!
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	685
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	686	release
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	687
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	688	labelChannel notNil ifTrue:[
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	689	labelChannel removeDependent:self.
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	690	labelChannel := nil.
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	691	].
e352f0afe352 destroy - release Claus Gittinger <cg@exept.de> parents: 2364 diff changeset	692	super release
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	693	! !
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	694
125 3ffa271732f7 . claus parents: 118 diff changeset	695	!FramedBox methodsFor:'queries'!
3ffa271732f7 . claus parents: 118 diff changeset	696
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	697	preferredExtent
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 277 diff changeset	698	"compute the boxes preferredExtent from the components' sizes.
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 277 diff changeset	699	Redefined to add space for the frame to the default extent"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	700
3862 9e8a1e58e9ca make #preferredExtent a bit smaller Stefan Vogel <sv@exept.de> parents: 3753 diff changeset	701	\|sep\|
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	702
3753 e56e38d631cd changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3673 diff changeset	703	"/ If I have an explicit preferredExtent..
e56e38d631cd changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3673 diff changeset	704	explicitExtent notNil ifTrue:[
e56e38d631cd changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3673 diff changeset	705	^ explicitExtent
e56e38d631cd changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3673 diff changeset	706	].
797 2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 721 diff changeset	707
3753 e56e38d631cd changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3673 diff changeset	708	"/ If I have a cached preferredExtent value..
713 0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 685 diff changeset	709	preferredExtent notNil ifTrue:[
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 685 diff changeset	710	^ preferredExtent
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 685 diff changeset	711	].
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 685 diff changeset	712
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	713	sep := font heightOn:device.
3862 9e8a1e58e9ca make #preferredExtent a bit smaller Stefan Vogel <sv@exept.de> parents: 3753 diff changeset	714	"/ sep := sep + sep.
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	715
3672 46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	716	true "showFrame" ifFalse:[
3862 9e8a1e58e9ca make #preferredExtent a bit smaller Stefan Vogel <sv@exept.de> parents: 3753 diff changeset	717	^ super preferredExtent + (0 @ sep)
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	718	].
3862 9e8a1e58e9ca make #preferredExtent a bit smaller Stefan Vogel <sv@exept.de> parents: 3753 diff changeset	719	^ super preferredExtent + (sep @ sep)
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 277 diff changeset	720
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	721	"Modified: 3.1.1997 / 22:02:56 / cg"
195 fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	722	!
fb03114fa1c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	723
125 3ffa271732f7 . claus parents: 118 diff changeset	724	viewRectangle
3ffa271732f7 . claus parents: 118 diff changeset	725	"return the inside area
3ffa271732f7 . claus parents: 118 diff changeset	726	- redefined to save frame from relative computations."
3ffa271732f7 . claus parents: 118 diff changeset	727
685 48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	728	\|mH mV sepH sepV imH imV lw\|
125 3ffa271732f7 . claus parents: 118 diff changeset	729
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	730	sepH := sepV := font heightOn:device.
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	731	horizontalSpace notNil ifTrue:[
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	732	sepH := horizontalSpace
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	733	].
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	734	verticalSpace notNil ifTrue:[
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	735	sepV := verticalSpace
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	736	].
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	737
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	738	mH := sepH * 2.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	739	mV := sepV * 2.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	740	imH := innerHorizontalSpace * 2.
243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	741	imV := innerVerticalSpace * 2.
125 3ffa271732f7 . claus parents: 118 diff changeset	742
3672 46c56ea54ef9 +hidden label Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	743	true "showFrame" ifFalse:[
685 48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	744	sepH := mH := lw := 0.
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	745	] ifTrue:[
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	746	lw := 2.
125 3ffa271732f7 . claus parents: 118 diff changeset	747	].
685 48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	748
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	749	^ ((sepH + innerHorizontalSpace + lw) @ (innerVerticalSpace + sepV + lw))
48b91a79927d frame inset was wrong Claus Gittinger <cg@exept.de> parents: 664 diff changeset	750	extent:((width - imH - mH - lw - lw) @ (height - imV - mV - lw - lw))
125 3ffa271732f7 . claus parents: 118 diff changeset	751
3ffa271732f7 . claus parents: 118 diff changeset	752	"/ \|m2 sepH sepV\|
3ffa271732f7 . claus parents: 118 diff changeset	753	"/
3ffa271732f7 . claus parents: 118 diff changeset	754	"/ sepV := font height.
3ffa271732f7 . claus parents: 118 diff changeset	755	"/
3ffa271732f7 . claus parents: 118 diff changeset	756	"/ showFrame ifFalse:[
3ffa271732f7 . claus parents: 118 diff changeset	757	"/ ^ (0 @ sepV) extent:(width @ (height - sepV - sepV))
3ffa271732f7 . claus parents: 118 diff changeset	758	"/ ].
3ffa271732f7 . claus parents: 118 diff changeset	759	"/ sepH := sepV // 2.
3ffa271732f7 . claus parents: 118 diff changeset	760	"/ ^ (sepH @ sepH) extent:((width - sepH - sepH) @ (height - sepV - sepV))
277 243d138cf316 more frame layout control added Claus Gittinger <cg@exept.de> parents: 205 diff changeset	761
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	762	"Modified: 3.1.1997 / 22:03:08 / cg"
125 3ffa271732f7 . claus parents: 118 diff changeset	763	! !
3ffa271732f7 . claus parents: 118 diff changeset	764
914 c2435be998ba care for font being on device before querying Claus Gittinger <cg@exept.de> parents: 797 diff changeset	765	!FramedBox class methodsFor:'documentation'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	766
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	767	version
4127 003405300276 changed: #initStyle Claus Gittinger <cg@exept.de> parents: 4022 diff changeset	768	^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.53 2009-12-07 14:49:53 cg Exp $'
4022 e34a6aeee9c6 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 3862 diff changeset	769	!
e34a6aeee9c6 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 3862 diff changeset	770
e34a6aeee9c6 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 3862 diff changeset	771	version_CVS
4127 003405300276 changed: #initStyle Claus Gittinger <cg@exept.de> parents: 4022 diff changeset	772	^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.53 2009-12-07 14:49:53 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	773	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 07 Dec 2009 15:49:53 +0100
changeset 4127	003405300276
parent 4022	e34a6aeee9c6
child 4144	6ca7cbf99165
permissions	-rw-r--r--