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

author	Claus Gittinger <cg@exept.de>
	Wed, 24 Nov 1999 13:12:33 +0100
changeset 1619	fda861e265ca
parent 196	9311b28d1a32
child 3150	e3a55f15ef7e
permissions	-rw-r--r--