hg/stx-libwidg: MiniScr.st@e4a28d306bd7 (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
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
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
968 ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	48	"setup viewStyle specifics"
ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	49
119 59758ff5b841 . claus parents: 64 diff changeset	50	\|style lvl\|
59758ff5b841 . claus parents: 64 diff changeset	51
37 8dd71a2e79cd Initial revision claus parents: diff changeset	52	super initStyle.
119 59758ff5b841 . claus parents: 64 diff changeset	53	style := StyleSheet name.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	54	style == #iris ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	55	tallyLevel := tallyMarks := 0.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	56	thumbEdgeStyle := nil.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	57	thumbLevel := thumbActiveLevel := 2.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	58	].
8dd71a2e79cd Initial revision claus parents: diff changeset	59	((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	60	style == #st80 ifTrue:[
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	61	"/ lvl := 1.
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	62	lvl := 0.
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	63	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	64	lvl := -1.
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	self level:lvl.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	67	self borderWidth:0
37 8dd71a2e79cd Initial revision claus parents: diff changeset	68	].
8dd71a2e79cd Initial revision claus parents: diff changeset	69	shadowForm := lightForm := nil.
8dd71a2e79cd Initial revision claus parents: diff changeset	70	fixThumbHeight := false
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	71
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	72	"Modified: 7.3.1997 / 15:52:13 / cg"
555 c0792488192b checkin from browser ca parents: 539 diff changeset	73	!
c0792488192b checkin from browser ca parents: 539 diff changeset	74
c0792488192b checkin from browser ca parents: 539 diff changeset	75	initialize
c0792488192b checkin from browser ca parents: 539 diff changeset	76	"initialize - setup instvars from defaults"
c0792488192b checkin from browser ca parents: 539 diff changeset	77
556 4c3edf42c03e checkin from browser ca parents: 555 diff changeset	78	orientation isNil ifTrue:[orientation := #vertical].
555 c0792488192b checkin from browser ca parents: 539 diff changeset	79	super initialize.
37 8dd71a2e79cd Initial revision claus parents: diff changeset	80	! !
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	81
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	82	!MiniScroller methodsFor:'queries'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	83
1116 e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	84	isMiniScroller
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	85	^ true
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	86
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	87	"Created: 7.3.1997 / 16:20:22 / cg"
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	88	!
e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	89
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	90	preferredExtent
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 556 diff changeset	91	"return my preferredExtent - make my width very small"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	92
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	93	\|defExt w h mm\|
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	94
797 2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	95	"/ If I have an explicit preferredExtent ..
2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	96
714 5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	97	preferredExtent notNil ifTrue:[
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	98	^ preferredExtent
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	99	].
5ff02d2d9fa7 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 585 diff changeset	100
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	101	defExt := self class defaultExtent.
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	102
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	103	mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	104	w := defExt x.
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	105	h := defExt y.
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	106
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	107	styleSheet name == #st80 ifTrue:[
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	108	mm := 2.5
ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	109	].
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	110	orientation == #vertical ifTrue:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	111	w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	112	] ifFalse:[
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	113	h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	114	].
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	115
797 2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	116	preferredExtent := w @ h.
2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 714 diff changeset	117	^ preferredExtent.
539 c7c5585e77f6 use common code for H/V miniScrollers Claus Gittinger <cg@exept.de> parents: 205 diff changeset	118
1114 ddd752f834d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 968 diff changeset	119	"Modified: 7.3.1997 / 16:02:15 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	120	! !
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	121
968 ba32bbfb7aad commentary Claus Gittinger <cg@exept.de> parents: 797 diff changeset	122	!MiniScroller class methodsFor:'documentation'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	123
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	124	version
1116 e4a28d306bd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	125	^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.16 1997-03-07 15:20:40 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	126	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 07 Mar 1997 16:20:40 +0100
changeset 1116	e4a28d306bd7
parent 1114	ddd752f834d5
child 1305	02af46047b4a
permissions	-rw-r--r--