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

author	Claus Gittinger <cg@exept.de>
	Fri, 15 Jun 2018 10:54:35 +0200
changeset 5816	7876c07931a7
parent 3150	e3a55f15ef7e
child 4770	6634b540fea2
permissions	-rw-r--r--