hg/stx-libtool: Tools__ChangeSetBrowser2.st@39d815d28b9d (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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	34	codeAspectHolder showRemovedAspect showSameAspect
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
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	568	name: windowSpecWithoutToolbar
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	569	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	571	label: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	572	name: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	573	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	574	bounds: (Rectangle 0 0 653 488)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	575	menu: mainMenu
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	576	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	577	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	579	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	580	(VariableVerticalPanelSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	581	name: 'VerticalPanel'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	582	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	583	component:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	584	(SpecCollection
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	585	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	586	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	587	name: 'NavigatorPanel'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	588	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	589	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	590	specHolder: navigatorSpecHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	591	createNewBuilder: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	592	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	593	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	594	name: 'TextDiffTool'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	595	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	596	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	597	majorKey: #'Tools::TextDiffTool'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	598	minorKey: windowSpecForEmbedding
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	599	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	600	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	601
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	602	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	603	subAspect: classHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	604	aspect: classHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	605	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	606	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	607	subAspect: codeAspectHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	608	aspect: codeAspectHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	609	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	610
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	611	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	612	subAspect: labelAHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	613	aspect: labelAHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	614	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	615	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	616	subAspect: labelBHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	617	aspect: labelBHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	618	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	619
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	620	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	621	subAspect: textAHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	622	aspect: changeSourceHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	623	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	624	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	625	subAspect: textBHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	626	aspect: imageSourceHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	627	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	628	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	629	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	630	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	631	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	632	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	633
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	634	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	635	handles: (Any 0.5 1.0)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	636	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	637	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	638
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	639	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	641	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643	!ChangeSetBrowser2 class methodsFor:'menu specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645	changeMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	652
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	654	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	655	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	660	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661	#(Menu
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	662	(
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	663	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	664	enabled: hasChangeSelectedAndNotRemoved:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	665	label: 'Apply'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	666	itemValue: changeMenuApplySelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	667	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	668	isVisible: acceptEnabledHolder
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	669	shortcutKey: Accept
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	670	auxValue: 100
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	671	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	672	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	673	label: 'Apply all'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	674	itemValue: changeMenuApply:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	675	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	676	isVisible: acceptEnabledHolder
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: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	680	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	681	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	682	label: 'Delete'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	683	itemValue: changeMenuDeleteSelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	684	nameKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	685	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	686	shortcutKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	687	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	688	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	689	label: 'Undelete'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	690	itemValue: changeMenuUndeleteSelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	691	nameKey: Undelete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	692	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	693	shortcutKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	694	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	695	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	696	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	697	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	698	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	699	label: 'Select...'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	700	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	701	submenu:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	702	(Menu
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 same'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	706	itemValue: changeMenuSelectSame:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	707	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	708	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	709	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	710	label: 'Select additions (new classes/methods)'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	711	itemValue: changeMenuSelectAdditions:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	712	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	713	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	714	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	715	label: 'Select removals'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	716	itemValue: changeMenuSelectRemovals:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	717	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	718	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	719	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	720	label: 'Select differences'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	721	itemValue: changeMenuSelectDifferences:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	722	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	723	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	724	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	725	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	726	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	727	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	728	label: 'Select all'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	729	itemValue: changeMenuSelectAll:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	730	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	731	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	732	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	733	label: 'Select none'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	734	itemValue: changeMenuSelectNone:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	735	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	736	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	737	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	738	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	739	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	740	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	741	label: 'Select using block'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	742	itemValue: changeMenuSelectUsingBlock:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	743	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	744	)
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	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	747	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	748	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	749	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	750	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	751	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	752	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	753	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	754	label: 'Show Deleted'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	755	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	756	indication: showRemovedAspect
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	757	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	758	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	759	label: 'Show Same'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	760	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	761	indication: showSameAspect
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	762	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	763	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	764	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	765	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	766	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	767	label: 'Inspect change'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	768	itemValue: changeMenuInspect:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	769	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	770	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	771	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	772	enabled: hasSingleChangeSelectedAndCanBrowse:
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	773	label: 'Browse Method(s)'
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	774	itemValue: changeMenuBrowse:
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	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	778	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	779	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	781	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	782
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	783	changeMenu1
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	784	"This resource specification was automatically generated
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	785	by the MenuEditor of ST/X."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	786
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	787	"Do not manually edit this!! If it is corrupted,
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	788	the MenuEditor may not be able to read the specification."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	789
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	790
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	791	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	792	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu1
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	793	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu1)) startUp
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	794	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	795
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	796	<resource: #menu>
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	797
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	798	^
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	799	#(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	800	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	801	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	802	enabled: hasChangeSelectedAndNotRemoved:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	803	label: 'Apply'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	804	itemValue: changeMenuApplySelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	805	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	806	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	807	shortcutKey: Accept
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	808	auxValue: 100
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	809	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	810	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	811	label: 'Apply all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	812	itemValue: changeMenuApply:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	813	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	814	isVisible: acceptEnabledHolder
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: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	818	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	819	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	820	label: 'Delete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	821	itemValue: changeMenuDeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	822	nameKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	823	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	824	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	825	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	826	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	827	label: 'Undelete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	828	itemValue: changeMenuUndeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	829	nameKey: Undelete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	830	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	831	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	832	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	833	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	834	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	835	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	836	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	837	label: 'Select...'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	838	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	839	submenu:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	840	(Menu
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 same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	844	itemValue: changeMenuSelectSame:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	845	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	846	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	847	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	848	label: 'Select additions (new classes/methods)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	849	itemValue: changeMenuSelectAdditions:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	850	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	851	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	852	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	853	label: 'Select removals'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	854	itemValue: changeMenuSelectRemovals:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	855	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	856	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	857	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	858	label: 'Select differences'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	859	itemValue: changeMenuSelectDifferences:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	860	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	861	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	862	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	863	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	864	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	865	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	866	label: 'Select all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	867	itemValue: changeMenuSelectAll:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	868	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	869	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	870	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	871	label: 'Select none'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	872	itemValue: changeMenuSelectNone:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	873	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	874	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	875	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	876	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	877	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	878	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	879	label: 'Select using block'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	880	itemValue: changeMenuSelectUsingBlock:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	881	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	882	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	883	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	884	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	885	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	886	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	887	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	888	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	889	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	890	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	891	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	892	label: 'Show Deleted'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	893	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	894	indication: showRemovedAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	895	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	896	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	897	label: 'Show Same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	898	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	899	indication: showSameAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	900	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	901	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	902	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	903	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	904	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	905	label: 'Inspect change'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	906	itemValue: changeMenuInspect:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	907	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	908	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	909	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	910	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	911	label: 'Browse Method(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	912	itemValue: changeMenuBrowse:
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 Class(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	918	itemValue: changeMenuBrowseClass:
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	)
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	921	(MenuItem
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	922	label: '-'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	923	)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	924	(MenuItem
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	925	enabled: hasSingleChangeSelectedAndCanBrowse:
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	926	label: 'Compare Class Against...'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	927	itemValue: changeMenuCompareClass:
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	928	translateLabel: true
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	929	)
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	930	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	931	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	932	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	933	)
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	934
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	935	"Modified: / 01-12-2011 / 18:36:15 / cg"
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
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	938	changeMenu2
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	939	"This resource specification was automatically generated
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	940	by the MenuEditor of ST/X."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	941
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	942	"Do not manually edit this!! If it is corrupted,
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	943	the MenuEditor may not be able to read the specification."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	944
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	945
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	946	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	947	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu2
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	948	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu2)) startUp
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	949	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	950
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	951	<resource: #menu>
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	952
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	953	^
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	954	#(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	955	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	956	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	957	enabled: hasChangeSelectedAndNotRemoved:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	958	label: 'Apply'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	959	itemValue: changeMenuApplySelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	960	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	961	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	962	shortcutKey: Accept
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	963	auxValue: 100
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	964	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	965	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	966	label: 'Apply all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	967	itemValue: changeMenuApply:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	968	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	969	isVisible: acceptEnabledHolder
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: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	973	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	974	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	975	label: 'Delete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	976	itemValue: changeMenuDeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	977	nameKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	978	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	979	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	980	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	981	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	982	label: 'Undelete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	983	itemValue: changeMenuUndeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	984	nameKey: Undelete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	985	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	986	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	987	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	988	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	989	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	990	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	991	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	992	label: 'Select...'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	993	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	994	submenu:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	995	(Menu
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 same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	999	itemValue: changeMenuSelectSame:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1000	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1001	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1002	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1003	label: 'Select additions (new classes/methods)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1004	itemValue: changeMenuSelectAdditions:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1005	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1006	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1007	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1008	label: 'Select removals'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1009	itemValue: changeMenuSelectRemovals:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1010	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1011	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1012	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1013	label: 'Select differences'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1014	itemValue: changeMenuSelectDifferences:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1015	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1016	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1017	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1018	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1019	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1020	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1021	label: 'Select all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1022	itemValue: changeMenuSelectAll:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1023	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1024	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1025	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1026	label: 'Select none'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1027	itemValue: changeMenuSelectNone:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1028	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1029	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1030	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1031	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1032	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1033	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1034	label: 'Select using block'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1035	itemValue: changeMenuSelectUsingBlock:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1036	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1037	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1038	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1039	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1040	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1041	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1042	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1043	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1044	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1045	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1046	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1047	label: 'Show Deleted'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1048	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1049	indication: showRemovedAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1050	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1051	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1052	label: 'Show Same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1053	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1054	indication: showSameAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1055	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1056	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1057	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1058	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1059	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1060	label: 'Inspect change'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1061	itemValue: changeMenuInspect:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1062	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1063	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1064	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1065	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1066	label: 'Browse Method(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1067	itemValue: changeMenuBrowse:
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	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1071	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1072	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1073	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1074
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1075	"Created: / 05-09-2011 / 16:06:49 / cg"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1076	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1077
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1078	mainMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1082	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1083	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1084
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1085
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1087	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#mainMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1088	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 mainMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1089	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1093	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1094	#(Menu
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1095	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1096	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1097	label: 'File'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1098	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1099	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1100	(Menu
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: 'Open'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1104	itemValue: doOpen
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1105	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1106	isVisible: allowOpenHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1107	shortcutKey: Ctrlo
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1108	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1109	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1110	label: 'Open current'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1111	itemValue: doOpenCurrent
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1112	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1113	isVisible: allowOpenHolder
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: 'Save'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1117	itemValue: doSave
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	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1120	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1121	label: 'Save As...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1122	itemValue: doSaveAs
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1123	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1124	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1125	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1126	label: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1127	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1128	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1129	label: 'Exit'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1130	itemValue: closeRequest
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1131	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1132	)
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	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1135	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1136	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1137	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1138	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1139	label: 'View'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1140	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1141	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1142	(Menu
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: 'List'
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	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1148	choiceValue: oneColumnNavigatorSpec
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: 'Hierarchical 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: hierarchicalNavigatorSpec
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: 'Browser Like'
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: twoColumnNavigatorSpec
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: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1164	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1165	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1166	label: 'Show Deleted'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1167	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1168	indication: showRemovedAspect
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1169	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1170	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1171	label: 'Show Same'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1172	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1173	indication: showSameAspect
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1174	)
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	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1177	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1178	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1179	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1180	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1181	label: 'Loading'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1182	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1183	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1184	(Menu
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: 'Set Target Package...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1188	itemValue: setTargetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1189	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1190	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1191	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1192	label: 'Set Target Namespace...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1193	itemValue: setTargetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1194	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1195	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1196	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1197	label: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1198	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1199	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1200	label: 'Update Changefile'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1201	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1202	indication: updateChangeFileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1203	)
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	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1206	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1207	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1208	)
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	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1211	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1212	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1213	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1214
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1215	toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1216	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1217	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1221
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1222	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1223	MenuEditor new openOnClass:Tools::ChangeSetBrowser andSelector:#toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser toolbarMenu)) startUp
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1229	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1230	#(Menu
10854 e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1231	(
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1232	(MenuItem
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1233	activeHelpKey: fileLoad
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1234	label: 'Open'
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1235	itemValue: doOpen
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1236	translateLabel: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1237	isButton: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1238	isVisible: allowOpenHolder
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1239	labelImage: (ResourceRetriever ToolbarIconLibrary loadFromFileIcon)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1240	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1241	(MenuItem
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1242	activeHelpKey: fileSave
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1243	label: 'Save'
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1244	itemValue: doSave
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1245	translateLabel: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1246	isButton: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1247	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1248	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1249	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1250	nil
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1251	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	)
10854 e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1253
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1254	"Modified: / 08-11-2011 / 16:43:39 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1255	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257	!ChangeSetBrowser2 class methodsFor:'plugIn spec'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	aspectSelectors
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263	"Do not manually edit this. If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	"Return a description of exported aspects;
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	these can be connected to aspects of an embedding application
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	(if this app is embedded in a subCanvas)."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270	^ #(
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1271	#changesetHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272	).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	!ChangeSetBrowser2 methodsFor:'accessing'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278	acceptEnabled: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1279
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280	^self acceptEnabledHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1283	allowOpen: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	self allowOpenHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287	"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	1288	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290	beHierarchical
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292	^self navigatorSpecHolder value: #hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	"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	1295	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	beOneColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	^self navigatorSpecHolder value: #oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301	"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	1302	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304	beTwoColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306	^self navigatorSpecHolder value: #twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	"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	1309	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	^self changesetHolder value
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316	changeset: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1321	list1View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1322
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1323	list1 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1324
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1325	"Created: / 04-08-2011 / 17:56:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1326	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1327
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1328	list2View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1329
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1330	list2 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1331
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1332	"Created: / 04-08-2011 / 17:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1333	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1334
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1335	readOnly: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1336
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1337	"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	1338	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1340	targetNamespace:something
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1341	targetNamespace := something.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1342	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1343
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1344	targetPackage:something
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1345	targetPackage := something.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1346	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1347
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348	theSingleSelectedChange
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1350	\| change sel \|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351	change := nil.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1352	sel := selection2Holder value.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1353	sel isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1354	sel := selection1Holder value.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1355	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1356	sel do:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1357	[:each\|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1358	change ifNotNil:[nil].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1359	change ifNil:[change := each]].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360	^change
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1361
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1362	"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	1363	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1364
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1365	title: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1366
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1367	self titleHolder value: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1368
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1369	"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	1370	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1372	!ChangeSetBrowser2 methodsFor:'accessing - defaults'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1374	defaultTitle
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	^ 'No changeset'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377	"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	1378	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380	!ChangeSetBrowser2 methodsFor:'accessing - menus'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1382	list1MenuHolder
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1383	^ [
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1384	\|menu\|
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1385
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1386	menu := builder menuFor:#changeMenu1.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1387	menu allItemsDo:[:item \| item argument:list1 ].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1388	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1389	]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1390
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1391	"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	1392	"Modified (format): / 05-09-2011 / 16:07:20 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1393	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1394
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1395	list2MenuHolder
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1396	^ [
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1397	\|menu\|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1399	menu := builder menuFor:#changeMenu2.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1400	menu allItemsDo:[:item \| item argument:list2 ].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1401	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1402	]
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1403
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1404	"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	1405	"Modified (format): / 05-09-2011 / 16:07:34 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1406	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1407
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1408	!ChangeSetBrowser2 methodsFor:'actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1409
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1410	accept: source
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1412	\| entry chg \|
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1413	(entry := self theSingleSelectedChange) isNil ifTrue:[^self].
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1414	chg := entry change.
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1415	chg isMethodCodeChange ifTrue:
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1416	[chg source: source asString]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1417
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1418	"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	1419	"Modified: / 18-11-2011 / 14:56:53 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1420	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1421
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1422	postBuildSourceView: aView
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1424	sourceView := aView.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	1425
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1426	"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	1427	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429	!ChangeSetBrowser2 methodsFor:'aspects'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1431	acceptEnabledHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1432	"return/create the 'selectionHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1433
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1434	acceptEnabledHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1435	acceptEnabledHolder := ValueHolder with: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1436	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1437	^ acceptEnabledHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1439	"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	1440	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1441
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1442	allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1443	"return/create the 'allowOpenHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1444
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1445	allowOpenHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1446	allowOpenHolder := ValueHolder with: true.
10028 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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1450	"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	1451	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1452
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1453	changeSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1454	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1455	changeSourceHolder isNil ifTrue: [
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1456	changeSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1457	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1458	^ changeSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1459
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1460	"Modified: / 19-07-2011 / 11:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1461	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1462
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1463	changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464	"return/create the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1465
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1466	changesetHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1467	changesetHolder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1468	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1469	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1470	^ changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473	changesetHolder:something
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474	"set the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1476	\|oldValue newValue\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1477
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1478	changesetHolder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1479	oldValue := changesetHolder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1480	changesetHolder removeDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1481	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1482	changesetHolder := something.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1483	changesetHolder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1484	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1485	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1486	newValue := changesetHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1487	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1488	self update:#value with:newValue from:changesetHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1490	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1491
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492	classHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1493	"return/create the 'classHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1494
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495	classHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1496	classHolder := ValueHolder with:nil.
10028 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
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1499
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1500	"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	1501	!
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1502
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1503	codeAspectHolder
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1504	"return/create the 'codeAspectHolder' value holder (automatically generated)"
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	codeAspectHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1507	codeAspectHolder := ValueHolder new.
10345 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
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1510	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1511
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1512	imageSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1513	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1514	imageSourceHolder isNil ifTrue: [
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1515	imageSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1516	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1517	^ imageSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1518
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1519	"Created: / 19-07-2011 / 11:54:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1520	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1521
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1522	labelAHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1523
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1524	^'Change' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1525
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1526	"Created: / 19-07-2011 / 11:46:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1527	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1528
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1529	labelBHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1530
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1531	^'Image' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1532
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1533	"Created: / 19-07-2011 / 11:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1534	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1535
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1536	list1Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1537	"return/create the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1538
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1539	list1Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1540	list1Holder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1541	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1542	^ list1Holder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1543	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1544
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1545	list1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1546	"set the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1547
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1548	list1Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1549	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1550
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1551	list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1552	"return/create the 'list2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1553
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1554	list2Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1555	list2Holder := ValueHolder new.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1556	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1557	^ list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1558	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1560	list2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1561	"set the 'list2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1562
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1563	list2Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1564	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566	navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567	"return/create the 'navigatorChangesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1569	navigatorChangesetHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1570	navigatorChangesetHolder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1571	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1572	^ navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1573	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1574
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1575	navigatorSpecHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1576	<resource: #uiAspect>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1577
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1578	navigatorSpecHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1579	navigatorSpecHolder := ValueHolder with:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1580	#hierarchicalNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1581	"/#twoColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1582	"/#oneColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1583
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1584	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1585	^ navigatorSpecHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1586
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1587	"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	1588	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1589
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1590	selection1Holder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1591	"return/create the 'selection1Holder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1592
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1593	selection1Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1594	selection1Holder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1595	selection1Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1596	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1597	^ selection1Holder
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1598	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1599
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1600	selection1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1601	"set the 'selection1Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1602
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1603	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1604
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1605	selection1Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1606	oldValue := selection1Holder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1607	selection1Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1608	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1609	selection1Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1610	selection1Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1611	selection1Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1612	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1613	newValue := selection1Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1614	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1615	self update:#value with:newValue from:selection1Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1616	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1617	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1618
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1619	selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1620	"return/create the 'selection2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1621
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1622	selection2Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1623	selection2Holder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1624	selection2Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1625	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1626	^ selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1627	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1628
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1629	selection2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1630	"set the 'selection2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1631
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1632	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1633
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1634	selection2Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1635	oldValue := selection2Holder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1636	selection2Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1637	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1638	selection2Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1639	selection2Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1640	selection2Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1641	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1642	newValue := selection2Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1643	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1644	self update:#value with:newValue from:selection2Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1645	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1646	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1647
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1648	showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1649	"return/create the 'showDeletedAspect' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1650
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1651	showRemovedAspect isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1652	showRemovedAspect := (AspectAdaptor forAspect:#showRemoved)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1653	subject: self class.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1654	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1655	^ showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1656	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1657
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1658	showRemovedAspect:aValueHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1659	showRemovedAspect := aValueHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1660	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1661
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1662	showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1663	"return/create the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1664
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1665	showSameAspect isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1666	showSameAspect := ValueHolder with: true.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1667	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1668	^ showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1669
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1670	"Modified: / 04-08-2011 / 18:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1671	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1672
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1673	showSameAspect:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1674	"set the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1675
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1676	showSameAspect := something.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1677	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1678
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1679	titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1680	"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	1681
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1682	titleHolder isNil
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1683	ifTrue:[ titleHolder := ValueHolder with:self defaultTitle. ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1684	^ titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1685
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1686	"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	1687	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1688
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1689	updateChangefileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1690	updateChangefileHolder isNil ifTrue:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1691	updateChangefileHolder := false asValue.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1692	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1693	^ updateChangefileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1694
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1695	"Created: / 07-09-2011 / 15:54:03 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1698	!ChangeSetBrowser2 methodsFor:'change & update'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	changesetChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1701
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1702	self titleHolder value: (self changeset name ? (self defaultTitle)).
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1703	self list1Holder value: self getNavigatorChangeSet
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1704
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1705	"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	1706	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1707
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1708	selectionChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1709
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1710	\| change \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1711	change := self theSingleSelectedChange.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1712	(change notNil and:[change change isCompositeChange not]) ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1713	self classHolder value: change changeClass.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1714	changeSourceHolder setValue: change changeSource; changed: #value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1715	imageSourceHolder setValue: change imageSource; changed: #value.
10370 9c96ff8c35db bugfix vrany parents: 10345 diff changeset	1716
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1717	codeAspectHolder value:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1718	(change change isMethodCodeChange
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1719	ifTrue:[#method]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1720	ifFalse:[#expression]).
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1721	self showSource: true
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1722	] ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1723	self showSource: false.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1724	self classHolder value: nil.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1725	changeSourceHolder setValue: nil; changed: #value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1726	imageSourceHolder setValue: nil; changed: #value.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1727	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1728
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1729	"Created: / 24-10-2009 / 19:49:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1730	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1731
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1732	update: aspect with: param from: sender
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1734	sender == changesetHolder ifTrue: [ ^ self changesetChanged ].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1735	sender == selection1Holder ifTrue: [ ^ self selectionChanged ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1736	sender == selection2Holder ifTrue: [ ^ self selectionChanged ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1738	"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	1739	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1740
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1741	!ChangeSetBrowser2 methodsFor:'interface opening'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1743	open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745	super open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746	^self
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1747
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748	"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	1749	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1751	!ChangeSetBrowser2 methodsFor:'menu actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1752
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1753	doOpen
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1755	\| file changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1756	file := Dialog requestFileName:'Select changeset' pattern:'.chg;.st'.
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1757	file isNil ifTrue:[^self].
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1758	[changeset := ChangeSet fromFile: file]
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1759	on: Error
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1760	do: [:ex\|Dialog error: 'Error when loading changeset: ',ex description. ^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761	changesetFile := file.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1762	self title: file asFilename baseName asString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1763	self doOpen: changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1764
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1765	"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	1766	"Modified: / 18-11-2011 / 14:57:02 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1767	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1768
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1769	doOpen: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1770
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1771	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1772
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1773	"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	1774	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1775
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1776	doOpenCurrent
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1777
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778	self doOpen: ChangeSet current
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1779
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1780	"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	1781	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1782
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1783	doSave
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1784
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1785	changesetFile
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1786	ifNil:[self doSaveAs]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1787	ifNotNil:[self doSaveAs: changesetFile]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1788
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1789	"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	1790	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1791
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1792	doSaveAs
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1793
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1794	\| file \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1795	file := Dialog requestFileName:'Select file' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1796	file isNil ifTrue:[^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1797	self doSaveAs: file.
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1798
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1799	"Modified: / 18-11-2011 / 14:57:07 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1800	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1801
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1802	doSaveAs: newFile
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1803
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1804	[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1805	\| s \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1806	s := newFile asFilename writeStream.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1807	[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	1808	changesetFile := newFile.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1809	] on: Error do:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1810	[:ex\|Dialog warn: 'Erorr saving changes: ' , ex description]
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1811	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1812
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1813	setTargetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1814	"specify an st/x namespace to be used as default"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1815
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1816	\| nsName \|
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1817
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1818	nsName := Dialog
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1819	requestNameSpace:'Namepace to load code into:'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1820	initialAnswer:targetNamespace.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1821	nsName isEmptyOrNil ifTrue:[^self].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1822
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1823	targetNamespace := nsName.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1824	"/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1825
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1826	"Created: / 07-09-2011 / 12:49:42 / cg"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1827	!
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	setTargetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1830	"specify an st/x package identifier to be used as default"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1831
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1832	\| package \|
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1833
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1834	package := Dialog
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1835	requestProject:'Default Smalltalk/X package to load code into:'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1836	initialAnswer:targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1837	suggestions:#().
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1838	package isNil ifTrue:[^self].
10682 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	targetPackage := "lastPackage := "package.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1841	"/ self targetPackageHolder value:('Target-Package: ',targetPackage).
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:47:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1844	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1845
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1846	!ChangeSetBrowser2 methodsFor:'menu actions - changes'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1847
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1848	changeMenuApply: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1849
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1850	\| changesToApply \|
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1851	changesToApply := OrderedCollection new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1852	self changesDo:[:chg\|chg removed ifFalse:[changesToApply add: chg]].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1853	self changeMenuApplyChanges: changesToApply.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1854
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1855	"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	1856	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1857
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1858	changeMenuApplySelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1859
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1860	changeList selection do:[:change\|self changeMenuApplyChange:change change].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1861
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1862	"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	1863	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1864
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1865	changeMenuBrowse: changeList
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1866	\|changes methods classes\|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1867
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1868	changeList == list1 ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1869	changes := selection1Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1870	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1871	changes := selection2Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1872	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1873	changes := changes collect:[:c \| c change].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1874	"/ changes := changeList listHolder value collect:[:c \| c change].
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1875	(changes conform:[:c \| c isClassDefinitionChange]) ifTrue:[
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1876	classes := (changes collect:[:c \| c changeClass]).
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1877	UserPreferences current systemBrowserClass
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1878	browseClasses:classes title:'selected monticello classes'.
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1879	] ifFalse:[
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1880	methods := OrderedCollection new.
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1881	changes do:[:each \|
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1882	each isCompositeChange ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1883	each changes do:[:each2 \| each2 isMethodChange ifTrue:[ methods add:each2 changeMethod ]]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1884	] ifFalse:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1885	each isMethodChange ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1886	methods add:(each changeMethod).
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1887	]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1888	]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1889	].
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1890	(methods includes:nil) ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1891	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	1892	methods := methods reject:[:m \| m isNil].
10665 bbaa7c4154de changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10658 diff changeset	1893	methods isEmpty ifTrue:[^ self].
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1894	].
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1895	UserPreferences current systemBrowserClass
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1896	browseMethods:methods title:'selected monticello methods' sort:false.
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1897	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1898
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1899	"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	1900	"Modified: / 05-09-2011 / 16:17:48 / cg"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1901	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1902
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1903	changeMenuBrowseClass: changeList
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1904	\|changes classes addThemChanges cls\|
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1905
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1906	changeList == list1 ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1907	changes := selection1Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1908	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1909	changes := selection2Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1910	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1911	changes := changes collect:[:eachListEntry \| eachListEntry change].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1912
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1913	classes := Set new.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1914	addThemChanges :=
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1915	[:c \|
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1916	c isClassDefinitionChange ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1917	classes add:c changeClass theNonMetaclass
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1918	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1919	c isMethodChange ifTrue:[
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1920	cls := c changeMethod isNil
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1921	ifTrue:[ c changeClass ]
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1922	ifFalse:[ c changeMethod mclass theNonMetaclass ].
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1923	classes add:cls
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1924	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1925	c isCompositeChange ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1926	c changes do:addThemChanges
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1927	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1928	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1929	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1930	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1931	changes do:addThemChanges.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1932
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1933	UserPreferences current systemBrowserClass
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1934	browseClasses:classes title:'selected monticello classes'.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1935
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1936	"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	1937	"Created: / 05-09-2011 / 16:08:35 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1938	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1939
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1940	changeMenuCompareClass: changeList
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1941	\|changes classNames classNameToClassMapping lastNameSpace
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1942	addClassName addThemChanges existingClasses
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1943	allChanges changeSet1 changeSet2 diffSet\|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1944
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1945	changeList == list1 ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1946	changes := selection1Holder value.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1947	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1948	changes := selection2Holder value.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1949	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1950	changes := changes collect:[:eachListEntry \| eachListEntry change].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1951
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1952	classNameToClassMapping := Dictionary new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1953	classNames := Set new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1954	allChanges := ChangeSet new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1955	existingClasses := Set new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1956
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1957	addClassName :=
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1958	[:nmArg \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1959	\|nm ns existingClass goodAnswer\|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1960
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1961	nm := nmArg.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1962	existingClass := Smalltalk classNamed:nm.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1963
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1964	existingClass notNil ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1965	goodAnswer := nm
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1966	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1967	ns := NameSpace allNameSpaces
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1968	detect:[:ns \| (ns classNamed:nm) notNil ]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1969	ifNone:nil.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1970	ns notNil ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1971	goodAnswer := (ns classNamed:nm) name.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1972	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1973	goodAnswer := nm.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1974	(lastNameSpace notNil
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1975	and:[ lastNameSpace isNamespace
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1976	and:[(lastNameSpace classNamed:nm) notNil ]]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1977	) ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1978	goodAnswer := (lastNameSpace classNamed:nm) name.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1979	] ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1980	(lastNameSpace notNil
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1981	and:[ lastNameSpace isBehavior
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1982	and:[(lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1983	) ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1984	goodAnswer := (lastNameSpace privateClassesAt:nm asSymbol) name.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1985	]
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1986	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1987	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1988	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1989	nm := Dialog
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1990	request:('Class to compare for "%1"?' bindWith:nmArg)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1991	initialAnswer:goodAnswer.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1992	nm isNil ifTrue:[^ self].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1993	nm notEmpty ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1994	existingClass := Smalltalk at:nm asSymbol.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1995	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1996	existingClass notNil ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1997	classNameToClassMapping at:nmArg put:existingClass.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1998	existingClasses add:existingClass.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	1999	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2000	classNames add:nmArg
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2001	].
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	addThemChanges := [:changes \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2004	"/ collect classes and mappings
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2005	changes do:[:c \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2006	c isClassDefinitionChange ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2007	addClassName value:(c className).
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2008	allChanges add:c.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2009	]].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2010
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2011	changes do:[:c \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2012	c isMethodChange ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2013	(classNames includes:(c className)) ifFalse:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2014	addClassName value:(c className).
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2015	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2016	allChanges add:c.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2017	]].
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	changes do:[:c \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2020	c isCompositeChange ifTrue:[
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2021	addThemChanges value:(c changes)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2022	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2023	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2024	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2025
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2026	changes do:addThemChanges.
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	"/ now, build a diffset and present it...
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2029	changeSet1 := allChanges.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2030	changeSet2 := ChangeSet new.
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2031	existingClasses do:[:cls \|
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2032	changeSet2 addAll:(ChangeSet forExistingClass:cls).
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2033	].
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2034	diffSet := changeSet1 diffSetsAgainst:changeSet2.
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	(UserPreferences versionDiffViewerClass)
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2037	openOnDiffSet:diffSet
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2038	labelA:'Monticello'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2039	labelB:'Current (In Image)'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2040	title:'Diffs'
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2041	ignoreExtensions:false.
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	"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	2044	"Created: / 01-12-2011 / 18:36:44 / cg"
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2045	!
39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2046
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2047	changeMenuDeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2048
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2049	self selectionDo:[:chg\|chg removed: true]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2050
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2051	"Modified: / 29-10-2010 / 13:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2052	"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	2053	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2054
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2055	changeMenuInspect: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2056
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2057	\| changes \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2058	changes := OrderedCollection new: 1.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2059	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	2060	changes size = 1
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2061	ifTrue:[changes anyOne inspect]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2062	ifFalse:[changes inspect].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2063
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2064	"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	2065	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2066
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2067	changeMenuInspectChangeset: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068	self changesetHolder value inspect.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2069
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2070	"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	2071	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2073	changeMenuSelectAdditions: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2074
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2075	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #+]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2076
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2077	"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	2078	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2079
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2080	changeMenuSelectAll: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2081
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2082	self changeMenuSelectIn: changeList suchThat:[:change\|true]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2083
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2084	"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	2085	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2086
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2087	changeMenuSelectDifferences: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2088
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2089	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #~]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2090
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2091	"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	2092	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2093
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2094	changeMenuSelectNone: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2095
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2096	self changeMenuSelectIn: changeList suchThat:[:change\|false]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2097
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2098	"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	2099	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2100
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2101	changeMenuSelectRemovals: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2102
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2103	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #-]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2104
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2105	"Modified: / 29-10-2010 / 13:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2106	"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	2107	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2108
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2109	changeMenuSelectSame: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2110
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2111	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #=]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2112
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2113	"Modified: / 29-10-2010 / 13:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2114	"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	2115	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2116
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2117	changeMenuSelectUsingBlock: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2118
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2119	\|conditionBlockString conditionBlock dialog textHolder template\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2120
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2121	template :=
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2122	'[:change\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2123	"/ Define condition for selection below:
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2124	"/ change is an instance of Change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2125	"/ change will be selected if and only if block returns true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2126
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2127
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2128	true"/always select the change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2129	]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2130	'.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2131
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2132	LastSelectionConditionString isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2133	LastSelectionConditionString := template.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2134	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2135
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2136
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2137	textHolder := ValueHolder new.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2138	dialog := Dialog
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2139	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	2140	lines:20
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2141	columns:70
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2142	initialAnswer:LastSelectionConditionString
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2143	model:textHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2144	dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2145	dialog open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2146	dialog accepted ifFalse:[^ self].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2147
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2148	conditionBlockString := textHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2149	LastSelectionConditionString := conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2150
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2151	conditionBlock := Parser evaluate:conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2152	conditionBlock isBlock ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2153	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	2154	^ self
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2155	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2156
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2157	self changeMenuSelectIn: changeList suchThat: conditionBlock
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2158
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2159	"Modified: / 29-10-2010 / 13:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2160	"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	2161	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2162
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2163	changeMenuUndeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2164
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2165	self selectionDo:[:chg\|chg removed: false]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2166
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2167	"Modified: / 29-10-2010 / 13:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2168	"Created: / 04-08-2011 / 17:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2169	! !
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2170
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2171	!ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2172
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2173	changeMenuApplyChange: aChange
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2174
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2175	"/ aChange isClassDefinitionChange ifTrue:
0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2176	"/ [(Smalltalk at: aChange superClassName asSymbol)
0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2177	"/ ifNil:[^self error: 'Nil superclass']].
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2178
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2179	self withWaitCursorDo:[
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2180	(MCStXNamespaceQuery , Class nameSpaceQuerySignal)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2181	answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2182	do: [
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2183	(MCStXPackageQuery , Class packageQuerySignal)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2184	answer: self targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2185	do: [
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2186	MCInteractiveLoadingQuery answer: true do:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2187	updateChangefileHolder value ifTrue:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2188	aChange apply
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2189	] ifFalse:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2190	Class withoutUpdatingChangesDo:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2191	aChange apply
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2192	]
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2193	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2194	]
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	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2197	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2198
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2199	"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	2200	"Modified: / 07-09-2011 / 22:24:57 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2201	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2202
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2203	changeMenuApplyChanges: changesToApply
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2204
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2205	\| changesThatFailToApply \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2206
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2207	changesThatFailToApply := ChangeSet new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2208	ProgressIndicator
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2209	displayProgress:'Applying changes...'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2210	at:(Screen default center)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2211	from:200 to:400
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2212	during:[:val \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2213	1 to: changesToApply size do:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2214	[:i\|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2215	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	2216	[self changeMenuApplyChange: (changesToApply at: i)]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2217	on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2218
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2219	"Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2220	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2221
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2222	changeMenuSelectIn: changeList suchThat:conditionBlock
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2223
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2224	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2225	sel := OrderedCollection new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2226	changeList listHolder value do: [:chg\|(conditionBlock value: chg) ifTrue:[sel add: chg]].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2227	changeList selectionHolder value: sel.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2228
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2229	"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	2230	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2231
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2232	!ChangeSetBrowser2 methodsFor:'private'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2233
10655 788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2234	changesDo:aBlock
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2235	self changeset do:aBlock.
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2236
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2237	"Created: / 30-08-2011 / 14:30:58 / cg"
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2238	!
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2239
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2240	getNavigatorChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2241
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2242	\| changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2243	changeset := changesetHolder value deepCopy.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2244	(changeset isKindOf: ChangeSet) ifFalse:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2245	[changeset := ChangeSet withAll: changeset].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2246
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2247	(self navigatorSpecHolder value ~= #oneColumnNavigatorSpec)
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2248	ifTrue:[^changeset groupByClass].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2249
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2250	"Default"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2251	^changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2252
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2253	"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	2254	"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	2255	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2256
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2257	redrawChangeListViews
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2258
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2259	list1 notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2260	list1 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2261	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2262	list2 notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2263	list2 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2264	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2265
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2266	"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	2267	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2268
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2269	selectionDo: aBlock
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2270
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2271	"/ \| applyBlock \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2272	"/ applyBlock := [:e\|aBlock value: e change].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2273	"/
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2274	"/ selectionHolder value isEmptyOrNil ifTrue:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2275	"/ (self navigatorChangesetHolder value ? #()) do: aBlock
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2276	"/ ] ifFalse:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2277	"/ selection1Holder value isEmptyOrNil not
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2278	"/ ifTrue:[selection1Holder value do: applyBlock]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2279	"/ ifFalse:[selectionHolder value do: applyBlock].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2280	"/ ].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2281	"/ self redrawChangeListViews
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2282
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2283	"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	2284	"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	2285	"Modified: / 04-08-2011 / 19:06:31 / cg"
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2286	!
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2287
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2288	showSource: aBoolean
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2289
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2290	\| panel \|
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2291
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2292
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2293	"Not yet implemented"
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2294
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2295	^self.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2296
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2297	sourceView ifNil:[^self].
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2298	panel := builder componentAt: #VerticalPanel.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2299	aBoolean ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2300	(panel subViews includes: sourceView) ifTrue:[^self].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2301	panel addSubView: sourceView.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2302	] ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2303	(panel subViews includes: sourceView) ifFalse:[^self].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2304	panel removeSubView: sourceView.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2305	sourceView setId: nil.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2306
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2307	]
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2308
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2309	"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	2310	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2311
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2312	targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2313	^ targetPackage ? PackageId noProjectID
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2314
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2315	"Created: / 07-09-2011 / 20:12:04 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2316	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2317
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2318	!ChangeSetBrowser2 methodsFor:'queries'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2319
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2320	canApplyChanges
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2321
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2322	^true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2323
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2324	"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	2325	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2326
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2327	canDrop: somethign
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	self breakPoint:#jv.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2330
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2331	"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	2332	"Modified: / 07-09-2011 / 20:21:15 / 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
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2335	hasChangeSelectedAndNotRemoved: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2336
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2337	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2338	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2339	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2340	^(sel anySatisfy:[:each\|each removed]) not
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2341
10380 f2a255ec6fc9 not ifTrue -> ifFalse (trying the rewrite tool ;-) Claus Gittinger <cg@exept.de> parents: 10370 diff changeset	2342	"Modified: / 24-07-2011 / 06:52:28 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2343	"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	2344	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2345
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2346	hasSingleChangeSelectedAndCanBrowse: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2347
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2348	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2349	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2350	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2351	^true
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2352
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2353	"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	2354	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2355
10914 55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2356	!ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2357
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2358	documentation
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2359	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2360	A simple, embeddable window to show a single change.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2361	If readonlyHolder's value is false, then user is
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2362	allowed to edit the change (i.e., modify the source code)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2363
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2364	[author:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2365	Jan Vrany <jan.vrany@fit.cvut.cz>
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2366
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2367	[instance variables:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2368
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2369	[class variables:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2370
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2371	[see also:]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2372
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2373	"
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
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2376	examples
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2377	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2378	Starting the application:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2379	[exBegin]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2380	Tools::ChangeEditor open
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2381
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2382	[exEnd]
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	more examples to be added:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2385	[exBegin]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2386	... add code fragment for
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2387	... executable example here ...
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2388	[exEnd]
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	!ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2393
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2394	windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2395	"This resource specification was automatically generated
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2396	by the UIPainter of ST/X."
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2397
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2398	"Do not manually edit this!! If it is corrupted,
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2399	the UIPainter may not be able to read the specification."
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	"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2402	UIPainter new openOnClass:Tools::ChangeSetBrowser2::ChangeEditor andSelector:#windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2403	Tools::ChangeSetBrowser2::ChangeEditor new openInterface:#windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2404	Tools::ChangeSetBrowser2::ChangeEditor open
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2405	"
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	<resource: #canvas>
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	^
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2410	#(FullSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2411	name: windowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2412	window:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2413	(WindowSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2414	label: 'Change Editor'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2415	name: 'Change Editor'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2416	min: (Point 10 10)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2417	bounds: (Rectangle 0 0 579 341)
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	component:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2420	(SpecCollection
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2421	collection: (
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2422	(SubCanvasSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2423	name: 'TextDiffTool'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2424	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2425	hasHorizontalScrollBar: false
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2426	hasVerticalScrollBar: false
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2427	majorKey: #'Tools::TextDiffTool'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2428	minorKey: windowSpecForEmbedding
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2429	subAspectHolders:
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2430	(Array
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2431
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2432	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2433	subAspect: classHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2434	aspect: classAspect
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	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2437	subAspect: codeAspectHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2438	aspect: codeAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2439	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2440
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2441	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2442	subAspect: labelAHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2443	aspect: labelAHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2444	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2445	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2446	subAspect: labelBHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2447	aspect: labelBHolder
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
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2450	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2451	subAspect: showDiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2452	aspect: showdiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2453	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2454	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2455	subAspect: textAHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2456	aspect: sourceChangeHolder
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
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2459	(SubChannelInfoSpec
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2460	subAspect: textBHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2461	aspect: sourceImageHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2462	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2463	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2464	createNewApplication: true
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2465	createNewBuilder: true
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	)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2468
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2469	)
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	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2472
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2473	!ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
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	sourceChangeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2476	^ sourceChangeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2477	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2478
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2479	sourceChangeHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2480	sourceChangeHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2481	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2482
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2483	sourceImageHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2484	^ sourceImageHolder
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	sourceImageHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2488	sourceImageHolder := something.
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
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2491	!ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2492
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2493	changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2494	"return/create the 'changeHolder' value holder (automatically generated)"
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	changeHolder isNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2497	changeHolder := ValueHolder new.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2498	changeHolder addDependent:self.
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	^ changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2501	!
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	changeHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2504	"set the 'changeHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2505
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2506	\|oldValue newValue\|
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	changeHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2509	oldValue := changeHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2510	changeHolder removeDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2511	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2512	changeHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2513	changeHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2514	changeHolder addDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2515	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2516	newValue := changeHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2517	oldValue ~~ newValue ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2518	self update:#value with:newValue from:changeHolder.
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	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2521
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2522	classAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2523
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2524	^(AspectAdaptor forAspect: #changeClass)
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2525	subjectChannel: self changeHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2526
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2527	"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	2528	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2529
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2530	codeAspect
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2531
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2532	^BlockValue
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2533	with: [:change\|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2534	change isMethodCodeChange
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2535	ifTrue:[#method]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2536	ifFalse:[#expression]
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2537	] argument: self changeHolder
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	"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	2540	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2541
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2542	labelAText
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	^'Change'
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	"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	2547	!
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	labelBText
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2550
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2551	^'Current (in image)'
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2552
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2553	"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	2554	!
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	readonlyHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2557	"return/create the 'readonlyHolder' value holder (automatically generated)"
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	readonlyHolder isNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2560	readonlyHolder := ValueHolder new.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2561	readonlyHolder addDependent:self.
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	^ readonlyHolder
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	readonlyHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2567	"set the 'readonlyHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2568
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2569	\|oldValue newValue\|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2570
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2571	readonlyHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2572	oldValue := readonlyHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2573	readonlyHolder removeDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2574	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2575	readonlyHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2576	readonlyHolder notNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2577	readonlyHolder addDependent:self.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2578	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2579	newValue := readonlyHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2580	oldValue ~~ newValue ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2581	self update:#value with:newValue from:readonlyHolder.
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	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2584
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2585	showdiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2586	"return/create the 'showdiffHolder' value holder (automatically generated)"
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	showdiffHolder isNil ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2589	showdiffHolder := ValueHolder new.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2590	].
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2591	^ showdiffHolder
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2592	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2593
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2594	showdiffHolder:something
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2595	"set the 'showdiffHolder' value holder (automatically generated)"
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2596
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2597	showdiffHolder := something.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2598	! !
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	!ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
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	changeChanged
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2603
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2604	"changeHolder has changed, update sources etc..."
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2605
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2606	\| change \|
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2607	change := changeHolder value.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2608
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2609	sourceChangeHolder value: change changeSource.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2610	sourceImageHolder value: change imageSource.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2611
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2612	"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	2613	!
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2614
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2615	update:something with:aParameter from:changedObject
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2616	"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	2617
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	changedObject == changeHolder ifTrue:[
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2620	self changeChanged.
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2621	^ self.
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	super update:something with:aParameter from:changedObject
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2624
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2625	"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	2626	! !
55d89ff6791b Added ChangeEditor, a class for viewing/editong vrany parents: 10906 diff changeset	2627
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2628	!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2629
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2630	version
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2631	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.24 2011-12-01 18:18:12 cg Exp $'
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2632	!
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2633
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2634	version_CVS
10943 39d815d28b9d added: #changeMenuCompareClass: Claus Gittinger <cg@exept.de> parents: 10914 diff changeset	2635	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.24 2011-12-01 18:18:12 cg Exp $'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2636	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2637
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2638	version_SVN
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2639	^ '�Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 �'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2640	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 01 Dec 2011 19:18:12 +0100
changeset 10943	39d815d28b9d
parent 10914	55d89ff6791b
child 10953	f1bf748ae2d3
permissions	-rw-r--r--