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

author	Claus Gittinger <cg@exept.de>
	Thu, 09 Nov 2017 20:09:30 +0100
changeset 6225	0122e4e6c587
parent 6069	2e71d861428b
child 6237	ee16cb5f52c9
permissions	-rw-r--r--