hg/stx-libwidg: MiniScroller.st@5ff02d2d9fa7 (annotated)

37 8dd71a2e79cd Initial revision claus parents: diff changeset	1	"
8dd71a2e79cd Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
64 c4e3323a5348 * empty log message * claus parents: 37 diff changeset	3	All Rights Reserved
37 8dd71a2e79cd Initial revision claus parents: diff changeset	4
8dd71a2e79cd Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
8dd71a2e79cd Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
8dd71a2e79cd Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
8dd71a2e79cd Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
8dd71a2e79cd Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
8dd71a2e79cd Initial revision claus parents: diff changeset	10	hereby transferred.
8dd71a2e79cd Initial revision claus parents: diff changeset	11	"
8dd71a2e79cd Initial revision claus parents: diff changeset	12
8dd71a2e79cd Initial revision claus parents: diff changeset	13	Scroller subclass:#MiniScroller
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	14	instanceVariableNames:''
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	15	classVariableNames:''
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	16	poolDictionaries:''
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	17	category:'Views-Interactors'
37 8dd71a2e79cd Initial revision claus parents: diff changeset	18	!
8dd71a2e79cd Initial revision claus parents: diff changeset	19
8dd71a2e79cd Initial revision claus parents: diff changeset	20	!MiniScroller class methodsFor:'documentation'!
8dd71a2e79cd Initial revision claus parents: diff changeset	21
8dd71a2e79cd Initial revision claus parents: diff changeset	22	copyright
8dd71a2e79cd Initial revision claus parents: diff changeset	23	"
8dd71a2e79cd Initial revision claus parents: diff changeset	24	COPYRIGHT (c) 1994 by Claus Gittinger
64 c4e3323a5348 * empty log message * claus parents: 37 diff changeset	25	All Rights Reserved
37 8dd71a2e79cd Initial revision claus parents: diff changeset	26
8dd71a2e79cd Initial revision claus parents: diff changeset	27	This software is furnished under a license and may be used
8dd71a2e79cd Initial revision claus parents: diff changeset	28	only in accordance with the terms of that license and with the
8dd71a2e79cd Initial revision claus parents: diff changeset	29	inclusion of the above copyright notice. This software may not
8dd71a2e79cd Initial revision claus parents: diff changeset	30	be provided or otherwise made available to, or used by, any
8dd71a2e79cd Initial revision claus parents: diff changeset	31	other person. No title to or ownership of the software is
8dd71a2e79cd Initial revision claus parents: diff changeset	32	hereby transferred.
8dd71a2e79cd Initial revision claus parents: diff changeset	33	"
8dd71a2e79cd Initial revision claus parents: diff changeset	34	!
8dd71a2e79cd Initial revision claus parents: diff changeset	35
8dd71a2e79cd Initial revision claus parents: diff changeset	36	documentation
8dd71a2e79cd Initial revision claus parents: diff changeset	37	"
8dd71a2e79cd Initial revision claus parents: diff changeset	38	like a scroller, but taking less screen space
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	39
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	40	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	41	Claus Gittinger
37 8dd71a2e79cd Initial revision claus parents: diff changeset	42	"
8dd71a2e79cd Initial revision claus parents: diff changeset	43	! !
8dd71a2e79cd Initial revision claus parents: diff changeset	44
130 338e856bddc9 . claus parents: 119 diff changeset	45	!MiniScroller methodsFor:'initialization'!
37 8dd71a2e79cd Initial revision claus parents: diff changeset	46
8dd71a2e79cd Initial revision claus parents: diff changeset	47	initStyle
119 59758ff5b841 . claus parents: 64 diff changeset	48	\|style lvl\|
59758ff5b841 . claus parents: 64 diff changeset	49
37 8dd71a2e79cd Initial revision claus parents: diff changeset	50	super initStyle.
119 59758ff5b841 . claus parents: 64 diff changeset	51	style := StyleSheet name.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	52	style == #iris ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	53	tallyLevel := tallyMarks := 0.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	54	thumbEdgeStyle := nil.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	55	thumbLevel := thumbActiveLevel := 2.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	56	].
8dd71a2e79cd Initial revision claus parents: diff changeset	57	((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	58	style == #st80 ifTrue:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	59	lvl := 1.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	60	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	61	lvl := -1.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	62	].
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	63	self level:lvl.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	64	self borderWidth:0
37 8dd71a2e79cd Initial revision claus parents: diff changeset	65	].
8dd71a2e79cd Initial revision claus parents: diff changeset	66	shadowForm := lightForm := nil.
8dd71a2e79cd Initial revision claus parents: diff changeset	67	fixThumbHeight := false
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	68
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	69	"Modified: 17.4.1996 / 13:57:20 / cg"
555 c0792488192b checkin from browser ca parents: 539 diff changeset	70	!
c0792488192b checkin from browser ca parents: 539 diff changeset	71
c0792488192b checkin from browser ca parents: 539 diff changeset	72	initialize
c0792488192b checkin from browser ca parents: 539 diff changeset	73	"initialize - setup instvars from defaults"
c0792488192b checkin from browser ca parents: 539 diff changeset	74
556 4c3edf42c03e checkin from browser ca parents: 555 diff changeset	75	orientation isNil ifTrue:[orientation := #vertical].
555 c0792488192b checkin from browser ca parents: 539 diff changeset	76	super initialize.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	77	! !
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	78
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	79	!MiniScroller methodsFor:'queries'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	80
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	81	preferredExtent
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 556 diff changeset	82	"return my preferredExtent - make my width very small"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	83
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	84	\|defExt w h mm\|
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	85
714 5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	86	preferredExtent notNil ifTrue:[
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	87	^ preferredExtent
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	88	].
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	89
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	90	defExt := self class defaultExtent.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	91	mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	92	orientation == #vertical ifTrue:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	93	h := defExt y.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	94	w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	95	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	96	w := defExt x.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	97	h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	98	].
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	99	^ w @ h.
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	100
714 5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	101	"Modified: 29.5.1996 / 12:11:32 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	102	! !
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	103
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	104	!MiniScroller class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	105
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	106	version
714 5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	107	^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.12 1996-05-29 10:23:10 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	108	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 29 May 1996 12:24:15 +0200
changeset 714	5ff02d2d9fa7
parent 585	8f395aba0173
child 797	2f9cd56f48ee
permissions	-rw-r--r--