hg/stx-libwidg: HVScrollableView.st@5b80bc44f52b (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
5 7b4fb1b170e5 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	3	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	4
e6a541c1c0eb Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
e6a541c1c0eb Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
e6a541c1c0eb Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
e6a541c1c0eb Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
e6a541c1c0eb Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
e6a541c1c0eb Initial revision claus parents: diff changeset	10	hereby transferred.
e6a541c1c0eb Initial revision claus parents: diff changeset	11	"
e6a541c1c0eb Initial revision claus parents: diff changeset	12
e6a541c1c0eb Initial revision claus parents: diff changeset	13	ScrollableView subclass:#HVScrollableView
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	14	instanceVariableNames:'hScrollBar'
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	15	classVariableNames:''
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	16	poolDictionaries:''
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	17	category:'Views-Basic'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	18	!
e6a541c1c0eb Initial revision claus parents: diff changeset	19
802 332e7013a9f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	20	!HVScrollableView class methodsFor:'documentation'!
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	21
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	22	copyright
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	23	"
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	24	COPYRIGHT (c) 1991 by Claus Gittinger
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	25	All Rights Reserved
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	26
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	27	This software is furnished under a license and may be used
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	28	only in accordance with the terms of that license and with the
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	29	inclusion of the above copyright notice. This software may not
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	30	be provided or otherwise made available to, or used by, any
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	31	other person. No title to or ownership of the software is
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	32	hereby transferred.
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	33	"
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	34	!
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	35
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	36	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	37	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	38	a view containing both horizontal and vertical scrollbars
130 338e856bddc9 . claus parents: 105 diff changeset	39	and some other (slave-)view.
338e856bddc9 . claus parents: 105 diff changeset	40
338e856bddc9 . claus parents: 105 diff changeset	41	Please see the documentation and examples in my superclass, ScrollableView
584 e3b11115fc18 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	42
e3b11115fc18 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	43	[author:]
e3b11115fc18 documentation Claus Gittinger <cg@exept.de> parents: 572 diff changeset	44	Claus Gittinger
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	45	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	46	! !
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	47
678 c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	48	!HVScrollableView methodsFor:'accessing - components'!
216 d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	49
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	50	horizontalScrollBar
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	51	"return the horizontal scrollbar"
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	52
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	53	^ hScrollBar
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	54	!
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	55
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	56	scrolledView:aView
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	57	"set the scrolled view"
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	58
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	59	super scrolledView:aView.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	60
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	61	"redefine subviews size"
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	62	styleSheet is3D ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	63	scrolledView
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	64	extent:[(width
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	65	- scrollBar width
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	66	- (innerMargin * 2))
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	67	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	68	(height
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	69	- hScrollBar height
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	70	- (innerMargin * 2))
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	71	]
216 d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	72	] ifFalse:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	73	scrolledView
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	74	extent:[(width
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	75	- scrollBar width
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	76	- scrollBar borderWidth
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	77	"- scrolledView borderWidth")
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	78	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	79	(height
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	80	- hScrollBar height
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	81	- hScrollBar borderWidth
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	82	"- scrolledView borderWidth")
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	83	]
216 d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	84	].
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	85	self setScrollActions.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	86
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	87	"Modified: 1.8.1996 / 12:44:37 / cg"
216 d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	88	! !
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	89
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	90	!HVScrollableView methodsFor:'changes '!
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	91
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	92	update:something with:argument from:changedObject
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	93	"whenever the scrolledview changes its contents, we have to
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	94	update the scrollers too"
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	95
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	96	changedObject == scrolledView ifTrue:[
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	97	something == #sizeOfContents ifTrue:[
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	98	scrollBar setThumbFor:scrolledView.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	99	hScrollBar setThumbFor:scrolledView.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	100	^ self
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	101	].
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	102	something == #originOfContents ifTrue:[
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	103	lockUpdates ifFalse:[
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	104	scrollBar setThumbOriginFor:scrolledView.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	105	hScrollBar setThumbOriginFor:scrolledView.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	106	].
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	107	^ self
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	108	].
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	109	].
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	110	! !
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	111
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	112	!HVScrollableView methodsFor:'event processing'!
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	113
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	114	sizeChanged:how
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	115	super sizeChanged:how.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	116	scrolledView notNil ifTrue:[
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	117	hScrollBar setThumbFor:scrolledView
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	118	].
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	119	hScrollBar thumbOrigin + hScrollBar thumbHeight >= 100 ifTrue:[
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	120	hScrollBar thumbOrigin:(100 - hScrollBar thumbHeight).
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	121	scrolledView scrollHorizontalToPercent:hScrollBar thumbOrigin.
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	122	].
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	123
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	124	"Modified: 8.9.1995 / 12:46:36 / claus"
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	125	! !
d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	126
0 e6a541c1c0eb Initial revision claus parents: diff changeset	127	!HVScrollableView methodsFor:'initialization'!
e6a541c1c0eb Initial revision claus parents: diff changeset	128
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	129	initializeFor:aViewClass miniScrollerH:miniH miniScrollerV:miniV
130 338e856bddc9 . claus parents: 105 diff changeset	130	\|negativeOffset halfMargin orgX mrg halfSpacing
338e856bddc9 . claus parents: 105 diff changeset	131	is3D cls hBorderWidth isST80 isOpenWin extra\|
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	132
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	133	isST80 := StyleSheet name = #st80. "leftover - remove it"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	134
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	135	isST80 ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	136	cls := HorizontalScrollBar
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	137	] ifFalse:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	138	cls := miniH ifTrue:[HorizontalMiniScroller] ifFalse:[HorizontalScrollBar].
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	139	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	140
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	141	hScrollBar := cls in:self.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	142
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	143	super
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	144	initializeFor:aViewClass
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	145	miniScrollerH:miniH
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	146	miniScrollerV:miniV.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	147
e6a541c1c0eb Initial revision claus parents: diff changeset	148	negativeOffset := borderWidth negated.
e6a541c1c0eb Initial revision claus parents: diff changeset	149	halfMargin := innerMargin // 2.
130 338e856bddc9 . claus parents: 105 diff changeset	150	is3D := styleSheet is3D.
338e856bddc9 . claus parents: 105 diff changeset	151	isOpenWin := styleSheet name = #openwin.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	152
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	153	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	154	change vertical scrollbars size
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	155	"
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	156	mrg := hScrollBar borderWidth.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	157	mrg isNil ifTrue:[mrg := 0].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	158	hBorderWidth := mrg.
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	159
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	160	is3D ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	161	isST80 ifTrue:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	162	halfSpacing := 0
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	163	] ifFalse:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	164	mrg := mrg + innerMargin + innerMargin.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	165	halfSpacing := ViewSpacing // 2.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	166	].
0 e6a541c1c0eb Initial revision claus parents: diff changeset	167	].
130 338e856bddc9 . claus parents: 105 diff changeset	168
338e856bddc9 . claus parents: 105 diff changeset	169	extra := 0.
338e856bddc9 . claus parents: 105 diff changeset	170	isOpenWin ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	171	extra := 2.
130 338e856bddc9 . claus parents: 105 diff changeset	172	].
338e856bddc9 . claus parents: 105 diff changeset	173
338e856bddc9 . claus parents: 105 diff changeset	174	scrollBar extent:[scrollBar width
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	175	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	176	(height - hScrollBar height - mrg + extra)].
0 e6a541c1c0eb Initial revision claus parents: diff changeset	177
e6a541c1c0eb Initial revision claus parents: diff changeset	178	hScrollBar thumbOrigin:0 thumbHeight:100.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	179
4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	180	scrollBarPosition == #left ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	181	orgX := scrollBar origin x + scrollBar width.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	182	is3D ifTrue:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	183	orgX := orgX + halfSpacing + 1.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	184	isST80 ifTrue:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	185	orgX := orgX - (scrolledView margin)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	186	]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	187	]
0 e6a541c1c0eb Initial revision claus parents: diff changeset	188	] ifFalse:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	189	orgX := 0 - hBorderWidth.
130 338e856bddc9 . claus parents: 105 diff changeset	190	"/ isST80 ifTrue:[
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	191	"/ orgX := orgX + 1
130 338e856bddc9 . claus parents: 105 diff changeset	192	"/ ]
338e856bddc9 . claus parents: 105 diff changeset	193	].
338e856bddc9 . claus parents: 105 diff changeset	194	isOpenWin ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	195	orgX := orgX + 1
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	196	].
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	197
450ce95a72a4 * empty log message * claus parents: 38 diff changeset	198	is3D ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	199	hScrollBar origin:[(orgX + innerMargin - halfSpacing - hScrollBar margin)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	200	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	201	(height - hScrollBar height - halfMargin)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	202	]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	203	extent:[(width - scrollBar width - (innerMargin * 2) + extra)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	204	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	205	hScrollBar height
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	206	]
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	207	] ifFalse:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	208	scrollBarPosition == #left ifTrue:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	209	hScrollBar
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	210	origin:[(orgX + scrollBar borderWidth)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	211	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	212	(height - hScrollBar height - hBorderWidth)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	213	]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	214	extent:[(width - scrollBar width) @ hScrollBar height]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	215	] ifFalse:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	216	hScrollBar
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	217	origin:[orgX @ (height - hScrollBar height - hBorderWidth) ]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	218	extent:[(width - scrollBar width - hBorderWidth) @ hScrollBar height]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	219	]
0 e6a541c1c0eb Initial revision claus parents: diff changeset	220	].
e6a541c1c0eb Initial revision claus parents: diff changeset	221
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	222	scrolledView notNil ifTrue:[
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	223	"redefine subviews size"
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	224	is3D ifTrue:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	225	scrolledView
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	226	extent:[(width - scrollBar width - (innerMargin * 2))
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	227	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	228	(height - hScrollBar height - (innerMargin * 2)) ]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	229	] ifFalse:[
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	230	scrolledView
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	231	extent:[(width - scrollBar width - scrollBar borderWidth)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	232	@
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	233	(height - hScrollBar height - hScrollBar borderWidth)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	234	]
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	235	].
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	236	self setScrollActions.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	237	]
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	238
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	239	"Modified: 1.8.1996 / 12:44:41 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	240	!
e6a541c1c0eb Initial revision claus parents: diff changeset	241
e6a541c1c0eb Initial revision claus parents: diff changeset	242	realize
e6a541c1c0eb Initial revision claus parents: diff changeset	243	super realize.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	244	scrolledView notNil ifTrue:[
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	245	hScrollBar setThumbFor:scrolledView
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 21 diff changeset	246	]
0 e6a541c1c0eb Initial revision claus parents: diff changeset	247	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	248
7 15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	249	!HVScrollableView methodsFor:'private'!
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	250
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	251	setScrollActions
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	252	lockUpdates := false.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	253
7 15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	254	scrollBar scrollAction:[:position \|
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	255	lockUpdates := true.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	256	scrolledView scrollVerticalToPercent:position.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	257	lockUpdates := false
7 15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	258	].
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	259	scrollBar scrollUpAction:[scrolledView scrollUp].
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	260	scrollBar scrollDownAction:[scrolledView scrollDown].
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	261
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	262	hScrollBar scrollAction:[:position \|
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	263	lockUpdates := true.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	264	scrolledView scrollHorizontalToPercent:position.
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	265	lockUpdates := false
7 15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	266	].
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	267	hScrollBar scrollLeftAction:[scrolledView scrollLeft].
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	268	hScrollBar scrollRightAction:[scrolledView scrollRight].
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	269
65 b33e4f3a264e * empty log message * claus parents: 63 diff changeset	270	scrolledView addDependent:self.
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	271
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	272	"
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	273	pass my keyboard input (and other subviews input)
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	274	to the scrolled view ...
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	275	"
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	276	self delegate:(KeyboardForwarder toView:scrolledView).
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	277
5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	278	"Modified: 1.8.1996 / 12:44:16 / cg"
7 15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	279	! !
15a9291b9bd0 * empty log message * claus parents: 5 diff changeset	280
105 3d064ba4a0cc * empty log message * claus parents: 65 diff changeset	281	!HVScrollableView methodsFor:'queries'!
3d064ba4a0cc * empty log message * claus parents: 65 diff changeset	282
130 338e856bddc9 . claus parents: 105 diff changeset	283	preferredExtent
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	284	"return the components preferredExtent."
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	285
130 338e856bddc9 . claus parents: 105 diff changeset	286	\|pref m2\|
338e856bddc9 . claus parents: 105 diff changeset	287
802 332e7013a9f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	288	"/ If I have an explicit preferredExtent ..
332e7013a9f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	289
713 0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 678 diff changeset	290	preferredExtent notNil ifTrue:[
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 678 diff changeset	291	^ preferredExtent
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 678 diff changeset	292	].
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 678 diff changeset	293
105 3d064ba4a0cc * empty log message * claus parents: 65 diff changeset	294	scrolledView notNil ifTrue:[
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	295	m2 := innerMargin * 2.
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	296	pref := scrolledView preferredExtent.
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	297	^ (pref x + scrollBar width + m2)
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	298	@
121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	299	(pref y + hScrollBar height + m2).
105 3d064ba4a0cc * empty log message * claus parents: 65 diff changeset	300	].
130 338e856bddc9 . claus parents: 105 diff changeset	301	^ super preferredExtent.
572 121735c2aff6 commentary Claus Gittinger <cg@exept.de> parents: 216 diff changeset	302
802 332e7013a9f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	303	"Modified: 19.7.1996 / 20:44:16 / cg"
678 c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	304	!
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	305
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	306	preferredExtentForLines:numLines cols:numCols
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	307	"return my preferredExtent for given number of lines and cols."
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	308
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	309	\|pref m2\|
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	310
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	311	scrolledView notNil ifTrue:[
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	312	m2 := innerMargin * 2.
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	313	pref := scrolledView preferredExtentForLines:numLines cols:numCols.
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	314	^ (pref x + scrollBar width + m2)
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	315	@
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	316	(pref y + hScrollBar height + m2).
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	317	].
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	318	^ super preferredExtent.
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	319
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	320	"Modified: 23.4.1996 / 00:15:25 / cg"
c1967a46b2c1 added query for lines/cols - prefExt Claus Gittinger <cg@exept.de> parents: 584 diff changeset	321	"Created: 24.5.1996 / 17:15:43 / cg"
105 3d064ba4a0cc * empty log message * claus parents: 65 diff changeset	322	! !
3d064ba4a0cc * empty log message * claus parents: 65 diff changeset	323
802 332e7013a9f5 checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	324	!HVScrollableView class methodsFor:'documentation'!
65 b33e4f3a264e * empty log message * claus parents: 63 diff changeset	325
216 d35b116e03a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	326	version
814 5b80bc44f52b share code Claus Gittinger <cg@exept.de> parents: 802 diff changeset	327	^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.20 1996-08-01 16:25:08 cg Exp $'
65 b33e4f3a264e * empty log message * claus parents: 63 diff changeset	328	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 01 Aug 1996 18:25:33 +0200
changeset 814	5b80bc44f52b
parent 802	332e7013a9f5
child 818	e922d238966c
permissions	-rw-r--r--