hg/stx-libwidg: MiniScroller.st@4c3edf42c03e (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
8dd71a2e79cd Initial revision claus parents: diff changeset	39	"
8dd71a2e79cd Initial revision claus parents: diff changeset	40	! !
8dd71a2e79cd Initial revision claus parents: diff changeset	41
130 338e856bddc9 . claus parents: 119 diff changeset	42	!MiniScroller methodsFor:'initialization'!
37 8dd71a2e79cd Initial revision claus parents: diff changeset	43
8dd71a2e79cd Initial revision claus parents: diff changeset	44	initStyle
119 59758ff5b841 . claus parents: 64 diff changeset	45	\|style lvl\|
59758ff5b841 . claus parents: 64 diff changeset	46
37 8dd71a2e79cd Initial revision claus parents: diff changeset	47	super initStyle.
119 59758ff5b841 . claus parents: 64 diff changeset	48	style := StyleSheet name.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	49	style == #iris ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	50	tallyLevel := tallyMarks := 0.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	51	thumbEdgeStyle := nil.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	52	thumbLevel := thumbActiveLevel := 2.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	53	].
8dd71a2e79cd Initial revision claus parents: diff changeset	54	((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	55	style == #st80 ifTrue:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	56	lvl := 1.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	57	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	58	lvl := -1.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	59	].
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	60	self level:lvl.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	61	self borderWidth:0
37 8dd71a2e79cd Initial revision claus parents: diff changeset	62	].
8dd71a2e79cd Initial revision claus parents: diff changeset	63	shadowForm := lightForm := nil.
8dd71a2e79cd Initial revision claus parents: diff changeset	64	fixThumbHeight := false
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	65
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	66	"Modified: 17.4.1996 / 13:57:20 / cg"
555 c0792488192b checkin from browser ca parents: 539 diff changeset	67	!
c0792488192b checkin from browser ca parents: 539 diff changeset	68
c0792488192b checkin from browser ca parents: 539 diff changeset	69	initialize
c0792488192b checkin from browser ca parents: 539 diff changeset	70	"initialize - setup instvars from defaults"
c0792488192b checkin from browser ca parents: 539 diff changeset	71
556 4c3edf42c03e checkin from browser ca parents: 555 diff changeset	72	orientation isNil ifTrue:[orientation := #vertical].
555 c0792488192b checkin from browser ca parents: 539 diff changeset	73	super initialize.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	74	! !
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	75
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	76	!MiniScroller methodsFor:'queries'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	77
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	78	preferredExtent
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	79	"make my width very small"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	80
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	81	\|defExt w h mm\|
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	82
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	83	defExt := self class defaultExtent.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	84	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	85	orientation == #vertical ifTrue:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	86	h := defExt y.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	87	w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	88	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	89	w := defExt x.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	90	h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	91	].
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	92	^ w @ h.
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	93
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	94	"Modified: 17.4.1996 / 14:02:43 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	95	! !
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	96
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	97	!MiniScroller class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	98
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	99	version
556 4c3edf42c03e checkin from browser ca parents: 555 diff changeset	100	^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.9 1996-04-19 16:49:07 ca Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	101	! !

author	ca
	Fri, 19 Apr 1996 18:50:04 +0200
changeset 556	4c3edf42c03e
parent 555	c0792488192b
child 572	121735c2aff6
permissions	-rw-r--r--