hg/stx-libtool: Tools__ChangeSetBrowser2.st@17656fc80e6c (annotated)

10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	2	COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3	All Rights Reserved
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	5	Permission is hereby granted, free of charge, to any person
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	6	obtaining a copy of this software and associated documentation
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	7	files (the 'Software'), to deal in the Software without
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	8	restriction, including without limitation the rights to use,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	9	copy, modify, merge, publish, distribute, sublicense, and/or sell
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	10	copies of the Software, and to permit persons to whom the
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	11	Software is furnished to do so, subject to the following
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	12	conditions:
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	13
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	14	The above copyright notice and this permission notice shall be
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	15	included in all copies or substantial portions of the Software.
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	16
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	17	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	18	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	19	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	20	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	21	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	22	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	23	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	24	OTHER DEALINGS IN THE SOFTWARE.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	"{ Package: 'stx:libtool' }"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	"{ NameSpace: Tools }"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	ToolApplicationModel subclass:#ChangeSetBrowser2
11198 dc203c7f8560 added: #open vrany parents: 11196 diff changeset	31	instanceVariableNames:'changesetHolder titleHolder allowOpenHolder changesetFile
dc203c7f8560 added: #open vrany parents: 11196 diff changeset	32	navigatorChangesetHolder navigatorSpecHolder list1 list1Holder
dc203c7f8560 added: #open vrany parents: 11196 diff changeset	33	selection1Holder list2 list2Holder selection2Holder classHolder
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	34	languageHolder codeAspectHolder showRemovedAspect showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	35	sourceView changeSourceHolder imageSourceHolder targetPackage
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	36	targetNamespace allowRemoveHolder allowAcceptHolder infoPanel
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	37	updateChangeFileHolder showFilterHolder'
11198 dc203c7f8560 added: #open vrany parents: 11196 diff changeset	38	classVariableNames:'ShowRemoved LastSelectionConditionString'
dc203c7f8560 added: #open vrany parents: 11196 diff changeset	39	poolDictionaries:''
dc203c7f8560 added: #open vrany parents: 11196 diff changeset	40	category:'Interface-Browsers-ChangeSet'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	43	ApplicationModel subclass:#ChangeEditor
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	44	instanceVariableNames:'changeHolder readonlyHolder showdiffHolder sourceChangeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	45	sourceImageHolder'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	46	classVariableNames:''
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	47	poolDictionaries:''
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	48	privateIn:ChangeSetBrowser2
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	49	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	50
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	copyright
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	"
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	55	COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	56	All Rights Reserved
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	57
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	58	Permission is hereby granted, free of charge, to any person
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	59	obtaining a copy of this software and associated documentation
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	60	files (the 'Software'), to deal in the Software without
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	61	restriction, including without limitation the rights to use,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	62	copy, modify, merge, publish, distribute, sublicense, and/or sell
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	63	copies of the Software, and to permit persons to whom the
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	64	Software is furnished to do so, subject to the following
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	65	conditions:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	67	The above copyright notice and this permission notice shall be
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	68	included in all copies or substantial portions of the Software.
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	69
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	70	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	71	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	72	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	73	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	74	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	75	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	76	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	77	OTHER DEALINGS IN THE SOFTWARE.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	!ChangeSetBrowser2 class methodsFor:'instance creation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	on: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	^self on: aChangeSet label: aChangeSet name
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	"Modified: / 26-10-2010 / 22:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	on: aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	^self on: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	"Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	on: aChangeSet label: label setupWith: aBlock
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	\| browser \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	browser := self new.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	browser
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	103	changeset: aChangeSet;
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	104	title: label.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	aBlock value: browser.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	^browser
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	"Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	!ChangeSetBrowser2 class methodsFor:'accessing'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	showRemoved
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	^ShowRemoved == true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	showRemoved: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	ShowRemoved := aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	!ChangeSetBrowser2 class methodsFor:'help specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	125	flyByHelpSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	by the UIHelpTool of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	the UIHelpTool may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	"
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	133	UIHelpTool openOnClass:Tools::ChangeSetBrowser
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	<resource: #help>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	138	^ super flyByHelpSpec addPairsFrom:#(
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	#fileLoad
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	141	'Select a file and show its contained changeset'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	#fileSave
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	144	'Save the changeset in a file'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	147
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	148	"Created: / 27-12-2011 / 10:37:47 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	151	!ChangeSetBrowser2 class methodsFor:'image specs'!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	152
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	153	applyFromLastSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	154	^ self applyFromLastSnapshotIcon2
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	155	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	156
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	157	applyFromLastSnapshotIcon1
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	158	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	159	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	160
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	161	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	162	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	163
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	164	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	165	self applyFromLastSnapshotIcon inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	166	ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	167	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	168	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	169
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	170	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	171
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	172	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	173	constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	174	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	175	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"H"H@@@@@@@@@H"H"H @@@@@@@@@@@@@B@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	176	@@;.;.; H@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	177	@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?0@B@P@B@P@O?P@O?P@O?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	178	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	179
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	180	applyFromLastSnapshotIcon2
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	181	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	182	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	183
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	184	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	185	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	186
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	187	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	188	self applyFromLastSnapshotIcon1 inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	189	ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon1
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	190	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	191	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	192
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	193	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	194
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	195	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	196	constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon1'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	197	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	198	@@@BH@@@@@@QDQ<@@BH @@@@@AH"H@@@H"@@@@@@D"H H H"@@@@@@@RH"@"H"@@@@@@@AH"H@H"H@@@@@@@<@@@@BH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	199	@@;.;.; @@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	200	@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A@C<C@C<C@C<&@C<<@C<\@C<H@@@@?<@@?<@@?<LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	201	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	202
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	203	applyIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	204	^ self applyIcon2
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	205	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	206
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	207	applyIcon1
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	208	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	209	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	210
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	211	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	212	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	213
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	214	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	215	self applyIcon inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	216	ImageEditor openOnClass:self andSelector:#applyIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	217	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	218	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	219
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	220	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	221
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	222	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	223	constantNamed:#'NewChangesBrowser class applyIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	224	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	225	UUUUUUUPUUUUUU?PUUUUUU?[UUUUUW=PP@@@@C<QQUUU=_4PQUUU?_4VQU_?TPQUUUW?TPQUUUW=TXQU=TPQUUUTPQ**TPQ%UTPQ***)TP
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	226	QUUUUUTPQUUUUUTUP@@@@@@PUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	227	@@@@@@@8@@@8@@A0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	228	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	229	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	230	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	231	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	232	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	233	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	234
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	235	applyIcon2
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	236	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	237	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	238
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	239	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	240	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	241
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	242	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	243	self applyIcon2 inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	244	ImageEditor openOnClass:self andSelector:#applyIcon2
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	245	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	246	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	247
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	248	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	249
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	250	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	251	constantNamed:#'NewChangesBrowser class applyIcon2'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	252	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	253	DQDQDQDQDQDQP3PQDQDQDQDQDQECMADQDQDQDQDQECMADQDQDQEDPQDTL4DP@@@@@DL4@DL4@Q@QDQDQP3MAP3PADADQDQDTL3P3PPDPD"H"HQECL3MA@Q@Q
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	254	DQDQDQP3MADADADQDQDQDTL4DPDPD"H"H"HQEDDQ@Q@RH"H!!DQDQDQDADAH"H"H"H"H"DPDPD"H"H"H!!DQDQ@Q@RH"H"H"H"HQDADADQDQDQDQDQDPDPDQDQ
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	255	DQDQDQDQ@Q@@@@@@@@@@@@@ADQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0 85 85 85]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	256	@@@<@@@<@@A8@C!!8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	257	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	258	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	259	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	260	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	261	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	262	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	263
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	264	applyToEndIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	265	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	266	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	267
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	268	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	269	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	270
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	271	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	272	self applyToEndIcon inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	273	ImageEditor openOnClass:self andSelector:#applyToEndIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	274	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	275	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	276
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	277	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	278
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	279	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	280	constantNamed:#'NewChangesBrowser class applyToEndIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	281	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	282	@@@DP@@@@@@@@@@@@DQ@@@@@@@@@@@@@QD@@@"H"H"@@Q@QD@@@BH"H"H@ADQD@@@@@@@@@ @@QDP@@BH"H"HB@@@DP@@@H"H"H @@@@@@@@@@@@@B@@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	283	@@L3L3L0H@@@@@@@@3L3L3@@@@@@@@@@@@@@L@@B@@@@@3L3L3@0@@@B@@@CL3L3L@@@H@@@@@@@@@@0@@@@H@@ADQDQDC@@@ @@@@DQDQDP@@@@@ @@@@@@
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	284	@A@@@B@@@@DQDQDPD@@ @@@@@SL3DQ@@@@@@@@@AL3L3D@@@@@@@@@DQDQDP@@@@@ @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A@@@CC?0CC?0&C?0<O?0\O?0HO?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	285	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	286
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	287	compressIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	288	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	289	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	290
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	291	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	292	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	293
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	294	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	295	ImageEditor openOnClass:self andSelector:#compressIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	296	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	297
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	298	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	299
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	300	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	301	constantNamed:#'NewChangesBrowser compressIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	302	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@????<@@@:*(@@@8@@@8@@@8@@@8@@@@@@@8@@@@@@@8A@@@@@@8@@:0@8HC+@@8@@@@@@@8H@@@@@@8@@@@@@@8@@@@@@@8@@@@@@@8@@C????8@@C**(@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 124 124 124 170 170 170 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@??0A??8A??8A??8A8A8G>A8@@A8G?98O?18_?!!8??A8@@A8G>A8@0A8C??8C??8C??8C??0@0@@D2@@G>@@D2@@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	303	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	304
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	305	deleteIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	306	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	307	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	308
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	309	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	310	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	311
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	312	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	313	ImageEditor openOnClass:self andSelector:#deleteIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	314	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	315
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	316	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	317
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	318	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	319	constantNamed:#'NewChangesBrowser deleteIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	320	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUU@@OA??UU@@@AUUUU@@@AUUUU@B@A???U@H@A??5U@@@A???0@@@AUUUB@B@@@@@@@@@@@@@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?<@_?<@_?<P_?<P_?<X_?<X_?<H_? H_?O<_?XL@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	321	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	322
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	323	deleteToEndIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	324	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	325	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	326
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	327	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	328	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	329
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	330	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	331	ImageEditor openOnClass:self andSelector:#deleteToEndIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	332	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	333
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	334	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	335
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	336	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	337	constantNamed:#'NewChangesBrowser deleteToEndIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	338	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B @@O@B @@@@@@@ @@@@??< @B@@??<@@H@@@@L@@@@EUUL@@@@G?U@B@B@G?=@@@@@EUU@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C?0@C?0@C?0PO?0PO?0XO?0X??@H??@H??O<?<XL?<_<?<_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	339	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	340
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	341	findLastSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	342	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	343	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	344
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	345	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	346	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	347
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	348	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	349	ImageEditor openOnClass:self andSelector:#findLastSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	350	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	351
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	352	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	353
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	354	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	355	constantNamed:#'NewChangesBrowser findLastSnapshotIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	356	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@EUUUW@A@F*(@@@F(@@@F(@@@F(@@@F(@@@F(@@@F(@A@F(@M@F(@H@F(@@@F(@@@F*(@I@L@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	357	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	358
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	359	findNextSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	360	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	361	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	362
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	363	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	364	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	365
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	366	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	367	ImageEditor openOnClass:self andSelector:#findNextSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	368	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	369
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	370	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	371
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	372	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	373	constantNamed:#'NewChangesBrowser findNextSnapshotIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	374	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@B@@@@@@@@@@@@@@@E@@@@@@@@@EUUUW@N@F*(@@@F(@@@F(@@@F(@@@F(@@@F(@@@V(@H@F(@@@F(@@@F(@@@F(@@@F*(@@@L@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@G @@G @@_8@@O0@@G @@C@@@@@@C??@C??@C??@C??@C??@C??BC??BC??BC??BC??@C??@C??@C??@C??@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	375	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	376
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	377	findPreviousForClassIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	378	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	379	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	380
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	381	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	382	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	383
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	384	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	385	self findPreviousForClassIcon inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	386	ImageEditor openOnClass:self andSelector:#findPreviousForClassIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	387	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	388	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	389
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	390	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	391
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	392	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	393	constantNamed:#'NewChangesBrowser class findPreviousForClassIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	394	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	395	@EUUUW@A@G???<@@@G???<@@@G???<@@@G???<@@@G???<@@@G???<@@@G???<@A@G???<@M@G???<@H@G???<@@@G???<@@@G???<@I@L@@@@@@@@@@@@@A
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	396	@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	397	!
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	398
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	399	findPreviousSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	400	"This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	401	by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	402
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	403	"Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	404	the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	405
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	406	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	407	self findPreviousSnapshotIcon inspect
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	408	ImageEditor openOnClass:self andSelector:#findPreviousSnapshotIcon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	409	Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	410	"
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	411
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	412	<resource: #image>
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	413
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	414	^Icon
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	415	constantNamed:#'NewChangesBrowser class findPreviousSnapshotIcon'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	416	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	417	@EUUUW@A@F*(@@@F(@@@F(@@@F(@@@F(@@@F(@@@F(@A@F(@M@F(@H@F(@@@F(@@@F*(@I@L@@@@@@@@@@@@@A
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	418	@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	419	! !
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	420
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	!ChangeSetBrowser2 class methodsFor:'interface opening'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423	confirmChanges: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	^self confirmChanges: aChangeSet label: 'Apply following changes?'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427	"Modified: / 08-11-2010 / 18:01:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430	confirmChanges:aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431	"Hmm, DialogBox class layout options are quite limited :-(("
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	432
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433	\|browser browserView dialog\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	435	browser := self on: aChangeSet.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	436	browser allowAccept: false.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	437	browser allowRemove: true.
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	438	browser beHierarchical.
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	439	browserView := ApplicationSubView new
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	440	client:browser
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	441	spec:#windowSpecForEmbedding.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442	dialog := (Dialog new)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	443	addComponent:browserView withHeight: 300;
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	444	addAbortAndOkButtons;
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	445	yourself.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	dialog label: aString.
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	447	dialog buttonPanel
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	448	layout:(LayoutFrame fractions:(0.0 @ 1.0 corner:1.0 @ 1.0)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	449	offsets:(0 @ -30 corner:0 @ 0)).
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450	browserView layout:(LayoutFrame fractions:(0.0 @ 0.0 corner:1.0 @ 1.0)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	451	offsets:(0 @ 0 corner:0 @ -30)).
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	452	dialog
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	453	okAction:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	454	[^browser list1Holder value condenseChangesForRemoved];
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	455	abortAction:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	456	[^#()].
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	457	dialog openWithExtent: 800@700.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	^#()
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460	"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	461	Tools::ChangeSetBrowser2
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	462	confirmChanges:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	463	(ChangeSet current copyFrom: ((ChangeSet current size - 10) max: 1) to: ChangeSet current size)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	464	label: 'Last 10 changes...'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467	"Created: / 08-11-2010 / 17:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	468	"Modified: / 07-09-2011 / 20:19:44 / cg"
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	469	"Modified: / 04-02-2012 / 19:36:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	470	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	471
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	472	open
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	473	"Open browser and load current changefile"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	474
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	475	\| browser \|
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	476
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	477	browser := self new.
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	478	browser open.
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	479	browser builder window sensor
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	480	pushUserEvent: #doOpenCurrent for: browser.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	481
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	482	"Created: / 25-01-2012 / 17:16:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11198 dc203c7f8560 added: #open vrany parents: 11196 diff changeset	483	!
dc203c7f8560 added: #open vrany parents: 11196 diff changeset	484
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	openOn: aChangeSet
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	486	^(self on: aChangeSet)
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	487	open;
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	488	yourself.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	489
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	490	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	491	self openOn: ChangeSet current
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	492	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	493
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	494	"Modified: / 30-01-2012 / 15:59:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	openOn: aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499	^self openOn: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501	"Created: / 26-10-2010 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504	openOn: aChangeSet label: aString setupWith: aBlock
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	^(self on: aChangeSet label: aString setupWith: aBlock) open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508	"Created: / 26-10-2010 / 23:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	509	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	511	!ChangeSetBrowser2 class methodsFor:'interface specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	512
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	514	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	521	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#hierarchicalNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	522	Tools::ChangeSetBrowser2 new openInterface:#hierarchicalNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	524
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	527	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	#(FullSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	529	name: hierarchicalNavigatorSpec
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	530	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531	(WindowSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	532	label: 'Hierarchical Navigator'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	533	name: 'Hierarchical Navigator'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	534	min: (Point 10 10)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	535	bounds: (Rectangle 0 0 300 300)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	536	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	537	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	(SpecCollection
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	539	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	540	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	541	name: 'ChangeList'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	542	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	543	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	544	hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	545	majorKey: #'Tools::HierarchicalChangeList'
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	546	subAspectHolders:
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	547	(Array
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	548
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	549	(SubChannelInfoSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	550	subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	551	aspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	552	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	553	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	554	subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	555	aspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	556	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	557
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	558	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	559	subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	560	aspect: list1Holder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	561	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	562	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	563	subAspect: menuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	564	aspect: list1MenuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	565	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	566
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	567	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	568	subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	569	aspect: selection1Holder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	570	)
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	571	(SubChannelInfoSpec
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	572	subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	573	aspect: showFilterHolder
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	574	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	575
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	576	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	577	subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	578	aspect: showRemovedAspect
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	579	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	580	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	581	subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	582	aspect: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	583	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	584	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	585	createNewApplication: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	586	createNewBuilder: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	587	postBuildCallback: list1View:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	588	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	589	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	590
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	591	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	599	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	602	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	603	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#oneColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	604	Tools::ChangeSetBrowser2 new openInterface:#oneColumnNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	609	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	610	#(FullSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	611	name: oneColumnNavigatorSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	612	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613	(WindowSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	614	label: 'One Column Navigator'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	615	name: 'One Column Navigator'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	616	min: (Point 10 10)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	617	bounds: (Rectangle 0 0 300 300)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	618	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	619	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620	(SpecCollection
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	621	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	622	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	623	name: 'ChangeList'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	624	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	625	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	626	hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	627	majorKey: #'Tools::ChangeList'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	628	subAspectHolders:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	629	(Array
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	630
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	631	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	632	subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	633	aspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	634	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	635	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	636	subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	637	aspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	638	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	639
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	640	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	641	subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	642	aspect: list1Holder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	643	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	644	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	645	subAspect: menuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	646	aspect: list1MenuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	647	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	648
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	649	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	650	subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	651	aspect: selection1Holder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	652	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	653	(SubChannelInfoSpec
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	654	subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	655	aspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	656	)
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	657
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	658	(SubChannelInfoSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	659	subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	660	aspect: showRemovedAspect
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	661	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	662	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	663	subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	664	aspect: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	665	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	666	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	667	createNewApplication: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	668	createNewBuilder: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	669	postBuildCallback: list1View:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	670	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	671	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	672
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	673	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677	twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	685	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#twoColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	686	Tools::ChangeSetBrowser2 new openInterface:#twoColumnNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	691	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	#(FullSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	693	name: twoColumnNavigatorSpec
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	694	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695	(WindowSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	696	label: 'Two Column Navigator'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	697	name: 'Two Column Navigator'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	698	min: (Point 10 10)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	699	bounds: (Rectangle 0 0 300 300)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	700	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	701	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702	(SpecCollection
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	703	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	704	(VariableHorizontalPanelSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	705	name: 'Columns'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	706	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	707	component:
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	708	(SpecCollection
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	709	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	710	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	711	name: 'FirstColumn'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	712	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	713	hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	714	majorKey: #'Tools::ChangeList'
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	715	subAspectHolders:
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	716	(Array
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	717
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	718	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	719	subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	720	aspect: allowAcceptHolder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	721	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	722	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	723	subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	724	aspect: allowRemoveHolder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	725	)
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	726
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	727	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	728	subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	729	aspect: list1Holder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	730	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	731	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	732	subAspect: menuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	733	aspect: list1MenuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	734	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	735
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	736	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	737	subAspect: outGeneratorHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	738	aspect: list2Holder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	739	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	740	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	741	subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	742	aspect: selection1Holder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	743	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	744
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	745	(SubChannelInfoSpec
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	746	subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	747	aspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	748	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	749	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	750	subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	751	aspect: showRemovedAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	752	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	753
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	754	(SubChannelInfoSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	755	subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	756	aspect: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	757	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	758	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	759	createNewApplication: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	760	createNewBuilder: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	761	postBuildCallback: list1View:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	762	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	763	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	764	name: 'SecondColumn'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	765	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	766	hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	767	majorKey: #'Tools::ChangeList'
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	768	subAspectHolders:
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	769	(Array
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	770
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	771	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	772	subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	773	aspect: allowAcceptHolder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	774	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	775	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	776	subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	777	aspect: allowRemoveHolder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	778	)
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	779
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	780	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	781	subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	782	aspect: list2Holder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	783	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	784	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	785	subAspect: menuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	786	aspect: list2MenuHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	787	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	788
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	789	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	790	subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	791	aspect: selection2Holder
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	792	)
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	793	(SubChannelInfoSpec
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	794	subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	795	aspect: showFilterHolder
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	796	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	797
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	798	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	799	subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	800	aspect: showRemovedAspect
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	801	)
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	802	(SubChannelInfoSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	803	subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	804	aspect: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	805	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	806	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	807	createNewApplication: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	808	createNewBuilder: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	809	postBuildCallback: list2View:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	810	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	811	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	812
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	813	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	814	handles: (Any 0.5 1.0)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	815	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	816	)
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	817
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	818	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822	windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	824	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829	"
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	830	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#windowSpec
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	831	Tools::ChangeSetBrowser2 new openInterface:#windowSpec
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	832	Tools::ChangeSetBrowser2 open
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	837	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	#(FullSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	839	name: windowSpec
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	840	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841	(WindowSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	842	label: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	843	name: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	844	labelChannel: titleHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	845	min: (Point 10 10)
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	846	bounds: (Rectangle 0 0 800 600)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	847	menu: mainMenu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	848	)
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	849	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850	(SpecCollection
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	851	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	852	(MenuPanelSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	853	name: 'ToolBar'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	854	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	855	menu: toolbarMenu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	856	textDefault: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	857	)
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	858	(SubCanvasSpec
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	859	name: 'InfoPanel'
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	860	layout: (LayoutFrame 0 0 30 0 0 1 70 0)
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	861	level: 0
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	862	initiallyInvisible: true
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	863	hasHorizontalScrollBar: false
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	864	hasVerticalScrollBar: false
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	865	clientKey: infoPanel
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	866	createNewBuilder: false
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	867	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	868	(UISubSpecification
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	869	name: 'Contents'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	870	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	871	minorKey: windowSpecWithoutToolbar
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	872	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	873	)
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	874
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	875	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	windowSpecForEmbedding
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	^self windowSpecWithoutToolbar
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	windowSpecWithoutToolbar
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	"
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	892	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#windowSpecWithoutToolbar
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	893	Tools::ChangeSetBrowser2 new openInterface:#windowSpecWithoutToolbar
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	898	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	#(FullSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	900	name: windowSpecWithoutToolbar
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	901	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902	(WindowSpec
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	903	label: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	904	name: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	905	min: (Point 10 10)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	906	bounds: (Rectangle 0 0 653 488)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	907	menu: mainMenu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	908	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	909	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	(SpecCollection
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	911	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	912	(VariableVerticalPanelSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	913	name: 'VerticalPanel'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	914	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	915	component:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	916	(SpecCollection
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	917	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	918	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	919	name: 'NavigatorPanel'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	920	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	921	hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	922	specHolder: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	923	createNewBuilder: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	924	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	925	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	926	name: 'TextDiffTool'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	927	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	928	hasVerticalScrollBar: false
12179 47f98e7d6de1 Improvments towards merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12154 diff changeset	929	majorKey: #'Tools::TextDiff2Tool'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	930	minorKey: windowSpecForEmbedding
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	931	subAspectHolders:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	932	(Array
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	933
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	934	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	935	subAspect: classHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	936	aspect: classHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	937	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	938	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	939	subAspect: languageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	940	aspect: languageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	941	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	942	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	943	subAspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	944	aspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	945	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	946
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	947	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	948	subAspect: labelAHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	949	aspect: labelAHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	950	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	951	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	952	subAspect: labelBHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	953	aspect: labelBHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	954	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	955
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	956	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	957	subAspect: textAHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	958	aspect: changeSourceHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	959	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	960	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	961	subAspect: textBHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	962	aspect: imageSourceHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	963	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	964	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	965	createNewApplication: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	966	createNewBuilder: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	967	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	968	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	969
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	970	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	971	handles: (Any 0.5 1.0)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	972	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	973	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	974
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	975	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	976	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	977
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	978	"Modified: / 03-12-2011 / 10:36:40 / cg"
12179 47f98e7d6de1 Improvments towards merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12154 diff changeset	979	"Modified: / 16-03-2012 / 13:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	980	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	981
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	982	!ChangeSetBrowser2 class methodsFor:'menu specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	983
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	984	changeMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	986	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	988	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	989	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	990
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	991
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	993	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	994	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	999	^
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1000	#(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1001	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1002	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1003	enabled: hasChangeSelectedAndNotRemoved:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1004	label: 'Apply'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1005	itemValue: changeMenuApplySelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1006	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1007	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1008	shortcutKey: Accept
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1009	auxValue: 100
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1010	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1011	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1012	label: 'Apply all'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1013	itemValue: changeMenuApply:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1014	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1015	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1016	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1017	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1018	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1019	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1020	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1021	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1022	label: 'Delete'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1023	itemValue: changeMenuDeleteSelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1024	nameKey: Delete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1025	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1026	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1027	shortcutKey: Delete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1028	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1029	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1030	label: 'Undelete'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1031	itemValue: changeMenuUndeleteSelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1032	nameKey: Undelete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1033	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1034	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1035	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1036	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1037	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1038	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1039	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1040	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1041	label: 'Select...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1042	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1043	submenu:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1044	(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1045	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1046	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1047	label: 'Select same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1048	itemValue: changeMenuSelectSame:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1049	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1050	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1051	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1052	label: 'Select additions (new classes/methods)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1053	itemValue: changeMenuSelectAdditions:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1054	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1055	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1056	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1057	label: 'Select removals'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1058	itemValue: changeMenuSelectRemovals:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1059	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1060	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1061	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1062	label: 'Select differences'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1063	itemValue: changeMenuSelectDifferences:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1064	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1065	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1066	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1067	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1068	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1069	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1070	label: 'Select all'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1071	itemValue: changeMenuSelectAll:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1072	translateLabel: true
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	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1075	label: 'Select none'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1076	itemValue: changeMenuSelectNone:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1077	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1078	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1079	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1080	label: '-'
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	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1083	label: 'Select using block'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1084	itemValue: changeMenuSelectUsingBlock:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1085	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1086	)
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	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1089	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1090	)
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	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1093	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1094	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1095	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1096	label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1097	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1098	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1099	indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1100	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1101	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1102	label: 'Show Same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1103	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1104	indication: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1105	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1106	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1107	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1108	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1109	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1110	label: 'Inspect change'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1111	itemValue: changeMenuInspect:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1112	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1113	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1114	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1115	enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1116	label: 'Browse Method(s)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1117	itemValue: changeMenuBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1118	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1119	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1120	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1121	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1122	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1123	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1124	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1125
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1126	changeMenu1
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1127	"This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1128	by the MenuEditor of ST/X."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1129
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1130	"Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1131	the MenuEditor may not be able to read the specification."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1132
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1133
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1134	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1135	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu1
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1136	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu1)) startUp
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1137	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1138
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1139	<resource: #menu>
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1140
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1141	^
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1142	#(Menu
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1143	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1144	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1145	enabled: hasChangeSelectedAndNotRemoved:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1146	label: 'Apply'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1147	itemValue: changeMenuApplySelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1148	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1149	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1150	shortcutKey: Accept
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1151	auxValue: 100
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1152	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1153	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1154	label: 'Apply All'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1155	itemValue: changeMenuApply:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1156	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1157	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1158	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1159	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1160	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1161	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1162	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1163	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1164	label: 'Delete'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1165	itemValue: changeMenuDeleteSelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1166	nameKey: Delete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1167	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1168	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1169	shortcutKey: Delete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1170	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1171	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1172	label: 'Undelete'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1173	itemValue: changeMenuUndeleteSelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1174	nameKey: Undelete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1175	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1176	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1177	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1178	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1179	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1180	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1181	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1182	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1183	label: 'Select...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1184	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1185	submenu:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1186	(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1187	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1188	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1189	label: 'Select Same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1190	itemValue: changeMenuSelectSame:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1191	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1192	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1193	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1194	label: 'Select Additions (new Classes/Methods)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1195	itemValue: changeMenuSelectAdditions:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1196	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1197	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1198	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1199	label: 'Select Removals'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1200	itemValue: changeMenuSelectRemovals:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1201	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1202	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1203	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1204	label: 'Select Differences'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1205	itemValue: changeMenuSelectDifferences:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1206	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1207	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1208	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1209	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1210	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1211	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1212	label: 'Select All'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1213	itemValue: changeMenuSelectAll:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1214	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1215	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1216	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1217	label: 'Select None'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1218	itemValue: changeMenuSelectNone:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1219	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1220	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1221	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1222	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1223	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1224	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1225	label: 'Select using Block'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1226	itemValue: changeMenuSelectUsingBlock:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1227	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1228	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1229	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1230	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1231	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1232	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1233	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1234	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1235	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1236	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1237	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1238	label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1239	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1240	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1241	indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1242	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1243	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1244	label: 'Show Same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1245	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1246	indication: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1247	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1248	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1249	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1250	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1251	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1252	label: 'Inspect Change'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1253	itemValue: changeMenuInspect:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1254	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1255	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1256	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1257	enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1258	label: 'Browse Method(s)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1259	itemValue: changeMenuBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1260	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1261	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1262	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1263	enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1264	label: 'Browse Class(s)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1265	itemValue: changeMenuBrowseClass:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1266	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1267	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1268	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1269	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1270	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1271	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1272	enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1273	label: 'Compare Class Against...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1274	itemValue: changeMenuCompareClass:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1275	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1276	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1277	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1278	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1279	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1280	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1281	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1282
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1283	changeMenu2
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1284	"This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1285	by the MenuEditor of ST/X."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1286
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1287	"Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1288	the MenuEditor may not be able to read the specification."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1289
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1290
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1291	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1292	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu2
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1293	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu2)) startUp
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1294	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1295
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1296	<resource: #menu>
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1297
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1298	^
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1299	#(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1300	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1301	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1302	enabled: hasChangeSelectedAndNotRemoved:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1303	label: 'Apply'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1304	itemValue: changeMenuApplySelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1305	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1306	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1307	shortcutKey: Accept
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1308	auxValue: 100
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1309	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1310	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1311	label: 'Apply to End'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1312	itemValue: changeMenuApplyToEnd:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1313	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1314	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1315	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1316	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1317	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1318	isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1319	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1320	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1321	label: 'Delete'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1322	itemValue: changeMenuDeleteSelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1323	nameKey: Delete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1324	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1325	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1326	shortcutKey: Delete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1327	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1328	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1329	label: 'Undelete'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1330	itemValue: changeMenuUndeleteSelection:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1331	nameKey: Undelete
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1332	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1333	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1334	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1335	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1336	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1337	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1338	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1339	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1340	label: 'Select...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1341	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1342	submenu:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1343	(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1344	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1345	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1346	label: 'Select Same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1347	itemValue: changeMenuSelectSame:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1348	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1349	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1350	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1351	label: 'Select Additions (new Classes/Methods)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1352	itemValue: changeMenuSelectAdditions:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1353	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1354	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1355	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1356	label: 'Select Removals'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1357	itemValue: changeMenuSelectRemovals:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1358	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1359	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1360	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1361	label: 'Select Differences'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1362	itemValue: changeMenuSelectDifferences:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1363	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1364	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1365	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1366	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1367	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1368	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1369	label: 'Select All'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1370	itemValue: changeMenuSelectAll:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1371	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1372	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1373	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1374	label: 'Select None'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1375	itemValue: changeMenuSelectNone:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1376	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1377	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1378	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1379	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1380	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1381	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1382	label: 'Select using Block'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1383	itemValue: changeMenuSelectUsingBlock:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1384	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1385	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1386	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1387	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1388	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1389	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1390	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1391	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1392	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1393	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1394	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1395	label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1396	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1397	isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1398	indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1399	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1400	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1401	label: 'Show Same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1402	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1403	indication: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1404	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1405	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1406	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1407	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1408	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1409	label: 'Inspect Change'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1410	itemValue: changeMenuInspect:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1411	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1412	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1413	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1414	enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1415	label: 'Browse Method(s)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1416	itemValue: changeMenuBrowse:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1417	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1418	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1419	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1420	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1421	nil
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1422	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1423	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1424
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1425	mainMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1431
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1432
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1433	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1434	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#mainMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1435	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 mainMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1436	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1437
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1439
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1440	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1441	#(Menu
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1442	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1443	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1444	label: 'File'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1445	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1446	submenu:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1447	(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1448	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1449	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1450	label: 'Open...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1451	itemValue: doOpen
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1452	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1453	isVisible: allowOpenHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1454	shortcutKey: Ctrlo
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1455	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1456	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1457	label: 'Open Current'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1458	itemValue: doOpenCurrent
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1459	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1460	isVisible: allowOpenHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1461	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1462	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1463	label: 'Save'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1464	itemValue: doSave
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1465	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1466	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1467	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1468	label: 'Save As...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1469	itemValue: doSaveAs
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1470	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1471	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1472	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1473	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1474	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1475	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1476	label: 'Exit'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1477	itemValue: closeRequest
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1478	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1479	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1480	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1481	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1482	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1483	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1484	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1485	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1486	label: 'View'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1487	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1488	submenu:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1489	(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1490	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1491	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1492	label: 'List'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1493	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1494	choice: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1495	choiceValue: oneColumnNavigatorSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1496	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1497	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1498	label: 'Hierarchical List'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1499	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1500	choice: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1501	choiceValue: hierarchicalNavigatorSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1502	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1503	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1504	label: 'Browser Like'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1505	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1506	choice: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1507	choiceValue: twoColumnNavigatorSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1508	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1509	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1510	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1511	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1512	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1513	label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1514	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1515	indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1516	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1517	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1518	label: 'Show Same'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1519	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1520	indication: showSameAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1521	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1522	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1523	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1524	nil
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	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1527	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1528	label: 'Loading'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1529	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1530	submenu:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1531	(Menu
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1532	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1533	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1534	label: 'Set Target Package...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1535	itemValue: setTargetPackage
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1536	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1537	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1538	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1539	label: 'Set Target Namespace...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1540	itemValue: setTargetNamespace
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1541	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1542	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1543	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1544	label: '-'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1545	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1546	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1547	label: 'Update Changefile'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1548	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1549	indication: updateChangeFileHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1550	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1551	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1552	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1553	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1554	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1555	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1556	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1557	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1558	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559	)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1560
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1561	"Modified: / 27-12-2011 / 10:35:16 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1562	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1563
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1564	toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1569	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1570
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1571	"
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1572	MenuEditor new openOnClass:NewChangesBrowser andSelector:#toolbarMenu
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1573	(Menu new fromLiteralArrayEncoding:(NewChangesBrowser toolbarMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1574	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1575
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1576	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1577
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1578	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1579	#(Menu
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1580	(
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1581	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1582	activeHelpKey: fileLoad
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1583	enabled: valueOfNotReading
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1584	label: 'Load'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1585	itemValue: doLoad
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1586	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1587	isButton: true
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1588	labelImage: (ResourceRetriever XPToolbarIconLibrary loadFromFileIcon)
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1589	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1590	(MenuItem
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1591	activeHelpKey: fileSave
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1592	enabled: valueOfNotSaving
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1593	label: 'Save'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1594	itemValue: doSave
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1595	translateLabel: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1596	isButton: true
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1597	labelImage: (ResourceRetriever XPToolbarIconLibrary saveToFileIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1598	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1599	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1600	label: '-'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1601	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1602	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1603	activeHelpKey: applyLine
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1604	enabled: valueOfHavingChangeSelection
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1605	label: 'Apply'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1606	itemValue: doApply
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1607	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1608	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1609	labelImage: (ResourceRetriever nil applyIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1610	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1611	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1612	activeHelpKey: applyToEnd
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1613	enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1614	label: 'Apply To End'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1615	itemValue: doApplyToEnd
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1616	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1617	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1618	labelImage: (ResourceRetriever nil applyToEndIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1619	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1620	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1621	activeHelpKey: applyFromLastSnapshot
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1622	enabled: valueOfNotReading
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1623	label: 'Apply From Last Snapshot'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1624	itemValue: doApplyFromLastSnapshot
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1625	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1626	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1627	labelImage: (ResourceRetriever nil applyFromLastSnapshotIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1628	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1629	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1630	label: '-'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1631	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1632	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1633	activeHelpKey: deleteLine
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1634	enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1635	label: 'Delete'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1636	itemValue: doDelete
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1637	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1638	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1639	labelImage: (ResourceRetriever nil deleteIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1640	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1641	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1642	activeHelpKey: deleteToEnd
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1643	enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1644	label: 'Delete To End'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1645	itemValue: doDeleteToEnd
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1646	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1647	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1648	labelImage: (ResourceRetriever nil deleteToEndIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1649	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1650	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1651	activeHelpKey: deleteCompress
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1652	enabled: valueOfNotReading
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1653	label: 'Compress'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1654	itemValue: doCompress
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1655	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1656	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1657	labelImage: (ResourceRetriever nil compressIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1658	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1659	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1660	label: '-'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1661	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1662	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1663	activeHelpKey: testFindPreviousSnapshot
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1664	enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1665	label: 'Find Previous Snapshot'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1666	itemValue: doFindSnapshot:
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1667	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1668	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1669	labelImage: (ResourceRetriever nil findPreviousSnapshotIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1670	argument: 'previous'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1671	)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1672	(MenuItem
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1673	activeHelpKey: testFindNextSnapshot
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1674	enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1675	label: 'Find Next Snapshot'
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1676	itemValue: doFindSnapshot:
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1677	translateLabel: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1678	isButton: true
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1679	labelImage: (ResourceRetriever nil findNextSnapshotIcon)
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1680	argument: 'next'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1681	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1682	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1683	nil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1684	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1685	)
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1686
17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1687	"Modified: / 26-03-2012 / 12:56:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1688	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1689
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1690	!ChangeSetBrowser2 class methodsFor:'plugIn spec'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1691
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1692	aspectSelectors
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1693	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1694	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696	"Do not manually edit this. If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1698
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699	"Return a description of exported aspects;
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	these can be connected to aspects of an embedding application
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1701	(if this app is embedded in a subCanvas)."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1702
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1703	^ #(
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1704	#changesetHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1705	).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1706
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1707	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1708
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1709	!ChangeSetBrowser2 methodsFor:'accessing'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1710
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1711	allowAccept: aBoolean
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1712
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1713	^self allowAcceptHolder value: aBoolean
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1714
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1715	"Created: / 24-01-2012 / 19:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1716	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1717
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1718	allowOpen: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1719
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1720	self allowOpenHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1721
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1722	"Created: / 26-10-2010 / 23:18:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1723	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1724
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1725	allowRemove: aBoolean
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1726
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1727	^self allowRemoveHolder value: aBoolean
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1728
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1729	"Created: / 24-01-2012 / 20:00:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1730	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1731
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1732	beHierarchical
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1734	^self navigatorSpecHolder value: #hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1735
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1736	"Modified: / 14-10-2010 / 15:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1738
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1739	beOneColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1740
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1741	^self navigatorSpecHolder value: #oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1743	"Modified: / 14-10-2010 / 15:52:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746	beTwoColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1747
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748	^self navigatorSpecHolder value: #twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1749
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750	"Modified: / 14-10-2010 / 15:51:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1751	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1752
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1753	changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1755	^self changesetHolder value
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1756	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1757
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1758	changeset: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1760	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1762
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1763	list1View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1764
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1765	list1 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1766
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1767	"Created: / 04-08-2011 / 17:56:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1768	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1769
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1770	list2View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1771
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1772	list2 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1773
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1774	"Created: / 04-08-2011 / 17:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1775	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1776
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1777	readOnly: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1779	"Created: / 20-07-2010 / 09:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1780	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1781
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	1782	showFilter: aBoolean
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	1783	self showFilterHolder value: aBoolean
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	1784
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	1785	"Created: / 11-02-2012 / 22:47:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	1786	!
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	1787
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1788	targetNamespace:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1789	targetNamespace := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1790	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1791
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1792	targetPackage:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1793	targetPackage := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1794	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1795
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1796	theSingleSelectedChange
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1797
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1798	\| change sel \|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1799	change := nil.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1800	sel := selection2Holder value.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1801	sel isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1802	sel := selection1Holder value.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1803	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1804	sel do:
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1805	[:each\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1806	change ifNotNil:[nil].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1807	change ifNil:[change := each]].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1808	^change
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1809
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1810	"Modified: / 04-08-2011 / 18:55:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1811	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1812
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1813	title: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1814
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1815	self titleHolder value: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1816
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1817	"Created: / 26-10-2010 / 23:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1818	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1819
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1820	!ChangeSetBrowser2 methodsFor:'accessing - defaults'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1821
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1822	defaultTitle
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1823	^ 'No changeset'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1824
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1825	"Modified: / 08-04-2011 / 10:10:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1826	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1827
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1828	!ChangeSetBrowser2 methodsFor:'accessing - menus'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1829
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1830	list1MenuHolder
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1831	^ [
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1832	\|menu\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1833
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1834	menu := builder menuFor:#changeMenu1.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1835	menu allItemsDo:[:item \| item argument:list1 ].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1836	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1837	]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1838
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1839	"Created: / 04-08-2011 / 18:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1840	"Modified (format): / 05-09-2011 / 16:07:20 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1841	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1842
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1843	list2MenuHolder
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1844	^ [
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1845	\|menu\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1846
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1847	menu := builder menuFor:#changeMenu2.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1848	menu allItemsDo:[:item \| item argument:list2 ].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1849	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1850	]
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1851
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1852	"Created: / 04-08-2011 / 18:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1853	"Modified (format): / 05-09-2011 / 16:07:34 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1854	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1855
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1856	!ChangeSetBrowser2 methodsFor:'actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1857
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1858	accept: source
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1859
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1860	\| entry chg \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1861	(entry := self theSingleSelectedChange) isNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1862	chg := entry change.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1863	chg isMethodCodeChange ifTrue:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1864	[chg source: source asString]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1865
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1866	"Modified: / 29-11-2010 / 22:40:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1867	"Modified: / 18-11-2011 / 14:56:53 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1868	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1869
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1870	postBuildSourceView: aView
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1871
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1872	sourceView := aView.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	1873
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1874	"Modified: / 19-07-2011 / 19:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1875	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1876
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1877	!ChangeSetBrowser2 methodsFor:'aspects'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1878
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1879	allowAcceptHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1880	"return/create the 'selectionHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1881
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1882	allowAcceptHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1883	allowAcceptHolder := ValueHolder with: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1884	].
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1885	^ allowAcceptHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1886
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1887	"Modified: / 24-10-2009 / 19:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1888	"Created: / 24-01-2012 / 19:50:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1889	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1890
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1891	allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1892	"return/create the 'allowOpenHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1893
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1894	allowOpenHolder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1895	allowOpenHolder := ValueHolder with: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1896	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1897	^ allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1898
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1899	"Modified: / 17-03-2011 / 22:32:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1900	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1901
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1902	allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1903	"return/create the 'allowRemoveHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1904
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1905	allowRemoveHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1906	allowRemoveHolder := ValueHolder with:false.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1907	allowRemoveHolder addDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1908	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1909	^ allowRemoveHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1910
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1911	"Modified: / 24-01-2012 / 19:59:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1912	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1913
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1914	allowRemoveHolder:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1915	"set the 'showRemovedHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1916
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1917	\|oldValue newValue\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1918
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1919	allowRemoveHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1920	oldValue := allowRemoveHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1921	allowRemoveHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1922	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1923	allowRemoveHolder := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1924	allowRemoveHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1925	allowRemoveHolder addDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1926	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1927	newValue := allowRemoveHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1928	oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1929	self
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1930	update:#value
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1931	with:newValue
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1932	from:allowRemoveHolder.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1933	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1934
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1935	"Modified (format): / 24-01-2012 / 19:48:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1936	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1937
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1938	changeSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1939	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1940	changeSourceHolder isNil ifTrue: [
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1941	changeSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1942	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1943	^ changeSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1944
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1945	"Modified: / 19-07-2011 / 11:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1946	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1947
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948	changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1949	"return/create the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1950
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1951	changesetHolder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1952	changesetHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1953	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1954	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1955	^ changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1956	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1957
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1958	changesetHolder:something
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1959	"set the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961	\|oldValue newValue\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1962
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1963	changesetHolder notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1964	oldValue := changesetHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1965	changesetHolder removeDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1966	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1967	changesetHolder := something.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1968	changesetHolder notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1969	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1970	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1971	newValue := changesetHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1972	oldValue ~~ newValue ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1973	self update:#value with:newValue from:changesetHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1974	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1975	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1976
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1977	classHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1978	"return/create the 'classHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1979
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1980	classHolder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1981	classHolder := ValueHolder with:nil.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1982	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1983	^ classHolder
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1984
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1985	"Modified: / 19-07-2011 / 19:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1986	!
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1987
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1988	codeAspectHolder
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1989	"return/create the 'codeAspectHolder' value holder (automatically generated)"
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1990
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1991	codeAspectHolder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1992	codeAspectHolder := ValueHolder new.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1993	].
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1994	^ codeAspectHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1995	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1996
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1997	imageSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1998	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1999	imageSourceHolder isNil ifTrue: [
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2000	imageSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2001	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2002	^ imageSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2003
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2004	"Created: / 19-07-2011 / 11:54:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2005	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2006
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2007	infoPanel
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2008	infoPanel isNil ifTrue:[
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2009	infoPanel := InlineMessageDialog new
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2010	].
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2011	^ infoPanel
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2012
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2013	"Created: / 09-02-2012 / 19:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2014	!
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2015
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2016	labelAHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2017
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2018	^'Change' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2019
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2020	"Created: / 19-07-2011 / 11:46:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2021	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2022
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2023	labelBHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2024
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2025	^'Image' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2026
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2027	"Created: / 19-07-2011 / 11:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2028	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	2029
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2030	languageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2031	languageHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2032	languageHolder := ValueHolder with:nil.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2033	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2034	^ languageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2035
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2036	"Modified: / 19-07-2011 / 19:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2037	"Created: / 03-12-2011 / 10:37:39 / cg"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2038	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2039
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2040	list1Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2041	"return/create the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2042
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2043	list1Holder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2044	list1Holder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2045	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2046	^ list1Holder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2047	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2048
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2049	list1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2050	"set the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2051
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2052	list1Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2053	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2054
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2055	list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2056	"return/create the 'list2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2057
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2058	list2Holder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2059	list2Holder := ValueHolder new.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2060	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2061	^ list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2062	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2063
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2064	list2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2065	"set the 'list2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2066
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2067	list2Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2069
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2070	navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2071	"return/create the 'navigatorChangesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2073	navigatorChangesetHolder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2074	navigatorChangesetHolder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2075	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2076	^ navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2077	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2078
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2079	navigatorSpecHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2080	<resource: #uiAspect>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2081
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2082	navigatorSpecHolder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2083	navigatorSpecHolder := ValueHolder with:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2084	"/#hierarchicalNavigatorSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2085	"/#twoColumnNavigatorSpec
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2086	#oneColumnNavigatorSpec.
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2087	navigatorSpecHolder addDependent: self.
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2088
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2089	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2090	^ navigatorSpecHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2091
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2092	"Modified: / 04-02-2012 / 21:25:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2093	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2094
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2095	selection1Holder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2096	"return/create the 'selection1Holder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2097
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2098	selection1Holder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2099	selection1Holder := ValueHolder new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2100	selection1Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2101	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2102	^ selection1Holder
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2103	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2104
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2105	selection1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2106	"set the 'selection1Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2107
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2108	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2109
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2110	selection1Holder notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2111	oldValue := selection1Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2112	selection1Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2113	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2114	selection1Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2115	selection1Holder notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2116	selection1Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2117	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2118	newValue := selection1Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2119	oldValue ~~ newValue ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2120	self update:#value with:newValue from:selection1Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2121	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2122	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2123
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2124	selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2125	"return/create the 'selection2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2126
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2127	selection2Holder isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2128	selection2Holder := ValueHolder new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2129	selection2Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2130	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2131	^ selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2132	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2133
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2134	selection2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2135	"set the 'selection2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2136
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2137	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2138
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2139	selection2Holder notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2140	oldValue := selection2Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2141	selection2Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2142	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2143	selection2Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2144	selection2Holder notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2145	selection2Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2146	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2147	newValue := selection2Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2148	oldValue ~~ newValue ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2149	self update:#value with:newValue from:selection2Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2150	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2151	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2152
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2153	showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2154	"return/create the 'showFilterHolder' value holder (automatically generated)"
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2155
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2156	showFilterHolder isNil ifTrue:[
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2157	showFilterHolder := false asValue.
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2158	].
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2159	^ showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2160
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2161	"Modified: / 11-02-2012 / 22:46:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2162	!
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2163
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2164	showFilterHolder:something
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2165	"set the 'showFilterHolder' value holder (automatically generated)"
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2166
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2167	showFilterHolder := something.
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2168	!
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2169
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2170	showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2171	"return/create the 'showDeletedAspect' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2172
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2173	showRemovedAspect isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2174	showRemovedAspect := (AspectAdaptor forAspect:#showRemoved)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2175	subject: self class.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2176	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2177	^ showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2178	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2179
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2180	showRemovedAspect:aValueHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2181	showRemovedAspect := aValueHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2182	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2183
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2184	showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2185	"return/create the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2186
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2187	showSameAspect isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2188	showSameAspect := ValueHolder with: true.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2189	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2190	^ showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2191
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2192	"Modified: / 04-08-2011 / 18:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2193	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2194
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2195	showSameAspect:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2196	"set the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2197
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2198	showSameAspect := something.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2199	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2200
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2201	titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2202	"return/create the 'titleHolder' value holder (automatically generated)"
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2203
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2204	titleHolder isNil
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2205	ifTrue:[ titleHolder := ValueHolder with:self defaultTitle. ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2206	^ titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2207
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2208	"Modified: / 26-10-2010 / 22:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2209	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2210
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2211	updateChangeFileHolder
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2212	updateChangeFileHolder isNil ifTrue:[
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2213	updateChangeFileHolder := false asValue.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2214	].
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2215	^ updateChangeFileHolder
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2216
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2217	"Created: / 07-09-2011 / 15:54:03 / cg"
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2218	"Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2219	! !
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2220
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2221	!ChangeSetBrowser2 methodsFor:'change & update'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2222
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2223	changesetChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2224
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2225	self titleHolder value: (self changeset name ? (self defaultTitle)).
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2226	self list1Holder value: self getNavigatorChangeSet
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2227
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2228	"Modified: / 04-08-2011 / 18:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2229	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2230
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2231	selectionChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2232	\| change \|
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2233
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2234	change := self theSingleSelectedChange.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	2235	(change notNil and:[change change isCompositeChange not]) ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2236	self classHolder value: change changeClass.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2237	changeSourceHolder setValue: change changeSource; changed: #value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2238	imageSourceHolder setValue: change imageSource; changed: #value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2239
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2240	codeAspectHolder value:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2241	(change change isMethodCodeChange
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2242	ifTrue:[#method]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2243	ifFalse:[#expression]).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2244	self showSource: true
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2245	] ifFalse:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2246	self showSource: false.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2247	self classHolder value: nil.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2248	changeSourceHolder setValue: nil; changed: #value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2249	imageSourceHolder setValue: nil; changed: #value.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2250	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2251
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2252	"Created: / 24-10-2009 / 19:49:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2253	"Modified (format): / 03-12-2011 / 10:38:45 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2254	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2255
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2256	update: aspect with: param from: sender
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2257
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2258	sender == changesetHolder ifTrue: [
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2259	self changesetChanged .
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2260	^self
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2261	].
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2262	sender == navigatorSpecHolder ifTrue: [
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2263	self changesetChanged .
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2264	^self
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2265	].
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2266	sender == selection1Holder ifTrue: [
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2267	self selectionChanged.
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2268	^self
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2269	].
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2270	sender == selection2Holder ifTrue: [
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2271	self selectionChanged.
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2272	^self
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2273	].
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2274	super update: aspect with: param from: sender
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2275
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2276	"Created: / 24-10-2009 / 19:29:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2277	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2278
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2279	!ChangeSetBrowser2 methodsFor:'menu actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2280
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2281	doOpen
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2282
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2283	\| file changeset \|
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2284	file := Dialog requestFileName:'Select Changeset to Load' pattern:'.chg;.st'.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2285	file isNil ifTrue:[^self].
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2286	[changeset := ChangeSet fromFile: file]
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2287	on: Error
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2288	do: [:ex\|Dialog error: 'Error when loading changeset: ',ex description. ^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2289	changesetFile := file.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2290	self title: file asFilename baseName asString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2291	self doOpen: changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2292
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2293	"Modified: / 08-04-2011 / 10:11:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2294	"Modified: / 27-12-2011 / 10:39:36 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2295	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2296
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2297	doOpen: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2298
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2299	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2300
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2301	"Created: / 05-12-2009 / 13:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2302	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2303
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2304	doOpenCurrent
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2305
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2306	self doOpenFile: ObjectMemory nameForChanges.
f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2307	self showFilter: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2308
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2309	"Created: / 05-12-2009 / 13:44:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2310	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2311
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2312	doOpenFile: aStringOrFilename
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2313	\| cs \|
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2314
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2315	self showProgress: 'Reading ' , aStringOrFilename asFilename baseName while:[
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2316	cs := ChangeSet fromFile: aStringOrFilename.
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2317	self doOpen: cs.
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2318	].
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2319
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2320	"Created: / 09-02-2012 / 19:11:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2321	!
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2322
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2323	doSave
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2324
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2325	changesetFile
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2326	ifNil:[self doSaveAs]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2327	ifNotNil:[self doSaveAs: changesetFile]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2328
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2329	"Modified: / 24-10-2009 / 22:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2330	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2331
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2332	doSaveAs
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2333
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2334	\| file \|
12201 283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2335	Dialog aboutToOpenBoxNotificationSignal handle:[:ex\|
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2336	"/ OOPS, not supported!!!!!!!!
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2337
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2338	"/ \| box \|
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2339	"/ box := ex parameter.
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2340	"/ box verticalPanel
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2341	"/ add:(CheckBox label:'x'
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2342	"/ model:true asValue).
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2343	ex pass.
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2344	] do:[
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2345	file := Dialog requestFileName:'Select File for Save' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2346	].
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2347	file isNil ifTrue:[^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2348	self doSaveAs: file.
12125 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	"Modified: / 27-12-2011 / 10:39:52 / cg"
12201 283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2351	"Modified: / 20-03-2012 / 13:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2352	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2353
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2354	doSaveAs: newFile
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2355
12201 283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2356	"/ [
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2357	self changeset saveToFile: newFile format: #classSource.
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2358	"/ ] on: Error do:
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2359	"/ [:ex\|Dialog warn: 'Erorr saving changes: ' , ex description]
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2360
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2361	"Modified: / 20-03-2012 / 13:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2362	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2363
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2364	setTargetNamespace
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2365	"specify an st/x namespace to be used as default"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2366
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2367	\| nsName \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2368
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2369	nsName := Dialog
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2370	requestNameSpace:'Namepace to load code into:'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2371	initialAnswer:targetNamespace.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2372	nsName isEmptyOrNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2373
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2374	targetNamespace := nsName.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2375	"/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2376
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2377	list1 list do:[:each \|
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2378	each change nameSpaceOverride:nsName
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2379	].
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2380	list2 list do:[:each \|
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2381	each change nameSpaceOverride:nsName
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2382	].
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2383	self changeset do:[:chg \| chg nameSpaceOverride:nsName].
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2384
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2385	"Created: / 07-09-2011 / 12:49:42 / cg"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2386	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2387
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2388	setTargetPackage
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2389	"specify an st/x package identifier to be used as default"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2390
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2391	\| package \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2392
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2393	package := Dialog
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2394	requestProject:'Default Smalltalk/X package to load code into:'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2395	initialAnswer:targetPackage
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2396	suggestions:#().
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2397	package isNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2398
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2399	targetPackage := "lastPackage := "package.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2400	"/ self targetPackageHolder value:('Target-Package: ',targetPackage).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2401
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2402	"Created: / 07-09-2011 / 12:47:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2403	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2404
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2405	!ChangeSetBrowser2 methodsFor:'menu actions - changes'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2406
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2407	changeMenuApply: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2408	\| changesToApply \|
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2409
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2410	changesToApply := OrderedCollection new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2411	self changesDo:[:chg\|chg removed ifFalse:[changesToApply add: chg]].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2412	self changeMenuApplyChanges: changesToApply.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2413	list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2414	"/ to get the =-icons
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2415	list2 updateList
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2416	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2417
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2418	"Created: / 04-08-2011 / 17:26:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2419	"Modified: / 28-12-2011 / 15:49:00 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2420	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2421
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2422	changeMenuApplySelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2423
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2424	changeList selection do:[:change\|self changeMenuApplyChange:change change].
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2425	list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2426	"/ to get the =-icons
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2427	list2 updateList
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2428	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2429
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2430	"Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2431	"Modified (format): / 28-12-2011 / 15:48:53 / cg"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2432	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2433
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2434	changeMenuApplyToEnd: changeList
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2435	\|lastIdx\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2436
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2437	lastIdx := changeList selectionIndices max.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2438	changeList list from:lastIdx do:[:change \| self changeMenuApplyChange:change change].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2439	list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2440	"/ to get the =-icons
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2441	list2 updateList
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2442	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2443
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2444	"Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2445	"Created: / 27-12-2011 / 10:53:00 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2446	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2447
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2448	changeMenuBrowse: changeList
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2449	\|changes methods classes\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2450
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2451	changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2452	changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2453	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2454	changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2455	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2456	changes := changes collect:[:c \| c change].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2457	"/ changes := changeList listHolder value collect:[:c \| c change].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2458	(changes conform:[:c \| c isClassDefinitionChange]) ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2459	classes := (changes collect:[:c \| c changeClass]).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2460	UserPreferences current systemBrowserClass
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2461	browseClasses:classes title:'selected monticello classes'.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2462	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2463	methods := OrderedCollection new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2464	changes do:[:each \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2465	each isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2466	each changes do:[:each2 \| each2 isMethodChange ifTrue:[ methods add:each2 changeMethod ]]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2467	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2468	each isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2469	methods add:(each changeMethod).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2470	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2471	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2472	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2473	(methods includes:nil) ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2474	Dialog warn:('%1 methods are not present in the image' bindWith:(methods occurrencesOf:nil)).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2475	methods := methods reject:[:m \| m isNil].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2476	methods isEmpty ifTrue:[^ self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2477	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2478	UserPreferences current systemBrowserClass
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2479	browseMethods:methods title:'selected monticello methods' sort:false.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2480	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2481
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2482	"Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2483	"Modified: / 05-09-2011 / 16:17:48 / cg"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2484	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2485
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2486	changeMenuBrowseClass: changeList
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2487	\|changes classes addThemChanges cls\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2488
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2489	changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2490	changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2491	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2492	changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2493	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2494	changes := changes collect:[:eachListEntry \| eachListEntry change].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2495
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2496	classes := Set new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2497	addThemChanges :=
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2498	[:c \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2499	c isClassDefinitionChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2500	classes add:c changeClass theNonMetaclass
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2501	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2502	c isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2503	cls := c changeMethod isNil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2504	ifTrue:[ c changeClass ]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2505	ifFalse:[ c changeMethod mclass theNonMetaclass ].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2506	classes add:cls
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2507	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2508	c isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2509	c changes do:addThemChanges
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2510	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2511	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2512	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2513	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2514	changes do:addThemChanges.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2515
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2516	UserPreferences current systemBrowserClass
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2517	browseClasses:classes title:'selected monticello classes'.
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	2518
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	2519	"Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2520	"Created: / 05-09-2011 / 16:08:35 / cg"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2521	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2522
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2523	changeMenuCompareClass: changeList
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2524	\|changes classNames classNameToClassMapping lastNameSpace
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2525	addClassName addThemChanges existingClasses
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2526	allChanges changeSet1 changeSet2 diffSet\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2527
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2528	changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2529	changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2530	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2531	changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2532	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2533	changes := changes collect:[:eachListEntry \| eachListEntry change].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2534
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2535	classNameToClassMapping := Dictionary new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2536	classNames := Set new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2537	allChanges := ChangeSet new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2538	existingClasses := Set new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2539
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2540	addClassName :=
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2541	[:nmArg \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2542	\|nm ns existingClass goodAnswer\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2543
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2544	nm := nmArg.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2545	existingClass := Smalltalk classNamed:nm.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2546
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2547	existingClass notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2548	goodAnswer := nm
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2549	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2550	ns := NameSpace allNameSpaces
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2551	detect:[:ns \| (ns classNamed:nm) notNil ]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2552	ifNone:nil.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2553	ns notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2554	goodAnswer := (ns classNamed:nm) name.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2555	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2556	goodAnswer := nm.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2557	(lastNameSpace notNil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2558	and:[ lastNameSpace isNamespace
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2559	and:[(lastNameSpace classNamed:nm) notNil ]]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2560	) ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2561	goodAnswer := (lastNameSpace classNamed:nm) name.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2562	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2563	(lastNameSpace notNil
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2564	and:[ lastNameSpace isBehavior
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2565	and:[(lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2566	) ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2567	goodAnswer := (lastNameSpace privateClassesAt:nm asSymbol) name.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2568	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2569	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2570	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2571	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2572	nm := Dialog
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2573	request:('Class to compare for "%1"?' bindWith:nmArg)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2574	initialAnswer:goodAnswer.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2575	nm isNil ifTrue:[^ self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2576	nm notEmpty ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2577	existingClass := Smalltalk at:nm asSymbol.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2578	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2579	existingClass notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2580	classNameToClassMapping at:nmArg put:existingClass.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2581	existingClasses add:existingClass.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2582	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2583	classNames add:nmArg
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2584	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2585
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2586	addThemChanges := [:changes \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2587	"/ collect classes and mappings
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2588	changes do:[:c \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2589	c isClassDefinitionChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2590	addClassName value:(c className).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2591	allChanges add:c.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2592	]].
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	changes do:[:c \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2595	c isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2596	(classNames includes:(c className)) ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2597	addClassName value:(c className).
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	allChanges add:c.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2600	]].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2601
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2602	changes do:[:c \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2603	c isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2604	addThemChanges value:(c changes)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2605	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2606	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2607	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2608
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2609	changes do:addThemChanges.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2610
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2611	"/ now, build a diffset and present it...
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2612	changeSet1 := allChanges.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2613	changeSet2 := ChangeSet new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2614	existingClasses do:[:cls \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2615	changeSet2 addAll:(ChangeSet forExistingClass:cls).
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2616	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2617	diffSet := changeSet1 diffSetsAgainst:changeSet2.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2618
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2619	(UserPreferences versionDiffViewerClass)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2620	openOnDiffSet:diffSet
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2621	labelA:'Monticello'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2622	labelB:'Current (In Image)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2623	title:'Diffs'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2624	ignoreExtensions:false.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2625
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2626	"Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2627	"Created: / 01-12-2011 / 18:36:44 / cg"
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2628	!
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2629
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2630	changeMenuDeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2631
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2632	self selectionDo:[:chg\|chg removed: true]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2633
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2634	"Modified: / 29-10-2010 / 13:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2635	"Created: / 04-08-2011 / 17:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2636	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2637
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2638	changeMenuInspect: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2639
12201 283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2640	changeList selection size == 1 ifTrue:[
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2641	changeList selection anyOne change inspect
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2642	] ifFalse:[
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2643	(changeList selection collect:[:each\|each change]) inspect
283826cb8bcc Improvements in merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12179 diff changeset	2644	]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2645
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2646	"Created: / 04-08-2011 / 17:28:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2647	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2648
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2649	changeMenuInspectChangeset: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2650	self changesetHolder value inspect.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2651
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2652	"Created: / 04-08-2011 / 17:28:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2653	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2654
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2655	changeMenuSelectAdditions: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2656
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2657	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #+]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2658
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2659	"Created: / 04-08-2011 / 17:29:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2660	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2661
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2662	changeMenuSelectAll: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2663
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2664	self changeMenuSelectIn: changeList suchThat:[:change\|true]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2665
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2666	"Created: / 04-08-2011 / 17:29:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2667	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2668
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2669	changeMenuSelectDifferences: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2670
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2671	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #~]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2672
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2673	"Created: / 04-08-2011 / 17:29:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2674	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2675
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2676	changeMenuSelectNone: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2677
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2678	self changeMenuSelectIn: changeList suchThat:[:change\|false]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2679
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2680	"Created: / 04-08-2011 / 17:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2681	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2682
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2683	changeMenuSelectRemovals: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2684
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2685	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #-]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2686
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2687	"Modified: / 29-10-2010 / 13:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2688	"Created: / 04-08-2011 / 17:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2689	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2690
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2691	changeMenuSelectSame: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2692
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2693	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #=]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2694
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2695	"Modified: / 29-10-2010 / 13:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2696	"Created: / 04-08-2011 / 17:35:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2697	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2698
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2699	changeMenuSelectUsingBlock: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2700
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2701	\|conditionBlockString conditionBlock dialog textHolder template\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2702
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2703	template :=
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2704	'[:change\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2705	"/ Define condition for selection below:
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2706	"/ change is an instance of Change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2707	"/ change will be selected if and only if block returns true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2708
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2709
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2710	true"/always select the change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2711	]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2712	'.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2713
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2714	LastSelectionConditionString isNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2715	LastSelectionConditionString := template.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2716	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2717
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2718
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2719	textHolder := ValueHolder new.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2720	dialog := Dialog
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2721	forRequestText:(resources string:'Enter condition for selection')
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2722	lines:20
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2723	columns:70
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2724	initialAnswer:LastSelectionConditionString
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2725	model:textHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2726	dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2727	dialog open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2728	dialog accepted ifFalse:[^ self].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2729
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2730	conditionBlockString := textHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2731	LastSelectionConditionString := conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2732
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2733	conditionBlock := Parser evaluate:conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2734	conditionBlock isBlock ifFalse:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2735	self error:'Bad selection block (syntax error?)'.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2736	^ self
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2737	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2738
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2739	self changeMenuSelectIn: changeList suchThat: conditionBlock
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2740
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2741	"Modified: / 29-10-2010 / 13:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2742	"Created: / 04-08-2011 / 17:42:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2743	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2744
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2745	changeMenuUndeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2746
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2747	self selectionDo:[:chg\|chg removed: false]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2748
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2749	"Modified: / 29-10-2010 / 13:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2750	"Created: / 04-08-2011 / 17:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2751	! !
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2752
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2753	!ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2754
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2755	changeMenuApplyChange: aChange
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2756
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2757	"/ aChange isClassDefinitionChange ifTrue:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2758	"/ [(Smalltalk at: aChange superClassName asSymbol)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2759	"/ ifNil:[^self error: 'Nil superclass']].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2760
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2761	self withWaitCursorDo:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2762	(MCStXNamespaceQuery , Class nameSpaceQuerySignal)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2763	answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2764	do: [
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2765	(MCStXPackageQuery , Class packageQuerySignal)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2766	answer: self targetPackage
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2767	do: [
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2768	MCInteractiveLoadingQuery answer: true do:[
12154 f27f8ee5ef3a More improvements in InlineMessageDialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12151 diff changeset	2769	updateChangeFileHolder value ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2770	aChange apply
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2771	] ifFalse:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2772	Class withoutUpdatingChangesDo:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2773	aChange apply
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2774	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2775	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2776	]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2777	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2778	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2779	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2780
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2781	"Modified: / 29-10-2010 / 14:57:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2782	"Modified: / 07-09-2011 / 22:24:57 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2783	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2784
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2785	changeMenuApplyChanges: changesToApply
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2786
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2787	\| changesThatFailToApply \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2788
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2789	changesThatFailToApply := ChangeSet new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2790	ProgressIndicator
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2791	displayProgress:'Applying changes...'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2792	at:(Screen default center)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2793	from:200 to:400
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2794	during:[:val \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2795	1 to: changesToApply size do:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2796	[:i\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2797	val value:((100 / changesToApply size) * i) rounded.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2798	[self changeMenuApplyChange: (changesToApply at: i)]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2799	on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2800
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2801	"Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2802	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2803
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2804	changeMenuSelectIn: changeList suchThat:conditionBlock
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2805
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2806	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2807	sel := OrderedCollection new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2808	changeList listHolder value do: [:chg\|(conditionBlock value: chg) ifTrue:[sel add: chg]].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2809	changeList selectionHolder value: sel.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2810
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2811	"Created: / 04-08-2011 / 17:29:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2812	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2813
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2814	!ChangeSetBrowser2 methodsFor:'private'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2815
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2816	changesDo:aBlock
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2817	self changeset do:aBlock.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2818
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2819	"Created: / 30-08-2011 / 14:30:58 / cg"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2820	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2821
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2822	getNavigatorChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2823
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2824	\| changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2825	changeset := changesetHolder value deepCopy.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2826	(changeset isKindOf: ChangeSet) ifFalse:
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2827	[changeset := ChangeSet withAll: changeset].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2828
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2829	^ (self navigatorSpecHolder value ~~ #oneColumnNavigatorSpec) ifTrue:[
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2830	changeset groupByClass
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2831	] ifFalse:[
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2832	changeset flatten
18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2833	]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2834
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2835	"Created: / 24-10-2009 / 19:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12144 18c25ec50d96 - AbstractFileBrowser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2836	"Modified: / 04-02-2012 / 21:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2837	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2838
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2839	redrawChangeListViews
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2840
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2841	list1 notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2842	list1 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2843	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2844	list2 notNil ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2845	list2 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2846	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2847
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2848	"Created: / 16-03-2011 / 22:41:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2849	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2850
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2851	selectionDo: aBlock
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2852
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2853	\| applyBlock \|
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2854
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2855	applyBlock := [:e\|aBlock value: e change].
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2856
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2857	"/ selectionHolder value isEmptyOrNil ifTrue:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2858	"/ (self navigatorChangesetHolder value ? #()) do: aBlock
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2859	"/ ] ifFalse:[
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2860	selection2Holder value isEmptyOrNil not
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2861	ifTrue:[selection2Holder value do: applyBlock]
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2862	ifFalse:[selection1Holder value do: applyBlock].
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2863	"/ ].
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2864	self redrawChangeListViews
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2865
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2866	"Created: / 29-10-2010 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2867	"Modified: / 08-04-2011 / 10:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	2868	"Modified: / 20-03-2012 / 17:16:40 / cg"
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2869	!
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2870
12151 ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2871	showProgress: label while: block
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2872
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2873	self infoPanel progress: label while: block
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2874
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2875	"Created: / 10-02-2012 / 10:35:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2876	!
ac18977416c2 Added (experimental) support for inline message panel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12144 diff changeset	2877
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2878	showSource: aBoolean
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2879
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2880	\| panel \|
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2881
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2882
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2883	"Not yet implemented"
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2884
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2885	^self.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2886
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2887	sourceView ifNil:[^self].
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2888	panel := builder componentAt: #VerticalPanel.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2889	aBoolean ifTrue:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2890	(panel subViews includes: sourceView) ifTrue:[^self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2891	panel addSubView: sourceView.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2892	] ifFalse:[
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2893	(panel subViews includes: sourceView) ifFalse:[^self].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2894	panel removeSubView: sourceView.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2895	sourceView setId: nil.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2896
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2897	]
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2898
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2899	"Created: / 11-07-2011 / 16:06:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2900	!
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	targetPackage
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2903	^ targetPackage ? PackageId noProjectID
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	"Created: / 07-09-2011 / 20:12:04 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2906	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2907
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2908	!ChangeSetBrowser2 methodsFor:'queries'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2909
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2910	canApplyChanges
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2911
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2912	^true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2913
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2914	"Created: / 29-10-2010 / 13:07:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2915	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2916
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2917	canDrop: somethign
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2918
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2919	self breakPoint:#jv.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2920
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2921	"Created: / 20-03-2011 / 21:34:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2922	"Modified: / 07-09-2011 / 20:21:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2923	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2924
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2925	hasChangeSelectedAndNotRemoved: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2926
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2927	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2928	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2929	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2930	^(sel anySatisfy:[:each\|each removed]) not
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2931
10380 f2a255ec6fc9 not ifTrue -> ifFalse (trying the rewrite tool ;-) Claus Gittinger <cg@exept.de> parents: 10370 diff changeset	2932	"Modified: / 24-07-2011 / 06:52:28 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2933	"Created: / 04-08-2011 / 18:23:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2934	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2935
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2936	hasSingleChangeSelectedAndCanBrowse: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2937
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2938	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2939	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2940	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2941	^true
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2942
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2943	"Created: / 04-08-2011 / 18:25:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2944	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2945
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2946	!ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
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	documentation
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2949	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2950	A simple, embeddable window to show a single change.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2951	If readonlyHolder's value is false, then user is
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2952	allowed to edit the change (i.e., modify the source code)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2953
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2954	[author:]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2955	Jan Vrany <jan.vrany@fit.cvut.cz>
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2956
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2957	[instance variables:]
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	[class variables:]
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	[see also:]
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	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2964	!
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	examples
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2967	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2968	Starting the application:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2969	[exBegin]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2970	Tools::ChangeEditor open
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2971
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2972	[exEnd]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2973
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2974	more examples to be added:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2975	[exBegin]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2976	... add code fragment for
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2977	... executable example here ...
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2978	[exEnd]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2979	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2980	! !
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2981
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2982	!ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2983
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2984	windowSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2985	"This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2986	by the UIPainter of ST/X."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2987
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2988	"Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2989	the UIPainter may not be able to read the specification."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2990
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2991	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2992	UIPainter new openOnClass:Tools::ChangeSetBrowser2::ChangeEditor andSelector:#windowSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2993	Tools::ChangeSetBrowser2::ChangeEditor new openInterface:#windowSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2994	Tools::ChangeSetBrowser2::ChangeEditor open
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2995	"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2996
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2997	<resource: #canvas>
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2998
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2999	^
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3000	#(FullSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3001	name: windowSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3002	window:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3003	(WindowSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3004	label: 'Change Editor'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3005	name: 'Change Editor'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3006	min: (Point 10 10)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3007	bounds: (Rectangle 0 0 579 341)
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	component:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3010	(SpecCollection
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3011	collection: (
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3012	(SubCanvasSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3013	name: 'TextDiffTool'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3014	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3015	hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3016	hasVerticalScrollBar: false
12179 47f98e7d6de1 Improvments towards merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12154 diff changeset	3017	majorKey: #'Tools::TextDiff2Tool'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3018	minorKey: windowSpecForEmbedding
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3019	subAspectHolders:
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3020	(Array
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3021
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3022	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3023	subAspect: classHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3024	aspect: classAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3025	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3026	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3027	subAspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3028	aspect: codeAspect
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
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3031	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3032	subAspect: labelAHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3033	aspect: labelAHolder
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	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3036	subAspect: labelBHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3037	aspect: labelBHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3038	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3039
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3040	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3041	subAspect: showDiffHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3042	aspect: showdiffHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3043	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3044	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3045	subAspect: textAHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3046	aspect: sourceChangeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3047	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3048
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3049	(SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3050	subAspect: textBHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3051	aspect: sourceImageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3052	)
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	createNewApplication: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3055	createNewBuilder: true
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3056	)
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
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3059	)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3060	)
12179 47f98e7d6de1 Improvments towards merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12154 diff changeset	3061
47f98e7d6de1 Improvments towards merge tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12154 diff changeset	3062	"Modified: / 16-03-2012 / 13:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3063	! !
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3064
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3065	!ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3066
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3067	sourceChangeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3068	^ sourceChangeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3069	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3070
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3071	sourceChangeHolder:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3072	sourceChangeHolder := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3073	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3074
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3075	sourceImageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3076	^ sourceImageHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3077	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3078
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3079	sourceImageHolder:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3080	sourceImageHolder := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3081	! !
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3082
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3083	!ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3084
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3085	changeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3086	"return/create the 'changeHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3087
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3088	changeHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3089	changeHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3090	changeHolder addDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3091	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3092	^ changeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3093	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3094
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3095	changeHolder:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3096	"set the 'changeHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3097
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3098	\|oldValue newValue\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3099
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3100	changeHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3101	oldValue := changeHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3102	changeHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3103	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3104	changeHolder := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3105	changeHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3106	changeHolder addDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3107	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3108	newValue := changeHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3109	oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3110	self update:#value with:newValue from:changeHolder.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3111	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3112	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3113
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3114	classAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3115
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3116	^(AspectAdaptor forAspect: #changeClass)
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3117	subjectChannel: self changeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3118
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3119	"Created: / 29-11-2011 / 11:21:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3120	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3121
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3122	codeAspect
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3123
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3124	^BlockValue
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3125	with: [:change\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3126	change isMethodCodeChange
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3127	ifTrue:[#method]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3128	ifFalse:[#expression]
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3129	] argument: self changeHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3130
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3131	"Created: / 29-11-2011 / 11:21:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3132	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3133
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3134	labelAText
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3135
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3136	^'Change'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3137
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3138	"Created: / 27-11-2011 / 14:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3139	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3140
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3141	labelBText
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3142
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3143	^'Current (in image)'
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3144
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3145	"Created: / 27-11-2011 / 14:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3146	!
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	readonlyHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3149	"return/create the 'readonlyHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3150
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3151	readonlyHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3152	readonlyHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3153	readonlyHolder addDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3154	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3155	^ readonlyHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3156	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3157
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3158	readonlyHolder:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3159	"set the 'readonlyHolder' value holder (automatically generated)"
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	\|oldValue newValue\|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3162
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3163	readonlyHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3164	oldValue := readonlyHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3165	readonlyHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3166	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3167	readonlyHolder := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3168	readonlyHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3169	readonlyHolder addDependent:self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3170	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3171	newValue := readonlyHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3172	oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3173	self update:#value with:newValue from:readonlyHolder.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3174	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3175	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3176
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3177	showdiffHolder
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3178	"return/create the 'showdiffHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3179
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3180	showdiffHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3181	showdiffHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3182	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3183	^ showdiffHolder
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
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3186	showdiffHolder:something
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3187	"set the 'showdiffHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3188
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3189	showdiffHolder := something.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3190	! !
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3191
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3192	!ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3193
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3194	changeChanged
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3195
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3196	"changeHolder has changed, update sources etc..."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3197
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3198	\| change \|
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3199	change := changeHolder value.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3200
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3201	sourceChangeHolder value: change changeSource.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3202	sourceImageHolder value: change imageSource.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3203
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3204	"Created: / 29-11-2011 / 11:15:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3205	!
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3206
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3207	update:something with:aParameter from:changedObject
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3208	"Invoked when an object that I depend upon sends a change notification."
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3209
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3210
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3211	changedObject == changeHolder ifTrue:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3212	self changeChanged.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3213	^ self.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3214	].
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3215	super update:something with:aParameter from:changedObject
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3216
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3217	"Modified: / 29-11-2011 / 11:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3218	! !
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3219
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3220	!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3221
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	3222	version
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3223	^ '$Id: Tools__ChangeSetBrowser2.st 7954 2012-03-26 15:34:31Z vranyj1 $'
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	3224	!
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	3225
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3226	version_CVS
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12201 diff changeset	3227	^ '�Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.32 2012/03/20 18:18:17 cg Exp �'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3228	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3229
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3230	version_SVN
12207 17656fc80e6c Improvements in method rewriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3231	^ '$Id: Tools__ChangeSetBrowser2.st 7954 2012-03-26 15:34:31Z vranyj1 $'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3232	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 26 Mar 2012 16:34:31 +0100
branch	jv
changeset 12207	17656fc80e6c
parent 12205	f210b6224ef0
child 12211	67fdfbb74096
permissions	-rw-r--r--