hg/stx-libtool: Tools__ChangeSetBrowser2.st@f1bf748ae2d3 (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
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 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
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	31	instanceVariableNames:'changesetHolder titleHolder allowOpenHolder changesetFile
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	32	navigatorChangesetHolder navigatorSpecHolder list1 list1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	33	selection1Holder list2 list2Holder selection2Holder classHolder
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	34	languageHolder codeAspectHolder showRemovedAspect showSameAspect
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	35	acceptEnabledHolder sourceView changeSourceHolder
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	36	imageSourceHolder targetPackage targetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	37	updateChangefileHolder'
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	38	classVariableNames:'ShowRemoved LastSelectionConditionString'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	39	poolDictionaries:''
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 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
10914 55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	43	ApplicationModel subclass:#ChangeEditor
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	44	instanceVariableNames:'changeHolder readonlyHolder showdiffHolder sourceChangeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	45	sourceImageHolder'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	46	classVariableNames:''
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	47	poolDictionaries:''
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	48	privateIn:ChangeSetBrowser2
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	49	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 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
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 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
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	103	changeset: aChangeSet;
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	helpSpec
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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	^ super helpSpec addPairsFrom:#(
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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	''
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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	''
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	!ChangeSetBrowser2 class methodsFor:'interface opening'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	confirmChanges: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	^self confirmChanges: aChangeSet label: 'Apply following changes?'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	"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	156	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	confirmChanges:aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	"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	160
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	\|browser browserView dialog\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	163	browser := self on: aChangeSet.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	browser acceptEnabled: false.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	browser showRemovedAspect: (true asValue).
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	166	browserView := ApplicationSubView new
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	167	client:browser
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	168	spec:#windowSpecForEmbedding.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	dialog := (Dialog new)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	170	addComponent:browserView withHeight: 300;
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	171	addAbortAndOkButtons;
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	172	yourself.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	dialog label: aString.
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	174	dialog buttonPanel
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	175	layout:(LayoutFrame fractions:(0.0 @ 1.0 corner:1.0 @ 1.0)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	176	offsets:(0 @ -30 corner:0 @ 0)).
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	browserView layout:(LayoutFrame fractions:(0.0 @ 0.0 corner:1.0 @ 1.0)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	178	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	179	dialog
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	180	okAction:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	181	[^browser list1Holder value condenseChangesForRemoved];
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	182	abortAction:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	183	[^#()].
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	184	dialog openWithExtent: 800@700.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	^#()
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	"
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	188	Tools::ChangeSetBrowser2
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	189	confirmChanges:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	190	(ChangeSet current copyFrom: ((ChangeSet current size - 10) max: 1) to: ChangeSet current size)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	191	label: 'Last 10 changes...'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	"Created: / 08-11-2010 / 17:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	195	"Modified: / 04-08-2011 / 18:06:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	196	"Modified: / 07-09-2011 / 20:19:44 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	openOn: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	^(self on: aChangeSet) open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	openOn: aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	^self openOn: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	"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	209	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	openOn: aChangeSet label: aString setupWith: aBlock
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	^(self on: aChangeSet label: aString setupWith: aBlock) open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	"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	216	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	!ChangeSetBrowser2 class methodsFor:'interface specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	228	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#hierarchicalNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	229	Tools::ChangeSetBrowser2 new openInterface:#hierarchicalNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	234	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	236	name: hierarchicalNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	237	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	239	label: 'Hierarchical Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	240	name: 'Hierarchical Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	241	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	242	bounds: (Rectangle 0 0 300 300)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	243	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	244	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	246	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	247	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	248	name: 'ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	249	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	250	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	251	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	252	majorKey: #'Tools::HierarchicalChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	253	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	254	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	255
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	256	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	257	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	258	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	259	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	260	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	261	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	262	aspect: list1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	263	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	264
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	265	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	266	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	267	aspect: list1MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	268	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	269	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	270	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	271	aspect: selection1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	272	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	273
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	274	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	275	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	276	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	277	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	278	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	279	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	280	aspect: showSameAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	281	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	282
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	283	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	284	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	285	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	286	postBuildCallback: list1View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	287	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	288	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	289
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	290	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	292
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	293	"Modified: / 04-08-2011 / 18:43:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	304	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#oneColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	305	Tools::ChangeSetBrowser2 new openInterface:#oneColumnNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	310	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	312	name: oneColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	313	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	315	label: 'One Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	316	name: 'One Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	317	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	318	bounds: (Rectangle 0 0 300 300)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	319	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	320	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	322	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	323	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	324	name: 'ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	325	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	326	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	327	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	328	majorKey: #'Tools::ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	329	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	330	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	331
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	332	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	333	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	334	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	335	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	336	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	337	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	338	aspect: list1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	339	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	340
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	341	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	342	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	343	aspect: list1MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	344	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	345	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	346	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	347	aspect: selection1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	348	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	349
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	350	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	351	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	352	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	353	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	354	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	355	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	356	aspect: showSameAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	357	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	358
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	359	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	360	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	361	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	362	postBuildCallback: list1View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	363	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	364	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	365
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	366	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	368
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	369	"Modified: / 04-08-2011 / 18:43:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	380	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#twoColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	381	Tools::ChangeSetBrowser2 new openInterface:#twoColumnNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	386	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	388	name: twoColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	389	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	391	label: 'Two Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	392	name: 'Two Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	393	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	394	bounds: (Rectangle 0 0 300 300)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	395	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	396	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	398	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	399	(VariableHorizontalPanelSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	400	name: 'Columns'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	401	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	402	component:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	403	(SpecCollection
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	404	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	405	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	406	name: 'FirstColumn'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	407	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	408	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	409	majorKey: #'Tools::ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	410	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	411	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	412
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	413	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	414	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	415	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	416	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	417	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	418	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	419	aspect: list1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	420	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	421
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	422	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	423	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	424	aspect: list1MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	425	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	426	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	427	subAspect: outGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	428	aspect: list2Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	429	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	430
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	431	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	432	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	433	aspect: selection1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	434	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	435	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	436	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	437	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	438	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	439	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	440	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	441	aspect: showSameAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	442	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	443	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	444	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	445	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	446	postBuildCallback: list1View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	447	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	448	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	449	name: 'SecondColumn'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	450	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	451	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	452	majorKey: #'Tools::ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	453	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	454	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	455
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	456	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	457	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	458	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	459	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	460	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	461	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	462	aspect: list2Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	463	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	464
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	465	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	466	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	467	aspect: list2MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	468	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	469	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	470	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	471	aspect: selection2Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	472	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	473
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	474	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	475	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	476	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	477	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	478	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	479	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	480	aspect: showSameAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	481	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	482	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	483	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	484	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	485	postBuildCallback: list2View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	486	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	487	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	488
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	489	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	490	handles: (Any 0.5 1.0)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	491	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	492	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	493
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	494	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	496
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	497	"Modified: / 04-08-2011 / 18:43:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500	windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508	UIPainter new openOnClass:Tools::ChangeSetBrowser andSelector:#windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	509	Tools::ChangeSetBrowser new openInterface:#windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510	Tools::ChangeSetBrowser open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	511	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	512
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	514
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	515	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	517	name: windowSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	518	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	520	label: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	521	name: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	522	labelChannel: titleHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	523	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	524	bounds: (Rectangle 0 0 653 488)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	525	menu: mainMenu
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	526	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	527	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	529	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	530	(MenuPanelSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	531	name: 'ToolBar'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	532	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	533	menu: toolbarMenu
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	534	textDefault: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	535	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	536	(UISubSpecification
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	537	name: 'Contents'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	538	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	539	minorKey: windowSpecWithoutToolbar
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	540	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	541	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	542
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	543	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	windowSpecForEmbedding
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	^self windowSpecWithoutToolbar
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	windowSpecWithoutToolbar
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	"
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	560	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#windowSpecWithoutToolbar
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	561	Tools::ChangeSetBrowser2 new openInterface:#windowSpecWithoutToolbar
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	566	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	#(FullSpec
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	568	name: windowSpecWithoutToolbar
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	569	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	(WindowSpec
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	571	label: 'ChangeSet browser'
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	572	name: 'ChangeSet browser'
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	573	min: (Point 10 10)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	574	bounds: (Rectangle 0 0 653 488)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	575	menu: mainMenu
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	576	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	577	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	(SpecCollection
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	579	collection: (
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	580	(VariableVerticalPanelSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	581	name: 'VerticalPanel'
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	582	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	583	component:
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	584	(SpecCollection
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	585	collection: (
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	586	(SubCanvasSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	587	name: 'NavigatorPanel'
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	588	hasHorizontalScrollBar: false
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	589	hasVerticalScrollBar: false
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	590	specHolder: navigatorSpecHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	591	createNewBuilder: false
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	592	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	593	(SubCanvasSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	594	name: 'TextDiffTool'
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	595	hasHorizontalScrollBar: false
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	596	hasVerticalScrollBar: false
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	597	majorKey: #'Tools::TextDiffTool'
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	598	minorKey: windowSpecForEmbedding
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	599	subAspectHolders:
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	600	(Array
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	601
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	602	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	603	subAspect: classHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	604	aspect: classHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	605	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	606	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	607	subAspect: languageHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	608	aspect: languageHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	609	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	610	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	611	subAspect: codeAspectHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	612	aspect: codeAspectHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	613	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	614
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	615	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	616	subAspect: labelAHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	617	aspect: labelAHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	618	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	619	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	620	subAspect: labelBHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	621	aspect: labelBHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	622	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	623
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	624	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	625	subAspect: textAHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	626	aspect: changeSourceHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	627	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	628	(SubChannelInfoSpec
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	629	subAspect: textBHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	630	aspect: imageSourceHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	631	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	632	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	633	createNewApplication: true
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	634	createNewBuilder: true
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	635	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	636	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	637
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	638	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	639	handles: (Any 0.5 1.0)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	640	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	641	)
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	642
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	643	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	)
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	645
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	646	"Modified: / 03-12-2011 / 10:36:40 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649	!ChangeSetBrowser2 class methodsFor:'menu specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651	changeMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	652	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	658
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	660	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	661	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	666	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667	#(Menu
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	668	(
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	669	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	670	enabled: hasChangeSelectedAndNotRemoved:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	671	label: 'Apply'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	672	itemValue: changeMenuApplySelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	673	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	674	isVisible: acceptEnabledHolder
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	675	shortcutKey: Accept
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	676	auxValue: 100
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	677	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	678	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	679	label: 'Apply all'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	680	itemValue: changeMenuApply:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	681	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	682	isVisible: acceptEnabledHolder
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	683	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	684	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	685	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	686	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	687	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	688	label: 'Delete'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	689	itemValue: changeMenuDeleteSelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	690	nameKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	691	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	692	shortcutKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	693	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	694	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	695	label: 'Undelete'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	696	itemValue: changeMenuUndeleteSelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	697	nameKey: Undelete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	698	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	699	shortcutKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	700	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	701	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	702	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	703	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	704	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	705	label: 'Select...'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	706	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	707	submenu:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	708	(Menu
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	709	(
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	710	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	711	label: 'Select same'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	712	itemValue: changeMenuSelectSame:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	713	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	714	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	715	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	716	label: 'Select additions (new classes/methods)'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	717	itemValue: changeMenuSelectAdditions:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	718	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	719	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	720	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	721	label: 'Select removals'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	722	itemValue: changeMenuSelectRemovals:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	723	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	724	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	725	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	726	label: 'Select differences'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	727	itemValue: changeMenuSelectDifferences:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	728	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	729	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	730	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	731	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	732	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	733	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	734	label: 'Select all'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	735	itemValue: changeMenuSelectAll:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	736	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	737	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	738	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	739	label: 'Select none'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	740	itemValue: changeMenuSelectNone:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	741	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	742	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	743	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	744	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	745	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	746	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	747	label: 'Select using block'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	748	itemValue: changeMenuSelectUsingBlock:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	749	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	750	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	751	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	752	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	753	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	754	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	755	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	756	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	757	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	758	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	759	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	760	label: 'Show Deleted'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	761	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	762	indication: showRemovedAspect
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	763	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	764	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	765	label: 'Show Same'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	766	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	767	indication: showSameAspect
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	768	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	769	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	770	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	771	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	772	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	773	label: 'Inspect change'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	774	itemValue: changeMenuInspect:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	775	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	776	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	777	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	778	enabled: hasSingleChangeSelectedAndCanBrowse:
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	779	label: 'Browse Method(s)'
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	780	itemValue: changeMenuBrowse:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	781	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	782	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	783	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	784	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	785	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	786	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	789	changeMenu1
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	790	"This resource specification was automatically generated
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	791	by the MenuEditor of ST/X."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	792
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	793	"Do not manually edit this!! If it is corrupted,
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	794	the MenuEditor may not be able to read the specification."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	795
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	796
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	797	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	798	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu1
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	799	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu1)) startUp
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	800	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	801
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	802	<resource: #menu>
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	803
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	804	^
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	805	#(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	806	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	807	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	808	enabled: hasChangeSelectedAndNotRemoved:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	809	label: 'Apply'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	810	itemValue: changeMenuApplySelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	811	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	812	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	813	shortcutKey: Accept
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	814	auxValue: 100
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	815	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	816	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	817	label: 'Apply all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	818	itemValue: changeMenuApply:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	819	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	820	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	821	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	822	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	823	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	824	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	825	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	826	label: 'Delete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	827	itemValue: changeMenuDeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	828	nameKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	829	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	830	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	831	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	832	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	833	label: 'Undelete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	834	itemValue: changeMenuUndeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	835	nameKey: Undelete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	836	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	837	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	838	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	839	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	840	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	841	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	842	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	843	label: 'Select...'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	844	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	845	submenu:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	846	(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	847	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	848	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	849	label: 'Select same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	850	itemValue: changeMenuSelectSame:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	851	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	852	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	853	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	854	label: 'Select additions (new classes/methods)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	855	itemValue: changeMenuSelectAdditions:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	856	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	857	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	858	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	859	label: 'Select removals'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	860	itemValue: changeMenuSelectRemovals:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	861	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	862	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	863	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	864	label: 'Select differences'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	865	itemValue: changeMenuSelectDifferences:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	866	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	867	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	868	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	869	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	870	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	871	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	872	label: 'Select all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	873	itemValue: changeMenuSelectAll:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	874	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	875	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	876	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	877	label: 'Select none'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	878	itemValue: changeMenuSelectNone:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	879	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	880	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	881	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	882	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	883	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	884	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	885	label: 'Select using block'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	886	itemValue: changeMenuSelectUsingBlock:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	887	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	888	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	889	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	890	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	891	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	892	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	893	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	894	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	895	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	896	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	897	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	898	label: 'Show Deleted'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	899	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	900	indication: showRemovedAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	901	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	902	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	903	label: 'Show Same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	904	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	905	indication: showSameAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	906	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	907	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	908	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	909	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	910	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	911	label: 'Inspect change'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	912	itemValue: changeMenuInspect:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	913	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	914	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	915	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	916	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	917	label: 'Browse Method(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	918	itemValue: changeMenuBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	919	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	920	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	921	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	922	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	923	label: 'Browse Class(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	924	itemValue: changeMenuBrowseClass:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	925	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	926	)
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	927	(MenuItem
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	928	label: '-'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	929	)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	930	(MenuItem
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	931	enabled: hasSingleChangeSelectedAndCanBrowse:
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	932	label: 'Compare Class Against...'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	933	itemValue: changeMenuCompareClass:
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	934	translateLabel: true
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	935	)
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	936	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	937	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	938	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	939	)
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	940
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	941	"Modified: / 01-12-2011 / 18:36:15 / cg"
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	942	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	943
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	944	changeMenu2
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	945	"This resource specification was automatically generated
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	946	by the MenuEditor of ST/X."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	947
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	948	"Do not manually edit this!! If it is corrupted,
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	949	the MenuEditor may not be able to read the specification."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	950
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	951
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	952	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	953	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu2
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	954	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu2)) startUp
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	955	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	956
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	957	<resource: #menu>
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	958
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	959	^
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	960	#(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	961	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	962	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	963	enabled: hasChangeSelectedAndNotRemoved:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	964	label: 'Apply'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	965	itemValue: changeMenuApplySelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	966	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	967	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	968	shortcutKey: Accept
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	969	auxValue: 100
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	970	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	971	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	972	label: 'Apply all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	973	itemValue: changeMenuApply:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	974	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	975	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	976	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	977	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	978	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	979	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	980	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	981	label: 'Delete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	982	itemValue: changeMenuDeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	983	nameKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	984	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	985	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	986	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	987	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	988	label: 'Undelete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	989	itemValue: changeMenuUndeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	990	nameKey: Undelete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	991	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	992	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	993	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	994	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	995	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	996	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	997	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	998	label: 'Select...'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	999	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1000	submenu:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1001	(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1002	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1003	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1004	label: 'Select same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1005	itemValue: changeMenuSelectSame:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1006	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1007	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1008	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1009	label: 'Select additions (new classes/methods)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1010	itemValue: changeMenuSelectAdditions:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1011	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1012	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1013	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1014	label: 'Select removals'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1015	itemValue: changeMenuSelectRemovals:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1016	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1017	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1018	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1019	label: 'Select differences'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1020	itemValue: changeMenuSelectDifferences:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1021	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1022	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1023	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1024	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1025	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1026	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1027	label: 'Select all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1028	itemValue: changeMenuSelectAll:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1029	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1030	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1031	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1032	label: 'Select none'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1033	itemValue: changeMenuSelectNone:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1034	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1035	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1036	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1037	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1038	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1039	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1040	label: 'Select using block'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1041	itemValue: changeMenuSelectUsingBlock:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1042	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1043	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1044	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1045	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1046	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1047	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1048	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1049	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1050	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1051	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1052	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1053	label: 'Show Deleted'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1054	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1055	indication: showRemovedAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1056	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1057	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1058	label: 'Show Same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1059	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1060	indication: showSameAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1061	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1062	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1063	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1064	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1065	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1066	label: 'Inspect change'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1067	itemValue: changeMenuInspect:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1068	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1069	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1070	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1071	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1072	label: 'Browse Method(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1073	itemValue: changeMenuBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1074	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1075	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1076	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1077	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1078	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1079	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1080
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1081	"Created: / 05-09-2011 / 16:06:49 / cg"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1082	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1083
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1084	mainMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1085	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1087
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1088	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1089	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1091
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1093	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#mainMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1094	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 mainMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1095	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1096
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1097	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1099	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100	#(Menu
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1101	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1102	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1103	label: 'File'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1104	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1105	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1106	(Menu
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1107	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1108	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1109	label: 'Open'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1110	itemValue: doOpen
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1111	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1112	isVisible: allowOpenHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1113	shortcutKey: Ctrlo
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1114	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1115	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1116	label: 'Open current'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1117	itemValue: doOpenCurrent
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1118	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1119	isVisible: allowOpenHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1120	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1121	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1122	label: 'Save'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1123	itemValue: doSave
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1124	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1125	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1126	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1127	label: 'Save As...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1128	itemValue: doSaveAs
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1129	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1130	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1131	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1132	label: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1133	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1134	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1135	label: 'Exit'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1136	itemValue: closeRequest
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1137	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1138	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1139	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1140	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1141	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1142	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1143	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1144	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1145	label: 'View'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1146	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1147	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1148	(Menu
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1149	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1150	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1151	label: 'List'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1152	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1153	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1154	choiceValue: oneColumnNavigatorSpec
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1155	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1156	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1157	label: 'Hierarchical List'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1158	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1159	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1160	choiceValue: hierarchicalNavigatorSpec
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1161	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1162	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1163	label: 'Browser Like'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1164	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1165	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1166	choiceValue: twoColumnNavigatorSpec
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1167	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1168	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1169	label: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1170	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1171	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1172	label: 'Show Deleted'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1173	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1174	indication: showRemovedAspect
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1175	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1176	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1177	label: 'Show Same'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1178	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1179	indication: showSameAspect
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1180	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1181	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1182	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1183	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1184	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1185	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1186	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1187	label: 'Loading'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1188	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1189	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1190	(Menu
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1191	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1192	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1193	label: 'Set Target Package...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1194	itemValue: setTargetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1195	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1196	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1197	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1198	label: 'Set Target Namespace...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1199	itemValue: setTargetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1200	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1201	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1202	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1203	label: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1204	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1205	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1206	label: 'Update Changefile'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1207	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1208	indication: updateChangeFileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1209	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1210	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1211	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1212	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1213	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1214	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1215	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1216	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1217	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1221	toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1222	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1223	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1229	MenuEditor new openOnClass:Tools::ChangeSetBrowser andSelector:#toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1230	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser toolbarMenu)) startUp
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1231	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1232
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1233	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1234
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1235	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1236	#(Menu
10854 e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1237	(
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1238	(MenuItem
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1239	activeHelpKey: fileLoad
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1240	label: 'Open'
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1241	itemValue: doOpen
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1242	translateLabel: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1243	isButton: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1244	isVisible: allowOpenHolder
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1245	labelImage: (ResourceRetriever ToolbarIconLibrary loadFromFileIcon)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1246	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1247	(MenuItem
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1248	activeHelpKey: fileSave
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1249	label: 'Save'
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1250	itemValue: doSave
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1251	translateLabel: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1252	isButton: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1253	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1254	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1255	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1256	nil
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1257	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258	)
10854 e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1259
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1260	"Modified: / 08-11-2011 / 16:43:39 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263	!ChangeSetBrowser2 class methodsFor:'plugIn spec'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265	aspectSelectors
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	"Do not manually edit this. If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272	"Return a description of exported aspects;
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273	these can be connected to aspects of an embedding application
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274	(if this app is embedded in a subCanvas)."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	^ #(
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1277	#changesetHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278	).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1279
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282	!ChangeSetBrowser2 methodsFor:'accessing'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1283
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284	acceptEnabled: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286	^self acceptEnabledHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289	allowOpen: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291	self allowOpenHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293	"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	1294	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296	beHierarchical
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298	^self navigatorSpecHolder value: #hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	"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	1301	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303	beOneColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305	^self navigatorSpecHolder value: #oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307	"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	1308	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	beTwoColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	^self navigatorSpecHolder value: #twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314	"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	1315	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317	changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319	^self changesetHolder value
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322	changeset: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1323
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1327	list1View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1328
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1329	list1 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1330
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1331	"Created: / 04-08-2011 / 17:56:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1332	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1333
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1334	list2View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1335
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1336	list2 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1337
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1338	"Created: / 04-08-2011 / 17:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1339	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1340
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341	readOnly: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343	"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	1344	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1346	targetNamespace:something
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1347	targetNamespace := something.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1348	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1349
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1350	targetPackage:something
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1351	targetPackage := something.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1352	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1353
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354	theSingleSelectedChange
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1356	\| change sel \|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357	change := nil.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1358	sel := selection2Holder value.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1359	sel isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1360	sel := selection1Holder value.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1361	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1362	sel do:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1363	[:each\|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1364	change ifNotNil:[nil].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1365	change ifNil:[change := each]].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1366	^change
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1367
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1368	"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	1369	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1370
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371	title: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1372
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373	self titleHolder value: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1374
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	"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	1376	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1378	!ChangeSetBrowser2 methodsFor:'accessing - defaults'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380	defaultTitle
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381	^ 'No changeset'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383	"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	1384	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1385
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1386	!ChangeSetBrowser2 methodsFor:'accessing - menus'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1387
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1388	list1MenuHolder
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1389	^ [
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1390	\|menu\|
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1391
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1392	menu := builder menuFor:#changeMenu1.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1393	menu allItemsDo:[:item \| item argument:list1 ].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1394	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1395	]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1396
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1397	"Created: / 04-08-2011 / 18:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1398	"Modified (format): / 05-09-2011 / 16:07:20 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1399	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1400
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1401	list2MenuHolder
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1402	^ [
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1403	\|menu\|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1404
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1405	menu := builder menuFor:#changeMenu2.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1406	menu allItemsDo:[:item \| item argument:list2 ].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1407	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1408	]
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1409
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1410	"Created: / 04-08-2011 / 18:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1411	"Modified (format): / 05-09-2011 / 16:07:34 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1412	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1414	!ChangeSetBrowser2 methodsFor:'actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1415
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1416	accept: source
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1417
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1418	\| entry chg \|
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1419	(entry := self theSingleSelectedChange) isNil ifTrue:[^self].
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1420	chg := entry change.
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1421	chg isMethodCodeChange ifTrue:
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1422	[chg source: source asString]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1424	"Modified: / 29-11-2010 / 22:40:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1425	"Modified: / 18-11-2011 / 14:56:53 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428	postBuildSourceView: aView
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1430	sourceView := aView.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	1431
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1432	"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	1433	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1434
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1435	!ChangeSetBrowser2 methodsFor:'aspects'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1436
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1437	acceptEnabledHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438	"return/create the 'selectionHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1439
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1440	acceptEnabledHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1441	acceptEnabledHolder := ValueHolder with: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1442	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1443	^ acceptEnabledHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1444
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1445	"Modified: / 24-10-2009 / 19:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1446	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1447
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1448	allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1449	"return/create the 'allowOpenHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1450
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451	allowOpenHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1452	allowOpenHolder := ValueHolder with: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1453	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1454	^ allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1455
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1456	"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	1457	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1459	changeSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1460	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1461	changeSourceHolder isNil ifTrue: [
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1462	changeSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1463	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1464	^ changeSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1465
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1466	"Modified: / 19-07-2011 / 11:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1467	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1468
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1469	changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1470	"return/create the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472	changesetHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1473	changesetHolder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1474	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1476	^ changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1477	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1478
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1479	changesetHolder:something
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1480	"set the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1481
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1482	\|oldValue newValue\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1483
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1484	changesetHolder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1485	oldValue := changesetHolder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1486	changesetHolder removeDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1487	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488	changesetHolder := something.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489	changesetHolder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1490	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1491	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492	newValue := changesetHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1493	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1494	self update:#value with:newValue from:changesetHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1497
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498	classHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1499	"return/create the 'classHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1500
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1501	classHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1502	classHolder := ValueHolder with:nil.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1503	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1504	^ classHolder
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1505
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1506	"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	1507	!
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1508
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1509	codeAspectHolder
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1510	"return/create the 'codeAspectHolder' value holder (automatically generated)"
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1511
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1512	codeAspectHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1513	codeAspectHolder := ValueHolder new.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1514	].
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1515	^ codeAspectHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1516	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1517
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1518	imageSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1519	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1520	imageSourceHolder isNil ifTrue: [
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1521	imageSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1522	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1523	^ imageSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1524
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1525	"Created: / 19-07-2011 / 11:54:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1526	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1527
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1528	labelAHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1529
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1530	^'Change' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1531
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1532	"Created: / 19-07-2011 / 11:46:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1533	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1534
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1535	labelBHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1536
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1537	^'Image' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1538
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1539	"Created: / 19-07-2011 / 11:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1540	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1541
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1542	languageHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1543	languageHolder isNil ifTrue:[
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1544	languageHolder := ValueHolder with:nil.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1545	].
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1546	^ languageHolder
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1547
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1548	"Modified: / 19-07-2011 / 19:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1549	"Created: / 03-12-2011 / 10:37:39 / cg"
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1550	!
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1551
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1552	list1Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1553	"return/create the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1554
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1555	list1Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1556	list1Holder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1557	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1558	^ list1Holder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1560
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1561	list1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1562	"set the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1563
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1564	list1Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1567	list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1568	"return/create the 'list2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1569
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1570	list2Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1571	list2Holder := ValueHolder new.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1572	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1573	^ list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1574	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1575
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1576	list2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1577	"set the 'list2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1578
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1579	list2Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1580	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1581
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1582	navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1583	"return/create the 'navigatorChangesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1584
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1585	navigatorChangesetHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1586	navigatorChangesetHolder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1587	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1588	^ navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1589	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1590
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1591	navigatorSpecHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1592	<resource: #uiAspect>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1593
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1594	navigatorSpecHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1595	navigatorSpecHolder := ValueHolder with:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1596	#hierarchicalNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1597	"/#twoColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1598	"/#oneColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1599
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1600	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1601	^ navigatorSpecHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1602
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1603	"Modified: / 20-11-2009 / 20:12:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1604	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1605
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	selection1Holder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1607	"return/create the 'selection1Holder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1608
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1609	selection1Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1610	selection1Holder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1611	selection1Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1612	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1613	^ selection1Holder
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1614	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1615
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1616	selection1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1617	"set the 'selection1Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1618
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1619	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1620
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1621	selection1Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1622	oldValue := selection1Holder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1623	selection1Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1624	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1625	selection1Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1626	selection1Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1627	selection1Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1628	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1629	newValue := selection1Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1630	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1631	self update:#value with:newValue from:selection1Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1632	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1633	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1634
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1635	selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1636	"return/create the 'selection2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1637
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1638	selection2Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1639	selection2Holder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1640	selection2Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1641	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1642	^ selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1643	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1644
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1645	selection2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1646	"set the 'selection2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1647
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1648	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1649
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1650	selection2Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1651	oldValue := selection2Holder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1652	selection2Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1653	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1654	selection2Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1655	selection2Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1656	selection2Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1657	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1658	newValue := selection2Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1659	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1660	self update:#value with:newValue from:selection2Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1661	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1662	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1663
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1664	showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1665	"return/create the 'showDeletedAspect' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1666
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1667	showRemovedAspect isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1668	showRemovedAspect := (AspectAdaptor forAspect:#showRemoved)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1669	subject: self class.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1670	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1671	^ showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1672	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1673
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1674	showRemovedAspect:aValueHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1675	showRemovedAspect := aValueHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1676	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1677
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1678	showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1679	"return/create the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1680
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1681	showSameAspect isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1682	showSameAspect := ValueHolder with: true.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1683	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1684	^ showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1685
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1686	"Modified: / 04-08-2011 / 18:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1687	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1688
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1689	showSameAspect:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1690	"set the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1691
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1692	showSameAspect := something.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1693	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1694
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695	titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696	"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	1697
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1698	titleHolder isNil
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1699	ifTrue:[ titleHolder := ValueHolder with:self defaultTitle. ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	^ titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1701
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1702	"Modified: / 26-10-2010 / 22:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1703	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1704
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1705	updateChangefileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1706	updateChangefileHolder isNil ifTrue:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1707	updateChangefileHolder := false asValue.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1708	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1709	^ updateChangefileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1710
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1711	"Created: / 07-09-2011 / 15:54:03 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1712	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1713
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1714	!ChangeSetBrowser2 methodsFor:'change & update'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1715
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1716	changesetChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1717
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1718	self titleHolder value: (self changeset name ? (self defaultTitle)).
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1719	self list1Holder value: self getNavigatorChangeSet
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1720
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1721	"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	1722	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1723
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1724	selectionChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1725	\| change \|
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1726
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1727	change := self theSingleSelectedChange.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1728	(change notNil and:[change change isCompositeChange not]) ifTrue:[
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1729	self classHolder value: change changeClass.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1730	changeSourceHolder setValue: change changeSource; changed: #value.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1731	imageSourceHolder setValue: change imageSource; changed: #value.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1732
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1733	codeAspectHolder value:
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1734	(change change isMethodCodeChange
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1735	ifTrue:[#method]
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1736	ifFalse:[#expression]).
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1737	self showSource: true
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1738	] ifFalse:[
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1739	self showSource: false.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1740	self classHolder value: nil.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1741	changeSourceHolder setValue: nil; changed: #value.
f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1742	imageSourceHolder setValue: nil; changed: #value.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1743	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745	"Created: / 24-10-2009 / 19:49:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	1746	"Modified (format): / 03-12-2011 / 10:38:45 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1747	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1749	update: aspect with: param from: sender
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1751	sender == changesetHolder ifTrue: [ ^ self changesetChanged ].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1752	sender == selection1Holder ifTrue: [ ^ self selectionChanged ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1753	sender == selection2Holder ifTrue: [ ^ self selectionChanged ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1755	"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	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	!ChangeSetBrowser2 methodsFor:'interface opening'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1760	open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1762	super open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1763	^self
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1764
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1765	"Created: / 20-07-2010 / 09:48:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1766	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1767
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1768	!ChangeSetBrowser2 methodsFor:'menu actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1769
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1770	doOpen
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1771
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1772	\| file changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1773	file := Dialog requestFileName:'Select changeset' pattern:'.chg;.st'.
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1774	file isNil ifTrue:[^self].
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1775	[changeset := ChangeSet fromFile: file]
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1776	on: Error
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1777	do: [:ex\|Dialog error: 'Error when loading changeset: ',ex description. ^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778	changesetFile := file.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1779	self title: file asFilename baseName asString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1780	self doOpen: changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1781
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1782	"Modified: / 08-04-2011 / 10:11:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1783	"Modified: / 18-11-2011 / 14:57:02 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1784	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1785
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1786	doOpen: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1787
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1788	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1789
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1790	"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	1791	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1792
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1793	doOpenCurrent
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1794
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1795	self doOpen: ChangeSet current
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1796
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1797	"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	1798	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1799
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1800	doSave
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1801
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1802	changesetFile
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1803	ifNil:[self doSaveAs]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1804	ifNotNil:[self doSaveAs: changesetFile]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1805
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1806	"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	1807	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1808
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1809	doSaveAs
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1810
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1811	\| file \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1812	file := Dialog requestFileName:'Select file' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1813	file isNil ifTrue:[^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1814	self doSaveAs: file.
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1815
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1816	"Modified: / 18-11-2011 / 14:57:07 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1817	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1818
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1819	doSaveAs: newFile
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1820
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1821	[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1822	\| s \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1823	s := newFile asFilename writeStream.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1824	[self changeset fileOutOn: s] ensure:[s close].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1825	changesetFile := newFile.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1826	] on: Error do:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1827	[:ex\|Dialog warn: 'Erorr saving changes: ' , ex description]
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1828	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1829
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1830	setTargetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1831	"specify an st/x namespace to be used as default"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1832
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1833	\| nsName \|
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1834
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1835	nsName := Dialog
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1836	requestNameSpace:'Namepace to load code into:'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1837	initialAnswer:targetNamespace.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1838	nsName isEmptyOrNil ifTrue:[^self].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1839
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1840	targetNamespace := nsName.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1841	"/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1842
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1843	"Created: / 07-09-2011 / 12:49:42 / cg"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1844	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1845
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1846	setTargetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1847	"specify an st/x package identifier to be used as default"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1848
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1849	\| package \|
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1850
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1851	package := Dialog
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1852	requestProject:'Default Smalltalk/X package to load code into:'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1853	initialAnswer:targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1854	suggestions:#().
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1855	package isNil ifTrue:[^self].
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1856
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1857	targetPackage := "lastPackage := "package.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1858	"/ self targetPackageHolder value:('Target-Package: ',targetPackage).
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1859
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1860	"Created: / 07-09-2011 / 12:47:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1861	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1862
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1863	!ChangeSetBrowser2 methodsFor:'menu actions - changes'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1864
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1865	changeMenuApply: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1866
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1867	\| changesToApply \|
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1868	changesToApply := OrderedCollection new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1869	self changesDo:[:chg\|chg removed ifFalse:[changesToApply add: chg]].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1870	self changeMenuApplyChanges: changesToApply.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1871
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1872	"Created: / 04-08-2011 / 17:26:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1873	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1874
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1875	changeMenuApplySelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1876
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1877	changeList selection do:[:change\|self changeMenuApplyChange:change change].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1878
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1879	"Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1880	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1881
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1882	changeMenuBrowse: changeList
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1883	\|changes methods classes\|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1884
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1885	changeList == list1 ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1886	changes := selection1Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1887	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1888	changes := selection2Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1889	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1890	changes := changes collect:[:c \| c change].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1891	"/ changes := changeList listHolder value collect:[:c \| c change].
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1892	(changes conform:[:c \| c isClassDefinitionChange]) ifTrue:[
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1893	classes := (changes collect:[:c \| c changeClass]).
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1894	UserPreferences current systemBrowserClass
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1895	browseClasses:classes title:'selected monticello classes'.
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1896	] ifFalse:[
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1897	methods := OrderedCollection new.
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1898	changes do:[:each \|
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1899	each isCompositeChange ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1900	each changes do:[:each2 \| each2 isMethodChange ifTrue:[ methods add:each2 changeMethod ]]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1901	] ifFalse:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1902	each isMethodChange ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1903	methods add:(each changeMethod).
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1904	]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1905	]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1906	].
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1907	(methods includes:nil) ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1908	Dialog warn:('%1 methods are not present in the image' bindWith:(methods occurrencesOf:nil)).
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1909	methods := methods reject:[:m \| m isNil].
10665 bbaa7c4154de changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10658 diff changeset	1910	methods isEmpty ifTrue:[^ self].
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1911	].
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1912	UserPreferences current systemBrowserClass
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1913	browseMethods:methods title:'selected monticello methods' sort:false.
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1914	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1915
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1916	"Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1917	"Modified: / 05-09-2011 / 16:17:48 / cg"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1918	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1919
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1920	changeMenuBrowseClass: changeList
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1921	\|changes classes addThemChanges cls\|
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1922
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1923	changeList == list1 ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1924	changes := selection1Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1925	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1926	changes := selection2Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1927	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1928	changes := changes collect:[:eachListEntry \| eachListEntry change].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1929
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1930	classes := Set new.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1931	addThemChanges :=
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1932	[:c \|
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1933	c isClassDefinitionChange ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1934	classes add:c changeClass theNonMetaclass
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1935	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1936	c isMethodChange ifTrue:[
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1937	cls := c changeMethod isNil
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1938	ifTrue:[ c changeClass ]
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1939	ifFalse:[ c changeMethod mclass theNonMetaclass ].
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1940	classes add:cls
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1941	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1942	c isCompositeChange ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1943	c changes do:addThemChanges
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1944	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1945	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1946	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1947	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1948	changes do:addThemChanges.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1949
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1950	UserPreferences current systemBrowserClass
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1951	browseClasses:classes title:'selected monticello classes'.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1952
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1953	"Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1954	"Created: / 05-09-2011 / 16:08:35 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1955	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1956
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1957	changeMenuCompareClass: changeList
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1958	\|changes classNames classNameToClassMapping lastNameSpace
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1959	addClassName addThemChanges existingClasses
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1960	allChanges changeSet1 changeSet2 diffSet\|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1961
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1962	changeList == list1 ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1963	changes := selection1Holder value.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1964	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1965	changes := selection2Holder value.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1966	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1967	changes := changes collect:[:eachListEntry \| eachListEntry change].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1968
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1969	classNameToClassMapping := Dictionary new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1970	classNames := Set new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1971	allChanges := ChangeSet new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1972	existingClasses := Set new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1973
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1974	addClassName :=
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1975	[:nmArg \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1976	\|nm ns existingClass goodAnswer\|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1977
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1978	nm := nmArg.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1979	existingClass := Smalltalk classNamed:nm.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1980
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1981	existingClass notNil ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1982	goodAnswer := nm
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1983	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1984	ns := NameSpace allNameSpaces
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1985	detect:[:ns \| (ns classNamed:nm) notNil ]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1986	ifNone:nil.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1987	ns notNil ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1988	goodAnswer := (ns classNamed:nm) name.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1989	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1990	goodAnswer := nm.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1991	(lastNameSpace notNil
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1992	and:[ lastNameSpace isNamespace
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1993	and:[(lastNameSpace classNamed:nm) notNil ]]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1994	) ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1995	goodAnswer := (lastNameSpace classNamed:nm) name.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1996	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1997	(lastNameSpace notNil
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1998	and:[ lastNameSpace isBehavior
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1999	and:[(lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2000	) ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2001	goodAnswer := (lastNameSpace privateClassesAt:nm asSymbol) name.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2002	]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2003	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2004	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2005	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2006	nm := Dialog
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2007	request:('Class to compare for "%1"?' bindWith:nmArg)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2008	initialAnswer:goodAnswer.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2009	nm isNil ifTrue:[^ self].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2010	nm notEmpty ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2011	existingClass := Smalltalk at:nm asSymbol.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2012	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2013	existingClass notNil ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2014	classNameToClassMapping at:nmArg put:existingClass.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2015	existingClasses add:existingClass.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2016	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2017	classNames add:nmArg
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2018	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2019
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2020	addThemChanges := [:changes \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2021	"/ collect classes and mappings
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2022	changes do:[:c \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2023	c isClassDefinitionChange ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2024	addClassName value:(c className).
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2025	allChanges add:c.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2026	]].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2027
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2028	changes do:[:c \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2029	c isMethodChange ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2030	(classNames includes:(c className)) ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2031	addClassName value:(c className).
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2032	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2033	allChanges add:c.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2034	]].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2035
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2036	changes do:[:c \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2037	c isCompositeChange ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2038	addThemChanges value:(c changes)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2039	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2040	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2041	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2042
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2043	changes do:addThemChanges.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2044
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2045	"/ now, build a diffset and present it...
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2046	changeSet1 := allChanges.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2047	changeSet2 := ChangeSet new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2048	existingClasses do:[:cls \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2049	changeSet2 addAll:(ChangeSet forExistingClass:cls).
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2050	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2051	diffSet := changeSet1 diffSetsAgainst:changeSet2.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2052
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2053	(UserPreferences versionDiffViewerClass)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2054	openOnDiffSet:diffSet
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2055	labelA:'Monticello'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2056	labelB:'Current (In Image)'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2057	title:'Diffs'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2058	ignoreExtensions:false.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2059
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2060	"Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2061	"Created: / 01-12-2011 / 18:36:44 / cg"
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2062	!
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2063
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2064	changeMenuDeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2065
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2066	self selectionDo:[:chg\|chg removed: true]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2067
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068	"Modified: / 29-10-2010 / 13:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2069	"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	2070	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2071
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2072	changeMenuInspect: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2073
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2074	\| changes \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2075	changes := OrderedCollection new: 1.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2076	self selectionDo:[:chg\|changes add: chg].
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2077	changes size = 1
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2078	ifTrue:[changes anyOne inspect]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2079	ifFalse:[changes inspect].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2080
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2081	"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	2082	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2083
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2084	changeMenuInspectChangeset: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2085	self changesetHolder value inspect.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2086
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2087	"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	2088	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2089
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2090	changeMenuSelectAdditions: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2091
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2092	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #+]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2093
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2094	"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	2095	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2096
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2097	changeMenuSelectAll: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2098
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2099	self changeMenuSelectIn: changeList suchThat:[:change\|true]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2100
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2101	"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	2102	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2103
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2104	changeMenuSelectDifferences: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2105
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2106	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #~]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2107
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2108	"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	2109	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2110
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2111	changeMenuSelectNone: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2112
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2113	self changeMenuSelectIn: changeList suchThat:[:change\|false]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2114
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2115	"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	2116	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2117
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2118	changeMenuSelectRemovals: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2119
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2120	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #-]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2121
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2122	"Modified: / 29-10-2010 / 13:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2123	"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	2124	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2125
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2126	changeMenuSelectSame: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2127
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2128	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #=]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2129
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2130	"Modified: / 29-10-2010 / 13:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2131	"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	2132	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2133
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2134	changeMenuSelectUsingBlock: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2135
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2136	\|conditionBlockString conditionBlock dialog textHolder template\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2137
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2138	template :=
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2139	'[:change\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2140	"/ Define condition for selection below:
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2141	"/ change is an instance of Change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2142	"/ change will be selected if and only if block returns true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2143
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2144
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2145	true"/always select the change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2146	]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2147	'.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2148
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2149	LastSelectionConditionString isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2150	LastSelectionConditionString := template.
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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2153
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2154	textHolder := ValueHolder new.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2155	dialog := Dialog
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2156	forRequestText:(resources string:'Enter condition for selection')
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2157	lines:20
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2158	columns:70
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2159	initialAnswer:LastSelectionConditionString
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2160	model:textHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2161	dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2162	dialog open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2163	dialog accepted ifFalse:[^ self].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2164
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2165	conditionBlockString := textHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2166	LastSelectionConditionString := conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2167
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2168	conditionBlock := Parser evaluate:conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2169	conditionBlock isBlock ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2170	self error:'Bad selection block (syntax error?)'.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2171	^ self
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2172	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2173
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2174	self changeMenuSelectIn: changeList suchThat: conditionBlock
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2175
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2176	"Modified: / 29-10-2010 / 13:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2177	"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	2178	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2179
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2180	changeMenuUndeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2181
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2182	self selectionDo:[:chg\|chg removed: false]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2183
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2184	"Modified: / 29-10-2010 / 13:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2185	"Created: / 04-08-2011 / 17:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2186	! !
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2187
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2188	!ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2189
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2190	changeMenuApplyChange: aChange
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2191
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2192	"/ aChange isClassDefinitionChange ifTrue:
0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2193	"/ [(Smalltalk at: aChange superClassName asSymbol)
0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2194	"/ ifNil:[^self error: 'Nil superclass']].
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2195
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2196	self withWaitCursorDo:[
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2197	(MCStXNamespaceQuery , Class nameSpaceQuerySignal)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2198	answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2199	do: [
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2200	(MCStXPackageQuery , Class packageQuerySignal)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2201	answer: self targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2202	do: [
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2203	MCInteractiveLoadingQuery answer: true do:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2204	updateChangefileHolder value ifTrue:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2205	aChange apply
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2206	] ifFalse:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2207	Class withoutUpdatingChangesDo:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2208	aChange apply
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2209	]
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2210	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2211	]
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2212	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2213	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2214	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2215
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2216	"Modified: / 29-10-2010 / 14:57:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2217	"Modified: / 07-09-2011 / 22:24:57 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2218	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2219
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2220	changeMenuApplyChanges: changesToApply
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2221
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2222	\| changesThatFailToApply \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2223
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2224	changesThatFailToApply := ChangeSet new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2225	ProgressIndicator
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2226	displayProgress:'Applying changes...'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2227	at:(Screen default center)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2228	from:200 to:400
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2229	during:[:val \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2230	1 to: changesToApply size do:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2231	[:i\|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2232	val value:((100 / changesToApply size) * i) rounded.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2233	[self changeMenuApplyChange: (changesToApply at: i)]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2234	on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2235
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2236	"Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2237	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2238
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2239	changeMenuSelectIn: changeList suchThat:conditionBlock
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2240
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2241	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2242	sel := OrderedCollection new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2243	changeList listHolder value do: [:chg\|(conditionBlock value: chg) ifTrue:[sel add: chg]].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2244	changeList selectionHolder value: sel.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2245
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2246	"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	2247	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2248
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2249	!ChangeSetBrowser2 methodsFor:'private'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2250
10655 788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2251	changesDo:aBlock
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2252	self changeset do:aBlock.
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2253
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2254	"Created: / 30-08-2011 / 14:30:58 / cg"
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2255	!
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2256
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2257	getNavigatorChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2258
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2259	\| changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2260	changeset := changesetHolder value deepCopy.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2261	(changeset isKindOf: ChangeSet) ifFalse:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2262	[changeset := ChangeSet withAll: changeset].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2263
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2264	(self navigatorSpecHolder value ~= #oneColumnNavigatorSpec)
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2265	ifTrue:[^changeset groupByClass].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2266
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2267	"Default"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2268	^changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2269
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2270	"Created: / 24-10-2009 / 19:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2271	"Modified: / 20-07-2010 / 09:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2272	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2273
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2274	redrawChangeListViews
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2275
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2276	list1 notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2277	list1 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2278	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2279	list2 notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2280	list2 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2281	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2282
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2283	"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	2284	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2285
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2286	selectionDo: aBlock
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2287
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2288	"/ \| applyBlock \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2289	"/ applyBlock := [:e\|aBlock value: e change].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2290	"/
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2291	"/ selectionHolder value isEmptyOrNil ifTrue:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2292	"/ (self navigatorChangesetHolder value ? #()) do: aBlock
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2293	"/ ] ifFalse:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2294	"/ selection1Holder value isEmptyOrNil not
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2295	"/ ifTrue:[selection1Holder value do: applyBlock]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2296	"/ ifFalse:[selectionHolder value do: applyBlock].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2297	"/ ].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2298	"/ self redrawChangeListViews
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2299
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2300	"Created: / 29-10-2010 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2301	"Modified: / 08-04-2011 / 10:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2302	"Modified: / 04-08-2011 / 19:06:31 / cg"
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2303	!
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2304
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2305	showSource: aBoolean
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2306
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2307	\| panel \|
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2308
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2309
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2310	"Not yet implemented"
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2311
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2312	^self.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2313
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2314	sourceView ifNil:[^self].
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2315	panel := builder componentAt: #VerticalPanel.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2316	aBoolean ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2317	(panel subViews includes: sourceView) ifTrue:[^self].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2318	panel addSubView: sourceView.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2319	] ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2320	(panel subViews includes: sourceView) ifFalse:[^self].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2321	panel removeSubView: sourceView.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2322	sourceView setId: nil.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2323
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2324	]
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2325
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2326	"Created: / 11-07-2011 / 16:06:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2327	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2328
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2329	targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2330	^ targetPackage ? PackageId noProjectID
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2331
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2332	"Created: / 07-09-2011 / 20:12:04 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2333	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2334
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2335	!ChangeSetBrowser2 methodsFor:'queries'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2336
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2337	canApplyChanges
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2338
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2339	^true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2340
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2341	"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	2342	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2343
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2344	canDrop: somethign
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2345
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2346	self breakPoint:#jv.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2347
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2348	"Created: / 20-03-2011 / 21:34:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2349	"Modified: / 07-09-2011 / 20:21:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2350	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2351
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2352	hasChangeSelectedAndNotRemoved: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2353
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2354	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2355	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2356	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2357	^(sel anySatisfy:[:each\|each removed]) not
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2358
10380 f2a255ec6fc9 not ifTrue -> ifFalse (trying the rewrite tool ;-) Claus Gittinger <cg@exept.de> parents: 10370 diff changeset	2359	"Modified: / 24-07-2011 / 06:52:28 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2360	"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	2361	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2362
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2363	hasSingleChangeSelectedAndCanBrowse: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2364
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2365	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2366	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2367	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2368	^true
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2369
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2370	"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	2371	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2372
10914 55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2373	!ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2374
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2375	documentation
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2376	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2377	A simple, embeddable window to show a single change.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2378	If readonlyHolder's value is false, then user is
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2379	allowed to edit the change (i.e., modify the source code)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2380
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2381	[author:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2382	Jan Vrany <jan.vrany@fit.cvut.cz>
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2383
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2384	[instance variables:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2385
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2386	[class variables:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2387
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2388	[see also:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2389
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2390	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2391	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2392
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2393	examples
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2394	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2395	Starting the application:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2396	[exBegin]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2397	Tools::ChangeEditor open
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2398
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2399	[exEnd]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2400
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2401	more examples to be added:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2402	[exBegin]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2403	... add code fragment for
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2404	... executable example here ...
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2405	[exEnd]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2406	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2407	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2408
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2409	!ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2410
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2411	windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2412	"This resource specification was automatically generated
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2413	by the UIPainter of ST/X."
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2414
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2415	"Do not manually edit this!! If it is corrupted,
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2416	the UIPainter may not be able to read the specification."
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2417
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2418	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2419	UIPainter new openOnClass:Tools::ChangeSetBrowser2::ChangeEditor andSelector:#windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2420	Tools::ChangeSetBrowser2::ChangeEditor new openInterface:#windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2421	Tools::ChangeSetBrowser2::ChangeEditor open
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2422	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2423
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2424	<resource: #canvas>
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2425
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2426	^
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2427	#(FullSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2428	name: windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2429	window:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2430	(WindowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2431	label: 'Change Editor'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2432	name: 'Change Editor'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2433	min: (Point 10 10)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2434	bounds: (Rectangle 0 0 579 341)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2435	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2436	component:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2437	(SpecCollection
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2438	collection: (
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2439	(SubCanvasSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2440	name: 'TextDiffTool'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2441	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2442	hasHorizontalScrollBar: false
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2443	hasVerticalScrollBar: false
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2444	majorKey: #'Tools::TextDiffTool'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2445	minorKey: windowSpecForEmbedding
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2446	subAspectHolders:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2447	(Array
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2448
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2449	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2450	subAspect: classHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2451	aspect: classAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2452	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2453	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2454	subAspect: codeAspectHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2455	aspect: codeAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2456	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2457
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2458	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2459	subAspect: labelAHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2460	aspect: labelAHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2461	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2462	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2463	subAspect: labelBHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2464	aspect: labelBHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2465	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2466
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2467	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2468	subAspect: showDiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2469	aspect: showdiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2470	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2471	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2472	subAspect: textAHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2473	aspect: sourceChangeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2474	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2475
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2476	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2477	subAspect: textBHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2478	aspect: sourceImageHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2479	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2480	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2481	createNewApplication: true
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2482	createNewBuilder: true
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2483	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2484	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2485
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2486	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2487	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2488	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2489
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2490	!ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2491
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2492	sourceChangeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2493	^ sourceChangeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2494	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2495
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2496	sourceChangeHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2497	sourceChangeHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2498	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2499
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2500	sourceImageHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2501	^ sourceImageHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2502	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2503
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2504	sourceImageHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2505	sourceImageHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2506	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2507
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2508	!ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2509
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2510	changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2511	"return/create the 'changeHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2512
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2513	changeHolder isNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2514	changeHolder := ValueHolder new.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2515	changeHolder addDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2516	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2517	^ changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2518	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2519
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2520	changeHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2521	"set the 'changeHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2522
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2523	\|oldValue newValue\|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2524
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2525	changeHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2526	oldValue := changeHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2527	changeHolder removeDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2528	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2529	changeHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2530	changeHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2531	changeHolder addDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2532	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2533	newValue := changeHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2534	oldValue ~~ newValue ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2535	self update:#value with:newValue from:changeHolder.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2536	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2537	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2538
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2539	classAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2540
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2541	^(AspectAdaptor forAspect: #changeClass)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2542	subjectChannel: self changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2543
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2544	"Created: / 29-11-2011 / 11:21:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2545	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2546
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2547	codeAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2548
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2549	^BlockValue
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2550	with: [:change\|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2551	change isMethodCodeChange
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2552	ifTrue:[#method]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2553	ifFalse:[#expression]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2554	] argument: self changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2555
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2556	"Created: / 29-11-2011 / 11:21:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2557	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2558
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2559	labelAText
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2560
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2561	^'Change'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2562
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2563	"Created: / 27-11-2011 / 14:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2564	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2565
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2566	labelBText
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2567
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2568	^'Current (in image)'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2569
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2570	"Created: / 27-11-2011 / 14:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2571	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2572
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2573	readonlyHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2574	"return/create the 'readonlyHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2575
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2576	readonlyHolder isNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2577	readonlyHolder := ValueHolder new.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2578	readonlyHolder addDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2579	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2580	^ readonlyHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2581	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2582
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2583	readonlyHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2584	"set the 'readonlyHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2585
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2586	\|oldValue newValue\|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2587
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2588	readonlyHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2589	oldValue := readonlyHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2590	readonlyHolder removeDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2591	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2592	readonlyHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2593	readonlyHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2594	readonlyHolder addDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2595	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2596	newValue := readonlyHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2597	oldValue ~~ newValue ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2598	self update:#value with:newValue from:readonlyHolder.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2599	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2600	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2601
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2602	showdiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2603	"return/create the 'showdiffHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2604
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2605	showdiffHolder isNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2606	showdiffHolder := ValueHolder new.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2607	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2608	^ showdiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2609	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2610
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2611	showdiffHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2612	"set the 'showdiffHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2613
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2614	showdiffHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2615	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2616
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2617	!ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2618
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2619	changeChanged
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2620
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2621	"changeHolder has changed, update sources etc..."
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2622
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2623	\| change \|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2624	change := changeHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2625
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2626	sourceChangeHolder value: change changeSource.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2627	sourceImageHolder value: change imageSource.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2628
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2629	"Created: / 29-11-2011 / 11:15:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2630	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2631
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2632	update:something with:aParameter from:changedObject
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2633	"Invoked when an object that I depend upon sends a change notification."
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2634
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2635
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2636	changedObject == changeHolder ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2637	self changeChanged.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2638	^ self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2639	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2640	super update:something with:aParameter from:changedObject
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2641
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2642	"Modified: / 29-11-2011 / 11:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2643	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2644
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2645	!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2646
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2647	version
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	2648	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.25 2011-12-04 14:48:16 cg Exp $'
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2649	!
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2650
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2651	version_CVS
10953 f1bf748ae2d3 class definition Claus Gittinger <cg@exept.de> parents: 10943 diff changeset	2652	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.25 2011-12-04 14:48:16 cg Exp $'
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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2655	version_SVN
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2656	^ '�Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 �'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2657	! !

author	Claus Gittinger <cg@exept.de>
	Sun, 04 Dec 2011 15:48:16 +0100
changeset 10953	f1bf748ae2d3
parent 10943	39d815d28b9d
child 11034	526151214698
permissions	-rw-r--r--