hg/stx-libwidg2: HorizontalSlider.st@b63b8bf60d88 (annotated)

17 bda821037847 Initial revision claus parents: diff changeset	1	"
bda821037847 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1992 by Claus Gittinger
24 6704fad5eb7d * empty log message * claus parents: 17 diff changeset	3	All Rights Reserved
17 bda821037847 Initial revision claus parents: diff changeset	4
bda821037847 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
bda821037847 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
bda821037847 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
bda821037847 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
bda821037847 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
bda821037847 Initial revision claus parents: diff changeset	10	hereby transferred.
bda821037847 Initial revision claus parents: diff changeset	11	"
bda821037847 Initial revision claus parents: diff changeset	12
49 4dd0f5c3353e . claus parents: 48 diff changeset	13	Slider subclass:#HorizontalSlider
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	14	instanceVariableNames:''
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	15	classVariableNames:''
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	16	poolDictionaries:''
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	17	category:'Views-Interactors'
17 bda821037847 Initial revision claus parents: diff changeset	18	!
bda821037847 Initial revision claus parents: diff changeset	19
212 b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	20	!HorizontalSlider class methodsFor:'documentation'!
17 bda821037847 Initial revision claus parents: diff changeset	21
bda821037847 Initial revision claus parents: diff changeset	22	copyright
bda821037847 Initial revision claus parents: diff changeset	23	"
bda821037847 Initial revision claus parents: diff changeset	24	COPYRIGHT (c) 1992 by Claus Gittinger
24 6704fad5eb7d * empty log message * claus parents: 17 diff changeset	25	All Rights Reserved
17 bda821037847 Initial revision claus parents: diff changeset	26
bda821037847 Initial revision claus parents: diff changeset	27	This software is furnished under a license and may be used
bda821037847 Initial revision claus parents: diff changeset	28	only in accordance with the terms of that license and with the
bda821037847 Initial revision claus parents: diff changeset	29	inclusion of the above copyright notice. This software may not
bda821037847 Initial revision claus parents: diff changeset	30	be provided or otherwise made available to, or used by, any
bda821037847 Initial revision claus parents: diff changeset	31	other person. No title to or ownership of the software is
bda821037847 Initial revision claus parents: diff changeset	32	hereby transferred.
bda821037847 Initial revision claus parents: diff changeset	33	"
bda821037847 Initial revision claus parents: diff changeset	34	!
bda821037847 Initial revision claus parents: diff changeset	35
bda821037847 Initial revision claus parents: diff changeset	36	documentation
bda821037847 Initial revision claus parents: diff changeset	37	"
bda821037847 Initial revision claus parents: diff changeset	38	this class implements horizontal sliders.
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	39
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	40	[author:]
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	41	Claus Gittinger
17 bda821037847 Initial revision claus parents: diff changeset	42	"
bda821037847 Initial revision claus parents: diff changeset	43	! !
bda821037847 Initial revision claus parents: diff changeset	44
bda821037847 Initial revision claus parents: diff changeset	45	!HorizontalSlider methodsFor:'initialization'!
bda821037847 Initial revision claus parents: diff changeset	46
bda821037847 Initial revision claus parents: diff changeset	47	initialize
bda821037847 Initial revision claus parents: diff changeset	48	super initialize.
49 4dd0f5c3353e . claus parents: 48 diff changeset	49	sliderHeight := (self horizontalPixelPerMillimeter:10) rounded.
4dd0f5c3353e . claus parents: 48 diff changeset	50	orientation := #horizontal
17 bda821037847 Initial revision claus parents: diff changeset	51	! !
bda821037847 Initial revision claus parents: diff changeset	52
65 40e27e2606b5 . claus parents: 49 diff changeset	53	!HorizontalSlider methodsFor:'queries'!
40e27e2606b5 . claus parents: 49 diff changeset	54
40e27e2606b5 . claus parents: 49 diff changeset	55	preferredExtent
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	56	"return the views preferredExtent."
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	57
65 40e27e2606b5 . claus parents: 49 diff changeset	58	\|w h\|
40e27e2606b5 . claus parents: 49 diff changeset	59
192 e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	60	preferredExtent notNil ifTrue:[
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	61	^ preferredExtent
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	62	].
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	63
65 40e27e2606b5 . claus parents: 49 diff changeset	64	w := self class defaultExtent x.
40e27e2606b5 . claus parents: 49 diff changeset	65	h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	66
212 b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	67	preferredExtent := w @ h.
b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	68	^ preferredExtent.
b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	69
b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	70	"Modified: 15.7.1996 / 09:56:39 / cg"
65 40e27e2606b5 . claus parents: 49 diff changeset	71	! !
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	72
212 b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	73	!HorizontalSlider class methodsFor:'documentation'!
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	74
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	75	version
212 b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	76	^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.12 1996-07-15 10:09:08 cg Exp $'
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	77	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 15 Jul 1996 12:09:08 +0200
changeset 212	b63b8bf60d88
parent 192	e060e80f8e24
child 222	11fce0339069
permissions	-rw-r--r--