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

author	Claus Gittinger <cg@exept.de>
	Tue, 04 Mar 2014 13:52:57 +0100
changeset 14101	ee267ce43178
parent 14057	94bd4556cf5d
child 14110	c671dfc959ef
permissions	-rw-r--r--