hg/stx-libwidg2: HorizontalSlider.st@f28e1643b8d1 (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	"
2819 04c8432b57c8 * empty log message * Stefan Vogel <sv@exept.de> parents: 1230 diff changeset	12	"{ Package: 'stx:libwidg2' }"
04c8432b57c8 * empty log message * Stefan Vogel <sv@exept.de> parents: 1230 diff changeset	13
49 4dd0f5c3353e . claus parents: 48 diff changeset	14	Slider subclass:#HorizontalSlider
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	15	instanceVariableNames:''
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	16	classVariableNames:''
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	17	poolDictionaries:''
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	18	category:'Views-Interactors'
17 bda821037847 Initial revision claus parents: diff changeset	19	!
bda821037847 Initial revision claus parents: diff changeset	20
402 db4b13aff9c9 more code moved to superclass Claus Gittinger <cg@exept.de> parents: 222 diff changeset	21	!HorizontalSlider class methodsFor:'documentation'!
17 bda821037847 Initial revision claus parents: diff changeset	22
bda821037847 Initial revision claus parents: diff changeset	23	copyright
bda821037847 Initial revision claus parents: diff changeset	24	"
bda821037847 Initial revision claus parents: diff changeset	25	COPYRIGHT (c) 1992 by Claus Gittinger
24 6704fad5eb7d * empty log message * claus parents: 17 diff changeset	26	All Rights Reserved
17 bda821037847 Initial revision claus parents: diff changeset	27
bda821037847 Initial revision claus parents: diff changeset	28	This software is furnished under a license and may be used
bda821037847 Initial revision claus parents: diff changeset	29	only in accordance with the terms of that license and with the
bda821037847 Initial revision claus parents: diff changeset	30	inclusion of the above copyright notice. This software may not
bda821037847 Initial revision claus parents: diff changeset	31	be provided or otherwise made available to, or used by, any
bda821037847 Initial revision claus parents: diff changeset	32	other person. No title to or ownership of the software is
bda821037847 Initial revision claus parents: diff changeset	33	hereby transferred.
bda821037847 Initial revision claus parents: diff changeset	34	"
bda821037847 Initial revision claus parents: diff changeset	35	!
bda821037847 Initial revision claus parents: diff changeset	36
bda821037847 Initial revision claus parents: diff changeset	37	documentation
bda821037847 Initial revision claus parents: diff changeset	38	"
bda821037847 Initial revision claus parents: diff changeset	39	this class implements horizontal sliders.
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	40
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	41	[author:]
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	42	Claus Gittinger
17 bda821037847 Initial revision claus parents: diff changeset	43	"
bda821037847 Initial revision claus parents: diff changeset	44	! !
bda821037847 Initial revision claus parents: diff changeset	45
bda821037847 Initial revision claus parents: diff changeset	46	!HorizontalSlider methodsFor:'initialization'!
bda821037847 Initial revision claus parents: diff changeset	47
bda821037847 Initial revision claus parents: diff changeset	48	initialize
1230 1e521b1de695 checkin from browser Claus Gittinger <cg@exept.de> parents: 402 diff changeset	49	orientation := #horizontal.
17 bda821037847 Initial revision claus parents: diff changeset	50	super initialize.
49 4dd0f5c3353e . claus parents: 48 diff changeset	51	sliderHeight := (self horizontalPixelPerMillimeter:10) rounded.
1230 1e521b1de695 checkin from browser Claus Gittinger <cg@exept.de> parents: 402 diff changeset	52
1e521b1de695 checkin from browser Claus Gittinger <cg@exept.de> parents: 402 diff changeset	53	"Modified: / 7.3.1999 / 00:00:47 / cg"
17 bda821037847 Initial revision claus parents: diff changeset	54	! !
bda821037847 Initial revision claus parents: diff changeset	55
65 40e27e2606b5 . claus parents: 49 diff changeset	56	!HorizontalSlider methodsFor:'queries'!
40e27e2606b5 . claus parents: 49 diff changeset	57
40e27e2606b5 . claus parents: 49 diff changeset	58	preferredExtent
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	59	"return the views preferredExtent."
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	60
65 40e27e2606b5 . claus parents: 49 diff changeset	61	\|w h\|
40e27e2606b5 . claus parents: 49 diff changeset	62
3579 f28e1643b8d1 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 2819 diff changeset	63	"/ If I have an explicit preferredExtent..
f28e1643b8d1 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 2819 diff changeset	64	explicitExtent notNil ifTrue:[
f28e1643b8d1 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 2819 diff changeset	65	^ explicitExtent
f28e1643b8d1 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 2819 diff changeset	66	].
222 11fce0339069 * empty log message * Claus Gittinger <cg@exept.de> parents: 212 diff changeset	67
3579 f28e1643b8d1 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 2819 diff changeset	68	"/ If I have a cached preferredExtent value..
192 e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	69	preferredExtent notNil ifTrue:[
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	70	^ preferredExtent
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	71	].
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 155 diff changeset	72
65 40e27e2606b5 . claus parents: 49 diff changeset	73	w := self class defaultExtent x.
2819 04c8432b57c8 * empty log message * Stefan Vogel <sv@exept.de> parents: 1230 diff changeset	74	h := (self verticalPixelPerMillimeter:6) rounded.
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 100 diff changeset	75
212 b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	76	preferredExtent := w @ h.
b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	77	^ preferredExtent.
b63b8bf60d88 remember and do not recompute the preferredExtent; Claus Gittinger <cg@exept.de> parents: 192 diff changeset	78
222 11fce0339069 * empty log message * Claus Gittinger <cg@exept.de> parents: 212 diff changeset	79	"Modified: 19.7.1996 / 20:44:30 / cg"
65 40e27e2606b5 . claus parents: 49 diff changeset	80	! !
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	81
402 db4b13aff9c9 more code moved to superclass Claus Gittinger <cg@exept.de> parents: 222 diff changeset	82	!HorizontalSlider class methodsFor:'documentation'!
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	83
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	84	version
3579 f28e1643b8d1 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 2819 diff changeset	85	^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.17 2008-10-26 20:14:50 stefan Exp $'
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	86	! !

author	Stefan Vogel <sv@exept.de>
	Sun, 26 Oct 2008 21:14:50 +0100
changeset 3579	f28e1643b8d1
parent 2819	04c8432b57c8
child 5353	272d814ba358
permissions	-rw-r--r--