hg/stx-libwidg2: VerticalRuler.st@6634b540fea2 (annotated)

27 12e5a38bf0a8 Initial revision claus parents: diff changeset	1	"
12e5a38bf0a8 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
12e5a38bf0a8 Initial revision claus parents: diff changeset	3	All Rights Reserved
12e5a38bf0a8 Initial revision claus parents: diff changeset	4
12e5a38bf0a8 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
12e5a38bf0a8 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
12e5a38bf0a8 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
12e5a38bf0a8 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
12e5a38bf0a8 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
12e5a38bf0a8 Initial revision claus parents: diff changeset	10	hereby transferred.
12e5a38bf0a8 Initial revision claus parents: diff changeset	11	"
4770 6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3150 diff changeset	12	"{ Package: 'stx:libwidg2' }"
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	13
4770 6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3150 diff changeset	14	"{ NameSpace: Smalltalk }"
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	15
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	16	Ruler subclass:#VerticalRuler
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	17	instanceVariableNames:''
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	18	classVariableNames:''
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	19	poolDictionaries:''
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	20	category:'Views-Misc'
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	21	!
12e5a38bf0a8 Initial revision claus parents: diff changeset	22
33 3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	23	!VerticalRuler class methodsFor:'documentation'!
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	24
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	25	copyright
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	26	"
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	27	COPYRIGHT (c) 1994 by Claus Gittinger
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	28	All Rights Reserved
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	29
33 3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	30	This software is furnished under a license and may be used
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	31	only in accordance with the terms of that license and with the
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	32	inclusion of the above copyright notice. This software may not
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	33	be provided or otherwise made available to, or used by, any
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	34	other person. No title to or ownership of the software is
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	35	hereby transferred.
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	36	"
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	37	!
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	38
33 3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	39	documentation
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	40	"
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	41	like a Ruler, but vertical.
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	42	see documentation in Ruler
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	43	"
3e68e4c73db3 last version before big scrolling change claus parents: 28 diff changeset	44	! !
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	45
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	46	!VerticalRuler methodsFor:'initialization'!
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	47
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	48	initialize
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 196 diff changeset	49	orientation := #vertical.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 196 diff changeset	50
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	51	super initialize.
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	52	self width:(font widthOf:'inch').
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	53
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	54	"
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	55	VerticalRuler new open
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	56	"
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	57	! !
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	58
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	59	!VerticalRuler class methodsFor:'documentation'!
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	60
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	61	version
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	62	^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.11 2006-11-13 16:11:31 cg Exp $'
27 12e5a38bf0a8 Initial revision claus parents: diff changeset	63	! !
4770 6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3150 diff changeset	64

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 21 May 2015 21:14:57 +0100
branch	jv
changeset 4770	6634b540fea2
parent 3150	e3a55f15ef7e
permissions	-rw-r--r--