hg/stx-libwidg: MiniScr.st@e0c08a81b559 (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:''
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	15	classVariableNames:'MiniScrollerSize'
539 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
968 ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	20	!MiniScroller class methodsFor:'documentation'!
37 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
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	45	!MiniScroller class methodsFor:'defaults'!
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	46
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	47	updateStyleCache
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	48	"extract values from the styleSheet and cache them in class variables"
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	49
1354 c260c896ea66 * empty log message * Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	50	<resource: #style (#'miniScroller.size')>
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	51
1354 c260c896ea66 * empty log message * Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	52	MiniScrollerSize := StyleSheet at:'miniScroller.size'.
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	53
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	54	"
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	55	self updateStyleCache
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	56	"
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	57
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	58	"Created: 15.8.1997 / 01:51:38 / cg"
1354 c260c896ea66 * empty log message * Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	59	"Modified: 20.10.1997 / 15:06:36 / cg"
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	60	! !
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	61
130 338e856bddc9 . claus parents: 119 diff changeset	62	!MiniScroller methodsFor:'initialization'!
37 8dd71a2e79cd Initial revision claus parents: diff changeset	63
8dd71a2e79cd Initial revision claus parents: diff changeset	64	initStyle
968 ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	65	"setup viewStyle specifics"
ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	66
119 59758ff5b841 . claus parents: 64 diff changeset	67	\|style lvl\|
59758ff5b841 . claus parents: 64 diff changeset	68
37 8dd71a2e79cd Initial revision claus parents: diff changeset	69	super initStyle.
119 59758ff5b841 . claus parents: 64 diff changeset	70	style := StyleSheet name.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	71	style == #iris ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	72	tallyLevel := tallyMarks := 0.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	73	thumbEdgeStyle := nil.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	74	thumbLevel := thumbActiveLevel := 2.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	75	].
8dd71a2e79cd Initial revision claus parents: diff changeset	76	((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	77	style == #st80 ifTrue:[
1386 e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	78	lvl := 1.
e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	79	"/ lvl := 0.
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	80	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	81	lvl := -1.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	82	].
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	83	self level:lvl.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	84	self borderWidth:0
37 8dd71a2e79cd Initial revision claus parents: diff changeset	85	].
8dd71a2e79cd Initial revision claus parents: diff changeset	86	shadowForm := lightForm := nil.
8dd71a2e79cd Initial revision claus parents: diff changeset	87	fixThumbHeight := false
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	88
1386 e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	89	"Modified: / 3.11.1997 / 13:55:53 / cg"
555 c0792488192b checkin from browser ca parents: 539 diff changeset	90	!
c0792488192b checkin from browser ca parents: 539 diff changeset	91
c0792488192b checkin from browser ca parents: 539 diff changeset	92	initialize
c0792488192b checkin from browser ca parents: 539 diff changeset	93	"initialize - setup instvars from defaults"
c0792488192b checkin from browser ca parents: 539 diff changeset	94
556 4c3edf42c03e checkin from browser ca parents: 555 diff changeset	95	orientation isNil ifTrue:[orientation := #vertical].
555 c0792488192b checkin from browser ca parents: 539 diff changeset	96	super initialize.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	97	! !
205 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	!MiniScroller methodsFor:'queries'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	100
1116 e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	101	isMiniScroller
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	102	^ true
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	103
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	104	"Created: 7.3.1997 / 16:20:22 / cg"
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	105	!
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	106
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	107	preferredExtent
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 556 diff changeset	108	"return my preferredExtent - make my width very small"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	109
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	110	\|defExt w h mm\|
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	111
797 2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	112	"/ If I have an explicit preferredExtent ..
2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	113
714 5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	114	preferredExtent notNil ifTrue:[
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	115	^ preferredExtent
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	116	].
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	117
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	118	defExt := self class defaultExtent.
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	119
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	120	(mm := MiniScrollerSize) isNil ifTrue:[
1386 e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	121	mm := (thumbLevel ~~ 0) ifTrue:[1.8] ifFalse:[1.5].
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	122	styleSheet name == #st80 ifTrue:[
1386 e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	123	mm := 2
1305 02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	124	].
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	125	].
02af46047b4a allow miniscrollers thickness to be defined in styleSheet Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	126
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	127	w := defExt x.
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	128	h := defExt y.
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	129
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	130	orientation == #vertical ifTrue:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	131	w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	132	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	133	h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	134	].
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	135
797 2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	136	preferredExtent := w @ h.
2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	137	^ preferredExtent.
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	138
1386 e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	139	"Modified: / 3.11.1997 / 02:44:08 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	140	! !
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	141
968 ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	142	!MiniScroller class methodsFor:'documentation'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	143
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	144	version
1386 e0c08a81b559 default sizes Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	145	^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.19 1997-11-03 15:26:04 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	146	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 03 Nov 1997 16:26:04 +0100
changeset 1386	e0c08a81b559
parent 1354	c260c896ea66
child 1427	f73bcbd3b994
permissions	-rw-r--r--