hg/stx-libwidg2: TwoColumnTextView.st@9a25b39f5320 (annotated)

12 30f48431927b Initial revision claus parents: diff changeset	1	"
30f48431927b Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
24 6704fad5eb7d * empty log message * claus parents: 14 diff changeset	3	All Rights Reserved
12 30f48431927b Initial revision claus parents: diff changeset	4
30f48431927b Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
30f48431927b Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
30f48431927b Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
30f48431927b Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
30f48431927b Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
30f48431927b Initial revision claus parents: diff changeset	10	hereby transferred.
30f48431927b Initial revision claus parents: diff changeset	11	"
30f48431927b Initial revision claus parents: diff changeset	12
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	13	"Created: 20.11.1995 / 13:21:17 / cg"
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	14
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	15	SyncedMultiColumnTextView subclass:#TwoColumnTextView
158 431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	16	instanceVariableNames:''
431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	17	classVariableNames:''
431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	18	poolDictionaries:''
431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	19	category:'Views-Text'
12 30f48431927b Initial revision claus parents: diff changeset	20	!
30f48431927b Initial revision claus parents: diff changeset	21
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	22	!TwoColumnTextView class methodsFor:'documentation'!
12 30f48431927b Initial revision claus parents: diff changeset	23
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	24	copyright
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	25	"
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	26	COPYRIGHT (c) 1994 by Claus Gittinger
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	27	All Rights Reserved
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	28
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	29	This software is furnished under a license and may be used
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	30	only in accordance with the terms of that license and with the
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	31	inclusion of the above copyright notice. This software may not
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	32	be provided or otherwise made available to, or used by, any
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	33	other person. No title to or ownership of the software is
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	34	hereby transferred.
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	35	"
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	36
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	37	"Created: 20.11.1995 / 13:21:17 / cg"
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	38	!
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	39
12 30f48431927b Initial revision claus parents: diff changeset	40	documentation
30f48431927b Initial revision claus parents: diff changeset	41	"
30f48431927b Initial revision claus parents: diff changeset	42	a view showing two texts side-by-side.
30f48431927b Initial revision claus parents: diff changeset	43	Scrolling is synced, by always scrolling both views.
30f48431927b Initial revision claus parents: diff changeset	44	This type of view is especially useful to show diff-lists,
91 ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	45	code-versions, or other one-by-one viewable texts.
12 30f48431927b Initial revision claus parents: diff changeset	46
30f48431927b Initial revision claus parents: diff changeset	47	Usually, it does not make much sense, to put totally different
24 6704fad5eb7d * empty log message * claus parents: 14 diff changeset	48	or unrelated texts into this kind of view.
6704fad5eb7d * empty log message * claus parents: 14 diff changeset	49
6704fad5eb7d * empty log message * claus parents: 14 diff changeset	50	See subclass DiffTextView for a real class;
6704fad5eb7d * empty log message * claus parents: 14 diff changeset	51	see ChangesBrowsers compare operation for a real application
6704fad5eb7d * empty log message * claus parents: 14 diff changeset	52	of this kind of views.
162 8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	53
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	54	[see also:]
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	55	DiffTextView
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	56	TextView EditTextView
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	57
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	58	[author:]
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	59	Claus Gittinger
12 30f48431927b Initial revision claus parents: diff changeset	60	"
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	61
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	62	"Created: 20.11.1995 / 13:21:17 / cg"
34 159147b254e1 * empty log message * claus parents: 24 diff changeset	63	!
159147b254e1 * empty log message * claus parents: 24 diff changeset	64
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	65	examples
34 159147b254e1 * empty log message * claus parents: 24 diff changeset	66	"
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	67	TwoColumnTextView are currently not directly used by the system.
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	68	However, it is used as an abstract superclass for DiffTextView.
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	69	See more examples there.
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	70	(you may find nice uses for it anyway ...)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	71
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 158 diff changeset	72	[exBegin]
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	73	TwoColumnTextView
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	74	openOn:('smalltalk.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	75	and:('display.rc' asFilename contentsOfEntireFile)
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 158 diff changeset	76	[exEnd]
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	77
34 159147b254e1 * empty log message * claus parents: 24 diff changeset	78
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 158 diff changeset	79	[exBegin]
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	80	TwoColumnTextView
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	81	openOn:('display.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	82	and:('smalltalk.rc' asFilename contentsOfEntireFile)
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 158 diff changeset	83	[exEnd]
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	84
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	85
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 158 diff changeset	86	[exBegin]
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	87	TwoColumnTextView
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	88	openOn:('smalltalk.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	89	label:'smalltalk.rc'
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	90	and:('display.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	91	label:'display.rc'
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 158 diff changeset	92	[exEnd]
34 159147b254e1 * empty log message * claus parents: 24 diff changeset	93	"
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	94
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	95	"Created: 20.11.1995 / 13:21:42 / cg"
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	96	"Modified: 20.11.1995 / 13:23:12 / cg"
158 431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	97	! !
12 30f48431927b Initial revision claus parents: diff changeset	98
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	99	!TwoColumnTextView class methodsFor:'instance creation'!
12 30f48431927b Initial revision claus parents: diff changeset	100
30f48431927b Initial revision claus parents: diff changeset	101	openOn:firstText and:secondText
162 8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	102	"open up a view showing firstText and secondText side-by-side.
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	103	This does not make much sense for unrelated texts - of course."
12 30f48431927b Initial revision claus parents: diff changeset	104
91 ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	105	\|top v\|
ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	106
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	107	top := StandardSystemView label:'two texts'.
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	108	self openOn:firstText and:secondText in:top.
91 ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	109	^ top open
12 30f48431927b Initial revision claus parents: diff changeset	110
91 ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	111	"
ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	112	TwoColumnTextView
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	113	openOn:('smalltalk.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	114	and:('display.rc' asFilename contentsOfEntireFile)
91 ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	115
ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	116
ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	117	TwoColumnTextView
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	118	openOn:('display.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	119	and:('smalltalk.rc' asFilename contentsOfEntireFile)
91 ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	120	"
ef89e1292812 fixes for different text sizes Claus Gittinger <cg@exept.de> parents: 86 diff changeset	121
162 8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	122	"Modified: 25.4.1996 / 13:31:03 / cg"
12 30f48431927b Initial revision claus parents: diff changeset	123	!
30f48431927b Initial revision claus parents: diff changeset	124
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	125	openOn:firstText and:secondText in:aView
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	126	"open up a view showing firstText and secondText side-by-side.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	127	This does not make much sense for unrelated texts - of course."
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	128
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	129	self openOn:firstText
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	130	label:nil
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	131	and:secondText
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	132	label:nil
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	133	in:aView.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	134	!
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	135
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	136	openOn:firstText label:firstLabel and:secondText label:secondLabel
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	137	"open up a view showing firstText and secondText side-by-side,
162 8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	138	and labels for both views.
8b671f2e31ef documentation Claus Gittinger <cg@exept.de> parents: 161 diff changeset	139	This does not make much sense for unrelated texts - of course."
12 30f48431927b Initial revision claus parents: diff changeset	140
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	141	\|top v l1 l2\|
12 30f48431927b Initial revision claus parents: diff changeset	142
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	143	top := StandardSystemView label:'two texts'.
12 30f48431927b Initial revision claus parents: diff changeset	144
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	145	self openOn:firstText
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	146	label:firstLabel
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	147	and:secondText
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	148	label:secondLabel
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	149	in:top.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	150
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	151	^ top open
12 30f48431927b Initial revision claus parents: diff changeset	152
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	153	"
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	154	TwoColumnTextView
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	155	openOn:('smalltalk.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	156	label:'smalltalk.rc'
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	157	and:('display.rc' asFilename contentsOfEntireFile)
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	158	label:'display.rc'
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	159	"
12 30f48431927b Initial revision claus parents: diff changeset	160
234 da6bb07255b2 no borders in labels (2D style) Claus Gittinger <cg@exept.de> parents: 162 diff changeset	161	"Modified: 15.8.1996 / 19:46:38 / cg"
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	162	!
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	163
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	164	openOn:firstText label:firstLabel and:secondText label:secondLabel in:aView
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	165	"open up a view showing firstText and secondText side-by-side,
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	166	and labels for both views.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	167	This does not make much sense for unrelated texts - of course."
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	168
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	169	\|hvs scr l1 l2 buttonPrev buttonNext panel\|
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	170
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	171	hvs := HVScrollableView
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	172	for:self
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	173	miniScrollerH:true miniScrollerV:false
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	174	in:aView.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	175
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	176	scr := hvs scrolledView.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	177
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	178	(firstLabel notNil and:[secondLabel notNil]) ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	179	l1 := Label label:firstLabel in:aView.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	180	l1 origin:0.0@0.0 corner:0.5@(l1 height).
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	181	l1 borderWidth:0.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	182	l2 := Label label:secondLabel in:aView.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	183	l2 origin:0.5@0.0 corner:1.0@(l1 height).
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	184	l2 borderWidth:0.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	185
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	186	hvs origin:0.0 @ (l1 height + ViewSpacing) corner:1.0 @ 1.0.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	187	] ifFalse:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	188	hvs origin:0.0 @ 0.0 corner:1.0 @ 1.0
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	189	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	190	scr text1:firstText text2:secondText.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	191
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	192	"set up-down buttons"
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	193
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	194	panel := VerticalPanelView in:scr.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	195
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	196	buttonPrev := Button label:'-' in:panel.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	197	buttonNext := Button label:'+' in:panel.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	198	buttonPrev extent:15@22.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	199	buttonNext extent:15@22.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	200	panel origin:0.0 @ 1.0 corner:(15 + SimpleView viewSpacing) @ 1.0.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	201	panel topInset:(2 * (buttonPrev preferredExtent y)) negated.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	202
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	203	"set actions"
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	204
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	205	buttonPrev pressAction:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	206	buttonPrev turnOff.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	207	scr moveToPreviousChanged
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	208	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	209
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	210	buttonNext pressAction:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	211	buttonNext turnOff.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	212	scr moveToNextChanged
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	213	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	214	scr moveToNextChanged.
12 30f48431927b Initial revision claus parents: diff changeset	215	! !
30f48431927b Initial revision claus parents: diff changeset	216
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	217	!TwoColumnTextView class methodsFor:'specification'!
12 30f48431927b Initial revision claus parents: diff changeset	218
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	219	numberOfViews
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	220	^ 2
12 30f48431927b Initial revision claus parents: diff changeset	221
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	222	"Created: 20.11.1995 / 13:17:00 / cg"
12 30f48431927b Initial revision claus parents: diff changeset	223	! !
30f48431927b Initial revision claus parents: diff changeset	224
30f48431927b Initial revision claus parents: diff changeset	225	!TwoColumnTextView methodsFor:'accessing'!
30f48431927b Initial revision claus parents: diff changeset	226
30f48431927b Initial revision claus parents: diff changeset	227	text1:t1 text2:t2
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	228	(textViews at:1) list:t1 asText.
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	229	(textViews at:2) list:t2 asText.
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	230
ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	231	"Created: 20.11.1995 / 13:20:39 / cg"
12 30f48431927b Initial revision claus parents: diff changeset	232	! !
92 ca6389321c2a new (abstract) class for multiple sync-scrolled textviews Claus Gittinger <cg@exept.de> parents: 91 diff changeset	233
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	234	!TwoColumnTextView methodsFor:'actions'!
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	235
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	236	moveToLine:aLineNr
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	237	\|lnNr view nLinesShown\|
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	238
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	239	view := textViews at:1.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	240
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	241	view shown ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	242	lnNr := (view lastLineShown - view firstLineShown) // 3.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	243	] ifFalse:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	244	lnNr := 5.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	245	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	246
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	247	(lnNr := aLineNr - lnNr) < 1 ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	248	lnNr := 1
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	249	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	250	self scrollToLine:lnNr.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	251	!
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	252
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	253	moveToNextChanged
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	254	\|start end\|
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	255
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	256	start := ((textViews at:1) lastLineShown) + 1.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	257
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	258	textViews do:[:v\|\|list max lnNr\|
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	259	list := v list.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	260	max := list size.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	261	lnNr := start.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	262
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	263	[(lnNr > max or:[(list at:lnNr) isText])
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	264	] whileFalse:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	265	lnNr := lnNr + 1
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	266	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	267
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	268	(lnNr <= max) ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	269	(end isNil or:[lnNr < end]) ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	270	end := lnNr.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	271	]
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	272	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	273	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	274
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	275	end notNil ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	276	self moveToLine:end
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	277	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	278	!
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	279
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	280	moveToPreviousChanged
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	281	\|start end found\|
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	282
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	283	start := ((textViews at:1) firstLineShown) - 1.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	284	end := 1.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	285	found := false.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	286
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	287	start > 1 ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	288	textViews do:[:v\|\|lnNr list\|
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	289	list := v list.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	290	lnNr := list size.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	291
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	292	lnNr >= start ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	293	lnNr := start
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	294	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	295
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	296	[(lnNr == end or:[(list at:lnNr) isText])
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	297	] whileFalse:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	298	lnNr := lnNr - 1
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	299	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	300	(list at:lnNr) isText ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	301	end := lnNr.
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	302	found := true
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	303	]
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	304	]
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	305	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	306	found ifTrue:[
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	307	self moveToLine:end
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	308	].
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	309	! !
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	310
9a25b39f5320 forward/backward search ca parents: 234 diff changeset	311	!TwoColumnTextView class methodsFor:'documentation'!
158 431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	312
431e38dfc5ab documentation Claus Gittinger <cg@exept.de> parents: 92 diff changeset	313	version
261 9a25b39f5320 forward/backward search ca parents: 234 diff changeset	314	^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.15 1996-11-06 11:50:14 ca Exp $'! !

author	ca
	Wed, 06 Nov 1996 12:50:14 +0100
changeset 261	9a25b39f5320
parent 234	da6bb07255b2
child 631	563405a2cb93
permissions	-rw-r--r--