hg/stx-libwidg2: HorizontalSlider.st@4d7dbb5f1719 (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	'From Smalltalk/X, Version:2.10.5 on 30-apr-1995 at 1:46:29 am'!
4dd0f5c3353e . claus parents: 48 diff changeset	14
4dd0f5c3353e . claus parents: 48 diff changeset	15	Slider subclass:#HorizontalSlider
4dd0f5c3353e . claus parents: 48 diff changeset	16	instanceVariableNames:''
4dd0f5c3353e . claus parents: 48 diff changeset	17	classVariableNames:''
4dd0f5c3353e . claus parents: 48 diff changeset	18	poolDictionaries:''
4dd0f5c3353e . claus parents: 48 diff changeset	19	category:'Views-Interactors'
17 bda821037847 Initial revision claus parents: diff changeset	20	!
bda821037847 Initial revision claus parents: diff changeset	21
bda821037847 Initial revision claus parents: diff changeset	22	!HorizontalSlider class methodsFor:'documentation'!
bda821037847 Initial revision claus parents: diff changeset	23
bda821037847 Initial revision claus parents: diff changeset	24	copyright
bda821037847 Initial revision claus parents: diff changeset	25	"
bda821037847 Initial revision claus parents: diff changeset	26	COPYRIGHT (c) 1992 by Claus Gittinger
24 6704fad5eb7d * empty log message * claus parents: 17 diff changeset	27	All Rights Reserved
17 bda821037847 Initial revision claus parents: diff changeset	28
bda821037847 Initial revision claus parents: diff changeset	29	This software is furnished under a license and may be used
bda821037847 Initial revision claus parents: diff changeset	30	only in accordance with the terms of that license and with the
bda821037847 Initial revision claus parents: diff changeset	31	inclusion of the above copyright notice. This software may not
bda821037847 Initial revision claus parents: diff changeset	32	be provided or otherwise made available to, or used by, any
bda821037847 Initial revision claus parents: diff changeset	33	other person. No title to or ownership of the software is
bda821037847 Initial revision claus parents: diff changeset	34	hereby transferred.
bda821037847 Initial revision claus parents: diff changeset	35	"
bda821037847 Initial revision claus parents: diff changeset	36	!
bda821037847 Initial revision claus parents: diff changeset	37
bda821037847 Initial revision claus parents: diff changeset	38	version
86 4d7dbb5f1719 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 71 diff changeset	39	^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.7 1995-11-11 16:28:58 cg Exp $'
17 bda821037847 Initial revision claus parents: diff changeset	40	!
bda821037847 Initial revision claus parents: diff changeset	41
bda821037847 Initial revision claus parents: diff changeset	42	documentation
bda821037847 Initial revision claus parents: diff changeset	43	"
bda821037847 Initial revision claus parents: diff changeset	44	this class implements horizontal sliders.
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
bda821037847 Initial revision claus parents: diff changeset	51	super initialize.
49 4dd0f5c3353e . claus parents: 48 diff changeset	52	sliderHeight := (self horizontalPixelPerMillimeter:10) rounded.
4dd0f5c3353e . claus parents: 48 diff changeset	53	orientation := #horizontal
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
40e27e2606b5 . claus parents: 49 diff changeset	59	\|w h\|
40e27e2606b5 . claus parents: 49 diff changeset	60
40e27e2606b5 . claus parents: 49 diff changeset	61	w := self class defaultExtent x.
40e27e2606b5 . claus parents: 49 diff changeset	62	h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
40e27e2606b5 . claus parents: 49 diff changeset	63	^ w @ h.
40e27e2606b5 . claus parents: 49 diff changeset	64	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 11 Nov 1995 17:30:31 +0100
changeset 86	4d7dbb5f1719
parent 71	9f9243f5813b
child 100	3d33433f459c
permissions	-rw-r--r--