hg/stx-libtool: Tools__CodeView2.st@c463b5656d84 (annotated)

9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
10072 7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	2	COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	3	All Rights Reserved
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	4
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	5	Permission is hereby granted, free of charge, to any person
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	6	obtaining a copy of this software and associated documentation
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	7	files (the 'Software'), to deal in the Software without
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	8	restriction, including without limitation the rights to use,
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	9	copy, modify, merge, publish, distribute, sublicense, and/or sell
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	10	copies of the Software, and to permit persons to whom the
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	11	Software is furnished to do so, subject to the following
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	12	conditions:
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	13
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	14	The above copyright notice and this permission notice shall be
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	15	included in all copies or substantial portions of the Software.
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	16
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	17	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	18	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	19	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	20	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	21	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	22	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	23	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	24	OTHER DEALINGS IN THE SOFTWARE.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	"{ Package: 'stx:libtool' }"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	"{ NameSpace: Tools }"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	SimpleView subclass:#CodeView2
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	instanceVariableNames:'gutterView textView textViewScroller methodHolder languageHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	classHolder browserHolder codeAspect modifiedChannel
10793 c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	33	showGutterChannel showAcceptCancelBarChannel modeHolder
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	34	serviceManager services servicesFromClient syntaxElements
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	35	syntaxElementSelection highlightEmphasis diffMode
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	36	synchronizedCodeViews'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	classVariableNames:'TraceSelectors'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	poolDictionaries:''
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	category:'Interface-CodeView'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	SimpleView subclass:#GutterView
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	43	instanceVariableNames:'codeView textView textViewScroller widthAcceptCancel
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	44	widthAnnotations widthDiffInfo firstLineShown lastLineShown
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	45	acceptColor cancelColor diffColor'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	classVariableNames:''
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	poolDictionaries:''
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	privateIn:CodeView2
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	CodeView subclass:#TextView
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	52	instanceVariableNames:'listOriginal codeView gutterView diffMode deletedLines
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	53	insertedLines lastFirstLine changedLines scrolled originDiffText
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	54	emptyLines changedDiffText suppressNotifications
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	55	reallyModifiedChannel'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	classVariableNames:''
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	poolDictionaries:''
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	privateIn:CodeView2
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	!CodeView2 class methodsFor:'documentation'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	copyright
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	"
10072 7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	65	COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	66	All Rights Reserved
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	67
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	68	Permission is hereby granted, free of charge, to any person
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	69	obtaining a copy of this software and associated documentation
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	70	files (the 'Software'), to deal in the Software without
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	71	restriction, including without limitation the rights to use,
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	72	copy, modify, merge, publish, distribute, sublicense, and/or sell
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	73	copies of the Software, and to permit persons to whom the
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	74	Software is furnished to do so, subject to the following
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	75	conditions:
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	76
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	77	The above copyright notice and this permission notice shall be
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	78	included in all copies or substantial portions of the Software.
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	79
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	80	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	81	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	82	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	83	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	84	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	85	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	86	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
7ceb629b7d13 changed: #copyright Claus Gittinger <cg@exept.de> parents: 10007 diff changeset	87	OTHER DEALINGS IN THE SOFTWARE.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	!CodeView2 class methodsFor:'initialization'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	initialize
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	"Invoked at system start or when the class is dynamically loaded."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	"/ please change as required (and remove this comment)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	TraceSelectors := IdentitySet new.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	"Modified: / 14-02-2010 / 15:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	!CodeView2 class methodsFor:'debugging'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	trace: aSelector
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	TraceSelectors add: aSelector
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	"Created: / 14-02-2010 / 09:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	untrace: aSelector
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	TraceSelectors remove: aSelector ifAbsent:[]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	"Created: / 14-02-2010 / 09:50:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	untraceAll
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	TraceSelectors := IdentitySet new
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	"Created: / 14-02-2010 / 09:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!CodeView2 class methodsFor:'examples'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	example1
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	\| window codeView \|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	window := StandardSystemView new.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	window extent: 300 @ 300.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	window label: 'CodeView2 example1'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	codeView := Tools::CodeView2 in: window.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	codeView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	origin: 0.1 @ 0.1
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	corner: 0.9 @ 0.9.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	window open.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	"Created: / 02-09-2009 / 21:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	!CodeView2 class methodsFor:'menu specs'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	150	debugMenu
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	151	"This resource specification was automatically generated
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	152	by the MenuEditor of ST/X."
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	153
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	154	"Do not manually edit this!! If it is corrupted,
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	155	the MenuEditor may not be able to read the specification."
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	156
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	157	"
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	158	MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu_stxStyle
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	159	(Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_stxStyle)) startUp
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	160	"
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	161
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	162	<resource: #menu>
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	163
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	164	^
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	165	#(Menu
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	166	(
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	167	(MenuItem
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	168	label: 'Inspect '
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	169	itemValue: inspectView
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	170	translateLabel: true
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	171	)
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	172	(MenuItem
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	173	label: 'Inspect Syntax Elements'
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	174	itemValue: inspectSyntaxElements
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	175	translateLabel: true
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	176	)
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	177	(MenuItem
11398 84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	178	label: 'Inspect Selected Selector'
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	179	itemValue: inspectSelectedSelector
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	180	translateLabel: true
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	181	)
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	182	)
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	183	nil
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	184	nil
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	185	)
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	186
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	187	"Created: / 08-07-2011 / 13:36:02 / cg"
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	188	!
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	189
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	editMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	"This resource specification was automatically generated
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	by the MenuEditor of ST/X."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	"Do not manually edit this!! If it is corrupted,
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	the MenuEditor may not be able to read the specification."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	(Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu)) startUp
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	202	UserPreferences current eclipseStyleMenus ifTrue:[
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	203	^ self editMenu_eclipseStyle
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	204	].
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	205	^ self editMenu_stxStyle
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	206
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	207	"Modified: / 08-07-2011 / 13:23:35 / cg"
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	208	!
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	209
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	210	editMenu_eclipseStyle
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	211	"This resource specification was automatically generated
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	212	by the MenuEditor of ST/X."
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	213
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	214	"Do not manually edit this!! If it is corrupted,
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	215	the MenuEditor may not be able to read the specification."
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	216
11311 15a2965ceba2 changed: Claus Gittinger <cg@exept.de> parents: 11241 diff changeset	217
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	218	"
11311 15a2965ceba2 changed: Claus Gittinger <cg@exept.de> parents: 11241 diff changeset	219	MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu_eclipseStyle
15a2965ceba2 changed: Claus Gittinger <cg@exept.de> parents: 11241 diff changeset	220	(Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_eclipseStyle)) startUp
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	221	"
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	222
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	<resource: #menu>
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	^
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	#(Menu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	(
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	(MenuItem
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	229	label: 'Implementors...'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	itemValue: browseImplementorsOfIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	translateLabel: true
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	232	submenuChannel: implementorsMenu
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	shortcutKey: ImplementorsOfIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	(MenuItem
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	236	label: 'Senders...'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	itemValue: browseSendersOfIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	translateLabel: true
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	239	submenuChannel: sendersMenu
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	shortcutKey: SendersOfIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	label: 'Refactor'
11311 15a2965ceba2 changed: Claus Gittinger <cg@exept.de> parents: 11241 diff changeset	244	nameKey: refactor
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246	isVisible: false
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	shortcutKey: Shift
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	label: '-'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	label: 'Accept'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	itemValue: accept
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	shortcutKey: Accept
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	label: '-'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	label: 'Cut'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	itemValue: cut
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	shortcutKey: Cut
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268	label: 'Copy'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	itemValue: copySelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271	shortcutKey: Copy
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	label: 'Paste'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	itemValue: pasteOrReplace
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277	shortcutKey: Paste
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	label: '-'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	label: 'Undo'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	itemValue: undo
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	shortcutKey: Undo
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	label: '-'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	label: 'Do it'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	itemValue: doIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	shortcutKey: DoIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	label: 'Print it'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	itemValue: printIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	shortcutKey: PrintIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	label: 'Inspect it'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	itemValue: inspectIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307	shortcutKey: InspectIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	label: 'Profile it'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	itemValue: profileIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313	shortcutKey: InspectIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	315	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	316	label: '-'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	318	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319	label: 'Show Gutter'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320	nameKey: ShowGutter
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	322	indication: showGutterChannel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	label: 'More'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326	nameKey: More
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	label: 'Services'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	submenuChannel: servicesMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	label: 'Debug'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	submenu:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	(Menu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339	(
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341	label: 'Inspect '
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342	itemValue: inspectView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346	label: 'Inspect Syntax Elements'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347	itemValue: inspectSyntaxElements
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	(MenuItem
11398 84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	351	label: 'Inspect Selected Selector'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	itemValue: inspectSelectedSelector
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353	translateLabel: true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356	nil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	nil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	nil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	nil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	)
11398 84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	364
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	365	"Modified: / 08-03-2012 / 12:36:18 / cg"
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	366	!
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	367
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	368	editMenu_stxStyle
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	369	"This resource specification was automatically generated
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	370	by the MenuEditor of ST/X."
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	371
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	372	"Do not manually edit this!! If it is corrupted,
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	373	the MenuEditor may not be able to read the specification."
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	374
11241 e3d6bdc7a790 changed: #editMenu_stxStyle Claus Gittinger <cg@exept.de> parents: 11220 diff changeset	375
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	376	"
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	377	MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu_stxStyle
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	378	(Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_stxStyle)) startUp
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	379	"
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	380
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	381	<resource: #menu>
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	382
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	383	^
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	384	#(Menu
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	385	(
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	386	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	387	label: 'Undo'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	388	itemValue: undo
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	389	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	390	shortcutKey: Undo
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	391	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	392	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	393	label: 'Again'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	394	itemValue: again
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	395	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	396	shortcutKey: Again
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	397	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	398	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	399	label: '-'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	400	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	401	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	402	label: 'Cut'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	403	itemValue: cut
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	404	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	405	shortcutKey: Cut
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	406	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	407	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	408	label: 'Copy'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	409	itemValue: copySelection
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	410	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	411	shortcutKey: Copy
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	412	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	413	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	414	label: 'Paste'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	415	itemValue: pasteOrReplace
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	416	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	417	shortcutKey: Paste
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	418	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	419	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	420	label: '-'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	421	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	422	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	423	label: 'DoIt'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	424	itemValue: doIt
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	425	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	426	shortcutKey: DoIt
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	427	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	428	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	429	label: 'PrintIt'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	430	itemValue: printIt
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	431	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	432	shortcutKey: PrintIt
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	433	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	434	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	435	label: 'InspectIt'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	436	itemValue: inspectIt
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	437	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	438	shortcutKey: InspectIt
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	439	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	440	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	441	label: '-'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	442	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	443	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	444	label: 'Accept'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	445	itemValue: accept
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	446	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	447	shortcutKey: Accept
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	448	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	449	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	450	label: '-'
11353 5cb468550ad2 changed: #editMenu_stxStyle Claus Gittinger <cg@exept.de> parents: 11311 diff changeset	451	isVisible: false
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	452	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	453	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	454	label: 'Refactor'
11311 15a2965ceba2 changed: Claus Gittinger <cg@exept.de> parents: 11241 diff changeset	455	nameKey: refactor
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	456	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	457	isVisible: false
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	458	shortcutKey: Shift
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	459	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	460	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	461	label: 'Services'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	462	translateLabel: true
11241 e3d6bdc7a790 changed: #editMenu_stxStyle Claus Gittinger <cg@exept.de> parents: 11220 diff changeset	463	isVisible: false
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	464	submenuChannel: servicesMenu
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	465	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	466	(MenuItem
11353 5cb468550ad2 changed: #editMenu_stxStyle Claus Gittinger <cg@exept.de> parents: 11311 diff changeset	467	label: '='
10290 a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	468	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	469	(MenuItem
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	470	label: 'More'
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	471	nameKey: More
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	472	translateLabel: true
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	473	shortcutKey: Ctrl
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	474	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	475	)
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	476	nil
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	477	nil
a8251e59c37b added: Claus Gittinger <cg@exept.de> parents: 10262 diff changeset	478	)
11353 5cb468550ad2 changed: #editMenu_stxStyle Claus Gittinger <cg@exept.de> parents: 11311 diff changeset	479
5cb468550ad2 changed: #editMenu_stxStyle Claus Gittinger <cg@exept.de> parents: 11311 diff changeset	480	"Modified: / 02-03-2012 / 19:53:19 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	!CodeView2 methodsFor:'accessing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	acceptAction:aBlock
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487	textView acceptAction: aBlock
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	"Modified: / 01-08-2010 / 20:40:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	492	breakpoints
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	493
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	494	services do:[:each\|
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	495	(each isKindOf: BreakpointService) ifTrue:[
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	496	^each breakpoints
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	497	]
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	498	].
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	499	^ nil
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	500
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	501	"Created: / 06-07-2011 / 18:05:35 / jv"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	502	"Modified: / 06-10-2011 / 14:13:53 / cg"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	503	!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	504
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	505	browser
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	506
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	507	^self browserHolder value
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	508
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	509	"Created: / 07-07-2011 / 12:25:59 / Jan Vrany <jan.vrant@fit.cvut,cz>"
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	510	!
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	511
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	512	codeAspect
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	\|app\|
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	514
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	codeAspect ifNotNil:[^codeAspect].
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	516	methodHolder value ifNotNil:[^SyntaxHighlighter codeAspectMethod].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518	^((app := self topView application) notNil and:[app respondsTo: #codeAspect])
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519	ifTrue:[app codeAspect]
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	520	ifFalse:[(SyntaxHighlighter codeAspectExpression)]
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	522	"Modified: / 27-07-2011 / 13:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	523	"Modified: / 27-07-2012 / 22:22:27 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	524	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526	codeAspect:aSymbol
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	527	self assert:( #(expression method classDefinition) includes:aSymbol ).
06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	528
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529	codeAspect := aSymbol.
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	530
06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	531	"Modified: / 27-07-2012 / 22:32:19 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	532	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	534	contents
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	^textView contents
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	"Created: / 14-02-2010 / 22:13:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	contents: aStringOrStringCollection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543	textView contents: aStringOrStringCollection.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	"/self update:#value with: aStringOrStringCollection from: textView model
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545
10330 212b120c198f Improvements in diffing tools vrany parents: 10326 diff changeset	546	"Modified: / 19-07-2011 / 13:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	diffMode
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550	^ diffMode
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	diffMode:aBoolean
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	diffMode := aBoolean.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555	textView diffMode: aBoolean
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	"Modified: / 08-04-2011 / 20:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560	font
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	^textView font
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	"Created: / 16-02-2010 / 10:26:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	font: aFont
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	^textView font: aFont
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571	"Created: / 16-02-2010 / 10:26:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	mode
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576	^self modeHolder value
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	"Created: / 13-06-2011 / 10:49:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	mode: aSymbol
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	582	"is this the same as codeAspect ?"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	self assert: (#(expression method) includes: aSymbol).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	^self modeHolder value: aSymbol
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	"Created: / 13-06-2011 / 10:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	"Modified: / 15-06-2011 / 16:37:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	590	"Modified (comment): / 27-07-2012 / 22:19:49 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	591	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	593	model
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	594
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	595	^textView model.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	596
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	597	"Created: / 27-07-2011 / 12:47:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	598	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	599
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	600	model: aValueModel
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	601
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	602	\|oldValue newValue\|
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	603
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	604	textView model notNil ifTrue:[
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	605	oldValue := textView model value.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	606	textView model removeDependent:self.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	607	].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	608	textView model: aValueModel.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	609	textView model notNil ifTrue:[
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	610	textView model addDependent:self.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	611	].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	612	newValue := textView model value.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	613	oldValue ~~ newValue ifTrue:[
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	614	self update:#value with:newValue from:textView model.
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	615	].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	616
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	617	"Modified: / 27-07-2011 / 12:58:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	618	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	619
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620	modified
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621	"return true if text was modified"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	623	^ self modifiedChannel value
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	624
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	625	"Modified: / 07-07-2011 / 12:15:43 / Jan Vrany <jan.vrant@fit.cvut,cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	626	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	627
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	628	modified:aBoolean
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	629	"set/clear the modified flag"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	630
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	631	self modifiedChannel value:aBoolean
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	632
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	633	"Modified: / 14-02-1997 / 16:44:05 / cg"
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	634	"Modified: / 07-07-2011 / 12:15:39 / Jan Vrany <jan.vrant@fit.cvut,cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	635	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	636
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	637	scrolledView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	638
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	639	^self
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	641	"Created: / 14-02-2010 / 22:54:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643
10487 8865d5a3c200 SmallLint UI improvements vrany parents: 10465 diff changeset	644	services
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	645	^ services ? #()
10487 8865d5a3c200 SmallLint UI improvements vrany parents: 10465 diff changeset	646
8865d5a3c200 SmallLint UI improvements vrany parents: 10465 diff changeset	647	"Created: / 05-08-2011 / 10:14:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	648	"Modified (format): / 06-10-2011 / 14:11:11 / cg"
10487 8865d5a3c200 SmallLint UI improvements vrany parents: 10465 diff changeset	649	!
8865d5a3c200 SmallLint UI improvements vrany parents: 10465 diff changeset	650
10755 3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	651	services:aCollectionOfServices
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	652	"allow setting of the services (instances);
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	653	this is needed for FileBrowser, to setup a codeView2 without Smalltalk-specific
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	654	services"
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	655
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	656	servicesFromClient := true.
2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	657	services := aCollectionOfServices.
2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	658
2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	659	"Created: / 06-10-2011 / 14:15:36 / cg"
10755 3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	660	!
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	661
10793 c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	662	showAcceptCancelBar
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	663
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	664	^showAcceptCancelBarChannel value
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	665
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	666	"Created: / 10-10-2011 / 16:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	667	!
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	668
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	showGutter
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	^showGutterChannel value
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	"Created: / 23-06-2010 / 19:37:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	synchronizeWith: aCodeView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	self assert: aCodeView ~= self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	(synchronizedCodeViews includes: aCodeView) ifTrue:[^self].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	synchronizedCodeViews := synchronizedCodeViews copyWith: aCodeView.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	"Created: / 06-04-2010 / 14:13:14 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683	"Modified: / 23-06-2010 / 17:01:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685
11393 fb1c9eb2aab7 category of:20 methods Claus Gittinger <cg@exept.de> parents: 11377 diff changeset	686	!CodeView2 methodsFor:'accessing-code component'!
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	687
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	688	klass
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	689
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	690	\| v \|
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	691
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	692	(v := self classHolder value) notNil ifTrue:[^v].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	693	(v := self methodHolder value) notNil ifTrue:[^v mclass].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	694
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	695	^UndefinedObject
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	696
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	697	"Created: / 27-07-2011 / 13:14:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	698	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	699
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	700	klass: aClass
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	701
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	702	"Created: / 27-07-2011 / 13:13:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	703	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	704
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	705	language
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	706	"return the value in 'languageHolder'"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	707
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	708	\| v \|
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	709
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	710	(v := self languageHolder value) notNil ifTrue:[^v].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	711	(v := self methodHolder value) notNil ifTrue:[^v programmingLanguage].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	712	(v := self classHolder value) notNil ifTrue:[^v programmingLanguage].
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	713
10967 8c142eff5641 No highlighting by default (either method or language must be set) vrany parents: 10877 diff changeset	714	"/No, no default language, please.
8c142eff5641 No highlighting by default (either method or language must be set) vrany parents: 10877 diff changeset	715	"/^SmalltalkLanguage instance
8c142eff5641 No highlighting by default (either method or language must be set) vrany parents: 10877 diff changeset	716	^nil
8c142eff5641 No highlighting by default (either method or language must be set) vrany parents: 10877 diff changeset	717
8c142eff5641 No highlighting by default (either method or language must be set) vrany parents: 10877 diff changeset	718	"Modified: / 07-12-2011 / 16:38:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	719	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	720
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	721	language: newValue
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	722	"set the value in 'languageHolder'"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	723
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	724	self languageHolder value: newValue
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	725	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	726
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	727	method
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	728
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	729	^self methodHolder value
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	730
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	731	"Created: / 27-07-2011 / 13:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	732	!
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	733
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	734	method: aMethod
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	735
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	736	^self methodHolder value: aMethod
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	737
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	738	"Created: / 27-07-2011 / 13:12:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	739	! !
585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	740
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	!CodeView2 methodsFor:'aspects'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	browserHolder
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	744	browserHolder isNil ifTrue:[
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	browserHolder := ValueHolder new
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	^browserHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749	"Modified: / 14-02-2010 / 19:27:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	750	"Modified: / 18-11-2011 / 14:58:15 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	browserHolder:aValueModel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754	browserHolder := aValueModel.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757	classHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758	"return/create the 'classHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760	classHolder isNil ifTrue:[
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	761	classHolder := ValueHolder with: nil.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762	classHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764	^ classHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	766	"Modified: / 27-07-2011 / 13:15:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769	classHolder:aValueModel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770	"set the 'classHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	\|old oldValue newValue\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	774	classHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	775	oldValue := classHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	776	classHolder removeDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	777	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	778	classHolder := aValueModel.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	779	classHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780	classHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	781	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	782	old := methodHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	783	newValue := classHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	oldValue ~~ newValue ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785	self update:#value with:newValue from:classHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	786	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788	self changed: #classHolder with: old -> classHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790	"Modified: / 17-06-2011 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	791	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	792
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793	languageHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794	languageHolder isNil ifTrue:[
11616 c23e4a5d3384 added: #unregisterService: Claus Gittinger <cg@exept.de> parents: 11606 diff changeset	795	"/ cg: I dont like the smalltalk default here, because everyone who is not showing ST-code (expecco, filebrowser etc.)
10723 e9f1e0dad878 changed: #languageHolder Claus Gittinger <cg@exept.de> parents: 10722 diff changeset	796	"/ has to explicitely clear the valueholder. I guess, it is better for the few
e9f1e0dad878 changed: #languageHolder Claus Gittinger <cg@exept.de> parents: 10722 diff changeset	797	"/ others to explicitely set it, if they do not provide syntaxHighlighter per method
e9f1e0dad878 changed: #languageHolder Claus Gittinger <cg@exept.de> parents: 10722 diff changeset	798	"/ or class.
e9f1e0dad878 changed: #languageHolder Claus Gittinger <cg@exept.de> parents: 10722 diff changeset	799	languageHolder := ValueHolder with: nil "SmalltalkLanguage instance".
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800	languageHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802	^ languageHolder
10723 e9f1e0dad878 changed: #languageHolder Claus Gittinger <cg@exept.de> parents: 10722 diff changeset	803
11616 c23e4a5d3384 added: #unregisterService: Claus Gittinger <cg@exept.de> parents: 11606 diff changeset	804	"Modified: / 19-07-2012 / 16:51:04 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	805	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807	languageHolder:aValueModel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808	"set the 'languageHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	\|old oldValue newValue\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812	languageHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813	oldValue := languageHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	814	languageHolder removeDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	815	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	languageHolder := aValueModel.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	817	languageHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818	languageHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820	old := languageHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821	newValue := languageHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822	oldValue ~~ newValue ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823	self update:#value with:newValue from:languageHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	824	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826	self changed: #languageHolder with: old -> languageHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828	"Modified: / 17-06-2011 / 12:56:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11616 c23e4a5d3384 added: #unregisterService: Claus Gittinger <cg@exept.de> parents: 11606 diff changeset	829	"Modified: / 19-07-2012 / 16:51:08 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832	methodHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	"return/create the 'methodHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835	methodHolder isNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	methodHolder := ValueHolder new.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837	methodHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839	^ methodHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	840	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842	methodHolder:aValueModel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	843	"set the 'methodHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845	\|old oldValue newValue\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	847	methodHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	oldValue := methodHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	methodHolder removeDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851	old := methodHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	methodHolder := aValueModel.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853	methodHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854	methodHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	newValue := methodHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	857	oldValue ~~ newValue ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	858	self update:#value with:newValue from:methodHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	859	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861	self changed: #methodHolder with: old -> methodHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863	"Modified: / 17-06-2011 / 12:55:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866	modeHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	"return/create the 'modeHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	869	"is this the codeAspect?"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	modeHolder isNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871	modeHolder := #expression asValue.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	modeHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	^ modeHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	"Modified: / 13-06-2011 / 10:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11706 06ad80a28e48 comment/format in: Claus Gittinger <cg@exept.de> parents: 11616 diff changeset	877	"Modified (comment): / 27-07-2012 / 22:22:19 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	modeHolder:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	"set the 'modeHolder' value holder (automatically generated)"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	\|oldValue newValue\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	modeHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886	oldValue := modeHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887	modeHolder removeDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	modeHolder := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890	modeHolder notNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	modeHolder addDependent:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	newValue := modeHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	oldValue ~~ newValue ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895	self update:#value with:newValue from:modeHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	self changed: #modeHolder with: modeHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	"Modified: / 17-06-2011 / 12:55:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903	!CodeView2 methodsFor:'change & update'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905	update:aspect with:param from:sender
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	907	sender == showGutterChannel ifTrue: [
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	908	self updateGutterVisibility.
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	909	^self.
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	910	].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911
10662 4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	912	services do:[:each \|
4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	913	each isEnabled ifTrue:[
4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	914	each update:aspect with:param from:sender
4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	915	]
4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	916	].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	918	super update:aspect with:param from:sender
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	920	"Modified: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	921	"Modified: / 07-07-2011 / 12:07:04 / Jan Vrany <jan.vrant@fit.cvut,cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	922	"Modified: / 06-10-2011 / 14:14:36 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	924
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	updateGutterVisibility
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	self showGutterChannel value ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928	textViewScroller origin:(gutterView width @ 0.0) corner:(1.0 @ 1.0).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	gutterView beVisible.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	] ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	textViewScroller origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932	gutterView beInvisible.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935	"Created: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	936	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	938	!CodeView2 methodsFor:'channels'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940	modifiedChannel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	"return the valueHolder holding true if text was modified"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	943	^ textView modifiedChannel
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	944	"/ ^ modifiedChannel
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	945
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	946	"Modified: / 07-07-2011 / 12:07:26 / Jan Vrany <jan.vrant@fit.cvut,cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949	modifiedChannel:aValueHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	950	"set the valueHolder holding true if text was modified"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	951
10662 4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	952	textView modifiedChannel removeDependent:self.
4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	953	textView modifiedChannel:aValueHolder.
4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	954	textView modifiedChannel addDependent:self.
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	955
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	956	"/ \|prev\|
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	957	"/
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	958	"/ prev := modifiedChannel.
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	959	"/ modifiedChannel := aValueHolder.
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	960	"/ self setupChannel:aValueHolder for:nil withOld:prev
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	961
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	962	"Created: / 30-01-1998 / 14:51:32 / cg"
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	963	"Modified: / 07-07-2011 / 12:07:43 / Jan Vrany <jan.vrant@fit.cvut,cz>"
10662 4d67f850e4f7 comment/format in: #update:with:from: Claus Gittinger <cg@exept.de> parents: 10630 diff changeset	964	"Modified: / 05-09-2011 / 05:13:27 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	965	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966
10785 4bf3e024a256 added: vrany parents: 10784 diff changeset	967	reallyModifiedChannel
4bf3e024a256 added: vrany parents: 10784 diff changeset	968	"return the valueHolder holding true if text was modified"
4bf3e024a256 added: vrany parents: 10784 diff changeset	969
4bf3e024a256 added: vrany parents: 10784 diff changeset	970	^ textView reallyModifiedChannel
4bf3e024a256 added: vrany parents: 10784 diff changeset	971
4bf3e024a256 added: vrany parents: 10784 diff changeset	972	"Modified: / 07-07-2011 / 12:07:26 / Jan Vrany <jan.vrant@fit.cvut,cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	973	"Created: / 08-10-2011 / 12:47:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	974	!
4bf3e024a256 added: vrany parents: 10784 diff changeset	975
4bf3e024a256 added: vrany parents: 10784 diff changeset	976	reallyModifiedChannel: aValueModel
4bf3e024a256 added: vrany parents: 10784 diff changeset	977
4bf3e024a256 added: vrany parents: 10784 diff changeset	978	^ textView reallyModifiedChannel: aValueModel
4bf3e024a256 added: vrany parents: 10784 diff changeset	979
4bf3e024a256 added: vrany parents: 10784 diff changeset	980	"Modified: / 07-07-2011 / 12:07:26 / Jan Vrany <jan.vrant@fit.cvut,cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	981	"Created: / 08-10-2011 / 12:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	982	!
4bf3e024a256 added: vrany parents: 10784 diff changeset	983
10793 c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	984	showAcceptCancelBarChannel
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	985
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	986	^showAcceptCancelBarChannel
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	987
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	988	"Created: / 10-10-2011 / 16:23:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	989	!
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	990
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	991	showAcceptCancelBarChannel:aValueHolder
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	992	"set the valueHolder holding true if text was modified"
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	993
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	994	\|prev\|
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	995
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	996	prev := showAcceptCancelBarChannel.
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	997	showAcceptCancelBarChannel := aValueHolder.
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	998	self setupChannel:aValueHolder for:nil withOld:prev.
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	999
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	1000	"Created: / 10-10-2011 / 16:24:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	1001	!
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	1002
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003	showGutterChannel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005	^showGutterChannel
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	"Created: / 23-06-2010 / 19:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010	showGutterChannel:aValueHolder
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1011	"set the valueHolder holding true if text was modified"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1012
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1013	\|prev\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015	prev := showGutterChannel.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016	showGutterChannel := aValueHolder.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1017	self setupChannel:aValueHolder for:nil withOld:prev
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1018
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	"Created: / 23-06-2010 / 19:03:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1020	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1022	!CodeView2 methodsFor:'code services'!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1023
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1024	browseMethod: method
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1025
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1026	self browseMethod: method label: nil.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1027
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1028	"Created: / 14-02-2010 / 19:41:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1029	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1030
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1031	browseMethod: method label: label
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1032
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	1033	self browser isNil ifTrue: [^NewSystemBrowser openInMethod:method].
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1034	(UserPreferences current alwaysOpenNewTabWhenCtrlClick
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1035	or:[self browser navigationState modified])
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1036	ifTrue:
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1037	[self browser
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1038	spawnFullBrowserInClass: method mclass
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1039	selector:method selector
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1040	in:#newBuffer]
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1041	ifFalse:
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1042	[self browser
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1043	switchToClass: method containingClass
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1044	selector: method selector].
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1045
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1046	"Modified: / 19-02-2008 / 10:15:17 / janfrog"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1047	"Created: / 19-10-2008 / 08:16:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1048	"Modified: / 25-07-2010 / 13:34:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	1049	"Modified: / 18-11-2011 / 14:58:12 / cg"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1050	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1051
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1052	browseMethods: methods label: label
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1053
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1054	methods size = 1 ifTrue:
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1055	[^self browseMethod: methods anyOne label: label].
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1056
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1057	self browser
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1058	ifNil: [NewSystemBrowser browseMethods: methods title: label]
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1059	ifNotNil:[self browser spawnMethodBrowserFor:methods in:#newBuffer label:label]
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1060
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1061	"Created: / 26-12-2007 / 11:32:04 / janfrog"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1062	"Modified: / 19-10-2008 / 08:17:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1063	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1064
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1065	extractSelectorAndSelectedTextFrom: givenSelectedText
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1066	\| selector selectedText compilerClass na \|
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1067
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1068	selectedText := givenSelectedText.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1069	compilerClass := self language compilerClass.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1070	selectedText size > 0 ifTrue:[
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1071	"/ self windowGroup withWaitCursorDo:[
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1072	"/ hack, for now and expecco; must ask the Parser eventually...
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1073	(compilerClass notNil and:[compilerClass includesBehavior:JavaScriptParser]) ifTrue:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1074	"/ selector is in one piece anyway
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1075	(selectedText includes:$_) ifFalse:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1076	"/ zero or one args - sigh (need to parse more to figure this out)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1077	selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:1.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1078	selectedText := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:0.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1079	] ifTrue:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1080	"/ count _#s plus one arg - sigh
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1081	na := (selectedText occurrencesOf:$_) + 1.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1082	selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:na
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1083	].
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1084	] ifFalse:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1085	selector := SystemBrowser extractSelectorFrom:selectedText.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1086	].
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1087	"/ ]
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1088	].
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1089	^Array with: selector with: selectedText
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1090
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1091	"Created: / 30-06-2011 / 19:49:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1092	"Modified: / 05-03-2012 / 09:04:12 / cg"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1093	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1094
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1095	implementorsOf: selector
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1096
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	1097	selector isNil ifTrue:[^#()].
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1098	^SystemBrowser
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1099	findImplementorsOf: selector
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1100	in: Smalltalk allClasses
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1101	ignoreCase: false
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1102
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1103	"Created: / 26-12-2007 / 11:37:11 / janfrog"
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	1104	"Modified: / 18-11-2011 / 14:58:17 / cg"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1105	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1106
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1107	sendersOf: selector
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1108
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	1109	selector isNil ifTrue:[^#()].
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1110	^SystemBrowser
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1111	findSendersOf: selector
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1112	in: Smalltalk allClasses
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1113	ignoreCase: false
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1114
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1115	"Created: / 26-12-2007 / 11:37:22 / janfrog"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1116	"Modified: / 30-06-2011 / 19:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	1117	"Modified: / 18-11-2011 / 14:58:19 / cg"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1118	! !
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1119
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120	!CodeView2 methodsFor:'delegation'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122	doesNotUnderstand: aMessage
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1123
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	((textView respondsTo: aMessage selector)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125	and:[(TraceSelectors includes:aMessage selector) not])
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	ifTrue:[^aMessage sendTo: textView].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127	^super doesNotUnderstand: aMessage
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	"Created: / 13-02-2010 / 23:27:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130	"Modified: / 14-02-2010 / 09:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1132
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133	hasSelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1134
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135	^textView hasSelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1136
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1137	"Created: / 14-02-2010 / 09:53:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1138	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1139
11393 fb1c9eb2aab7 category of:20 methods Claus Gittinger <cg@exept.de> parents: 11377 diff changeset	1140	!CodeView2 methodsFor:'delegation-drawing'!
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1141
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1142	drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1143	"See the comment in
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1144	CodeViewService>>drawLine:in:atX..."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1145
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	services do:[:each\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147	each drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148	]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	"Created: / 17-06-2011 / 13:50:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1151	"Modified: / 06-10-2011 / 14:14:04 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1153
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	redrawVisibleLine: visLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156	"Created: / 07-03-2010 / 14:44:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159	redrawVisibleLine:visLine col:colNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161	"Modified: / 05-11-2007 / 17:35:53 / cg"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162	"Modified: / 07-03-2010 / 14:45:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1164
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1165	redrawVisibleLine:visLine from:startCol
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1166
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167	"Modified: / 07-03-2010 / 14:46:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1169
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170	redrawVisibleLine:visLine from:startCol to:endCol
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1171
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1172	"Modified: / 07-03-2010 / 14:46:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1173	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1174
11393 fb1c9eb2aab7 category of:20 methods Claus Gittinger <cg@exept.de> parents: 11377 diff changeset	1175	!CodeView2 methodsFor:'delegation-events'!
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177	buttonMotion: button x:x y:y in: view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1179	"Delegates events to services. Answers true iff at least
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1180	one service handler method returns true. In that case,
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1181	the event is is NOT processes by the view."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1182
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1183	^ services
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1184	inject: false
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1185	into:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1186	[:processed :service\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1187	service isEnabled
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1188	ifFalse:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1189	[processed]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1190	ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1191	[processed \| ((service buttonMotion: button x:x y:y in: view) == true)]].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1192
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1193	"Modified: / 07-03-2010 / 13:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1194	"Modified: / 06-10-2011 / 14:13:57 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1195	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1196
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1197	buttonPress: button x:x y:y in: view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1198	"Delegates events to services. Answers true iff at least
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199	one service handler method returns true. In that case,
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200	the event is is NOT processes by the view."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1201
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1202	^ services
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1203	inject: false
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1204	into:[:processed :service\|
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1205	service isEnabled
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1206	ifFalse: [processed]
12354 8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	1207	ifTrue: [processed or:[ ((service buttonPress: button x:x y:y in: view) == true) ]]].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1208
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1209	"Modified: / 07-03-2010 / 13:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1210	"Modified: / 06-10-2011 / 14:14:00 / cg"
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1211	"Modified (format): / 05-03-2012 / 08:56:02 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1212	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1213
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1214	keyPress: key x:x y:y in: view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1215
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1216	"Delegates events to services. Answers true iff at least
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1217	one service handler method returns true. In that case,
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218	the event is is NOT processes by the view."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1220	^ services
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1221	inject: false
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1222	into:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1223	[:processed :service\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224	service isEnabled
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	ifFalse:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226	[processed]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227	ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228	[processed \| ((service keyPress: key x:x y:y in: view) == true)]].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1229
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1230	"Modified: / 07-03-2010 / 13:54:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1231	"Modified: / 06-10-2011 / 14:14:11 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1232	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1233
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1234	keyRelease: key x:x y:y in: view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1235
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1236	"Delegates events to services. Answers true iff at least
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1237	one service handler method returns true. In that case,
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1238	the event is is NOT processes by the view."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1239
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1240	^ services
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1241	inject: false
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1242	into:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243	[:processed :service\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1244	service isEnabled
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1245	ifFalse:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1246	[processed]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1247	ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248	[processed \| ((service keyRelease: key x:x y:y in: view) == true)]].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1249
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1250	"Modified: / 07-03-2010 / 13:54:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1251	"Modified: / 06-10-2011 / 14:14:13 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1254	linesDeletedFrom: start to: end
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1255
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1256	services do: [:each \|
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1257	each isEnabled ifTrue: [
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1258	each linesDeletedFrom: start to: end
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1259	]
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1260	].
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1261
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1262	"Created: / 06-07-2011 / 17:12:54 / jv"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1263	"Modified: / 06-10-2011 / 14:14:16 / cg"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1264	"Modified: / 07-10-2011 / 19:14:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1265	!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1266
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1267	linesInsertedFrom: start to: end
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1268
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1269	services do: [:each \|
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1270	each isEnabled ifTrue: [
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1271	each linesInsertedFrom: start to: end
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1272	]
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1273	].
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1274
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1275	"Created: / 06-07-2011 / 17:12:48 / jv"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1276	"Modified: / 06-10-2011 / 14:14:20 / cg"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1277	!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1278
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1279	linesModifiedFrom: start to: end
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1280
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1281	services do: [:each \|
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1282	each isEnabled ifTrue: [
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1283	each linesModifiedFrom: start to: end
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1284	]
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1285	].
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1286
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1287	"Created: / 06-07-2011 / 17:12:58 / jv"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1288	"Modified: / 06-10-2011 / 14:13:44 / cg"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1289	!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	1290
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291	scrollDown: nLines in: view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293	view == textView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295	["/my text view scrolled...
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296	synchronizedCodeViews do:[:codeView\|codeView scrollDown: nLines in: view]]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	ifFalse:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298	["/other code view scrolls and I'm notified about that
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	textView basicScrollDown: nLines]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301	"Created: / 06-04-2010 / 14:02:39 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304	scrollUp: nLines in: view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306	view == textView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307	ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	["/my text view scrolled...
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309	synchronizedCodeViews do:[:codeView\|codeView scrollUp: nLines in: view]]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	ifFalse:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	["/other code view scrolls and I'm notified about that
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	textView basicScrollUp: nLines]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314	"Created: / 06-04-2010 / 14:02:39 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317	!CodeView2 methodsFor:'diff mode'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319	recomputeDiff:view
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	\|t1 t2 pom diffHelper view2\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322	t1 := view getNewOriginText.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1323	synchronizedCodeViews do:[:codeView \|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324	view2 := codeView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326	view changedDiffText:false.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1327	view2 changedDiffText:false.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1328	t2 := view2 getNewOriginText.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	pom := DiffCodeView2 new.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330	(view == textView) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1331	diffHelper := pom computeDiffDataForText1:t1 text2:t2.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1332	(view) contents:(diffHelper text1).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1333	(view) deletedLines:(diffHelper deleted).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1334	(view) changedLines:(diffHelper changed).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1335	(view) originDiffText:t1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1336	(view) emptyLines:(diffHelper inserted).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1337	(view) changedLines:(diffHelper changed).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338	(view2) contents:(diffHelper text2).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339	(view2) insertedLines:(diffHelper inserted).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1340	(view2) changedLines:(diffHelper changed).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341	(view2) originDiffText:t2.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342	(view2) emptyLines:(diffHelper deleted).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1344
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345	"Modified: / 22-06-2010 / 23:35:41 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346	"Modified: / 23-06-2010 / 17:25:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1347	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349	!CodeView2 methodsFor:'initialization'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351	initialize
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352	"Invoked when a new instance is created."
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353	"Call super initialize"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	super initialize.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356	"Now set up some visual properties"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357	self level:-1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358	"Now initialize sub-views"
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1359	showGutterChannel := ValueHolder with: true.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360	showGutterChannel addDependent: self.
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1361	"/ toDo: I don't like two options in the settings;
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1362	"/ showAcceptCancelBarChannel := (ValueHolder with: (UserPreferences current showAcceptCancelBarInBrowser)).
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1363	showAcceptCancelBarChannel := ValueHolder with: (UserPreferences current codeView2ShowAcceptCancel).
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1364
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1365	"/ these views must be created first, as they refer to each other's channels in their
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1366	"/ initialize methods
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1367	gutterView := CodeView2::GutterView new.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1368	textViewScroller := HVScrollableView for: CodeView2::TextView in: self.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1369	textView := textViewScroller scrolledView.
10793 c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	1370
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371	self initializeGutterView.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1372	self initializeTextView.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373	textView setCodeView:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1374	modifiedChannel := ValueHolder with:false.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	diffMode := false.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376	synchronizedCodeViews := #().
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1377
2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1378	servicesFromClient := false.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	services := OrderedCollection new.
10834 b25dd8ee319b changed: #initialize vrany parents: 10793 diff changeset	1380	self initializeServices.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382	"Modified: / 14-12-2009 / 13:59:53 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383	"Modified: / 06-04-2010 / 13:56:35 / Jakub <zelenja7@fel.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1384	"Modified: / 06-10-2011 / 14:15:48 / cg"
10834 b25dd8ee319b changed: #initialize vrany parents: 10793 diff changeset	1385	"Modified: / 18-10-2011 / 19:17:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1386	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1387
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1388	initializeGutterView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1390	gutterView setCodeView:self.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1391	gutterView origin:(0.0 @ 0.0) corner:(gutterView preferredWidth @ 1.0).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1392	showGutterChannel value ifTrue:[self addSubView: gutterView].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1393
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1394	"Created: / 02-09-2009 / 21:35:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1395	"Modified: / 23-06-2010 / 19:14:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1396	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1397
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398	initializeServices
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1399	\| serviceClasses \|
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	1400
10755 3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1401	"/ only do it, if the services have not yet been defined by the user of this view
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1402	"/ (FileBrowser does not want Smalltalk-specific services)
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1403	servicesFromClient ifFalse:[
10755 3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1404	serviceClasses := CodeViewService availableServices sort:[:a :b\|name < b name].
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1405	serviceClasses do:[:cls\|
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1406	self registerService: cls new
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1407	].
3cc7a80e9d58 added: #services: Claus Gittinger <cg@exept.de> parents: 10731 diff changeset	1408	].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1409
10409 585a43ba93c5 Fixes for debugger vrany parents: 10375 diff changeset	1410	"Modified: / 27-07-2011 / 11:37:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1411	"Modified: / 06-10-2011 / 14:16:01 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1412	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1414	initializeTextView
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1415	"Initialize textView. gutterView has to be already initialized!!"
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1416
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1417	textViewScroller
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1418	origin: ((self showGutter ifTrue:[gutterView width] ifFalse:[0.0]) @ 0.0)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1419	corner: 1.0@1.0;
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1420	level: 0.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1421	textView level: 0.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1422
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423	textView modifiedChannel addDependent: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1424
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1425	"Created: / 02-09-2009 / 21:36:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	"Modified: / 23-06-2010 / 19:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429	!CodeView2 methodsFor:'menu actions'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430
10689 825d52f63cf7 added: #accept Claus Gittinger <cg@exept.de> parents: 10662 diff changeset	1431	accept
825d52f63cf7 added: #accept Claus Gittinger <cg@exept.de> parents: 10662 diff changeset	1432	textView accept
825d52f63cf7 added: #accept Claus Gittinger <cg@exept.de> parents: 10662 diff changeset	1433
825d52f63cf7 added: #accept Claus Gittinger <cg@exept.de> parents: 10662 diff changeset	1434	"Created: / 07-09-2011 / 21:29:07 / cg"
825d52f63cf7 added: #accept Claus Gittinger <cg@exept.de> parents: 10662 diff changeset	1435	!
825d52f63cf7 added: #accept Claus Gittinger <cg@exept.de> parents: 10662 diff changeset	1436
10375 9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1437	again
9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1438	textView again
9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1439
9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1440	"Created: / 16-02-2010 / 19:36:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1441	"Created: / 22-07-2011 / 17:44:31 / cg"
9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1442	!
9b5d4c887f5e added: #again Claus Gittinger <cg@exept.de> parents: 10330 diff changeset	1443
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1444	browseImplementorsOfIt
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1445
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1446	textView browseImplementorsOfIt
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1447
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1448	"Modified: / 30-06-2011 / 19:22:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1449	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1450
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451	browseSendersOfIt
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1452
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1453	textView browseSendersOfIt
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1454
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1455	"Modified: / 30-06-2011 / 19:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1456	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1457
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458	copySelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1459
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1460	textView copySelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1461
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1462	"Created: / 16-02-2010 / 19:36:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1463	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1465	cut
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1466
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1467	textView cut
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1468
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1469	"Created: / 16-02-2010 / 19:36:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1470	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472	doIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474	textView doIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1476	"Modified: / 16-02-2010 / 19:38:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1477	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1478
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1479	inspectIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1480
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1481	textView inspectIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1482
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1483	"Modified: / 16-02-2010 / 19:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1484	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1485
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1486	inspectSelectedSelector
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1487
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488	self error: 'Not yet implemented'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1490	"Modified: / 14-02-2010 / 15:58:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1491	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1493	inspectSyntaxElements
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1494
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495	syntaxElements inspect
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1497	"Modified: / 14-02-2010 / 15:57:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1499
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1500	inspectView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1501
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1502	self inspect
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1503
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1504	"Modified: / 25-03-2010 / 17:58:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1505	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1506
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1507	pasteOrReplace
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1508
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1509	textView pasteOrReplace
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1510
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1511	"Created: / 16-02-2010 / 19:37:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1512	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1513
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1514	printIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1515
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1516	textView printIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1517
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1518	"Modified: / 16-02-2010 / 19:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1519	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1520
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1521	profileIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1522
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1523	textView profileIt
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1524
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1525	"Created: / 27-08-2010 / 22:12:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1526	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1527
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1528	undo
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1529
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1530	textView undo
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1531
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1532	"Created: / 16-02-2010 / 19:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1533	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1534
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1535	!CodeView2 methodsFor:'menus-dynamic'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1536
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1537	editMenu
10780 1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1538	\| editMenu superEditMenu moreMenu moreMenuItem \|
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1539
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1540	superEditMenu := textView superEditMenu.
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1541	moreMenu := superEditMenu subMenuAt: superEditMenu numberOfItems.
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1542
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1543	textView sensor ctrlDown ifTrue:[
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1544	^superEditMenu
1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1545	].
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1546
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1547	editMenu := self class editMenu decodeAsLiteralArray.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1548	moreMenuItem := editMenu menuItemLabeled: 'More'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1549	moreMenuItem submenu: moreMenu asMenu.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1550	editMenu findGuiResourcesIn: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1551	^editMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1552
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1553	"Created: / 25-12-2007 / 10:10:01 / janfrog"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1554	"Modified: / 25-12-2007 / 19:50:53 / janfrog"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1555	"Modified: / 18-10-2008 / 20:31:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1556	"Modified: / 08-07-2011 / 13:35:31 / cg"
10780 1093fdd69f27 Fix for edit menu issue ( #D1863483 ) vrany parents: 10767 diff changeset	1557	"Modified: / 07-10-2011 / 17:58:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1558	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1560	implementorsMenu
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1561
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1562	\| selectorAndSelectedText selector selectedText implementors \|
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1563
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1564	selectedText := textView selectionAsString.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1565	selectedText size > 0 ifTrue:[
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1566	"/ self windowGroup withWaitCursorDo:[
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1567	selectorAndSelectedText := self extractSelectorAndSelectedTextFrom: selectedText.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1568	selector := selectorAndSelectedText first.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1569	selectedText := selectorAndSelectedText second.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1570
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1571	(selector notNil and:[selector = selectedText]) ifTrue:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1572	implementors := (SystemBrowser
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1573	findImplementorsOf:selectedText "Any: (Array with:selectedText)"
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1574	in:(Smalltalk allClasses)
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1575	ignoreCase:false)
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1576
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1577	] ifFalse:[
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1578	implementors := (SystemBrowser
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1579	findImplementorsOfAny:(Array with:selectedText with: selector)
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1580	in:(Smalltalk allClasses)
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1581	ignoreCase:false)
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1582	].
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1583	"/ ]
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1584	] ifFalse:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1585	implementors := #().
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1586	].
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1587
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1588	^self implementorsMenu: implementors selector: (selector ? selectedText)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1589
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1590	"Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1591	"Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1592	"Modified: / 05-03-2012 / 09:02:43 / cg"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1593	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1594
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1595	implementorsMenu: implementors selector: selector
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1596	\| menu\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1597
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1598	menu := Menu new.
10465 7bb5a6157330 changed: Claus Gittinger <cg@exept.de> parents: 10409 diff changeset	1599	implementors isEmptyOrNil ifTrue:[
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1600	menu addItem:(MenuItem label:'No implementors found') disable
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1601	] ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1602	menu addItem:(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1603	label:(selector storeString , (' (all implementors) ') asText allItalic)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1604	value:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1605	self browseMethods:implementors
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	label:'Implementors of ' , selector storeString
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1607	]).
11377 e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1608
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1609	menu addSeparator.
11377 e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1610	(implementors asOrderedCollection sort:[:a :b \| a mclass name < b mclass name])
e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1611	"implementors" do:[:mth \|
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1612	menu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1613	addItem:(MenuItem label:(selector storeString
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1614	, (' in ' , mth containingClass name asText allBold))
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1615	value:[ self browseMethod:mth label: 'Implementor of ' , selector storeString ])
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1616	]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1617	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1618	^ menu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1619
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1620	"Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1621	"Created: / 14-02-2010 / 19:39:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11377 e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1622	"Modified: / 07-03-2012 / 12:56:56 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1623	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1624
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1625	sendersMenu
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1626
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1627	\| selectorAndSelectedText selector selectedText senders \|
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1628
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1629	selectedText := textView selectionAsString.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1630	selectedText size > 0 ifTrue:[
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1631	"/ self windowGroup withWaitCursorDo:[
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1632	selectorAndSelectedText := self extractSelectorAndSelectedTextFrom: selectedText.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1633	selector := selectorAndSelectedText first.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1634	selectedText := selectorAndSelectedText second.
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1635
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1636	(selector notNil and:[selector = selectedText]) ifTrue:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1637	senders := (SystemBrowser
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1638	findSendersOf:selectedText "Any:(Array with:selectedText)"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1639	in:(Smalltalk allClasses)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1640	ignoreCase:false)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1641
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1642	] ifFalse:[
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1643	senders := (SystemBrowser
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1644	findSendersOfAny:(Array with:selectedText with: selector)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1645	in:(Smalltalk allClasses)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1646	ignoreCase:false)
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1647	].
911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1648	"/ ]
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1649	] ifFalse:[
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1650	senders := #().
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1651	].
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1652
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1653	^self sendersMenu: senders selector: (selector ? selectedText)
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1654
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1655	"Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1656	"Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11359 911eaee39d50 changed: Claus Gittinger <cg@exept.de> parents: 11353 diff changeset	1657	"Modified: / 05-03-2012 / 09:02:56 / cg"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1658	!
39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1659
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1660	sendersMenu: senders selector: selector
11377 e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1661	\| menu shownSenderItems numCut sendersSorted\|
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1662
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1663	menu := Menu new.
10465 7bb5a6157330 changed: Claus Gittinger <cg@exept.de> parents: 10409 diff changeset	1664	senders isEmptyOrNil ifTrue:[
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1665	menu addItem:(MenuItem label:'No senders found') disable
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1666	] ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1667	menu addItem:(MenuItem
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1668	label:(selector storeString , (' (all senders)') asText allItalic)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1669	value:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1670	self browseMethods:senders
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1671	label:'Senders of ' , selector storeString
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1672	]).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1673	menu addSeparator.
11377 e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1674	sendersSorted := senders asOrderedCollection
e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1675	sort:[:a :b \| a whoString < b whoString].
e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1676	shownSenderItems := (senders size > 20) ifTrue:[sendersSorted copyTo:20] ifFalse:[sendersSorted].
10630 d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1677	numCut := senders size - 20.
d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1678	shownSenderItems do:[:mth \|
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1679	menu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1680	addItem:(MenuItem label:(mth selector storeString
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1681	, (' in ' , mth containingClass name asText allBold))
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1682	value:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
10630 d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1683	].
d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1684	numCut > 0 ifTrue:[
d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1685	menu addSeparator.
d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1686	menu addItem:(MenuItem label:('... %1 more senders not shown here' bindWith:numCut)) disable
d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	1687	].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1688	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1689	^ menu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1690
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1691	"Modified: / 19-10-2008 / 08:17:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1692	"Created: / 14-02-2010 / 19:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10262 39688cd73dff Merged with JV's branch vrany parents: 10245 diff changeset	1693	"Modified: / 07-07-2011 / 14:51:54 / jv"
11377 e995583db311 changed: Claus Gittinger <cg@exept.de> parents: 11359 diff changeset	1694	"Modified: / 07-03-2012 / 12:58:31 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697	servicesMenu
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1698	\|menu item anyService\|
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1699
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	menu := Menu new.
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1701
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1702	item := MenuItem label:(resources string:'Show Gutter').
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1703	item indication:(self showGutterChannel).
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1704	menu addItem:item.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1705	menu addSeparator.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1706
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1707	anyService := false.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1708	services do:[:service \|
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1709	\|item\|
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1710
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1711	item := MenuItem label:(resources string:service label).
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1712	item indication:((AspectAdaptor forAspect:#enabled) subject:service).
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1713	menu addItem:item.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1714	anyService := true.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1715	].
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1716
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1717	anyService ifTrue:[
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1718	menu addSeparator.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1719	].
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1720
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1721	item := MenuItem label:(resources string:'Debug').
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1722	item submenuChannel:[ self class debugMenu ].
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1723	menu addItem:item.
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1724
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	1725	^ menu
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1726
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1727	"Created: / 07-03-2010 / 14:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10767 2432e277a643 services setup Claus Gittinger <cg@exept.de> parents: 10755 diff changeset	1728	"Modified: / 06-10-2011 / 14:14:30 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1729	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1730
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1731	!CodeView2 methodsFor:'private'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1732
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733	codeCompletion
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1734	\|cls
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1735	"/ crsrPos interval node checkedNode
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1736	"/ char start stop selectorSoFar matchingSelectors
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737	\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1738
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1739
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1740	cls := self classHolder value.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1741	cls isNil ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742	self showInfo:'No class'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1743	^ self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745	UserInformation handle:[:ex \|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746	self showInfo:(ex messageText).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1747	ex proceed.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748	] do:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1749	self withWaitCursorDo:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750	DoWhatIMeanSupport codeCompletionForClass:cls codeView:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1751	]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1752	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1753	^ self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1755	"/
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1756	"/ interval := self selectedInterval.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1757	"/ interval isEmpty ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1758	"/ crsrPos := codeView characterPositionOfCursor - 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759	"/ char := codeView characterUnderCursor.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1760	"/ [crsrPos > 1 and:[char isSeparator or:['.' includes:char]]] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761	"/ crsrPos := crsrPos - 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1762	"/ char := codeView characterAtCharacterPosition:crsrPos.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1763	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1764	"/ interval := crsrPos to:crsrPos.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1765	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1766	"/
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1767	"/ node := self findNodeForInterval:interval allowErrors:true.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1768	"/ [node isNil] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1769	"/ "/ expand to the left ...
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1770	"/ interval start > 1 ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1771	"/ self showInfo:'No parseNode found'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1772	"/ ^ self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1773	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1774	"/ interval start:(interval start - 1).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1775	"/ node := self findNodeForInterval:interval allowErrors:true.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1776	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1777	"/
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778	"/ node isVariable ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1779	"/ self codeCompletionForVariable:node inClass:cls.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1780	"/ ^ self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1781	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1782	"/
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1783	"/ checkedNode := node.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1784	"/ [checkedNode notNil] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1785	"/ checkedNode isMessage ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1786	"/ self codeCompletionForMessage:checkedNode inClass:cls.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1787	"/ ^ self
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1788	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1789	"/ checkedNode isMethod ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1790	"/ self codeCompletionForMethod:checkedNode inClass:cls.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1791	"/ ^ self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1792	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1793	"/ checkedNode := checkedNode parent.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1794	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1795	"/
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1796	"/ self showInfo:'Node is neither variable nor message.'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1797
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1798	"Modified: / 04-07-2006 / 18:48:26 / fm"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1799	"Modified: / 20-11-2006 / 12:30:59 / cg"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1800	"Modified: / 16-02-2010 / 10:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1801	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1802
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1803	reallyModified
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1804	"check for modified code by comparing the source against
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1805	the codeViews contents.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1806	Thats the true modified value (in case user undid its changes,
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1807	and the displayed text is actually original"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1808
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1809	\|modified changedSource originalSource s1 s2\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1810
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1811	textView modified ifTrue:[^true].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1812
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1813	"/ higher prio to prevent it from being changed while we convert it (by editing)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1814	Processor activeProcess
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1815	withHigherPriorityDo:[
11559 e7e09a21e8f9 changed: #reallyModified Claus Gittinger <cg@exept.de> parents: 11520 diff changeset	1816	changedSource := textView contentsAsString asStringCollection.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1817	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1818	changedSource := changedSource collect:[:line \| line string withoutTrailingSeparators withTabsExpanded].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1819	changedSource := changedSource collect:[:line \| line isEmpty ifTrue:[nil] ifFalse:[line]].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1820	[changedSource size > 0 and:[changedSource last isNil]] whileTrue:[
12708 c463b5656d84 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12354 diff changeset	1821	changedSource := changedSource copyButLast:1
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1822	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1823	changedSource := changedSource asString.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1824
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1825	originalSource := textView model value ? ''.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1826
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1827	originalSource := originalSource asStringCollection.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1828	originalSource := originalSource collect:[:line \| line string withoutTrailingSeparators withTabsExpanded].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1829	originalSource := originalSource collect:[:line \| line isEmpty ifTrue:[nil] ifFalse:[line]].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1830	[originalSource size > 0 and:[originalSource last isNil]] whileTrue:[
12708 c463b5656d84 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12354 diff changeset	1831	originalSource := originalSource copyButLast:1
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1832	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1833
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1834	s1 := originalSource asString.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1835	s2 := changedSource asString.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1836	modified := (s1 ~= s2).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1837
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1838	^ modified
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1839
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1840	"Created: / 06-02-2010 / 19:59:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11559 e7e09a21e8f9 changed: #reallyModified Claus Gittinger <cg@exept.de> parents: 11520 diff changeset	1841	"Modified (format): / 05-06-2012 / 23:55:02 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1842	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1843
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1844	showInfo: message
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1845
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1846	\| app \|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1847	(app := self topView application) ifNotNil:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1848	[(app respondsTo: #showInfo:) ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1849	[app showInfo: message]].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1850
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1851	"Modified: / 13-02-2010 / 23:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1852	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1853
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1854	!CodeView2 methodsFor:'private-accessing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1855
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1856	gutterView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1857
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1858	^gutterView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1859
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1860	"Created: / 14-02-2010 / 15:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1861	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1862
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1863	syntaxElementSelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1864	^ syntaxElementSelection
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1865	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1866
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1867	syntaxElementSelection:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1868	syntaxElementSelection := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1869	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1870
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1871	syntaxElements
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1872	^ syntaxElements
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1873	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1874
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1875	syntaxElements:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1876	syntaxElements := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1877	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1878
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1879	textView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1880
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1881	^textView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1882
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1883	"Created: / 14-02-2010 / 15:21:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1884	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1885
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1886	textViewScroller
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1887
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1888	^textViewScroller
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1889
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1890	"Created: / 14-02-2010 / 15:21:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1891	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1892
11179 dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1893	!CodeView2 methodsFor:'realization'!
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1894
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1895	postRealize
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1896
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1897	services do:[:service\|
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1898	service viewRealized.
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1899	]
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1900
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1901	"Created: / 23-01-2012 / 10:35:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1902	! !
dc0c7401bce0 added: #postRealize vrany parents: 11054 diff changeset	1903
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1904	!CodeView2 methodsFor:'services'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1905
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1906	registerService: aCodeViewService
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1907
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1908	services add: aCodeViewService.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1909	aCodeViewService registerIn: self
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1910
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1911	"Created: / 06-03-2010 / 19:19:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1912	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1913
11616 c23e4a5d3384 added: #unregisterService: Claus Gittinger <cg@exept.de> parents: 11606 diff changeset	1914	unregisterService: aCodeViewService
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1915
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1916	services remove: aCodeViewService ifAbsent:[^self].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1917	aCodeViewService unregister.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1918
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1919	"Created: / 06-03-2010 / 19:21:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11616 c23e4a5d3384 added: #unregisterService: Claus Gittinger <cg@exept.de> parents: 11606 diff changeset	1920	"Created: / 19-07-2012 / 16:34:18 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1921	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1922
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1923	!CodeView2 methodsFor:'testing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1924
10722 b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1925	isCodeView2
b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1926
b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1927	^true
b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1928
b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1929	"Created: / 20-07-2010 / 15:43:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1930	!
b5c270e3971c category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10708 diff changeset	1931
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1932	isTextView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1933
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1934	^true
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1935
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1936	"Created: / 14-02-2010 / 22:13:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1937	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1938
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1939	!CodeView2::GutterView methodsFor:'accessing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1940
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1941	setTextView: aTextView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1942
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1943	self assert: textView isNil message:'Attempting to set textView twice'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1944	textView := aTextView.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1945
10577 ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	1946	"/ self backgroundPaint: textView backgroundPaint darkened lighter.
ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	1947	self viewBackground: (View defaultBackgroundColor). "/ textView backgroundPaint darkened lighter.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948	self paint: textView paint.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1949	self font: textView font.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1950
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1951	"Created: / 02-09-2009 / 21:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1952	"Modified: / 14-12-2009 / 15:09:29 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1953	"Modified: / 09-02-2010 / 20:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10577 ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	1954	"Modified: / 17-08-2011 / 15:15:09 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1955	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1956
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1957	setTextViewScroller:aScr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1958	textViewScroller := aScr.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1959
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960	"Created: / 07-12-2009 / 22:36:31 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1962
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1963	!CodeView2::GutterView methodsFor:'accessing-dimensions'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1964
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1965	acceptButtonBottom
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1966
10791 a12cd2d06fe3 Bug fix in accept/cancel bar redraw vrany parents: 10788 diff changeset	1967	^(self height * 0.6) ceiling.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1968
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1969	"Created: / 07-10-2011 / 19:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1970	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1971
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1972	cancelButtonBottom
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1973
10791 a12cd2d06fe3 Bug fix in accept/cancel bar redraw vrany parents: 10788 diff changeset	1974	^(self height * 0.8) ceiling.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1975
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1976	"Created: / 07-10-2011 / 19:54:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1977	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1978
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1979	padding
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1980
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1981	^self paddingLeft + self paddingRight
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	1982	+ self usedWidthForAcceptCancel
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1983	+ (widthAnnotations ? 0)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1984	+ (widthDiffInfo ? 0)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1985
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1986	"Created: / 14-02-2010 / 22:28:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1987	"Modified: / 07-10-2011 / 19:01:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	1988	"Modified (format): / 07-10-2011 / 20:45:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1989	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1990
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1991	paddingLeft
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1992
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1993	^0"px"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1994
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1995	"Created: / 14-02-2010 / 22:27:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1996	"Modified: / 16-06-2011 / 13:47:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1997	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1998
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1999	paddingRight
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2000
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2001	^0"px"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2002
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2003	"Created: / 14-02-2010 / 22:27:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2004	"Modified: / 16-06-2011 / 13:47:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2005	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2006
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2007	preferredExtent
11467 9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2008	\| font w h \|
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2009
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2010	explicitExtent ifNotNil:[^explicitExtent].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2011	preferredExtent ifNotNil:[^preferredExtent].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2012
11467 9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2013	font := self font.
9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2014	w := (font widthOf:'00') + self padding.
9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2015	h := textView notNil
9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2016	ifTrue:[textView height]
9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2017	ifFalse:[font height * 12].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2018
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2019	^preferredExtent := w @ h
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2020
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2021	"Modified: / 16-06-2011 / 14:03:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11467 9465ed2c4e74 comment Claus Gittinger <cg@exept.de> parents: 11429 diff changeset	2022	"Modified (format): / 26-03-2012 / 11:19:54 / cg"
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2023	!
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2024
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2025	usedWidthForAcceptCancel
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2026	^ (codeView showAcceptCancelBar ifTrue:[widthAcceptCancel ? 0] ifFalse:[0])
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2027	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2028
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2029	!CodeView2::GutterView methodsFor:'actions'!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2030
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2031	accept
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2032
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2033	textView accept
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2034
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2035	"Created: / 07-10-2011 / 20:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2036	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2037
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2038	cancel
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2039
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2040	textView cancel
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2041
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2042	"Created: / 07-10-2011 / 20:23:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2043	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2044
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2045	diff
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2046
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2047	"Created: / 07-10-2011 / 20:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2048	! !
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2049
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2050	!CodeView2::GutterView methodsFor:'change & update'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2051
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2052	update:something with:aParameter from:changedObject
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2053	self shown ifFalse:[^self].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2054
10326 c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2055	(changedObject == textView) ifTrue:[
c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2056	(something == #sizeOfContents) ifTrue:[
c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2057	"/ cg: with that test, it does not update when the text becomes smaller...
c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2058	"/ (firstLineShown ~= textView firstLineShown
c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2059	"/ or:[lastLineShown ~= (textView lastLineShown - 1)]) ifTrue:[
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2060	self invalidate.
5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2061	^self.
10326 c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2062	"/ ]
c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2063	].
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2064	].
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2065	(changedObject == textView reallyModifiedChannel) ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2066	self invalidate.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2067	].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2069	"/ changedObject == someOfMyValueHolders ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2070	"/ self doSomethingApropriate.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2071	"/ ^ self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072	"/ ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2073	super update:something with:aParameter from:changedObject
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2074
10326 c41b20a3175c x Claus Gittinger <cg@exept.de> parents: 10312 diff changeset	2075	"Modified (format): / 15-07-2011 / 20:14:04 / cg"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2076	"Modified: / 07-10-2011 / 19:25:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2077	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2078
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2079	!CodeView2::GutterView methodsFor:'event handling'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2080
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2081	buttonPress: btn x: x y: y
11520 091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2082	\|extraSafeArea\|
091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2083
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2084	(x <= (self paddingLeft + self usedWidthForAcceptCancel)) ifTrue:[
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2085	textView reallyModified ifTrue:[
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2086	(y < self acceptButtonBottom) ifTrue:[
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2087	self accept.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2088	^self.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2089	].
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2090	(y < self cancelButtonBottom) ifTrue:[
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2091	self cancel.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2092	^self.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2093	].
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2094	self diff.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2095	].
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2096	^self.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2097	].
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2098
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2099	false ifTrue:[
11520 091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2100	"Do not allow clicking on line numbers..."
11769 d7f4b4d5c084 x Claus Gittinger <cg@exept.de> parents: 11706 diff changeset	2101	extraSafeArea := "('999' widthOn:self)" 5.
11520 091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2102	x < (self width - self paddingRight - widthDiffInfo - extraSafeArea) ifFalse:[^ self].
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2103	].
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2104
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2105	((x > (self paddingLeft + self usedWidthForAcceptCancel)) or:
11520 091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2106	[x < (self width - self paddingRight - widthDiffInfo)]
091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2107	) ifTrue:[
091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2108	(codeView buttonPress: btn x:x y:y in: self) ifFalse:[
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2109	super buttonPress: btn x: x y: y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2110	]
11520 091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2111	] ifFalse:[
091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2112	super buttonPress: btn x: x y: y
091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2113	]
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2114
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2115	"Created: / 17-06-2011 / 13:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11520 091c7e0e435a added a save-area (line-number) into which a click does not toggle Claus Gittinger <cg@exept.de> parents: 11467 diff changeset	2116	"Modified (comment): / 18-05-2012 / 10:56:54 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2117	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2118
11220 82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2119	!CodeView2::GutterView methodsFor:'help'!
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2120
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2121	flyByHelpText
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2122	^ 'Click to toggle breakpoint. Shift-Click to toggle tracepoint.'
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2123
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2124	"Created: / 27-01-2012 / 14:04:52 / cg"
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2125	! !
82c46989af92 flybyhelp in gutter Claus Gittinger <cg@exept.de> parents: 11179 diff changeset	2126
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2127	!CodeView2::GutterView methodsFor:'initialization'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2128
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2129	initialize
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2130
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2131	super initialize.
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2132
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2133	widthAcceptCancel := 16.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2134	widthAnnotations := 8.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2135	widthDiffInfo := 5.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2136
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2137	acceptColor := Color green lighter.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2138	cancelColor := Color red lighter lighter.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2139	diffColor := Color yellow lighter lighter.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2140
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2141	"Created: / 16-06-2011 / 13:47:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2142	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2143
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2144	setCodeView: aCodeView2
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2145
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2146	codeView := aCodeView2.
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2147	textView := aCodeView2 textView.
b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2148
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2149	codeView addDependent: self.
10784 5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2150	codeView reallyModifiedChannel addDependent: self.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2151	textView addDependent: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2152	textViewScroller := aCodeView2 textViewScroller.
10577 ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	2153	"/ self backgroundPaint: (textView viewBackground "backgroundPaint" blendWith: (Color gray:80)).
ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	2154	self viewBackground: (View defaultBackgroundColor).
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2155
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2156	"Created: / 14-02-2010 / 15:19:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10577 ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	2157	"Modified: / 17-08-2011 / 15:15:55 / cg"
10784 5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2158	"Modified: / 08-10-2011 / 11:58:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2159	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2160
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2161	!CodeView2::GutterView methodsFor:'queries'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2162
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2163	displayedString: line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2164	"get text to display in gutter for specified list line number"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2165
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2166	^(line asString).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2167
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2168	"Created: / 14-12-2009 / 13:37:47 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2169	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2170
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2171	lineColor:line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2172	"return special color for given line if required, nil otherwise"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2173	"used only if lineFont return nil"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2174
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2175	^nil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2176
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2177	"Created: / 14-12-2009 / 15:01:31 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2178	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2179
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2180	lineDisplayable:line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2181	"true if this list line can be displayed"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2182	^(textView listLineIsVisible:line)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2183
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2184	"Created: / 14-12-2009 / 13:38:23 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2185	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2186
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2187	lineFont:line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2188	"return special font for given line if required, nil otherwise"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2189
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2190	^nil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2191
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2192	"Created: / 14-12-2009 / 14:40:17 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2193	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2194
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2195	yOfTextViewLine:line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2196	^(textView yOfLine:line) + 1
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2197
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2198	"Created: / 14-12-2009 / 13:35:07 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2199	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2200
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2201	!CodeView2::GutterView methodsFor:'redrawing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2202
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2203	redrawAcceptCancelBarX: x y: y width:w height:h
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2204
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2205	\| rw acceptBottom cancelBottom \|
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2206
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2207	x > ((self paddingLeft) + (widthAcceptCancel ? 0)) ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2208	^self.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2209	].
10791 a12cd2d06fe3 Bug fix in accept/cancel bar redraw vrany parents: 10788 diff changeset	2210	rw := ((x + w) min: (self paddingLeft + (widthAcceptCancel ? 0))) - x.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2211
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2212
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2213	textView reallyModified ifFalse:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2214	self fillRectangleX:x y:y width:rw height:h color: self viewBackground
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2215	] ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2216	acceptBottom := self acceptButtonBottom.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2217	cancelBottom := self cancelButtonBottom.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2218	y < acceptBottom ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2219	self fillRectangleX:x y:y width:rw height: ((y + h) min: acceptBottom) color: acceptColor.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2220	].
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2221	(y < cancelBottom) ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2222	self fillRectangleX:x y: acceptBottom + 1width:rw height: ((y + h) min: cancelBottom) - acceptBottom - 1color: cancelColor.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2223	].
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2224	(y + h >= cancelBottom) ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2225	self fillRectangleX:x y: cancelBottom + 1 width:rw height: (y + h) - cancelBottom - 1 color: diffColor.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2226	]
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2227
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2228	]
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2229
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2230	"Created: / 07-10-2011 / 19:44:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2231	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2232
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2233	redrawBackgroundX:x y:y width:w height:h
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2234	"redraws gutter background"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2235
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2236	"background is filled with background color"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2237	self
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2238	fillRectangleX:x
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2239	y:y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2240	width:w
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2241	height:h
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2242	color: self viewBackground "backgroundPaint".
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2243
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2244	"separator line is drawn with foreground color"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2245	self
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2246	displayLineFromX:(self width - 2)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2247	y:y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2248	toX:(self width - 2)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2249	y:(y+h).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2250
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2251	"Created: / 14-12-2009 / 13:15:53 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2252	"Modified: / 14-12-2009 / 15:09:54 / Jindra <a>"
10577 ae449524a0b4 redrawing grey Claus Gittinger <cg@exept.de> parents: 10523 diff changeset	2253	"Modified: / 17-08-2011 / 15:12:47 / cg"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2254	"Modified (comment): / 07-10-2011 / 19:37:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2255	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2256
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2257	redrawLine:line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2258
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2259	^self redrawLine:line cleared: false.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2260
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2261	"Modified: / 17-06-2011 / 14:12:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2262	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2263
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2264	redrawLine:line cleared: cleared
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2265	"redraws specified line. Returns width of drawn object. Color of drawn objects should be taken from lineFont, lineColor"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2266
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2267	\|lineString y0 textW requiredW oldFont newFont oldColor newColor\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2268
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2269	lineString := self displayedString:line.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2270	textW := (lineString widthOn:self).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2271	requiredW := textW + self padding.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2272
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2273	oldFont := self font.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2274	oldColor := self paint.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2275	newFont := self lineFont:line.
11424 69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2276	newFont isNil ifTrue:[
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2277	newFont := oldFont.
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2278	newColor := self lineColor:line.
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2279	newColor ifNotNil:[ self paint:newColor ].
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2280	] ifFalse:[
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2281	self font:newFont.
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2282	].
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2283	(newFont heightOn:device) > (textView font heightOn:device) ifTrue:[
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2284	newFont := textView font.
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2285	self font:newFont
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2286	].
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2287
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2288	y0 := (textView yOfLine:line)
69b3960c7757 care for small text-font in gutterview Claus Gittinger <cg@exept.de> parents: 11398 diff changeset	2289	+ (textView font ascentOn:device)
11606 b5ff5131266b line number redrawing Claus Gittinger <cg@exept.de> parents: 11597 diff changeset	2290	"/ - (newFont descentOn:device)
b5ff5131266b line number redrawing Claus Gittinger <cg@exept.de> parents: 11597 diff changeset	2291	+ 1.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2292
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2293	cleared ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2294	self clearRectangleX:0 y:y0 - font height width: self width - 2 height: font height + font descent.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2295	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2296
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2297	"Let the services to draw annotations and other stuff"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2298	codeView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2299	drawLine:line in: self
11988 b482d2c77040 changed to not take up screen space for the accept/cancel gutter, Claus Gittinger <cg@exept.de> parents: 11903 diff changeset	2300	atX: self paddingLeft + self usedWidthForAcceptCancel y:y0 width: widthAnnotations height: font height
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2301	from:nil to:nil with:self paint and: self backgroundColor.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2302
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2303	self
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2304	displayString:lineString
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2305	x:(self width - textW - self paddingRight - widthDiffInfo)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2306	y:y0.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2307	newFont
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2308	ifNotNil:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2309	self font:oldFont.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2310	self paint:oldColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2311	]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2312	ifNil:[ newColor ifNotNil:[ self paint:oldColor ]. ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2313	^ requiredW.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2314
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2315	"Modified: / 14-12-2009 / 15:30:44 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2316	"Created: / 17-06-2011 / 14:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11606 b5ff5131266b line number redrawing Claus Gittinger <cg@exept.de> parents: 11597 diff changeset	2317	"Modified: / 18-07-2012 / 19:05:24 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2318	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2319
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2320	redrawLinesFrom:start
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2321
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2322	start to: (textView lastLineShown - 1 min: textView list size) do:[:line\|
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2323	self redrawLine:line cleared: false.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2324	]
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2325
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2326	"Created: / 06-07-2011 / 17:25:36 / jv"
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2327	"Modified: / 12-07-2011 / 17:14:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2328	!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	2329
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2330	redrawX:x y:y width:w height:h
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2331	\| requiredW currentW \|
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2332
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2333	self redrawBackgroundX:x y:y width:w height:h.
10793 c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	2334
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	2335	codeView showAcceptCancelBar ifTrue:[
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	2336	self redrawAcceptCancelBarX:x y:y width:w height:h.
c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	2337	].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2338
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2339	firstLineShown := textView firstLineShown.
5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2340	lastLineShown := textView lastLineShown - 1 min: textView list size.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2341
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2342	currentW := requiredW := self width.
10312 5b281e46f943 Fixes to avoid unncessary redraws of GutterView vrany parents: 10293 diff changeset	2343	firstLineShown to:lastLineShown do:
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2344	[:line \|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2345	requiredW := requiredW max: (self redrawLine:line cleared: true)].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2346
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2347	(requiredW > self width) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2348	self corner:(requiredW @ 1.0).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2349	textViewScroller origin:(requiredW @ 0.0) corner:(1.0 @ 1.0).
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2350	self invalidate.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2351	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2352
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2353	"Created: / 03-09-2009 / 08:22:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2354	"Modified: / 14-12-2009 / 14:13:14 / Jindra <a>"
10793 c19380a197aa Added channel for controlling visibility of accept/cancel vrany parents: 10791 diff changeset	2355	"Modified: / 10-10-2011 / 16:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2356	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2357
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2358	!CodeView2::TextView methodsFor:'accessing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2359
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2360	changedDiffText
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2361	^ changedDiffText
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2362	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2363
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2364	changedDiffText:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2365	changedDiffText := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2366	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2367
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2368	changedLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2369	^ changedLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2370
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2371	"Created: / 26-04-2010 / 20:30:32 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2372	"Modified: / 26-04-2010 / 21:48:13 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2373	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2374
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2375	changedLines:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2376	changedLines := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2377
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2378	"Created: / 26-04-2010 / 20:30:19 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2379	"Modified: / 02-05-2010 / 19:13:32 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2380	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2381
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2382	contents: text
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2383
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2384	super contents: text.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2385	reallyModifiedChannel value: false.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2386
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2387	"Created: / 07-10-2011 / 20:32:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2388	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2389
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2390	deletedLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2391	^ deletedLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2392
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2393	"Modified: / 26-04-2010 / 21:48:23 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2394	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2395
11597 b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2396	deletedLines:something
b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2397	deletedLines := something.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2398
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2399	"Modified: / 26-04-2010 / 21:48:54 / Jakub <zelenja7@fel.cvut.cz>"
11597 b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2400	"Modified (format): / 17-07-2012 / 18:56:44 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2401	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2402
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2403	diffMode
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2404	^ diffMode
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2405	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2406
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2407	diffMode:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2408	diffMode := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2409	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2410
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2411	emptyLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2412	^ emptyLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2413	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2414
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2415	emptyLines:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2416	emptyLines := something.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2417	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2418
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2419	insertedLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2420	^ insertedLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2421
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2422	"Modified: / 26-04-2010 / 21:48:27 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2423	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2424
11597 b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2425	insertedLines:something
b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2426	insertedLines := something.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2427
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2428	"Modified: / 26-04-2010 / 21:48:59 / Jakub <zelenja7@fel.cvut.cz>"
11597 b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2429	"Modified (format): / 17-07-2012 / 18:56:50 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2430	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2431
10245 1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2432	modifiedChannel: aValueHolder
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2433
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2434	super modifiedChannel: aValueHolder
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2435
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2436	"Created: / 07-07-2011 / 12:27:11 / Jan Vrany <jan.vrant@fit.cvut,cz>"
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2437	!
1a1b298637d1 Attempt to fix the accept/cancel bar - no success. vrany parents: 10224 diff changeset	2438
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2439	originDiffText
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2440	^ originDiffText
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2441	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2442
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2443	originDiffText:something
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2444	originDiffText := something.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2445	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2446
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2447	reallyModified
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2448
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2449	^self reallyModifiedChannel value
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2450
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2451	"Created: / 07-10-2011 / 19:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2452	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2453
11393 fb1c9eb2aab7 category of:20 methods Claus Gittinger <cg@exept.de> parents: 11377 diff changeset	2454	!CodeView2::TextView methodsFor:'accessing-colors'!
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2455
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2456	colorChanged
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2457	^ Color redByte:240 greenByte: 192 blueByte: 192
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2458
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2459	"Modified: / 24-06-2010 / 14:05:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2460	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2461
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2462	colorDeleted
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2463	^ self colorInserted.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2464	"/^ Color pink
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2465
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2466	"Modified: / 24-06-2010 / 14:16:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2467	"Modified (format): / 07-10-2011 / 20:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11597 b758e21baa41 x Claus Gittinger <cg@exept.de> parents: 11559 diff changeset	2468	"Modified (format): / 17-07-2012 / 18:57:14 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2469	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2470
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2471	colorInserted
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2472	^ Color redByte: 239 greenByte: 225 blueByte: 152
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2473
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2474	"Modified: / 24-06-2010 / 14:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2475	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2476
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2477	!CodeView2::TextView methodsFor:'accessing-contents'!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2478
10784 5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2479	list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2480
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2481	super list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings.
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2482	listOriginal := aCollection copy.
10834 b25dd8ee319b changed: #initialize vrany parents: 10793 diff changeset	2483	reallyModifiedChannel value: false.
b25dd8ee319b changed: #initialize vrany parents: 10793 diff changeset	2484	self notifyLinesModifiedFrom: 1 to: list size.
10784 5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2485
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2486	"Created: / 08-10-2011 / 12:23:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2487	!
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	2488
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2489	setList:aCollection expandTabs:expandTabs redraw:doRedraw
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2490
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2491	super setList:aCollection expandTabs:expandTabs redraw:doRedraw.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2492	listOriginal := aCollection copy.
10834 b25dd8ee319b changed: #initialize vrany parents: 10793 diff changeset	2493	reallyModifiedChannel value: false.
b25dd8ee319b changed: #initialize vrany parents: 10793 diff changeset	2494	self notifyLinesModifiedFrom: 1 to: list size.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2495
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2496	"Created: / 07-10-2011 / 18:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2497	! !
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2498
10785 4bf3e024a256 added: vrany parents: 10784 diff changeset	2499	!CodeView2::TextView methodsFor:'accessing-state'!
4bf3e024a256 added: vrany parents: 10784 diff changeset	2500
4bf3e024a256 added: vrany parents: 10784 diff changeset	2501	beUnmodified
4bf3e024a256 added: vrany parents: 10784 diff changeset	2502
4bf3e024a256 added: vrany parents: 10784 diff changeset	2503	self modifiedChannel value: false.
4bf3e024a256 added: vrany parents: 10784 diff changeset	2504	reallyModifiedChannel value: false.
4bf3e024a256 added: vrany parents: 10784 diff changeset	2505	listOriginal := list copy.
4bf3e024a256 added: vrany parents: 10784 diff changeset	2506
4bf3e024a256 added: vrany parents: 10784 diff changeset	2507	"Created: / 08-10-2011 / 12:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	2508	!
4bf3e024a256 added: vrany parents: 10784 diff changeset	2509
4bf3e024a256 added: vrany parents: 10784 diff changeset	2510	isModified
4bf3e024a256 added: vrany parents: 10784 diff changeset	2511
4bf3e024a256 added: vrany parents: 10784 diff changeset	2512	^self modified
4bf3e024a256 added: vrany parents: 10784 diff changeset	2513
4bf3e024a256 added: vrany parents: 10784 diff changeset	2514	"Created: / 08-10-2011 / 12:52:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	2515	!
4bf3e024a256 added: vrany parents: 10784 diff changeset	2516
4bf3e024a256 added: vrany parents: 10784 diff changeset	2517	isReallyModified
4bf3e024a256 added: vrany parents: 10784 diff changeset	2518
4bf3e024a256 added: vrany parents: 10784 diff changeset	2519	^self reallyModified
4bf3e024a256 added: vrany parents: 10784 diff changeset	2520
4bf3e024a256 added: vrany parents: 10784 diff changeset	2521	"Created: / 08-10-2011 / 12:52:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4bf3e024a256 added: vrany parents: 10784 diff changeset	2522	! !
4bf3e024a256 added: vrany parents: 10784 diff changeset	2523
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2524	!CodeView2::TextView methodsFor:'channels'!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2525
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2526	reallyModifiedChannel
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2527
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2528	^ reallyModifiedChannel
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2529
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2530	"Created: / 07-10-2011 / 18:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2531	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2532
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2533	reallyModifiedChannel: aValueModel
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2534
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2535	\|prev\|
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2536
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2537	prev := reallyModifiedChannel.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2538	prev notNil ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2539	gutterView notNil ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2540	reallyModifiedChannel removeDependent: gutterView.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2541	]
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2542	].
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2543	reallyModifiedChannel := aValueModel.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2544	self setupChannel:aValueModel for:nil withOld:prev.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2545	gutterView notNil ifTrue:[
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2546	reallyModifiedChannel addDependent: gutterView.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2547	]
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2548
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2549	"Created: / 07-10-2011 / 18:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2550	! !
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	2551
12354 8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2552	!CodeView2::TextView methodsFor:'delegation-events'!
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2553
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2554	isQuickMenuModifierPressed
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2555	UserPreferences current codeView2QuickSendersAndImplementorsOnControl ifTrue:[
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2556	^ self sensor ctrlDown
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2557	].
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2558	^ self sensor metaDown
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2559	!
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2560
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2561	isQuickMenuModifierReleased
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2562	UserPreferences current codeView2QuickSendersAndImplementorsOnControl ifTrue:[
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2563	^ self sensor ctrlDown not
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2564	].
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2565	^ self sensor metaDown not
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2566	! !
8aac48d63ded changed default for Jan's quick menus to use the ALT button isntead Claus Gittinger <cg@exept.de> parents: 12347 diff changeset	2567
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2568	!CodeView2::TextView methodsFor:'drawing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2569
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2570	drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2571
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2572	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2573	drawFromVisibleLine:startVisLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2574	to:endVisLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2575	with:fg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2576	and:bg.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2577	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2578
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2579	"Created: / 05-04-2010 / 12:08:38 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2580	"Modified: / 02-05-2010 / 18:46:04 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2581	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2582
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2583	drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2584
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2585	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2586	drawLine:line
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2587	fromX:x
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2588	inVisible:visLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2589	with:fg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2590	and:bg.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2591	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2592
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2593	"Created: / 05-04-2010 / 12:07:07 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2594	"Modified: / 02-05-2010 / 18:46:00 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2595	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2596
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2597	drawLine:lineStringArg inVisible:visLineNr col:col with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2598
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2599	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2600	drawLine:lineStringArg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2601	inVisible:visLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2602	col:col
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2603	with:fg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2604	and:bg.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2605	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2606
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2607	"Created: / 05-04-2010 / 11:49:42 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2608	"Modified: / 02-05-2010 / 18:45:56 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2609	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2610
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2611	drawLine:lineStringArg inVisible:visLineNr from:startCol to:endColOrNil with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2612
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2613	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2614	drawLine:lineStringArg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2615	inVisible:visLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2616	from:startCol
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2617	to:endColOrNil
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2618	with:fg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2619	and:bg.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2620	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2621
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2622	"Created: / 05-04-2010 / 11:54:54 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2623	"Modified: / 02-05-2010 / 18:45:52 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2624	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2625
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2626	drawLine:lineString inVisible:visLineNr from:startCol with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2627
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2628	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2629	drawLine:lineString
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2630	inVisible:visLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2631	from:startCol
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2632	with:fg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2633	and:bg.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2634	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2635
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2636	"Created: / 05-04-2010 / 11:54:26 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2637	"Modified: / 02-05-2010 / 18:45:48 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2638	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2639
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2640	drawVisibleLine:visLineNr with:fg and:bg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2641
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2642	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2643	drawVisibleLine:visLineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2644	with:fg
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2645	and:bg.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2646	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2647
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2648	"Created: / 05-04-2010 / 11:49:42 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2649	"Modified: / 02-05-2010 / 18:45:44 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2650	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2651
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2652	redraw
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2653	"/ thisContext fullPrintAll.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2654	super redraw.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2655
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2656	"Created: / 30-06-2011 / 11:04:32 / cg"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2657	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2658
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2659	redrawLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2660	\|i pom\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2661
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2662	diffMode ifFalse:[^self].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2663
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2664	pom := self hasSelection.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2665	(pom) ifTrue:[ ^ self. ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2666	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2667	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2668	i <= (deletedLines size)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2669	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2670	((deletedLines at:i) > 0) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2671	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2672	drawVisibleLine:(deletedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2673	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2674	and:self colorDeleted.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2675	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2676	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2677	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2678	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2679	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2680	i <= (insertedLines size)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2681	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2682	((insertedLines at:i) > 0) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2683	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2684	drawVisibleLine:(insertedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2685	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2686	and:self colorInserted.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2687	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2688	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2689	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2690	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2691	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2692	i <= (changedLines size)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2693	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2694	((changedLines at:i) > 0) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2695	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2696	drawVisibleLine:(changedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2697	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2698	and:self colorChanged.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2699	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2700	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2701	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2702
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2703	"Created: / 26-04-2010 / 21:04:31 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2704	"Modified: / 22-06-2010 / 23:28:30 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2705	"Modified: / 08-04-2011 / 20:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2706	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2707
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2708	!CodeView2::TextView methodsFor:'editing'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2709
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2710	contentsChanged
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2711	super contentsChanged.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2712	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2713	codeView diffMode ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2714	changedDiffText ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2715	codeView recomputeDiff:self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2716	] ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2717	changedDiffText := true.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2718	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2719	]
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2720	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2721
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2722	"Created: / 22-06-2010 / 23:13:24 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2723	"Modified: / 01-08-2010 / 20:33:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2724	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2725
10971 aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2726	deleteCharBeforeCursor
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2727	"delete single character to the left of cursor and move cursor to left"
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2728
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2729	"BIG FAT WARNING: This method is copied from TextEditView,
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2730	the fix should be there, but someone smarter should review it
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2731	before the patch will be pushed up"
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2732
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2733	\|soCol wasOn lineNrAboveCursor ln prevTab\|
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2734
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2735	wasOn := self hideCursor.
11054 4a047a923805 fix for autoindent: deleting line when at the very beggining of the line vrany parents: 10977 diff changeset	2736	"JV@2012-01-06: Do not play with autoindent iff cursor is at the very beggining of the line"
4a047a923805 fix for autoindent: deleting line when at the very beggining of the line vrany parents: 10977 diff changeset	2737	(autoIndent and:[cursorCol ~~ 1]) ifTrue:[
10971 aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2738	prevTab := (self prevTabBefore:cursorCol) max:1.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2739	"JV@2011-12-10: The list can be shorter that cursorLine,
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2740	trailing because empty lines are not physically in the list."
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2741	(list size >= cursorLine) ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2742	ln := (list at:cursorLine) ? ''.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2743	] ifFalse:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2744	ln := ''.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2745	].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2746	ln size < prevTab ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2747	ln := ln , (String new:prevTab withAll:Character space).
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2748	].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2749	(ln copyTo:prevTab) isBlank ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2750	(ln copyFrom:prevTab+1) isBlank ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2751	cursorCol > prevTab ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2752	self cursorLine:cursorLine col:prevTab.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2753	wasOn ifTrue:[ self showCursor ].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2754	^ self
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2755	].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2756	] ifFalse:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2757	self deleteFromLine:cursorLine col:prevTab toLine:cursorLine col:cursorCol-1.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2758	self cursorLine:cursorLine col:prevTab.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2759	wasOn ifTrue:[ self showCursor ].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2760	^ self.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2761	]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2762	].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2763	].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2764
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2765	"/ (autoIndent
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2766	"/ and:[cursorCol ~~ 1
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2767	"/ and:[cursorLine <= (list size)]])
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2768	"/ ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2769	"/ soCol := (self leftIndentForLine:cursorLine) + 1.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2770	"/
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2771	"/ (cursorCol == soCol and:[soCol > 1]) ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2772	"/ ln := list at:cursorLine.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2773	"/ (ln notNil and:[(ln indexOfNonSeparatorStartingAt:1) < soCol]) ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2774	"/ soCol := 1
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2775	"/ ]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2776	"/ ]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2777	"/ ] ifFalse:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2778	soCol := 1.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2779	"/ ].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2780
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2781	(cursorCol ~~ soCol and:[cursorCol ~~ 1]) ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2782	"
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2783	somewhere in the middle of a line
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2784	"
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2785	self cursorLeft.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2786	self deleteCharAtLine:cursorLine col:cursorCol.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2787	] ifFalse:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2788	"
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2789	at begin of line - merge with previous line;
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2790	except for the very first line.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2791	"
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2792	(cursorLine == 1) ifFalse:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2793	lineNrAboveCursor := self validateCursorLine:(cursorLine - 1).
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2794	lineNrAboveCursor < cursorLine ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2795	(lineNrAboveCursor > 0 and:[lineNrAboveCursor > list size]) ifTrue:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2796	"/ we are beyond the end of the text.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2797	"/ move the cursor to the previous line.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2798	self cursorLine:lineNrAboveCursor col:1.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2799	] ifFalse:[
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2800	self mergeLine:lineNrAboveCursor removeBlanks:false.
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2801	]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2802	]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2803	]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2804	].
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2805	wasOn ifTrue:[ self showCursor ]
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2806
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2807	"Modified: / 16-01-1998 / 22:33:04 / cg"
11054 4a047a923805 fix for autoindent: deleting line when at the very beggining of the line vrany parents: 10977 diff changeset	2808	"Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10971 aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2809	!
aee24a2ac4fd Patch for #deleteCharBeforeCursor, should be moved to TextEditView vrany parents: 10970 diff changeset	2810
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2811	getNewOriginText
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2812	\|i size pole pom text helperText\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2813
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2814	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2815	pole := list.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2816	size := list size.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2817	text:=''.
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	2818	emptyLines isNil ifTrue:[emptyLines := #()].
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2819	[ i <= size ] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2820	pom := emptyLines indexOf:i.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2821	(pom = 0) ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2822	helperText := pole at:i.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2823	(helperText = '') ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2824	(helperText isNil)ifTrue:[helperText:=''].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2825	helperText:=helperText,Character cr.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2826	text := text asString , helperText asString.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2827	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2828	] ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2829	helperText := pole at:i.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2830	(helperText isNil)ifTrue:[helperText:=''].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2831	helperText:=helperText,Character cr.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2832	text := text asString , helperText asString.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2833	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2834	i:=i+1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2835	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2836	^text
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2837
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2838	"Created: / 22-06-2010 / 22:33:27 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2839	"Modified: / 24-06-2010 / 14:27:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10877 1ed55c34722d changed: Claus Gittinger <cg@exept.de> parents: 10844 diff changeset	2840	"Modified: / 18-11-2011 / 14:58:22 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2841	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2842
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2843	!CodeView2::TextView methodsFor:'editing-basic'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2844
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2845	basicDeleteCharsAtLine:lineNr fromCol:startCol toCol:endCol
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2846	"delete characters from startCol to endCol in line lineNr"
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2847
10731 5904065850c6 Fixed notification in #basicDeleteChars... vrany parents: 10728 diff changeset	2848	super basicDeleteCharsAtLine:lineNr fromCol:startCol toCol:endCol.
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2849	self notifyLinesModifiedFrom: lineNr to: lineNr.
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2850
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2851	"Created: / 16-09-2011 / 15:13:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2852	!
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2853
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2854	basicDeleteFromLine:startLineNr toLine:endLineNr
10728 463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2855
463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2856	super basicDeleteFromLine:startLineNr toLine:endLineNr.
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2857	self notifyLinesDeletedFrom:startLineNr to:endLineNr.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2858
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2859	"Created: / 28-06-2011 / 09:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2860	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2861
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2862	basicDeleteLineWithoutRedraw:lineNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2863
10728 463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2864	super basicDeleteLineWithoutRedraw:lineNr.
463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2865	self notifyLinesDeletedFrom: lineNr to: lineNr.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2866
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2867	"Created: / 28-06-2011 / 09:10:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2868	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2869
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2870	basicInsert:aCharacter atLine:lineNr col:colNr
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2871	"insert a single character at lineNr/colNr;
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2872	set emphasis to character at current position"
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2873
10728 463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2874	super basicInsert:aCharacter atLine:lineNr col:colNr.
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2875	self notifyLinesModifiedFrom: lineNr to: lineNr.
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2876
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2877	"Created: / 16-09-2011 / 15:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2878	!
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	2879
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2880	basicMergeLine:lineNr removeBlanks:removeBlanks
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2881
10728 463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2882	super basicMergeLine:lineNr removeBlanks:removeBlanks.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2883	self notifyLinesDeletedFrom: lineNr + 1 to: lineNr + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2884
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2885	"Created: / 28-06-2011 / 09:13:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2886	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2887
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2888	basicSplitLine:lineNr before:colNr
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2889
10728 463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2890	super basicSplitLine:lineNr before:colNr.
463a51112b1d Possibly redraw-bug fix vrany parents: 10723 diff changeset	2891	self notifyLinesInsertedFrom: lineNr +1 to: lineNr + 1.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2892
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2893	"Created: / 28-06-2011 / 09:14:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10977 a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2894	!
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2895
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2896	insertLines:someText from:start to:end before:lineNr
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2897
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2898	"/JV@2011-12-20: HACK, the super implementation should
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2899	"/not use leftIndent...when pasting. Following is a workaround"
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2900	\| wasAutoIndent \|
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2901
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2902	wasAutoIndent := autoIndent.
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2903	autoIndent := false.
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2904	super insertLines:someText from:start to:end before:lineNr.
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2905	autoIndent := wasAutoIndent
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2906
a484c4cad7e0 fix in paste in autoIndent mode vrany parents: 10973 diff changeset	2907	"Created: / 20-12-2011 / 15:32:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2908	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2909
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2910	!CodeView2::TextView methodsFor:'event handling'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2911
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2912	buttonMotion:button x:x y:y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2913
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2914	(codeView buttonMotion:button x:x y:y in: self)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2915	ifFalse:[super buttonMotion:button x:x y:y].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2916
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2917	"Created: / 14-02-2010 / 16:23:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2918	"Modified: / 06-03-2010 / 20:10:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2919	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2920
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2921	buttonPress: button x: x y: y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2922	\| ctrlDown \|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2923
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2924	(codeView buttonPress:button x:x y:y in: self)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2925	ifFalse:[super buttonPress:button x:x y:y].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2926	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2927	((ctrlDown := self sensor ctrlDown) and: [ codeView syntaxElementSelection notNil])
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2928	ifTrue: [codeView buttonPressInTextView: button x:x y:y ctrlDown: ctrlDown].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2929	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2930	buttonPress: button
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2931	x: x
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2932	y: y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2933	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2934
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2935	"Created: / 14-02-2010 / 18:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2936	"Modified: / 06-03-2010 / 20:37:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2937	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2938
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2939	exposeX:x y:y width:w height:h
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2940	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2941	exposeX:x
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2942	y:y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2943	width:w
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2944	height:h.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2945	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2946
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2947	"Created: / 05-04-2010 / 10:07:50 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2948	"Modified: / 02-05-2010 / 18:41:07 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2949	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2950
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2951	keyPress:key x:x y:y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2952	(codeView keyPress:key x:x y:y in: self)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2953	ifFalse:[super keyPress:key x:x y:y].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2954
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2955	"Modified: / 06-03-2010 / 20:34:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2956	"Modified: / 05-04-2010 / 09:55:52 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2957	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2958
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2959	keyRelease: key x: x y: y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2960
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2961	(codeView keyRelease:key x:x y:y in: self)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2962	ifFalse:[super keyRelease:key x:x y:y].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2963	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2964	(key = #Control_L) ifTrue:
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2965	[ codeView highlightClear. self redraw ].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2966
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2967	^ super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2968	keyRelease: key
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2969	x: x
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2970	y: y
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2971	"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2972
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2973	"Created: / 14-02-2010 / 16:38:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2974	"Modified: / 06-03-2010 / 21:04:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2975	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2976
10970 dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2977	!CodeView2::TextView methodsFor:'formatting'!
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2978
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2979	leftIndentForLine:lineNr
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2980
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2981	\| lang \|
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2982	lang := codeView language.
10973 44ccdbc1fb0a fix in #leftIndentForLine: for view with nil language vrany parents: 10972 diff changeset	2983	"Bit hacky here, should ask language some language toolbox
44ccdbc1fb0a fix in #leftIndentForLine: for view with nil language vrany parents: 10972 diff changeset	2984	for formatting helper, that should do it..."
44ccdbc1fb0a fix in #leftIndentForLine: for view with nil language vrany parents: 10972 diff changeset	2985	(lang notNil and:[lang isSmalltalk]) ifTrue:[
10970 dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2986	\| line lineNo indent \|
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2987	lineNo := lineNr.
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2988	[lineNo ~~ 1] whileTrue:[
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2989	lineNo := lineNo - 1.
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2990	line := self listAt:lineNo.
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2991
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2992	line notNil ifTrue:[
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2993	indent := line indexOfNonSeparatorStartingAt:1.
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2994	"beggining od block"
10972 7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	2995	line notEmptyOrNil ifTrue:[
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	2996	line last == $[ ifTrue:[
10970 dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	2997	indent := indent + 4.
10972 7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	2998	] ifFalse:[
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	2999	"end of block args"
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	3000	(line last == $\| and: [line includes: $[]) ifTrue:[
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	3001	indent := indent + 4.
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	3002	]
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	3003	].
7f13cb6e9a93 Fixed leftIndent... vrany parents: 10971 diff changeset	3004	].
10970 dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3005	indent ~~ 0 ifTrue:[
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3006	^ indent - 1
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3007	]
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3008	]
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3009	].
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3010	^0.
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3011	].
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3012	^super leftIndentForLine:lineNr
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3013
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3014	"Created: / 10-12-2011 / 11:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3015	! !
dc9da0fc38ef Small improvement for auto-indent (when enabled, not by default) vrany parents: 10967 diff changeset	3016
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3017	!CodeView2::TextView methodsFor:'initialization'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3018
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3019	initialize
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3020
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3021	super initialize.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3022
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3023	changedDiffText := true.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3024	diffMode := false.
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3025	suppressNotifications := false.
10523 ff18a902b162 Added preference for auto indent vrany parents: 10496 diff changeset	3026	autoIndent := UserPreferences current codeView2AutoIndent.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3027	reallyModifiedChannel := false asValue.
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3028
10630 d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	3029	self enableMotionEvents.
d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	3030
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3031	"Created: / 23-06-2010 / 17:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3032	"Modified: / 06-07-2011 / 17:46:31 / jv"
10630 d59bc761de55 fixed: #sendersMenu:selector: Claus Gittinger <cg@exept.de> parents: 10577 diff changeset	3033	"Modified: / 21-08-2011 / 10:09:29 / cg"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3034	"Modified: / 07-10-2011 / 19:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3035	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3036
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3037	setCodeView: aCodeView2
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3038
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3039	codeView := aCodeView2.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3040	codeView addDependent: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3041	gutterView := aCodeView2 gutterView.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3042
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3043	"Created: / 14-02-2010 / 15:22:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3044	"Modified: / 17-06-2011 / 12:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3045	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3046
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3047	setGutterView: aGutterView
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3048
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3049	self assert: gutterView isNil message:'Attempting to set gutterView twice'.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3050	gutterView := aGutterView.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3051	gutterView setTextView: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3052
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3053	"Created: / 02-09-2009 / 21:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3054	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3055
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3056	!CodeView2::TextView methodsFor:'menu & menu actions'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3057
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3058	accept
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3059
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3060	super accept.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3061	reallyModifiedChannel value: false.
10785 4bf3e024a256 added: vrany parents: 10784 diff changeset	3062	listOriginal := list copy.
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3063
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3064	"Created: / 07-10-2011 / 19:36:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3065	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3066
10784 5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	3067	cancel
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	3068
10785 4bf3e024a256 added: vrany parents: 10784 diff changeset	3069	self list: listOriginal
10784 5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	3070
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	3071	"Created: / 08-02-2010 / 09:29:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	3072	!
5a99ae3ce36a Fixes in built-in accept/cancel bar vrany parents: 10783 diff changeset	3073
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3074	editMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3075
11398 84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3076	^ codeView editMenu
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3077
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3078	"Created: / 14-02-2010 / 15:49:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11398 84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3079	"Modified (format): / 08-03-2012 / 12:30:22 / cg"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3080	!
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3081
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3082	searchVariableVisible
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3083	"search variable option in searchbox visible?"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3084
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3085	^ true
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3086
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3087	"Created: / 08-03-2012 / 14:01:51 / cg"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3088	!
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3089
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3090	syntaxElementAtPosition:position
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3091	"if there is a syntax element for a variable under the cursor?
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3092	If so, return the element; otherwise, return nil"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3093
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3094	\|syntaxElements el element\|
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3095
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3096	syntaxElements := codeView syntaxElements.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3097	syntaxElements isEmptyOrNil ifTrue:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3098	el := syntaxElements detect:[:el \| position between:el start and:el stop] ifNone:nil.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3099	el isNil ifTrue:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3100	element := 1234.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3101	^ el.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3102
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3103	"Created: / 08-03-2012 / 14:21:52 / cg"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3104	!
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3105
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3106	syntaxElementForSelectedVariable
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3107	"if there is a syntax element for a variable under the cursor?
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3108	If so, return the element; otherwise, return nil"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3109
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3110	\|element startPosition endPosition\|
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3111
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3112	self selectionAsString isEmptyOrNil ifTrue:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3113	startPosition := self characterPositionOfLine:selectionStartLine col:selectionStartCol.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3114	endPosition := self characterPositionOfLine:selectionEndLine col:selectionEndCol.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3115	element := self syntaxElementAtPosition:startPosition.
11429 557c1dd0b497 Fix search when no syntax element has been detected Stefan Vogel <sv@exept.de> parents: 11424 diff changeset	3116	element isNil ifTrue:[^ nil].
11398 84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3117	(element start = startPosition and:[element stop = endPosition]) ifFalse:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3118
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3119	element isNil ifTrue:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3120	element isVariableOrSelf ifFalse:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3121	^ element
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3122
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3123	"Created: / 08-03-2012 / 14:21:15 / cg"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3124	!
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3125
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3126	syntaxElementForVariableUnderCursor
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3127	"if there is a syntax element for a variable under the cursor?
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3128	If so, return the element; otherwise, return nil"
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3129
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3130	\|elementUnderCursor \|
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3131
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3132	elementUnderCursor := self syntaxElementAtPosition:(self characterPositionOfCursor).
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3133	elementUnderCursor isNil ifTrue:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3134	elementUnderCursor isVariableOrSelf ifFalse:[^ nil].
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3135	^ elementUnderCursor.
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3136
84d3987c0155 better search (for variables) Claus Gittinger <cg@exept.de> parents: 11393 diff changeset	3137	"Created: / 08-03-2012 / 12:44:03 / cg"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3138	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3139
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3140	!CodeView2::TextView methodsFor:'notification'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3141
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3142	notifyLinesDeletedFrom: startLine to: endLine
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3143
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3144	self updateReallyModified.
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3145	suppressNotifications ifTrue:[^self].
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3146	codeView linesDeletedFrom: startLine to: endLine.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3147	suppressNotifications := true.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3148
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3149	"Created: / 28-06-2011 / 09:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3150	"Modified: / 06-07-2011 / 17:47:05 / jv"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3151	"Modified: / 07-10-2011 / 19:20:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3152	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3153
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3154	notifyLinesInsertedFrom: startLine to: endLine
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3155
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3156	self updateReallyModified.
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3157	suppressNotifications ifTrue:[^self].
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3158	codeView linesInsertedFrom: startLine to: endLine.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3159	suppressNotifications := true.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3160
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3161	"Created: / 28-06-2011 / 09:12:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3162	"Modified: / 06-07-2011 / 17:47:20 / jv"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3163	"Modified: / 07-10-2011 / 19:20:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3164	!
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3165
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3166	notifyLinesModifiedFrom: startLine to: endLine
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3167
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3168	self updateReallyModified.
10708 dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3169	suppressNotifications ifTrue:[^self].
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3170	codeView linesModifiedFrom: startLine to: endLine.
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3171	suppressNotifications := true.
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3172
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3173	"Modified: / 06-07-2011 / 17:47:20 / jv"
dd79e944752e Fixes for syntax highlighting and code navigation. Now it should work fine debugger. vrany parents: 10689 diff changeset	3174	"Created: / 16-09-2011 / 15:12:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3175	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3176
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3177	!CodeView2::TextView methodsFor:'private'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3178
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3179	superEditMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3180
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3181	^super editMenu
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3182
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3183	"Created: / 14-02-2010 / 15:48:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3184	!
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3185
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3186	updateReallyModified
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3187	"check for modified code by comparing the source against
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3188	the codeViews contents.
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3189	Thats the true modified value (in case user undid its changes,
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3190	and the displayed text is actually original"
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3191
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3192	\|modified changedSource originalSource lastLineOfChangedSource lastLineOfOriginalSource\|
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3193
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3194	reallyModifiedChannel isNil ifTrue:[^self].
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3195	"JV@2011-10-27: Idea is not to do anything if nobody is
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3196	interested. Not sure if it is a good idea, thought."
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3197	reallyModifiedChannel dependents isEmptyOrNil ifTrue:[^self].
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3198
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3199	"/ higher prio to prevent it from being changed while we convert it (by editing)
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3200
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3201	modified := false.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3202
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3203	list size ~~ listOriginal size ifTrue:[
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3204	modified := true.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3205	] ifFalse:[
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3206	"/ cg: don't do that (collecting original/changedSource);
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3207	"/ for huge files (>8Mb), this makes editing annoying slow (editing a trace output, for example)
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3208	"/ changedSource := list ? #().
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3209	"/ changedSource := changedSource collect:[:line \| line isEmptyOrNil ifTrue:[nil] ifFalse:[line]].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3210	"/ [changedSource size > 0 and:[changedSource last isNil]] whileTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3211	"/ changedSource := changedSource removeLast.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3212	"/ ].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3213	"/
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3214	"/ originalSource := listOriginal ? #() "self model value ? ''".
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3215	"/ originalSource := originalSource collect:[:line \| line isEmptyOrNil ifTrue:[nil] ifFalse:[line]].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3216	"/ [originalSource size > 0 and:[originalSource last isNil]] whileTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3217	"/ originalSource := originalSource removeLast
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3218	"/ ].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3219	"/ originalSource size ~~ changedSource size ifTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3220	"/ modified := true.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3221	"/ ] ifFalse:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3222	"/ \| i stopIndex \|
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3223	"/
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3224	"/ i := 1.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3225	"/ stopIndex := originalSource size + 1.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3226	"/ [ modified not and:[ i < stopIndex ] ] whileTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3227	"/ \| originalL changedL \|
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3228	"/
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3229	"/ originalL := ((originalSource at: i) ? '') string.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3230	"/ changedL := ((changedSource at: i) ? '') string.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3231	"/ originalL ~= changedL ifTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3232	"/ originalL withoutTrailingSeparators ~= changedL withoutTrailingSeparators ifTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3233	"/ modified := true.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3234	"/ ]
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3235	"/ ].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3236	"/ i := i + 1.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3237	"/ ]
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3238	"/ ].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3239	"/ instead, do everything without collecting a new stringcollection.
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3240	changedSource := list ? #().
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3241	lastLineOfChangedSource := changedSource size.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3242	[lastLineOfChangedSource > 0 and:[(changedSource at:lastLineOfChangedSource) isEmptyOrNil]] whileTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3243	lastLineOfChangedSource := lastLineOfChangedSource - 1.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3244	].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3245	originalSource := listOriginal ? #().
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3246	lastLineOfOriginalSource := originalSource size.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3247	[lastLineOfOriginalSource > 0 and:[(originalSource at:lastLineOfOriginalSource) isEmptyOrNil]] whileTrue:[
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3248	lastLineOfOriginalSource := lastLineOfOriginalSource - 1.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3249	].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3250
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3251	lastLineOfOriginalSource ~~ lastLineOfChangedSource ifTrue:[
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3252	modified := true.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3253	] ifFalse:[
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3254	\| i stopIndex \|
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3255
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3256	i := 1.
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3257	stopIndex := lastLineOfOriginalSource + 1.
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3258	[ modified not and:[ i < stopIndex ] ] whileTrue:[
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3259	\| originalL changedL \|
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3260
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3261	originalL := ((originalSource at: i) ? '') string.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3262	changedL := ((changedSource at: i) ? '') string.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3263	originalL ~= changedL ifTrue:[
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3264	originalL withoutTrailingSeparators ~= changedL withoutTrailingSeparators ifTrue:[
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3265	modified := true.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3266	]
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3267	].
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3268	i := i + 1.
cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3269	]
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3270	].
21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3271
10781 f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3272	].
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3273
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3274	reallyModifiedChannel value: modified
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3275
f9ad38e58704 Added built-in accept/cancel bar. vrany parents: 10780 diff changeset	3276	"Created: / 07-10-2011 / 19:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10783 0334ddb2266a care for nil (empty) lines Claus Gittinger <cg@exept.de> parents: 10781 diff changeset	3277	"Modified: / 08-10-2011 / 11:10:01 / cg"
10844 cbb5f5dd900a Performance fix in CodeView2::TextView>>updateReallyModified vrany parents: 10834 diff changeset	3278	"Modified: / 28-10-2011 / 09:23:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3279	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3280
11903 5b027fc44ff8 +supportsSyntaxElements query Claus Gittinger <cg@exept.de> parents: 11769 diff changeset	3281	!CodeView2::TextView methodsFor:'queries'!
5b027fc44ff8 +supportsSyntaxElements query Claus Gittinger <cg@exept.de> parents: 11769 diff changeset	3282
5b027fc44ff8 +supportsSyntaxElements query Claus Gittinger <cg@exept.de> parents: 11769 diff changeset	3283	supportsSyntaxElements
5b027fc44ff8 +supportsSyntaxElements query Claus Gittinger <cg@exept.de> parents: 11769 diff changeset	3284	^ true
5b027fc44ff8 +supportsSyntaxElements query Claus Gittinger <cg@exept.de> parents: 11769 diff changeset	3285	! !
5b027fc44ff8 +supportsSyntaxElements query Claus Gittinger <cg@exept.de> parents: 11769 diff changeset	3286
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3287	!CodeView2::TextView methodsFor:'scrolling'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3288
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3289	basicScrollDown:nLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3290	\|i\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3291
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3292	(lastFirstLine isNil) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3293	lastFirstLine := firstLineShown.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3294	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3295	super scrollDown:nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3296	(lastFirstLine = firstLineShown) ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3297	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3298	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3299	i <= changedLines size
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3300	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3301	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3302	drawVisibleLine:(changedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3303	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3304	and:Color white.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3305	changedLines at:i put:(changedLines at:i) - nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3306	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3307	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3308	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3309	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3310	i <= insertedLines size
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3311	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3312	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3313	drawVisibleLine:(insertedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3314	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3315	and:Color white.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3316	insertedLines at:i put:(insertedLines at:i) - nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3317	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3318	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3319	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3320	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3321	i <= deletedLines size
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3322	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3323	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3324	drawVisibleLine:(deletedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3325	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3326	and:Color white.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3327	deletedLines at:i put:(deletedLines at:i) - nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3328	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3329	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3330	lastFirstLine := firstLineShown.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3331	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3332	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3333
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3334	"Created: / 06-04-2010 / 14:03:28 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3335	"Modified: / 02-05-2010 / 19:29:23 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3336	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3337
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3338	basicScrollUp:nLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3339	\|i\|
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3340
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3341	(scrolled isNil) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3342	scrolled := false.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3343	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3344	(lastFirstLine isNil) ifTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3345	lastFirstLine := firstLineShown.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3346	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3347	super scrollUp:nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3348	(lastFirstLine = firstLineShown) ifFalse:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3349	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3350	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3351	i <= insertedLines size
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3352	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3353	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3354	drawVisibleLine:(insertedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3355	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3356	and:Color white.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3357	insertedLines at:i put:(insertedLines at:i) + nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3358	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3359	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3360	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3361	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3362	i <= deletedLines size
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3363	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3364	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3365	drawVisibleLine:(deletedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3366	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3367	and:Color white.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3368	deletedLines at:i put:(deletedLines at:i) + nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3369	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3370	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3371	i := 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3372	[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3373	i <= changedLines size
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3374	] whileTrue:[
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3375	super
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3376	drawVisibleLine:(changedLines at:i)
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3377	with:fgColor
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3378	and:Color white.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3379	changedLines at:i put:(changedLines at:i) + nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3380	i := i + 1.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3381	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3382	lastFirstLine := firstLineShown.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3383	self redrawLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3384	].
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3385
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3386	"Created: / 06-04-2010 / 14:03:46 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3387	"Modified: / 02-05-2010 / 19:19:27 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3388	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3389
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3390	originChanged:delta
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3391
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3392	super originChanged:delta.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3393
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3394	gutterView invalidate.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3395
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3396	"Created: / 07-12-2009 / 21:50:49 / Jindra <a>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3397	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3398
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3399	scrollDown:nLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3400
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3401	codeView scrollDown: nLines in: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3402	self basicScrollDown: nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3403
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3404	"Modified: / 06-04-2010 / 14:04:28 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3405	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3406
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3407	scrollUp:nLines
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3408
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3409	codeView scrollUp: nLines in: self.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3410	self basicScrollUp: nLines.
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3411
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3412	"Modified: / 06-04-2010 / 14:05:40 / Jakub <zelenja7@fel.cvut.cz>"
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3413	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3414
10224 eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3415	!CodeView2::TextView methodsFor:'undo & again'!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3416
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3417	nonUndoableDo: aBlock
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3418
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3419	super nonUndoableDo: aBlock.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3420	suppressNotifications := false.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3421
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3422	"Created: / 06-07-2011 / 17:48:27 / jv"
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3423	!
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3424
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3425	undoableDo: aBlock info: into
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3426
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3427	super undoableDo: aBlock info: into.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3428	suppressNotifications := false.
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3429
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3430	"Created: / 06-07-2011 / 17:48:49 / jv"
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3431	! !
eb799692952b More improvements in BreakpointService vrany parents: 10072 diff changeset	3432
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3433	!CodeView2 class methodsFor:'documentation'!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3434
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	3435	version
12708 c463b5656d84 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12354 diff changeset	3436	^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.70 2013-04-25 13:10:51 stefan Exp $'
10293 7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	3437	!
7dec857f35f6 added: #debugMenu Claus Gittinger <cg@exept.de> parents: 10290 diff changeset	3438
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3439	version_CVS
12708 c463b5656d84 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12354 diff changeset	3440	^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.70 2013-04-25 13:10:51 stefan Exp $'
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3441	!
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3442
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3443	version_SVN
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3444	^ '�Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 �'
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3445	! !
76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3446
12347 21f8dcbabcbc class: Tools::CodeView2 Claus Gittinger <cg@exept.de> parents: 11988 diff changeset	3447
9985 76318fc4fb70 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3448	CodeView2 initialize!

author	Stefan Vogel <sv@exept.de>
	Thu, 25 Apr 2013 15:10:51 +0200
changeset 12708	c463b5656d84
parent 12354	8aac48d63ded
child 12782	08209e5c83aa
permissions	-rw-r--r--