hg/stx-libwidg: VariableHorizontalPanel.st@4ee60598df58 (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
5 7b4fb1b170e5 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1992 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	"
e6a541c1c0eb Initial revision claus parents: diff changeset	12
294 667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	13	VariablePanel subclass:#VariableHorizontalPanel
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	14	instanceVariableNames:''
294 667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	15	classVariableNames:''
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	16	poolDictionaries:''
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	17	category:'Views-Layout'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	18	!
e6a541c1c0eb Initial revision claus parents: diff changeset	19
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	20	!VariableHorizontalPanel class methodsFor:'documentation'!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	21
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	22	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	23	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	24	COPYRIGHT (c) 1992 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	25	All Rights Reserved
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	26
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	27	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	28	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	29	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	30	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	31	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	32	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	33	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	34	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	35
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	36	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	37	"
294 667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	38	This class is only here for backward compatibility;
667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	39	all functionality is now in VariablePanel. Its orientation can now
667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	40	be changed dynamically.
667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	41
667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	42	A View to separate its subviews horizontally by a movable bar
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	43	to adjust the size-ratios.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	44	The bar-handle is either an exposed knob (knobStyle == #motif)
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	45	or the forms defined in Scroller (knobStyle ~~ #motif)
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	46	or nothing.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	47
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	48	The subvies dimensions MUST be given as relative sizes;
4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	49	typically creation is done as:
0 e6a541c1c0eb Initial revision claus parents: diff changeset	50
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	51	p := VariableHorizontalPanel in:superView.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	52	v1 := <someViewClass> origin:0.0 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	53	corner:0.5 @ 1.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	54	in:p.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	55	v2 := <someViewClass> origin:0.5 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	56	corner:0.8 @ 1.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	57	in:p.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	58	v3 := <someViewClass> origin:0.8 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	59	corner:1.0 @ 1.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	60	in:p.
63 f4eaf04d1eaf * empty log message * claus parents: 60 diff changeset	61	"
f4eaf04d1eaf * empty log message * claus parents: 60 diff changeset	62	!
f4eaf04d1eaf * empty log message * claus parents: 60 diff changeset	63
f4eaf04d1eaf * empty log message * claus parents: 60 diff changeset	64	examples
f4eaf04d1eaf * empty log message * claus parents: 60 diff changeset	65	"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	66	example:
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	67	\|top p v1 v2 v3\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	68
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	69	top := StandardSystemView new.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	70	top extent:300@200.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	71
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	72	p := VariableHorizontalPanel
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	73	origin:0.0 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	74	corner:1.0 @ 1.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	75	in:top.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	76	v1 := SelectionInListView
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	77	origin:0.0 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	78	corner:0.5 @ 1.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	79	in:p.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	80	v2 := EditTextView
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	81	origin:0.5 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	82	corner:0.8 @ 1.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	83	in:p.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	84	v3 := ScrollableView
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	85	for:TextView
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	86	in:p.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	87	v3 origin:0.8 @ 0.0
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	88	corner:1.0 @ 1.0.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	89	top open
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 23 diff changeset	90	"
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 175 diff changeset	91	! !
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 175 diff changeset	92
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 175 diff changeset	93	!VariableHorizontalPanel methodsFor:'initializing'!
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 175 diff changeset	94
294 667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	95	initialize
667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	96	super initialize.
667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	97	orientation := #horizontal
0 e6a541c1c0eb Initial revision claus parents: diff changeset	98	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	99
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	100	!VariableHorizontalPanel class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	101
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	102	version
294 667773990289 merged all variablePanel code into a common class. Claus Gittinger <cg@exept.de> parents: 205 diff changeset	103	^ '$Header: /cvs/stx/stx/libwidg/VariableHorizontalPanel.st,v 1.18 1996-01-18 00:09:20 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	104	! !

author	ca
	Thu, 07 Mar 1996 10:33:53 +0100
changeset 487	4ee60598df58
parent 294	667773990289
child 496	f22ac16a5093
permissions	-rw-r--r--