hg/stx-libwidg2: HorizontalSteppingSlider.st@7876c07931a7 (annotated)

23 1e6bf473d863 Initial revision claus parents: diff changeset	1	"
1e6bf473d863 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
49 4dd0f5c3353e . claus parents: 23 diff changeset	3	All Rights Reserved
23 1e6bf473d863 Initial revision claus parents: diff changeset	4
1e6bf473d863 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
1e6bf473d863 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
1e6bf473d863 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
1e6bf473d863 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
1e6bf473d863 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
1e6bf473d863 Initial revision claus parents: diff changeset	10	hereby transferred.
1e6bf473d863 Initial revision claus parents: diff changeset	11	"
1e6bf473d863 Initial revision claus parents: diff changeset	12
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	13	"{ Package: 'stx:libwidg2' }"
e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	14
400 d176fd820716 merged common code from steppingSlider & horizontalSteppingSlider Claus Gittinger <cg@exept.de> parents: 267 diff changeset	15	SteppingSlider subclass:#HorizontalSteppingSlider
d176fd820716 merged common code from steppingSlider & horizontalSteppingSlider Claus Gittinger <cg@exept.de> parents: 267 diff changeset	16	instanceVariableNames:''
122 44d46c527eac checkin from Browser Claus Gittinger <cg@exept.de> parents: 121 diff changeset	17	classVariableNames:''
44d46c527eac checkin from Browser Claus Gittinger <cg@exept.de> parents: 121 diff changeset	18	poolDictionaries:''
44d46c527eac checkin from Browser Claus Gittinger <cg@exept.de> parents: 121 diff changeset	19	category:'Views-Interactors'
23 1e6bf473d863 Initial revision claus parents: diff changeset	20	!
1e6bf473d863 Initial revision claus parents: diff changeset	21
1e6bf473d863 Initial revision claus parents: diff changeset	22	!HorizontalSteppingSlider class methodsFor:'documentation'!
1e6bf473d863 Initial revision claus parents: diff changeset	23
1e6bf473d863 Initial revision claus parents: diff changeset	24	copyright
1e6bf473d863 Initial revision claus parents: diff changeset	25	"
1e6bf473d863 Initial revision claus parents: diff changeset	26	COPYRIGHT (c) 1994 by Claus Gittinger
49 4dd0f5c3353e . claus parents: 23 diff changeset	27	All Rights Reserved
23 1e6bf473d863 Initial revision claus parents: diff changeset	28
1e6bf473d863 Initial revision claus parents: diff changeset	29	This software is furnished under a license and may be used
1e6bf473d863 Initial revision claus parents: diff changeset	30	only in accordance with the terms of that license and with the
1e6bf473d863 Initial revision claus parents: diff changeset	31	inclusion of the above copyright notice. This software may not
1e6bf473d863 Initial revision claus parents: diff changeset	32	be provided or otherwise made available to, or used by, any
1e6bf473d863 Initial revision claus parents: diff changeset	33	other person. No title to or ownership of the software is
1e6bf473d863 Initial revision claus parents: diff changeset	34	hereby transferred.
1e6bf473d863 Initial revision claus parents: diff changeset	35	"
1e6bf473d863 Initial revision claus parents: diff changeset	36	!
1e6bf473d863 Initial revision claus parents: diff changeset	37
1e6bf473d863 Initial revision claus parents: diff changeset	38	documentation
1e6bf473d863 Initial revision claus parents: diff changeset	39	"
1e6bf473d863 Initial revision claus parents: diff changeset	40	HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down
1e6bf473d863 Initial revision claus parents: diff changeset	41	buttons (which increment/decrement the value).
401 7212ff304a88 comment Claus Gittinger <cg@exept.de> parents: 400 diff changeset	42
7212ff304a88 comment Claus Gittinger <cg@exept.de> parents: 400 diff changeset	43	[author:]
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	44	Claus Gittinger
401 7212ff304a88 comment Claus Gittinger <cg@exept.de> parents: 400 diff changeset	45
7212ff304a88 comment Claus Gittinger <cg@exept.de> parents: 400 diff changeset	46	[see also:]
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	47	HorizontalScrollBar HorizontalScroller HorizontalSlider
e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	48	ThumbWheel
23 1e6bf473d863 Initial revision claus parents: diff changeset	49	"
49 4dd0f5c3353e . claus parents: 23 diff changeset	50	!
4dd0f5c3353e . claus parents: 23 diff changeset	51
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	52	examples
49 4dd0f5c3353e . claus parents: 23 diff changeset	53	"
401 7212ff304a88 comment Claus Gittinger <cg@exept.de> parents: 400 diff changeset	54	see more examples in my superclass, SteppingSlider
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	55	[exBegin]
49 4dd0f5c3353e . claus parents: 23 diff changeset	56	\|top sl\|
4dd0f5c3353e . claus parents: 23 diff changeset	57
4dd0f5c3353e . claus parents: 23 diff changeset	58	top := StandardSystemView extent:200@200.
4dd0f5c3353e . claus parents: 23 diff changeset	59	sl := HorizontalSteppingSlider in:top.
400 d176fd820716 merged common code from steppingSlider & horizontalSteppingSlider Claus Gittinger <cg@exept.de> parents: 267 diff changeset	60	sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)).
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	61	sl scrollAction:[:pos \| Transcript showCR:pos].
49 4dd0f5c3353e . claus parents: 23 diff changeset	62	top open
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	63	[exEnd]
49 4dd0f5c3353e . claus parents: 23 diff changeset	64	"
23 1e6bf473d863 Initial revision claus parents: diff changeset	65	! !
1e6bf473d863 Initial revision claus parents: diff changeset	66
1469 35d18c0feee7 checkin from browser Claus Gittinger <cg@exept.de> parents: 401 diff changeset	67	!HorizontalSteppingSlider methodsFor:'initialization'!
23 1e6bf473d863 Initial revision claus parents: diff changeset	68
1469 35d18c0feee7 checkin from browser Claus Gittinger <cg@exept.de> parents: 401 diff changeset	69	initialize
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	70	orientation := #horizontal.
1469 35d18c0feee7 checkin from browser Claus Gittinger <cg@exept.de> parents: 401 diff changeset	71	super initialize.
65 40e27e2606b5 . claus parents: 49 diff changeset	72
1469 35d18c0feee7 checkin from browser Claus Gittinger <cg@exept.de> parents: 401 diff changeset	73
23 1e6bf473d863 Initial revision claus parents: diff changeset	74	! !
1e6bf473d863 Initial revision claus parents: diff changeset	75
122 44d46c527eac checkin from Browser Claus Gittinger <cg@exept.de> parents: 121 diff changeset	76	!HorizontalSteppingSlider class methodsFor:'documentation'!
23 1e6bf473d863 Initial revision claus parents: diff changeset	77
122 44d46c527eac checkin from Browser Claus Gittinger <cg@exept.de> parents: 121 diff changeset	78	version
3150 e3a55f15ef7e package information Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	79	^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.13 2006-11-13 16:11:30 cg Exp $'
23 1e6bf473d863 Initial revision claus parents: diff changeset	80	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 15 Jun 2018 10:54:35 +0200
changeset 5816	7876c07931a7
parent 3150	e3a55f15ef7e
permissions	-rw-r--r--