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

author	Jan Vrany <jan.vrany@labware.com>
	Fri, 02 Sep 2022 11:25:39 +0100
branch	jv
changeset 6261	9b7eb7159d29
parent 5353	272d814ba358
child 5955	01736fd997e6
permissions	-rw-r--r--