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

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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 27 Sep 2012 21:08:20 +0100
branch	jv
changeset 12296	6921627a8c27
parent 12287	400a99059170
child 12301	d9f03189bb66
permissions	-rw-r--r--