hg/stx-libtool: Tools__ChangeSetBrowser2.st@a12ce19f292f (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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	copyright
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	"
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	47	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	48	All Rights Reserved
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	49
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	50	Permission is hereby granted, free of charge, to any person
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	51	obtaining a copy of this software and associated documentation
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	52	files (the 'Software'), to deal in the Software without
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	53	restriction, including without limitation the rights to use,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	54	copy, modify, merge, publish, distribute, sublicense, and/or sell
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	55	copies of the Software, and to permit persons to whom the
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	56	Software is furnished to do so, subject to the following
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	57	conditions:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
10065 73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	59	The above copyright notice and this permission notice shall be
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	60	included in all copies or substantial portions of the Software.
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	61
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	62	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	63	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	64	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	65	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	66	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	67	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	68	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
73d5a63bb6ec copyright Claus Gittinger <cg@exept.de> parents: 10028 diff changeset	69	OTHER DEALINGS IN THE SOFTWARE.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	!ChangeSetBrowser2 class methodsFor:'instance creation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	on: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	^self on: aChangeSet label: aChangeSet name
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	"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	80	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	on: aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	^self on: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	"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	87	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	on: aChangeSet label: label setupWith: aBlock
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	\| browser \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	browser := self new.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	browser
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	95	changeset: aChangeSet;
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	96	title: label.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	aBlock value: browser.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	^browser
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	"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	101	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	!ChangeSetBrowser2 class methodsFor:'accessing'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	showRemoved
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	^ShowRemoved == true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	showRemoved: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	ShowRemoved := aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	!ChangeSetBrowser2 class methodsFor:'help specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	helpSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	by the UIHelpTool of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	the UIHelpTool may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	"
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	125	UIHelpTool openOnClass:Tools::ChangeSetBrowser
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	<resource: #help>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	^ super helpSpec addPairsFrom:#(
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	#fileLoad
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	''
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	#fileSave
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	''
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	!ChangeSetBrowser2 class methodsFor:'interface opening'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	confirmChanges: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	^self confirmChanges: aChangeSet label: 'Apply following changes?'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	"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	148	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	confirmChanges:aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	"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	152
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	\|browser browserView dialog\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	155	browser := self on: aChangeSet.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	browser acceptEnabled: false.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	browser showRemovedAspect: (true asValue).
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	158	browserView := ApplicationSubView new
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	159	client:browser
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	160	spec:#windowSpecForEmbedding.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	dialog := (Dialog new)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	162	addComponent:browserView withHeight: 300;
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	163	addAbortAndOkButtons;
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	164	yourself.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	dialog label: aString.
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	166	dialog buttonPanel
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	167	layout:(LayoutFrame fractions:(0.0 @ 1.0 corner:1.0 @ 1.0)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	168	offsets:(0 @ -30 corner:0 @ 0)).
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	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	170	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	171	dialog
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	172	okAction:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	173	[^browser list1Holder value condenseChangesForRemoved];
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	174	abortAction:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	175	[^#()].
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	176	dialog openWithExtent: 800@700.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	^#()
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	"
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	180	Tools::ChangeSetBrowser2
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	181	confirmChanges:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	182	(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	183	label: 'Last 10 changes...'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	"Created: / 08-11-2010 / 17:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	187	"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	188	"Modified: / 07-09-2011 / 20:19:44 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	openOn: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	^(self on: aChangeSet) open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	openOn: aChangeSet label: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	^self openOn: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	"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	201	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	openOn: aChangeSet label: aString setupWith: aBlock
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	^(self on: aChangeSet label: aString setupWith: aBlock) open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	"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	208	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	!ChangeSetBrowser2 class methodsFor:'interface specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	220	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#hierarchicalNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	221	Tools::ChangeSetBrowser2 new openInterface:#hierarchicalNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	226	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	228	name: hierarchicalNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	229	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	231	label: 'Hierarchical Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	232	name: 'Hierarchical Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	233	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	234	bounds: (Rectangle 0 0 300 300)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	235	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	236	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	238	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	239	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	240	name: 'ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	241	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	242	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	243	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	244	majorKey: #'Tools::HierarchicalChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	245	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	246	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	247
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	248	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	249	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	250	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	251	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	252	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	253	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	254	aspect: list1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	255	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	256
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	257	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	258	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	259	aspect: list1MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	260	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	261	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	262	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	263	aspect: selection1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	264	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	265
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	266	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	267	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	268	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	269	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	270	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	271	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	272	aspect: showSameAspect
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	275	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	276	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	277	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	278	postBuildCallback: list1View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	279	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	280	)
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	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	284
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	285	"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	286	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	296	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#oneColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	297	Tools::ChangeSetBrowser2 new openInterface:#oneColumnNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	302	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	304	name: oneColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	305	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	307	label: 'One Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	308	name: 'One Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	309	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	310	bounds: (Rectangle 0 0 300 300)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	311	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	312	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	314	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	315	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	316	name: 'ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	317	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	318	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	319	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	320	majorKey: #'Tools::ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	321	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	322	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	323
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	324	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	325	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	326	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	327	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	328	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	329	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	330	aspect: list1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	331	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	332
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	333	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	334	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	335	aspect: list1MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	336	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	337	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	338	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	339	aspect: selection1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	340	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	341
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	342	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	343	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	344	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	345	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	346	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	347	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	348	aspect: showSameAspect
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	351	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	352	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	353	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	354	postBuildCallback: list1View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	355	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	356	)
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	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	360
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	361	"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	362	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364	twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	372	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#twoColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	373	Tools::ChangeSetBrowser2 new openInterface:#twoColumnNavigatorSpec
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	378	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	380	name: twoColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	381	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	383	label: 'Two Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	384	name: 'Two Column Navigator'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	385	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	386	bounds: (Rectangle 0 0 300 300)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	387	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	388	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	390	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	391	(VariableHorizontalPanelSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	392	name: 'Columns'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	393	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	394	component:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	395	(SpecCollection
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	396	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	397	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	398	name: 'FirstColumn'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	399	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	400	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	401	majorKey: #'Tools::ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	402	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	403	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	404
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	405	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	406	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	407	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	408	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	409	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	410	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	411	aspect: list1Holder
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	414	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	415	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	416	aspect: list1MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	417	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	418	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	419	subAspect: outGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	420	aspect: list2Holder
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	423	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	424	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	425	aspect: selection1Holder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	426	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	427	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	428	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	429	aspect: showRemovedAspect
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: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	433	aspect: showSameAspect
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	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	436	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	437	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	438	postBuildCallback: list1View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	439	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	440	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	441	name: 'SecondColumn'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	442	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	443	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	444	majorKey: #'Tools::ChangeList'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	445	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	446	(Array
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	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	449	subAspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	450	aspect: acceptEnabledHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	451	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	452	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	453	subAspect: inGeneratorHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	454	aspect: list2Holder
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	457	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	458	subAspect: menuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	459	aspect: list2MenuHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	460	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	461	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	462	subAspect: selectionHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	463	aspect: selection2Holder
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	466	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	467	subAspect: showRemovedHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	468	aspect: showRemovedAspect
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	469	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	470	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	471	subAspect: showSameHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	472	aspect: showSameAspect
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	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	475	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	476	createNewBuilder: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	477	postBuildCallback: list2View:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	478	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	479	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	480
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	handles: (Any 0.5 1.0)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	483	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	484	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	485
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	486	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487	)
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	488
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	489	"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	490	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492	windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:Tools::ChangeSetBrowser andSelector:#windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501	Tools::ChangeSetBrowser new openInterface:#windowSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502	Tools::ChangeSetBrowser open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	507	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	509	name: windowSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	510	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	511	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	512	label: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	513	name: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	514	labelChannel: titleHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	515	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	516	bounds: (Rectangle 0 0 653 488)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	517	menu: mainMenu
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	518	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	519	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	521	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	522	(MenuPanelSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	523	name: 'ToolBar'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	524	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	525	menu: toolbarMenu
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	526	textDefault: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	527	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	528	(UISubSpecification
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	529	name: 'Contents'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	530	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	531	minorKey: windowSpecWithoutToolbar
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	532	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	533	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	534
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	535	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539	windowSpecForEmbedding
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	^self windowSpecWithoutToolbar
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	windowSpecWithoutToolbar
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	"
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	552	UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#windowSpecWithoutToolbar
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	553	Tools::ChangeSetBrowser2 new openInterface:#windowSpecWithoutToolbar
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	<resource: #canvas>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	558	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	#(FullSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	560	name: windowSpecWithoutToolbar
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	561	window:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	(WindowSpec
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	563	label: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	564	name: 'ChangeSet browser'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	565	min: (Point 10 10)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	566	bounds: (Rectangle 0 0 653 488)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	567	menu: mainMenu
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	568	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	569	component:
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	(SpecCollection
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	571	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	572	(VariableVerticalPanelSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	573	name: 'VerticalPanel'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	574	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	575	component:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	576	(SpecCollection
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	577	collection: (
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	578	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	579	name: 'NavigatorPanel'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	580	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	581	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	582	specHolder: navigatorSpecHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	583	createNewBuilder: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	584	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	585	(SubCanvasSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	586	name: 'TextDiffTool'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	587	hasHorizontalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	588	hasVerticalScrollBar: false
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	589	majorKey: #'Tools::TextDiffTool'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	590	minorKey: windowSpecForEmbedding
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	591	subAspectHolders:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	592	(Array
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	593
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	594	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	595	subAspect: classHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	596	aspect: classHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	597	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	598	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	599	subAspect: codeAspectHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	600	aspect: codeAspectHolder
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	603	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	604	subAspect: labelAHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	605	aspect: labelAHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	606	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	607	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	608	subAspect: labelBHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	609	aspect: labelBHolder
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
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	612	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	613	subAspect: textAHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	614	aspect: changeSourceHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	615	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	616	(SubChannelInfoSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	617	subAspect: textBHolder
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	618	aspect: imageSourceHolder
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	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	621	createNewApplication: true
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	622	createNewBuilder: true
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	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	625
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	626	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	627	handles: (Any 0.5 1.0)
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	)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	630
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	631	)
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	632	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	633	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	634
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	635	!ChangeSetBrowser2 class methodsFor:'menu specs'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	636
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	637	changeMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	638	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	639	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	641	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	644
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	646	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	647	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	652	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	#(Menu
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	654	(
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	655	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	656	enabled: hasChangeSelectedAndNotRemoved:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	657	label: 'Apply'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	658	itemValue: changeMenuApplySelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	659	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	660	isVisible: acceptEnabledHolder
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	661	shortcutKey: Accept
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	662	auxValue: 100
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	663	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	664	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	665	label: 'Apply all'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	666	itemValue: changeMenuApply:
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	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	670	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	671	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	672	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	673	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	674	label: 'Delete'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	675	itemValue: changeMenuDeleteSelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	676	nameKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	677	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	678	shortcutKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	679	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	680	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	681	label: 'Undelete'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	682	itemValue: changeMenuUndeleteSelection:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	683	nameKey: Undelete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	684	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	685	shortcutKey: Delete
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	686	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	687	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	688	label: '-'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	689	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	690	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	691	label: 'Select...'
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	submenu:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	694	(Menu
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	695	(
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	696	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	697	label: 'Select same'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	698	itemValue: changeMenuSelectSame:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	699	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	700	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	701	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	702	label: 'Select additions (new classes/methods)'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	703	itemValue: changeMenuSelectAdditions:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	704	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	705	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	706	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	707	label: 'Select removals'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	708	itemValue: changeMenuSelectRemovals:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	709	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	710	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	711	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	712	label: 'Select differences'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	713	itemValue: changeMenuSelectDifferences:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	714	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	715	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	716	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	717	label: '-'
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 all'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	721	itemValue: changeMenuSelectAll:
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: 'Select none'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	726	itemValue: changeMenuSelectNone:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	727	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	728	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	729	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	730	label: '-'
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 using block'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	734	itemValue: changeMenuSelectUsingBlock:
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	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	738	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	739	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	740	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	741	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	742	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	743	label: '-'
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	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	746	label: 'Show Deleted'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	747	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	748	indication: showRemovedAspect
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: 'Show Same'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	752	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	753	indication: showSameAspect
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	754	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	755	(MenuItem
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	756	label: '-'
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: 'Inspect change'
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	760	itemValue: changeMenuInspect:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	761	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	762	)
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	enabled: hasSingleChangeSelectedAndCanBrowse:
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	765	label: 'Browse Method(s)'
10643 a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	766	itemValue: changeMenuBrowse:
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	767	translateLabel: true
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	768	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	769	)
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	770	nil
a2abe198e97c changed: #changeMenu Claus Gittinger <cg@exept.de> parents: 10642 diff changeset	771	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	774
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	775	changeMenu1
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	776	"This resource specification was automatically generated
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	777	by the MenuEditor of ST/X."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	778
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	779	"Do not manually edit this!! If it is corrupted,
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	780	the MenuEditor may not be able to read the specification."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	781
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	782
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	783	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	784	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu1
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	785	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu1)) startUp
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	786	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	787
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	788	<resource: #menu>
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	#(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	792	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	793	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	794	enabled: hasChangeSelectedAndNotRemoved:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	795	label: 'Apply'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	796	itemValue: changeMenuApplySelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	797	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	798	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	799	shortcutKey: Accept
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	800	auxValue: 100
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	801	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	802	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	803	label: 'Apply all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	804	itemValue: changeMenuApply:
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	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	808	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	809	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	810	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	811	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	812	label: 'Delete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	813	itemValue: changeMenuDeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	814	nameKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	815	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	816	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	817	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	818	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	819	label: 'Undelete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	820	itemValue: changeMenuUndeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	821	nameKey: Undelete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	822	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	823	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	824	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	825	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	826	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	827	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	828	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	829	label: 'Select...'
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	submenu:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	832	(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	833	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	834	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	835	label: 'Select same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	836	itemValue: changeMenuSelectSame:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	837	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	838	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	839	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	840	label: 'Select additions (new classes/methods)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	841	itemValue: changeMenuSelectAdditions:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	842	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	843	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	844	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	845	label: 'Select removals'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	846	itemValue: changeMenuSelectRemovals:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	847	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	848	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	849	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	850	label: 'Select differences'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	851	itemValue: changeMenuSelectDifferences:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	852	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	853	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	854	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	855	label: '-'
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 all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	859	itemValue: changeMenuSelectAll:
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: 'Select none'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	864	itemValue: changeMenuSelectNone:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	865	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	866	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	867	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	868	label: '-'
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 using block'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	872	itemValue: changeMenuSelectUsingBlock:
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	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	876	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	877	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	878	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	879	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	880	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	881	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	882	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	883	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	884	label: 'Show Deleted'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	885	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	886	indication: showRemovedAspect
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: 'Show Same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	890	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	891	indication: showSameAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	892	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	893	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	894	label: '-'
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: 'Inspect change'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	898	itemValue: changeMenuInspect:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	899	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	900	)
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	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	903	label: 'Browse Method(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	904	itemValue: changeMenuBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	905	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	906	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	907	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	908	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	909	label: 'Browse Class(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	910	itemValue: changeMenuBrowseClass:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	911	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	912	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	913	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	914	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	915	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	916	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	917	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	918
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	919	changeMenu2
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	920	"This resource specification was automatically generated
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	921	by the MenuEditor of ST/X."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	922
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	923	"Do not manually edit this!! If it is corrupted,
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	924	the MenuEditor may not be able to read the specification."
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	925
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	926
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	927	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	928	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu2
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	929	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu2)) startUp
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	930	"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	931
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	932	<resource: #menu>
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	933
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	934	^
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	935	#(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	936	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	937	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	938	enabled: hasChangeSelectedAndNotRemoved:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	939	label: 'Apply'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	940	itemValue: changeMenuApplySelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	941	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	942	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	943	shortcutKey: Accept
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	944	auxValue: 100
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	945	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	946	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	947	label: 'Apply all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	948	itemValue: changeMenuApply:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	949	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	950	isVisible: acceptEnabledHolder
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	951	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	952	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	953	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	954	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	955	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	956	label: 'Delete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	957	itemValue: changeMenuDeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	958	nameKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	959	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	960	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	961	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	962	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	963	label: 'Undelete'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	964	itemValue: changeMenuUndeleteSelection:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	965	nameKey: Undelete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	966	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	967	shortcutKey: Delete
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	968	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	969	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	970	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	971	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	972	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	973	label: 'Select...'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	974	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	975	submenu:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	976	(Menu
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	977	(
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	978	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	979	label: 'Select same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	980	itemValue: changeMenuSelectSame:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	981	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	982	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	983	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	984	label: 'Select additions (new classes/methods)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	985	itemValue: changeMenuSelectAdditions:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	986	translateLabel: true
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: 'Select removals'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	990	itemValue: changeMenuSelectRemovals:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	991	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	992	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	993	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	994	label: 'Select differences'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	995	itemValue: changeMenuSelectDifferences:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	996	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	997	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	998	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	999	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1000	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1001	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1002	label: 'Select all'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1003	itemValue: changeMenuSelectAll:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1004	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1005	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1006	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1007	label: 'Select none'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1008	itemValue: changeMenuSelectNone:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1009	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1010	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1011	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1012	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1013	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1014	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1015	label: 'Select using block'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1016	itemValue: changeMenuSelectUsingBlock:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1017	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1018	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1019	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1020	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1021	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1022	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1023	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1024	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1025	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1026	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1027	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1028	label: 'Show Deleted'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1029	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1030	indication: showRemovedAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1031	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1032	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1033	label: 'Show Same'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1034	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1035	indication: showSameAspect
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1036	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1037	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1038	label: '-'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1039	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1040	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1041	label: 'Inspect change'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1042	itemValue: changeMenuInspect:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1043	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1044	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1045	(MenuItem
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1046	enabled: hasSingleChangeSelectedAndCanBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1047	label: 'Browse Method(s)'
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1048	itemValue: changeMenuBrowse:
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1049	translateLabel: true
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1050	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1051	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1052	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1053	nil
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1054	)
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1055
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1056	"Created: / 05-09-2011 / 16:06:49 / cg"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1057	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1058
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059	mainMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1060	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1061	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1064	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1065
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1066
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1067	"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1068	MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#mainMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1069	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 mainMenu)) startUp
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1070	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1072	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1073
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1074	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1075	#(Menu
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1076	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1077	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1078	label: 'File'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1079	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1080	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1081	(Menu
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1082	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1083	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1084	label: 'Open'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1085	itemValue: doOpen
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1086	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1087	isVisible: allowOpenHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1088	shortcutKey: Ctrlo
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1089	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1090	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1091	label: 'Open current'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1092	itemValue: doOpenCurrent
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1093	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1094	isVisible: allowOpenHolder
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: 'Save'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1098	itemValue: doSave
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1099	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1100	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1101	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1102	label: 'Save As...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1103	itemValue: doSaveAs
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1104	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1105	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1106	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1107	label: '-'
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: 'Exit'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1111	itemValue: closeRequest
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	)
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	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1116	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1117	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1118	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1119	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1120	label: 'View'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1121	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1122	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1123	(Menu
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: 'List'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1127	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1128	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1129	choiceValue: oneColumnNavigatorSpec
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1130	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1131	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1132	label: 'Hierarchical List'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1133	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1134	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1135	choiceValue: hierarchicalNavigatorSpec
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	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1138	label: 'Browser Like'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1139	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1140	choice: navigatorSpecHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1141	choiceValue: twoColumnNavigatorSpec
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1142	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1143	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1144	label: '-'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1145	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1146	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1147	label: 'Show Deleted'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1148	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1149	indication: showRemovedAspect
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1150	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1151	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1152	label: 'Show Same'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1153	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1154	indication: showSameAspect
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	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1157	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1158	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1159	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1160	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1161	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1162	label: 'Loading'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1163	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1164	submenu:
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1165	(Menu
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1166	(
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1167	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1168	label: 'Set Target Package...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1169	itemValue: setTargetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1170	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1171	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1172	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1173	label: 'Set Target Namespace...'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1174	itemValue: setTargetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1175	translateLabel: true
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1176	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1177	(MenuItem
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1178	label: '-'
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: 'Update Changefile'
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	indication: updateChangeFileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1184	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1185	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1186	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1187	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1188	)
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1189	)
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	nil
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1192	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1193	)
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1194	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1195
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1196	toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1197	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1198	by the MenuEditor of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200	"Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1201	the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1202
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1203	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1204	MenuEditor new openOnClass:Tools::ChangeSetBrowser andSelector:#toolbarMenu
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1205	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser toolbarMenu)) startUp
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1206	"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1207
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1208	<resource: #menu>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1209
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1210	^
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1211	#(Menu
10854 e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1212	(
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1213	(MenuItem
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1214	activeHelpKey: fileLoad
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1215	label: 'Open'
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1216	itemValue: doOpen
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1217	translateLabel: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1218	isButton: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1219	isVisible: allowOpenHolder
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1220	labelImage: (ResourceRetriever ToolbarIconLibrary loadFromFileIcon)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1221	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1222	(MenuItem
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1223	activeHelpKey: fileSave
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1224	label: 'Save'
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1225	itemValue: doSave
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1226	translateLabel: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1227	isButton: true
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1228	labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1229	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1230	)
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1231	nil
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1232	nil
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1233	)
10854 e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1234
e799d9008c17 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 10688 diff changeset	1235	"Modified: / 08-11-2011 / 16:43:39 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1236	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1237
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1238	!ChangeSetBrowser2 class methodsFor:'plugIn spec'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1239
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1240	aspectSelectors
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1241	"This resource specification was automatically generated
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1242	by the UIPainter of ST/X."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1244	"Do not manually edit this. If it is corrupted,
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1245	the UIPainter may not be able to read the specification."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1246
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1247	"Return a description of exported aspects;
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248	these can be connected to aspects of an embedding application
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1249	(if this app is embedded in a subCanvas)."
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1250
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	^ #(
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1252	#changesetHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253	).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1254
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 methodsFor:'accessing'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	acceptEnabled: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	^self acceptEnabledHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264	allowOpen: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	self allowOpenHolder value: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	"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	1269	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271	beHierarchical
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273	^self navigatorSpecHolder value: #hierarchicalNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275	"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	1276	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278	beOneColumn
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 navigatorSpecHolder value: #oneColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282	"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	1283	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	beTwoColumn
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287	^self navigatorSpecHolder value: #twoColumnNavigatorSpec
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289	"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	1290	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292	changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	^self changesetHolder value
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	changeset: aChangeSet
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 changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1302	list1View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1303
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1304	list1 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1305
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1306	"Created: / 04-08-2011 / 17:56:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1307	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1308
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1309	list2View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1310
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1311	list2 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1312
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1313	"Created: / 04-08-2011 / 17:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1314	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1315
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316	readOnly: aBoolean
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	"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	1319	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1321	targetNamespace:something
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1322	targetNamespace := something.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1323	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1324
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1325	targetPackage:something
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1326	targetPackage := something.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1327	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1328
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	theSingleSelectedChange
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1331	\| change sel \|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1332	change := nil.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1333	sel := selection2Holder value.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1334	sel isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1335	sel := selection1Holder value.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1336	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1337	sel do:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1338	[:each\|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1339	change ifNotNil:[nil].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1340	change ifNil:[change := each]].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341	^change
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1342
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1343	"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	1344	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346	title: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1347
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348	self titleHolder value: aString
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350	"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	1351	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353	!ChangeSetBrowser2 methodsFor:'accessing - defaults'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	defaultTitle
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356	^ 'No changeset'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358	"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	1359	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361	!ChangeSetBrowser2 methodsFor:'accessing - menus'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1362
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1363	list1MenuHolder
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1364	^ [
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1365	\|menu\|
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1366
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1367	menu := builder menuFor:#changeMenu1.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1368	menu allItemsDo:[:item \| item argument:list1 ].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1369	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1370	]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1372	"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	1373	"Modified (format): / 05-09-2011 / 16:07:20 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1374	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1375
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1376	list2MenuHolder
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1377	^ [
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1378	\|menu\|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1380	menu := builder menuFor:#changeMenu2.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1381	menu allItemsDo:[:item \| item argument:list2 ].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1382	menu
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1383	]
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1384
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1385	"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	1386	"Modified (format): / 05-09-2011 / 16:07:34 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1387	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1388
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389	!ChangeSetBrowser2 methodsFor:'actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1390
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1391	accept: source
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1392
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1393	\| entry chg \|
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1394	(entry := self theSingleSelectedChange) isNil ifTrue:[^self].
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1395	chg := entry change.
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1396	chg isMethodCodeChange ifTrue:
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1397	[chg source: source asString]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1399	"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	1400	"Modified: / 18-11-2011 / 14:56:53 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1401	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1402
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1403	postBuildSourceView: aView
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1404
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1405	sourceView := aView.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	1406
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1407	"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	1408	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1409
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1410	!ChangeSetBrowser2 methodsFor:'aspects'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1412	acceptEnabledHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413	"return/create the 'selectionHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1414
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1415	acceptEnabledHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1416	acceptEnabledHolder := ValueHolder with: true.
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	^ acceptEnabledHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1419
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1420	"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	1421	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1422
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423	allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1424	"return/create the 'allowOpenHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1425
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	allowOpenHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1427	allowOpenHolder := ValueHolder with: true.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429	^ allowOpenHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1431	"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	1432	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1433
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1434	changeSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1435	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1436	changeSourceHolder isNil ifTrue: [
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1437	changeSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1438	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1439	^ changeSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1440
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1441	"Modified: / 19-07-2011 / 11:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1442	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1443
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1444	changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1445	"return/create the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1446
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1447	changesetHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1448	changesetHolder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1449	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1450	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451	^ changesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1452	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1453
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1454	changesetHolder:something
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1455	"set the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1456
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1457	\|oldValue newValue\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1459	changesetHolder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1460	oldValue := changesetHolder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1461	changesetHolder removeDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1462	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1463	changesetHolder := something.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464	changesetHolder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1465	changesetHolder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1466	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1467	newValue := changesetHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1468	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1469	self update:#value with:newValue from:changesetHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1470	].
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	classHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474	"return/create the 'classHolder' 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	classHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1477	classHolder := ValueHolder with:nil.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1478	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1479	^ classHolder
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1480
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1481	"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	1482	!
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1483
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1484	codeAspectHolder
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1485	"return/create the 'codeAspectHolder' value holder (automatically generated)"
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1486
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1487	codeAspectHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1488	codeAspectHolder := ValueHolder new.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1489	].
110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1490	^ codeAspectHolder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1491	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1493	imageSourceHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1494	<resource: #uiAspect>
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1495	imageSourceHolder isNil ifTrue: [
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1496	imageSourceHolder := nil asValue.
10333 29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1497	].
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1498	^ imageSourceHolder.
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1499
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1500	"Created: / 19-07-2011 / 11:54:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1501	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1502
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1503	labelAHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1504
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1505	^'Change' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1506
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1507	"Created: / 19-07-2011 / 11:46:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1508	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1509
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1510	labelBHolder
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1511
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1512	^'Image' asValue
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1513
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1514	"Created: / 19-07-2011 / 11:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1515	!
29776a78e424 Improvements in diffing tools vrany parents: 10309 diff changeset	1516
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1517	list1Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1518	"return/create the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1519
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1520	list1Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1521	list1Holder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1522	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1523	^ list1Holder
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1524	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1525
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1526	list1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1527	"set the 'list1Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1528
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1529	list1Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1530	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1531
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1532	list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1533	"return/create the 'list2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1534
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1535	list2Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1536	list2Holder := ValueHolder new.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1537	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1538	^ list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1539	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1540
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1541	list2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1542	"set the 'list2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1543
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1544	list2Holder := something.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1545	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1546
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1547	navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1548	"return/create the 'navigatorChangesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1549
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1550	navigatorChangesetHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1551	navigatorChangesetHolder := ValueHolder new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1552	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1553	^ navigatorChangesetHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1554	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1555
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1556	navigatorSpecHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1557	<resource: #uiAspect>
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1558
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559	navigatorSpecHolder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1560	navigatorSpecHolder := ValueHolder with:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1561	#hierarchicalNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1562	"/#twoColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1563	"/#oneColumnNavigatorSpec
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1564
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566	^ navigatorSpecHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568	"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	1569	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1570
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1571	selection1Holder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1572	"return/create the 'selection1Holder' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1573
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1574	selection1Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1575	selection1Holder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1576	selection1Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1577	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1578	^ selection1Holder
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1579	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1580
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1581	selection1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1582	"set the 'selection1Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1583
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1584	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1585
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1586	selection1Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1587	oldValue := selection1Holder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1588	selection1Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1589	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1590	selection1Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1591	selection1Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1592	selection1Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1593	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1594	newValue := selection1Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1595	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1596	self update:#value with:newValue from:selection1Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1597	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1598	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1599
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1600	selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1601	"return/create the 'selection2Holder' value holder (automatically generated)"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1602
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1603	selection2Holder isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1604	selection2Holder := ValueHolder new.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1605	selection2Holder addDependent:self.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1607	^ selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1608	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1609
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1610	selection2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1611	"set the 'selection2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1612
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1613	\|oldValue newValue\|
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1614
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1615	selection2Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1616	oldValue := selection2Holder value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1617	selection2Holder removeDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1618	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1619	selection2Holder := something.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1620	selection2Holder notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1621	selection2Holder addDependent:self.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1622	].
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1623	newValue := selection2Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1624	oldValue ~~ newValue ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1625	self update:#value with:newValue from:selection2Holder.
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1626	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1627	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1628
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1629	showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1630	"return/create the 'showDeletedAspect' value holder (automatically generated)"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1631
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1632	showRemovedAspect isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1633	showRemovedAspect := (AspectAdaptor forAspect:#showRemoved)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1634	subject: self class.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1635	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1636	^ showRemovedAspect
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1637	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1638
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1639	showRemovedAspect:aValueHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1640	showRemovedAspect := aValueHolder.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1641	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1642
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1643	showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1644	"return/create the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1645
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1646	showSameAspect isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1647	showSameAspect := ValueHolder with: true.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1648	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1649	^ showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1650
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1651	"Modified: / 04-08-2011 / 18:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1652	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1653
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1654	showSameAspect:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1655	"set the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1656
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1657	showSameAspect := something.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1658	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1659
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1660	titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1661	"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	1662
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1663	titleHolder isNil
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1664	ifTrue:[ titleHolder := ValueHolder with:self defaultTitle. ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1665	^ titleHolder
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1666
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1667	"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	1668	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1669
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1670	updateChangefileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1671	updateChangefileHolder isNil ifTrue:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1672	updateChangefileHolder := false asValue.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1673	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1674	^ updateChangefileHolder
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1675
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1676	"Created: / 07-09-2011 / 15:54:03 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1677	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1678
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1679	!ChangeSetBrowser2 methodsFor:'change & update'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1680
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1681	changesetChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1682
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1683	self titleHolder value: (self changeset name ? (self defaultTitle)).
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1684	self list1Holder value: self getNavigatorChangeSet
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1685
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1686	"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	1687	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1688
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1689	selectionChanged
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1690
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1691	\| change \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1692	change := self theSingleSelectedChange.
10345 110c6de006a3 More improvements fixes in diff tools vrany parents: 10333 diff changeset	1693	(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	1694	self classHolder value: change changeClass.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1695	changeSourceHolder setValue: change changeSource; changed: #value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1696	imageSourceHolder setValue: change imageSource; changed: #value.
10370 9c96ff8c35db bugfix vrany parents: 10345 diff changeset	1697
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1698	codeAspectHolder value:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1699	(change change isMethodCodeChange
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1700	ifTrue:[#method]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1701	ifFalse:[#expression]).
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1702	self showSource: true
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1703	] ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1704	self showSource: false.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1705	self classHolder value: nil.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1706	changeSourceHolder setValue: nil; changed: #value.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1707	imageSourceHolder setValue: nil; changed: #value.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	1708	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1709
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1710	"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	1711	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1712
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1713	update: aspect with: param from: sender
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1714
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1715	sender == changesetHolder ifTrue: [ ^ self changesetChanged ].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1716	sender == selection1Holder ifTrue: [ ^ self selectionChanged ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1717	sender == selection2Holder ifTrue: [ ^ self selectionChanged ].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1718
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1719	"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	1720	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1721
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1722	!ChangeSetBrowser2 methodsFor:'interface opening'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1723
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1724	open
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1725
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1726	super open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1727	^self
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: / 20-07-2010 / 09:48:06 / 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
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1732	!ChangeSetBrowser2 methodsFor:'menu actions'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1734	doOpen
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1735
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1736	\| file changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737	file := Dialog requestFileName:'Select changeset' pattern:'.chg;.st'.
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1738	file isNil ifTrue:[^self].
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1739	[changeset := ChangeSet fromFile: file]
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1740	on: Error
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1741	do: [:ex\|Dialog error: 'Error when loading changeset: ',ex description. ^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742	changesetFile := file.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1743	self title: file asFilename baseName asString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744	self doOpen: changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746	"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	1747	"Modified: / 18-11-2011 / 14:57:02 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1749
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750	doOpen: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1751
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1752	self changesetHolder value: aChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1753
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754	"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	1755	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1756
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1757	doOpenCurrent
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1758
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759	self doOpen: ChangeSet current
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1760
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761	"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	1762	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1763
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1764	doSave
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1765
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1766	changesetFile
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1767	ifNil:[self doSaveAs]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1768	ifNotNil:[self doSaveAs: changesetFile]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1769
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1770	"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	1771	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1772
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1773	doSaveAs
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1774
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1775	\| file \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1776	file := Dialog requestFileName:'Select file' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1777	file isNil ifTrue:[^self].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778	self doSaveAs: file.
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1779
aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1780	"Modified: / 18-11-2011 / 14:57:07 / cg"
10028 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	doSaveAs: newFile
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1784
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1785	[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1786	\| s \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1787	s := newFile asFilename writeStream.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1788	[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	1789	changesetFile := newFile.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1790	] on: Error do:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1791	[:ex\|Dialog warn: 'Erorr saving changes: ' , ex description]
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1792	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1793
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1794	setTargetNamespace
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1795	"specify an st/x namespace to be used as default"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1796
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1797	\| nsName \|
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1798
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1799	nsName := Dialog
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1800	requestNameSpace:'Namepace to load code into:'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1801	initialAnswer:targetNamespace.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1802	nsName isEmptyOrNil ifTrue:[^self].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1803
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1804	targetNamespace := nsName.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1805	"/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1806
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1807	"Created: / 07-09-2011 / 12:49:42 / cg"
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1808	!
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1809
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1810	setTargetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1811	"specify an st/x package identifier to be used as default"
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	\| package \|
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1814
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1815	package := Dialog
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1816	requestProject:'Default Smalltalk/X package to load code into:'
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1817	initialAnswer:targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1818	suggestions:#().
10880 aea6ce163a29 changed: Claus Gittinger <cg@exept.de> parents: 10854 diff changeset	1819	package isNil ifTrue:[^self].
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1820
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1821	targetPackage := "lastPackage := "package.
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1822	"/ self targetPackageHolder value:('Target-Package: ',targetPackage).
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1823
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	1824	"Created: / 07-09-2011 / 12:47:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1825	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1826
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1827	!ChangeSetBrowser2 methodsFor:'menu actions - changes'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1828
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1829	changeMenuApply: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1830
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1831	\| changesToApply \|
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1832	changesToApply := OrderedCollection new.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1833	self changesDo:[:chg\|chg removed ifFalse:[changesToApply add: chg]].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1834	self changeMenuApplyChanges: changesToApply.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1835
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1836	"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	1837	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1838
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1839	changeMenuApplySelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1840
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	1841	changeList selection do:[:change\|self changeMenuApplyChange:change change].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1842
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1843	"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	1844	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1845
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1846	changeMenuBrowse: changeList
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1847	\|changes methods classes\|
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1848
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1849	changeList == list1 ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1850	changes := selection1Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1851	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1852	changes := selection2Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1853	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1854	changes := changes collect:[:c \| c change].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1855	"/ changes := changeList listHolder value collect:[:c \| c change].
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1856	(changes conform:[:c \| c isClassDefinitionChange]) ifTrue:[
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1857	classes := (changes collect:[:c \| c changeClass]).
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1858	UserPreferences current systemBrowserClass
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1859	browseClasses:classes title:'selected monticello classes'.
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1860	] ifFalse:[
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1861	methods := OrderedCollection new.
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1862	changes do:[:each \|
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1863	each isCompositeChange ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1864	each changes do:[:each2 \| each2 isMethodChange ifTrue:[ methods add:each2 changeMethod ]]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1865	] ifFalse:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1866	each isMethodChange ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1867	methods add:(each changeMethod).
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1868	]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1869	]
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1870	].
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1871	(methods includes:nil) ifTrue:[
3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1872	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	1873	methods := methods reject:[:m \| m isNil].
10665 bbaa7c4154de changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10658 diff changeset	1874	methods isEmpty ifTrue:[^ self].
10658 3c26332add1f changed: Claus Gittinger <cg@exept.de> parents: 10655 diff changeset	1875	].
10642 ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1876	UserPreferences current systemBrowserClass
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1877	browseMethods:methods title:'selected monticello methods' sort:false.
ce2759d1c03b changed: #changeMenuBrowse: Claus Gittinger <cg@exept.de> parents: 10467 diff changeset	1878	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1879
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1880	"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	1881	"Modified: / 05-09-2011 / 16:17:48 / cg"
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1882	!
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1883
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1884	changeMenuBrowseClass: changeList
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1885	\|changes classes addThemChanges cls\|
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1886
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1887	changeList == list1 ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1888	changes := selection1Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1889	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1890	changes := selection2Holder value.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1891	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1892	changes := changes collect:[:eachListEntry \| eachListEntry change].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1893
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1894	classes := Set new.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1895	addThemChanges :=
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1896	[:c \|
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1897	c isClassDefinitionChange ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1898	classes add:c changeClass theNonMetaclass
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1899	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1900	c isMethodChange ifTrue:[
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1901	cls := c changeMethod isNil
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1902	ifTrue:[ c changeClass ]
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1903	ifFalse:[ c changeMethod mclass theNonMetaclass ].
a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	1904	classes add:cls
10666 6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1905	] ifFalse:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1906	c isCompositeChange ifTrue:[
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1907	c changes do:addThemChanges
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1908	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1909	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1910	]
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1911	].
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1912	changes do:addThemChanges.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1913
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1914	UserPreferences current systemBrowserClass
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1915	browseClasses:classes title:'selected monticello classes'.
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1916
6930bb15d213 added: Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1917	"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	1918	"Created: / 05-09-2011 / 16:08:35 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1919	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1920
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1921	changeMenuDeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1922
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1923	self selectionDo:[:chg\|chg removed: true]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1924
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1925	"Modified: / 29-10-2010 / 13:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1926	"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	1927	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1928
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1929	changeMenuInspect: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1930
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1931	\| changes \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1932	changes := OrderedCollection new: 1.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1933	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	1934	changes size = 1
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1935	ifTrue:[changes anyOne inspect]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	1936	ifFalse:[changes inspect].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1937
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1938	"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	1939	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1940
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1941	changeMenuInspectChangeset: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1942	self changesetHolder value inspect.
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1943
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1944	"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	1945	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1946
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1947	changeMenuSelectAdditions: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1949	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #+]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1950
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1951	"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	1952	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1953
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1954	changeMenuSelectAll: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1955
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1956	self changeMenuSelectIn: changeList suchThat:[:change\|true]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1957
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1958	"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	1959	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1961	changeMenuSelectDifferences: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1962
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1963	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #~]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1964
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1965	"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	1966	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1967
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1968	changeMenuSelectNone: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1969
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1970	self changeMenuSelectIn: changeList suchThat:[:change\|false]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1971
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1972	"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	1973	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1974
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1975	changeMenuSelectRemovals: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1976
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1977	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #-]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1978
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1979	"Modified: / 29-10-2010 / 13:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1980	"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	1981	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1982
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1983	changeMenuSelectSame: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1984
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1985	self changeMenuSelectIn: changeList suchThat:[:change\|change delta = #=]
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1986
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1987	"Modified: / 29-10-2010 / 13:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1988	"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	1989	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1990
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	1991	changeMenuSelectUsingBlock: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1992
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1993	\|conditionBlockString conditionBlock dialog textHolder template\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1994
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1995	template :=
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1996	'[:change\|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1997	"/ Define condition for selection below:
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1998	"/ change is an instance of Change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1999	"/ change will be selected if and only if block returns true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2000
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2001
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2002	true"/always select the change
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2003	]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2004	'.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2005
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2006	LastSelectionConditionString isNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2007	LastSelectionConditionString := template.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2008	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2009
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2010
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2011	textHolder := ValueHolder new.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2012	dialog := Dialog
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2013	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	2014	lines:20
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2015	columns:70
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2016	initialAnswer:LastSelectionConditionString
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2017	model:textHolder.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2018	dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2019	dialog open.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2020	dialog accepted ifFalse:[^ self].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2021
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2022	conditionBlockString := textHolder value.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2023	LastSelectionConditionString := conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2024
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2025	conditionBlock := Parser evaluate:conditionBlockString.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2026	conditionBlock isBlock ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2027	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	2028	^ self
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2029	].
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2030
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2031	self changeMenuSelectIn: changeList suchThat: conditionBlock
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2032
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2033	"Modified: / 29-10-2010 / 13:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2034	"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	2035	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2036
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2037	changeMenuUndeleteSelection: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2038
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2039	self selectionDo:[:chg\|chg removed: false]
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2040
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2041	"Modified: / 29-10-2010 / 13:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2042	"Created: / 04-08-2011 / 17:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2043	! !
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2044
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2045	!ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2046
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2047	changeMenuApplyChange: aChange
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2048
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2049	"/ aChange isClassDefinitionChange ifTrue:
0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2050	"/ [(Smalltalk at: aChange superClassName asSymbol)
0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2051	"/ ifNil:[^self error: 'Nil superclass']].
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2052
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2053	self withWaitCursorDo:[
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2054	(MCStXNamespaceQuery , Class nameSpaceQuerySignal)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2055	answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2056	do: [
10688 0d9b70639154 changed: #changeMenuApplyChange: Claus Gittinger <cg@exept.de> parents: 10682 diff changeset	2057	(MCStXPackageQuery , Class packageQuerySignal)
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2058	answer: self targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2059	do: [
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2060	MCInteractiveLoadingQuery answer: true do:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2061	updateChangefileHolder value ifTrue:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2062	aChange apply
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2063	] ifFalse:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2064	Class withoutUpdatingChangesDo:[
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2065	aChange apply
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2066	]
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2067	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2068	]
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2069	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2070	].
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2071	].
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2072
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2073	"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	2074	"Modified: / 07-09-2011 / 22:24:57 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2075	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2076
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2077	changeMenuApplyChanges: changesToApply
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2078
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2079	\| changesThatFailToApply \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2080
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2081	changesThatFailToApply := ChangeSet new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2082	ProgressIndicator
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2083	displayProgress:'Applying changes...'
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2084	at:(Screen default center)
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2085	from:200 to:400
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2086	during:[:val \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2087	1 to: changesToApply size do:
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2088	[:i\|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2089	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	2090	[self changeMenuApplyChange: (changesToApply at: i)]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2091	on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2092
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2093	"Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2094	!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2095
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2096	changeMenuSelectIn: changeList suchThat:conditionBlock
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2097
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2098	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2099	sel := OrderedCollection new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2100	changeList listHolder value do: [:chg\|(conditionBlock value: chg) ifTrue:[sel add: chg]].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2101	changeList selectionHolder value: sel.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2102
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2103	"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	2104	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2105
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2106	!ChangeSetBrowser2 methodsFor:'private'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2107
10655 788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2108	changesDo:aBlock
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2109	self changeset do:aBlock.
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2110
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2111	"Created: / 30-08-2011 / 14:30:58 / cg"
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2112	!
788f21d925ce added: #changesDo: Claus Gittinger <cg@exept.de> parents: 10643 diff changeset	2113
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2114	getNavigatorChangeSet
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2115
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2116	\| changeset \|
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2117	changeset := changesetHolder value deepCopy.
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2118	(changeset isKindOf: ChangeSet) ifFalse:
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2119	[changeset := ChangeSet withAll: changeset].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2120
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2121	(self navigatorSpecHolder value ~= #oneColumnNavigatorSpec)
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2122	ifTrue:[^changeset groupByClass].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2123
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2124	"Default"
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2125	^changeset
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2126
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2127	"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	2128	"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	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	redrawChangeListViews
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2132
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2133	list1 notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2134	list1 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2135	].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2136	list2 notNil ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2137	list2 builder window allSubViewsDo: [:v\|v redraw]
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2138	].
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2139
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2140	"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	2141	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2142
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2143	selectionDo: aBlock
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2144
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2145	"/ \| applyBlock \|
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2146	"/ applyBlock := [:e\|aBlock value: e change].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2147	"/
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2148	"/ selectionHolder value isEmptyOrNil ifTrue:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2149	"/ (self navigatorChangesetHolder value ? #()) do: aBlock
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2150	"/ ] ifFalse:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2151	"/ selection1Holder value isEmptyOrNil not
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2152	"/ ifTrue:[selection1Holder value do: applyBlock]
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2153	"/ ifFalse:[selectionHolder value do: applyBlock].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2154	"/ ].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2155	"/ self redrawChangeListViews
10453 94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2156
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2157	"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	2158	"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	2159	"Modified: / 04-08-2011 / 19:06:31 / cg"
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2160	!
94449763846b changed: Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2161
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2162	showSource: aBoolean
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2163
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2164	\| panel \|
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2165
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2166
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2167	"Not yet implemented"
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2168
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2169	^self.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2170
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2171	sourceView ifNil:[^self].
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2172	panel := builder componentAt: #VerticalPanel.
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2173	aBoolean ifTrue:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2174	(panel subViews includes: sourceView) ifTrue:[^self].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2175	panel addSubView: sourceView.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2176	] ifFalse:[
10467 d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2177	(panel subViews includes: sourceView) ifFalse:[^self].
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2178	panel removeSubView: sourceView.
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts... Claus Gittinger <cg@exept.de> parents: 10453 diff changeset	2179	sourceView setId: nil.
10309 05f375be3676 Few fixes vrany parents: 10065 diff changeset	2180
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2181	]
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2182
05f375be3676 Few fixes vrany parents: 10065 diff changeset	2183	"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	2184	!
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2185
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2186	targetPackage
d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2187	^ targetPackage ? PackageId noProjectID
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2188
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2189	"Created: / 07-09-2011 / 20:12:04 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2190	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2191
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2192	!ChangeSetBrowser2 methodsFor:'queries'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2193
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2194	canApplyChanges
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2195
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2196	^true
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2197
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2198	"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	2199	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2200
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2201	canDrop: somethign
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2202
10682 d0632be80033 class definition Claus Gittinger <cg@exept.de> parents: 10666 diff changeset	2203	self breakPoint:#jv.
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2204
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2205	"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	2206	"Modified: / 07-09-2011 / 20:21:15 / cg"
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2207	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2208
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2209	hasChangeSelectedAndNotRemoved: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2210
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2211	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2212	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2213	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2214	^(sel anySatisfy:[:each\|each removed]) not
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2215
10380 f2a255ec6fc9 not ifTrue -> ifFalse (trying the rewrite tool ;-) Claus Gittinger <cg@exept.de> parents: 10370 diff changeset	2216	"Modified: / 24-07-2011 / 06:52:28 / cg"
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2217	"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	2218	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2219
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2220	hasSingleChangeSelectedAndCanBrowse: changeList
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2221
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2222	\| sel \|
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2223	sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2224	sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2225	^true
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2226
10448 0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup vrany parents: 10380 diff changeset	2227	"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	2228	! !
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2229
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2230	!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2231
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2232	version
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	2233	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.22 2011-11-25 15:43:59 cg Exp $'
10450 4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2234	!
4aa3a9ce20bf ChangeSetBrowser2 - fixes vrany parents: 10448 diff changeset	2235
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2236	version_CVS
10906 a12ce19f292f changed: #changeMenuBrowseClass: Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	2237	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.22 2011-11-25 15:43:59 cg Exp $'
10028 e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2238	!
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2239
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2240	version_SVN
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2241	^ '�Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 �'
e998faa655ab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2242	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 25 Nov 2011 16:43:59 +0100
changeset 10906	a12ce19f292f
parent 10880	aea6ce163a29
child 10914	55d89ff6791b
permissions	-rw-r--r--