hg/stx-libtool: Tools__ChangeSetDiffTool.st@1d7029646c90 (annotated)

10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	1	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	2	Copyright (c) 2007-2010 Jan Vrany
ce5e1fc44d81 initial checkin vrany parents: diff changeset	3	Copyright (c) 2009-2010 eXept Software AG
ce5e1fc44d81 initial checkin vrany parents: diff changeset	4
ce5e1fc44d81 initial checkin vrany parents: diff changeset	5	Permission is hereby granted, free of charge, to any person
ce5e1fc44d81 initial checkin vrany parents: diff changeset	6	obtaining a copy of this software and associated documentation
ce5e1fc44d81 initial checkin vrany parents: diff changeset	7	files (the 'Software'), to deal in the Software without
ce5e1fc44d81 initial checkin vrany parents: diff changeset	8	restriction, including without limitation the rights to use,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	9	copy, modify, merge, publish, distribute, sublicense, and/or sell
ce5e1fc44d81 initial checkin vrany parents: diff changeset	10	copies of the Software, and to permit persons to whom the
ce5e1fc44d81 initial checkin vrany parents: diff changeset	11	Software is furnished to do so, subject to the following
ce5e1fc44d81 initial checkin vrany parents: diff changeset	12	conditions:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	13
ce5e1fc44d81 initial checkin vrany parents: diff changeset	14	The above copyright notice and this permission notice shall be
ce5e1fc44d81 initial checkin vrany parents: diff changeset	15	included in all copies or substantial portions of the Software.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	16
ce5e1fc44d81 initial checkin vrany parents: diff changeset	17	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	18	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
ce5e1fc44d81 initial checkin vrany parents: diff changeset	19	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
ce5e1fc44d81 initial checkin vrany parents: diff changeset	20	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
ce5e1fc44d81 initial checkin vrany parents: diff changeset	21	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	22	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
ce5e1fc44d81 initial checkin vrany parents: diff changeset	23	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
ce5e1fc44d81 initial checkin vrany parents: diff changeset	24	OTHER DEALINGS IN THE SOFTWARE.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	25	"
10741 e4645cbb0958 Fix package def libbasic3->libtool Stefan Vogel <sv@exept.de> parents: 10194 diff changeset	26	"{ Package: 'stx:libtool' }"
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	27
ce5e1fc44d81 initial checkin vrany parents: diff changeset	28	"{ NameSpace: Tools }"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	29
ce5e1fc44d81 initial checkin vrany parents: diff changeset	30	ApplicationModel subclass:#ChangeSetDiffTool
ce5e1fc44d81 initial checkin vrany parents: diff changeset	31	instanceVariableNames:'listHolder singleSelectionHolder diffsetHolder titleHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	32	firstColSelectionHolder navigatorPanelSpecHolder diffMenuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	33	diffsetHolderPrivate selectionHolder versionATextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	34	versionBTextHolder'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	35	classVariableNames:''
ce5e1fc44d81 initial checkin vrany parents: diff changeset	36	poolDictionaries:''
ce5e1fc44d81 initial checkin vrany parents: diff changeset	37	category:'Interface-Diff'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	38	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	39
ce5e1fc44d81 initial checkin vrany parents: diff changeset	40	SimpleDialog subclass:#OpenDialog
ce5e1fc44d81 initial checkin vrany parents: diff changeset	41	instanceVariableNames:'doAcceptEnabled changesetSpecAHolder changesetSpecBHolder'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	42	classVariableNames:'LastDirectory'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	43	poolDictionaries:''
ce5e1fc44d81 initial checkin vrany parents: diff changeset	44	privateIn:ChangeSetDiffTool
ce5e1fc44d81 initial checkin vrany parents: diff changeset	45	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	46
ce5e1fc44d81 initial checkin vrany parents: diff changeset	47	!ChangeSetDiffTool class methodsFor:'documentation'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	48
ce5e1fc44d81 initial checkin vrany parents: diff changeset	49	copyright
ce5e1fc44d81 initial checkin vrany parents: diff changeset	50	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	51	Copyright (c) 2007-2010 Jan Vrany
ce5e1fc44d81 initial checkin vrany parents: diff changeset	52	Copyright (c) 2009-2010 eXept Software AG
ce5e1fc44d81 initial checkin vrany parents: diff changeset	53
ce5e1fc44d81 initial checkin vrany parents: diff changeset	54	Permission is hereby granted, free of charge, to any person
ce5e1fc44d81 initial checkin vrany parents: diff changeset	55	obtaining a copy of this software and associated documentation
ce5e1fc44d81 initial checkin vrany parents: diff changeset	56	files (the 'Software'), to deal in the Software without
ce5e1fc44d81 initial checkin vrany parents: diff changeset	57	restriction, including without limitation the rights to use,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	58	copy, modify, merge, publish, distribute, sublicense, and/or sell
ce5e1fc44d81 initial checkin vrany parents: diff changeset	59	copies of the Software, and to permit persons to whom the
ce5e1fc44d81 initial checkin vrany parents: diff changeset	60	Software is furnished to do so, subject to the following
ce5e1fc44d81 initial checkin vrany parents: diff changeset	61	conditions:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	62
ce5e1fc44d81 initial checkin vrany parents: diff changeset	63	The above copyright notice and this permission notice shall be
ce5e1fc44d81 initial checkin vrany parents: diff changeset	64	included in all copies or substantial portions of the Software.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	65
ce5e1fc44d81 initial checkin vrany parents: diff changeset	66	THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	67	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
ce5e1fc44d81 initial checkin vrany parents: diff changeset	68	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
ce5e1fc44d81 initial checkin vrany parents: diff changeset	69	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
ce5e1fc44d81 initial checkin vrany parents: diff changeset	70	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	71	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
ce5e1fc44d81 initial checkin vrany parents: diff changeset	72	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
ce5e1fc44d81 initial checkin vrany parents: diff changeset	73	OTHER DEALINGS IN THE SOFTWARE.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	74
ce5e1fc44d81 initial checkin vrany parents: diff changeset	75	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	76	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	77
ce5e1fc44d81 initial checkin vrany parents: diff changeset	78	!ChangeSetDiffTool class methodsFor:'accessing - defaults'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	79
ce5e1fc44d81 initial checkin vrany parents: diff changeset	80	versionAColor
ce5e1fc44d81 initial checkin vrany parents: diff changeset	81
ce5e1fc44d81 initial checkin vrany parents: diff changeset	82	^Color green lightened lightened
ce5e1fc44d81 initial checkin vrany parents: diff changeset	83
ce5e1fc44d81 initial checkin vrany parents: diff changeset	84	"Created: / 01-11-2009 / 10:14:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	85	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	86
ce5e1fc44d81 initial checkin vrany parents: diff changeset	87	versionBColor
ce5e1fc44d81 initial checkin vrany parents: diff changeset	88
ce5e1fc44d81 initial checkin vrany parents: diff changeset	89	^Color blue lightened lightened
ce5e1fc44d81 initial checkin vrany parents: diff changeset	90
ce5e1fc44d81 initial checkin vrany parents: diff changeset	91	"Created: / 01-11-2009 / 10:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	92	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	93
ce5e1fc44d81 initial checkin vrany parents: diff changeset	94	versionBaseColor
ce5e1fc44d81 initial checkin vrany parents: diff changeset	95
ce5e1fc44d81 initial checkin vrany parents: diff changeset	96	^Color yellow lightened lightened
ce5e1fc44d81 initial checkin vrany parents: diff changeset	97
ce5e1fc44d81 initial checkin vrany parents: diff changeset	98	"Created: / 01-11-2009 / 10:14:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	99	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	100
ce5e1fc44d81 initial checkin vrany parents: diff changeset	101	versionNotPresentText
ce5e1fc44d81 initial checkin vrany parents: diff changeset	102	^ 'Not present' asText allItalic colorizeAllWith:Color gray lighter
ce5e1fc44d81 initial checkin vrany parents: diff changeset	103	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	104
ce5e1fc44d81 initial checkin vrany parents: diff changeset	105	!ChangeSetDiffTool class methodsFor:'image specs'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	106
ce5e1fc44d81 initial checkin vrany parents: diff changeset	107	versionA24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	108
ce5e1fc44d81 initial checkin vrany parents: diff changeset	109	^ToolbarIconLibrary versionA24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	110
ce5e1fc44d81 initial checkin vrany parents: diff changeset	111	"Created: / 24-03-2010 / 20:49:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	112	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	113
ce5e1fc44d81 initial checkin vrany parents: diff changeset	114	versionB24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	115
ce5e1fc44d81 initial checkin vrany parents: diff changeset	116	^ToolbarIconLibrary versionB24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	117
ce5e1fc44d81 initial checkin vrany parents: diff changeset	118	"Created: / 24-03-2010 / 20:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	119	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	120
ce5e1fc44d81 initial checkin vrany parents: diff changeset	121	!ChangeSetDiffTool class methodsFor:'interface specs'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	122
ce5e1fc44d81 initial checkin vrany parents: diff changeset	123	labelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	124	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	125	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	126
ce5e1fc44d81 initial checkin vrany parents: diff changeset	127	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	128	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	129
ce5e1fc44d81 initial checkin vrany parents: diff changeset	130	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	131	UIPainter new openOnClass:SVN::DiffBrowser andSelector:#labelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	132	SVN::DiffBrowser new openInterface:#labelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	133	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	134
ce5e1fc44d81 initial checkin vrany parents: diff changeset	135	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	136
ce5e1fc44d81 initial checkin vrany parents: diff changeset	137	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	138	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	139	name: labelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	140	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	141	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	142	label: 'Label'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	143	name: 'Label'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	144	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	145	bounds: (Rectangle 0 0 600 48)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	146	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	147	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	148	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	149	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	150	(UISubSpecification
ce5e1fc44d81 initial checkin vrany parents: diff changeset	151	name: 'LabelA'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	152	layout: (LayoutFrame 0 0 0 0 0 1 0 0.5)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	153	minorKey: versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	154	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	155	(UISubSpecification
ce5e1fc44d81 initial checkin vrany parents: diff changeset	156	name: 'LabelB'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	157	layout: (LayoutFrame 0 0 0 0.5 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	158	minorKey: versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	159	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	160	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	161
ce5e1fc44d81 initial checkin vrany parents: diff changeset	162	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	163	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	164	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	165
ce5e1fc44d81 initial checkin vrany parents: diff changeset	166	oneColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	167	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	168	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	169
ce5e1fc44d81 initial checkin vrany parents: diff changeset	170	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	171	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	172
ce5e1fc44d81 initial checkin vrany parents: diff changeset	173	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	174	UIPainter new openOnClass:Tools::ChangeSetDiffBrowser andSelector:#oneColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	175	Tools::ChangeSetDiffBrowser new openInterface:#oneColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	176	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	177
ce5e1fc44d81 initial checkin vrany parents: diff changeset	178	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	179
ce5e1fc44d81 initial checkin vrany parents: diff changeset	180	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	181	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	182	name: oneColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	183	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	184	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	185	label: 'One Column Navigator'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	186	name: 'One Column Navigator'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	187	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	188	bounds: (Rectangle 0 0 300 300)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	189	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	190	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	191	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	192	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	193	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	194	name: 'DiffList'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	195	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	196	hasHorizontalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	197	hasVerticalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	198	majorKey: #'Tools::ChangeSetDiffList'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	199	subAspectHolders:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	200	(Array
ce5e1fc44d81 initial checkin vrany parents: diff changeset	201
ce5e1fc44d81 initial checkin vrany parents: diff changeset	202	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	203	subAspect: inGeneratorHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	204	aspect: diffsetHolderPrivate
ce5e1fc44d81 initial checkin vrany parents: diff changeset	205	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	206	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	207	subAspect: listEntryLabelGenerator
ce5e1fc44d81 initial checkin vrany parents: diff changeset	208	aspect: diffListEntryLabelGeneratorAspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	209	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	210
ce5e1fc44d81 initial checkin vrany parents: diff changeset	211	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	212	subAspect: menuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	213	aspect: listMenuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	214	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	215	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	216	subAspect: outGeneratorHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	217	aspect: selectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	218	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	219	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	220	createNewApplication: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	221	createNewBuilder: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	222	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	223	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	224
ce5e1fc44d81 initial checkin vrany parents: diff changeset	225	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	226	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	227	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	228
ce5e1fc44d81 initial checkin vrany parents: diff changeset	229	twoColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	230	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	231	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	232
ce5e1fc44d81 initial checkin vrany parents: diff changeset	233	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	234	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	235
ce5e1fc44d81 initial checkin vrany parents: diff changeset	236	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	237	UIPainter new openOnClass:Tools::ChangeSetDiffBrowser andSelector:#twoColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	238	Tools::ChangeSetDiffBrowser new openInterface:#twoColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	239	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	240
ce5e1fc44d81 initial checkin vrany parents: diff changeset	241	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	242
ce5e1fc44d81 initial checkin vrany parents: diff changeset	243	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	244	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	245	name: twoColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	246	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	247	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	248	label: 'Two Column Navigator'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	249	name: 'Two Column Navigator'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	250	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	251	bounds: (Rectangle 0 0 300 300)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	252	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	253	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	254	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	255	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	256	(VariableHorizontalPanelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	257	name: 'Columns'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	258	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	259	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	260	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	261	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	262	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	263	name: 'FirstColumn'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	264	hasHorizontalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	265	hasVerticalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	266	majorKey: #'Tools::ChangeSetDiffList'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	267	subAspectHolders:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	268	(Array
ce5e1fc44d81 initial checkin vrany parents: diff changeset	269
ce5e1fc44d81 initial checkin vrany parents: diff changeset	270	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	271	subAspect: inGeneratorHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	272	aspect: diffsetHolderPrivate
ce5e1fc44d81 initial checkin vrany parents: diff changeset	273	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	274	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	275	subAspect: listEntryLabelGenerator
ce5e1fc44d81 initial checkin vrany parents: diff changeset	276	aspect: diffListEntryLabelGeneratorAspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	277	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	278
ce5e1fc44d81 initial checkin vrany parents: diff changeset	279	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	280	subAspect: menuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	281	aspect: listMenuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	282	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	283	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	284	subAspect: outGeneratorHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	285	aspect: firstColSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	286	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	287	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	288	createNewApplication: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	289	createNewBuilder: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	290	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	291	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	292	name: 'SecondColumn'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	293	hasHorizontalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	294	hasVerticalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	295	majorKey: #'Tools::ChangeSetDiffList'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	296	subAspectHolders:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	297	(Array
ce5e1fc44d81 initial checkin vrany parents: diff changeset	298
ce5e1fc44d81 initial checkin vrany parents: diff changeset	299	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	300	subAspect: inGeneratorHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	301	aspect: firstColSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	302	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	303	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	304	subAspect: listEntryLabelGenerator
ce5e1fc44d81 initial checkin vrany parents: diff changeset	305	aspect: diffListEntryLabelGeneratorAspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	306	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	307
ce5e1fc44d81 initial checkin vrany parents: diff changeset	308	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	309	subAspect: menuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	310	aspect: listMenuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	311	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	312	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	313	subAspect: outGeneratorHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	314	aspect: selectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	315	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	316	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	317	createNewApplication: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	318	createNewBuilder: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	319	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	320	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	321
ce5e1fc44d81 initial checkin vrany parents: diff changeset	322	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	323	handles: (Any 0.5 1.0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	324	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	325	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	326
ce5e1fc44d81 initial checkin vrany parents: diff changeset	327	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	328	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	329	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	330
ce5e1fc44d81 initial checkin vrany parents: diff changeset	331	windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	332	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	333	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	334
ce5e1fc44d81 initial checkin vrany parents: diff changeset	335	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	336	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	337
ce5e1fc44d81 initial checkin vrany parents: diff changeset	338	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	339	UIPainter new openOnClass:Tools::ChangeSetDiffTool andSelector:#windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	340	Tools::ChangeSetDiffTool new openInterface:#windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	341	Tools::ChangeSetDiffTool open
ce5e1fc44d81 initial checkin vrany parents: diff changeset	342	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	343
ce5e1fc44d81 initial checkin vrany parents: diff changeset	344	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	345
ce5e1fc44d81 initial checkin vrany parents: diff changeset	346	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	347	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	348	name: windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	349	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	350	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	351	label: 'Diff Browser'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	352	name: 'Diff Browser'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	353	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	354	bounds: (Rectangle 0 0 665 397)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	355	menu: mainMenu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	356	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	357	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	358	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	359	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	360	(UISubSpecification
ce5e1fc44d81 initial checkin vrany parents: diff changeset	361	name: 'Label'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	362	layout: (LayoutFrame 0 0 0 0 0 1 56 0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	363	minorKey: labelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	364	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	365	(VariableVerticalPanelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	366	name: 'Panel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	367	layout: (LayoutFrame 0 0 56 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	368	showHandle: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	369	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	370	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	371	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	372	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	373	name: 'NavigatorPanel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	374	hasHorizontalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	375	hasVerticalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	376	specHolder: navigatorPanelSpecHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	377	createNewBuilder: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	378	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	379	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	380	name: 'TextDiff'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	381	majorKey: #'Tools::TextDiffTool'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	382	minorKey: windowSpecForEmbedding
ce5e1fc44d81 initial checkin vrany parents: diff changeset	383	subAspectHolders:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	384	(Array
ce5e1fc44d81 initial checkin vrany parents: diff changeset	385
ce5e1fc44d81 initial checkin vrany parents: diff changeset	386	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	387	subAspect: labelAHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	388	aspect: versionALabelHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	389	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	390	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	391	subAspect: labelBHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	392	aspect: versionBLabelHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	393	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	394
ce5e1fc44d81 initial checkin vrany parents: diff changeset	395	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	396	subAspect: textAHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	397	aspect: versionATextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	398	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	399	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	400	subAspect: textBHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	401	aspect: versionBTextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	402	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	403	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	404	createNewApplication: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	405	createNewBuilder: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	406	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	407	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	408
ce5e1fc44d81 initial checkin vrany parents: diff changeset	409	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	410	handles: (Any 0.5 1.0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	411	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	412	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	413
ce5e1fc44d81 initial checkin vrany parents: diff changeset	414	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	415	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	416	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	417
ce5e1fc44d81 initial checkin vrany parents: diff changeset	418	!ChangeSetDiffTool class methodsFor:'interface specs - labels'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	419
ce5e1fc44d81 initial checkin vrany parents: diff changeset	420	versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	421	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	422	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	423
ce5e1fc44d81 initial checkin vrany parents: diff changeset	424	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	425	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	426
ce5e1fc44d81 initial checkin vrany parents: diff changeset	427	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	428	UIPainter new openOnClass:Tools::ChangeSetDiffTool andSelector:#versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	429	Tools::ChangeSetDiffTool new openInterface:#versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	430	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	431
ce5e1fc44d81 initial checkin vrany parents: diff changeset	432	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	433
ce5e1fc44d81 initial checkin vrany parents: diff changeset	434	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	435	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	436	name: versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	437	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	438	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	439	label: 'Version A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	440	name: 'Version A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	441	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	442	bounds: (Rectangle 0 0 300 30)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	443	backgroundColor: (Color 79.6078431372549 90.5882352941177 69.4117647058823)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	444	forceRecursiveBackground: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	445	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	446	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	447	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	448	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	449	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	450	label: 'versionA24x24'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	451	name: 'VersionAIcon'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	452	layout: (LayoutFrame 0 0 -12 0.5 27 0 12 0.5)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	453	hasCharacterOrientedLabel: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	454	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	455	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	456	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	457	label: 'Version A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	458	name: 'VersionALabel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	459	layout: (LayoutFrame 30 0 0 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	460	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	461	labelChannel: versionALabelHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	462	resizeForLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	463	adjust: left
ce5e1fc44d81 initial checkin vrany parents: diff changeset	464	)
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	465	(LabelSpec
1d7029646c90 added: vrany parents: 10939 diff changeset	466	label: '(A)'
1d7029646c90 added: vrany parents: 10939 diff changeset	467	name: 'ALabel'
1d7029646c90 added: vrany parents: 10939 diff changeset	468	layout: (LayoutFrame -30 1 0 0 0 1 0 1)
1d7029646c90 added: vrany parents: 10939 diff changeset	469	translateLabel: true
1d7029646c90 added: vrany parents: 10939 diff changeset	470	)
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	471	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	472
ce5e1fc44d81 initial checkin vrany parents: diff changeset	473	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	474	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	475	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	476
ce5e1fc44d81 initial checkin vrany parents: diff changeset	477	versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	478	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	479	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	480
ce5e1fc44d81 initial checkin vrany parents: diff changeset	481	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	482	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	483
ce5e1fc44d81 initial checkin vrany parents: diff changeset	484	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	485	UIPainter new openOnClass:Tools::ChangeSetDiffTool andSelector:#versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	486	Tools::ChangeSetDiffTool new openInterface:#versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	487	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	488
ce5e1fc44d81 initial checkin vrany parents: diff changeset	489	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	490
ce5e1fc44d81 initial checkin vrany parents: diff changeset	491	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	492	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	493	name: versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	494	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	495	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	496	label: 'Version B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	497	name: 'Version B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	498	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	499	bounds: (Rectangle 0 0 300 30)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	500	backgroundColor: (Color 100.0 90.5882352941177 60.0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	501	forceRecursiveBackground: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	502	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	503	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	504	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	505	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	506	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	507	label: 'versionB24x24'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	508	name: 'VersionBIcon'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	509	layout: (LayoutFrame 0 0 -12 0.5 27 0 12 0.5)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	510	hasCharacterOrientedLabel: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	511	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	512	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	513	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	514	label: 'Version B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	515	name: 'VersionBLabel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	516	layout: (LayoutFrame 30 0 0 0 167 0 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	517	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	518	labelChannel: versionBLabelHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	519	resizeForLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	520	adjust: left
ce5e1fc44d81 initial checkin vrany parents: diff changeset	521	useDynamicPreferredWidth: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	522	usePreferredWidth: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	523	)
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	524	(LabelSpec
1d7029646c90 added: vrany parents: 10939 diff changeset	525	label: '(B)'
1d7029646c90 added: vrany parents: 10939 diff changeset	526	name: 'BLabel'
1d7029646c90 added: vrany parents: 10939 diff changeset	527	layout: (LayoutFrame -30 1 0 0 0 1 0 1)
1d7029646c90 added: vrany parents: 10939 diff changeset	528	translateLabel: true
1d7029646c90 added: vrany parents: 10939 diff changeset	529	)
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	530	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	531
ce5e1fc44d81 initial checkin vrany parents: diff changeset	532	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	533	)
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	534
1d7029646c90 added: vrany parents: 10939 diff changeset	535	"Modified: / 16-12-2011 / 14:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	536	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	537
ce5e1fc44d81 initial checkin vrany parents: diff changeset	538	!ChangeSetDiffTool class methodsFor:'menu specs'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	539
ce5e1fc44d81 initial checkin vrany parents: diff changeset	540	listMenu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	541	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	542	by the MenuEditor of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	543
ce5e1fc44d81 initial checkin vrany parents: diff changeset	544	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	545	the MenuEditor may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	546
ce5e1fc44d81 initial checkin vrany parents: diff changeset	547	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	548	MenuEditor new openOnClass:SVN::DiffBrowser andSelector:#listMenu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	549	(Menu new fromLiteralArrayEncoding:(SVN::DiffBrowser listMenu)) startUp
ce5e1fc44d81 initial checkin vrany parents: diff changeset	550	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	551
ce5e1fc44d81 initial checkin vrany parents: diff changeset	552	<resource: #menu>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	553
ce5e1fc44d81 initial checkin vrany parents: diff changeset	554	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	555	#(Menu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	556	(
ce5e1fc44d81 initial checkin vrany parents: diff changeset	557	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	558	label: 'Browse'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	559	itemValue: listMenuBrowse
ce5e1fc44d81 initial checkin vrany parents: diff changeset	560	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	561	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	562	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	563	label: '-'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	564	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	565	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	566	label: 'Load version A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	567	itemValue: listMenuLoadVersionA
ce5e1fc44d81 initial checkin vrany parents: diff changeset	568	nameKey: LoadVersionA
ce5e1fc44d81 initial checkin vrany parents: diff changeset	569	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	570	labelImage: (ResourceRetriever #'SVN::IconLibrary' versionA16x16 'Load version A')
ce5e1fc44d81 initial checkin vrany parents: diff changeset	571	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	572	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	573	label: 'Load version B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	574	itemValue: listMenuLoadVersionB
ce5e1fc44d81 initial checkin vrany parents: diff changeset	575	nameKey: LoadVersionB
ce5e1fc44d81 initial checkin vrany parents: diff changeset	576	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	577	labelImage: (ResourceRetriever #'SVN::IconLibrary' versionB16x16 'Load version B')
ce5e1fc44d81 initial checkin vrany parents: diff changeset	578	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	579	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	580	label: '-'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	581	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	582	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	583	enabled: hasSelection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	584	label: 'Inspect'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	585	itemValue: listMenuInspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	586	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	587	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	588	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	589	nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	590	nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	591	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	592	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	593
ce5e1fc44d81 initial checkin vrany parents: diff changeset	594	mainMenu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	595	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	596	by the MenuEditor of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	597
ce5e1fc44d81 initial checkin vrany parents: diff changeset	598	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	599	the MenuEditor may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	600
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	601
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	602	"
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	603	MenuEditor new openOnClass:Tools::ChangeSetDiffTool andSelector:#mainMenu
1d7029646c90 added: vrany parents: 10939 diff changeset	604	(Menu new fromLiteralArrayEncoding:(Tools::ChangeSetDiffTool mainMenu)) startUp
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	605	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	606
ce5e1fc44d81 initial checkin vrany parents: diff changeset	607	<resource: #menu>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	608
ce5e1fc44d81 initial checkin vrany parents: diff changeset	609	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	610	#(Menu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	611	(
ce5e1fc44d81 initial checkin vrany parents: diff changeset	612	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	613	label: 'File'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	614	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	615	submenu:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	616	(Menu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	617	(
ce5e1fc44d81 initial checkin vrany parents: diff changeset	618	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	619	label: 'Open'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	620	itemValue: fileMenuOpen
ce5e1fc44d81 initial checkin vrany parents: diff changeset	621	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	622	shortcutKey: Ctrlo
ce5e1fc44d81 initial checkin vrany parents: diff changeset	623	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	624	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	625	enabled: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	626	label: 'Save as patch '
ce5e1fc44d81 initial checkin vrany parents: diff changeset	627	itemValue: fileMenuSaveAsPatch
ce5e1fc44d81 initial checkin vrany parents: diff changeset	628	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	629	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	630	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	631	label: '-'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	632	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	633	(MenuItem
ce5e1fc44d81 initial checkin vrany parents: diff changeset	634	label: 'Exit'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	635	itemValue: closeRequest
ce5e1fc44d81 initial checkin vrany parents: diff changeset	636	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	637	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	638	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	639	nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	640	nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	641	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	642	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	643	(MenuItem
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	644	label: 'Changeset'
1d7029646c90 added: vrany parents: 10939 diff changeset	645	translateLabel: true
1d7029646c90 added: vrany parents: 10939 diff changeset	646	submenu:
1d7029646c90 added: vrany parents: 10939 diff changeset	647	(Menu
1d7029646c90 added: vrany parents: 10939 diff changeset	648	(
1d7029646c90 added: vrany parents: 10939 diff changeset	649	(MenuItem
1d7029646c90 added: vrany parents: 10939 diff changeset	650	label: 'Browse changes (A)'
1d7029646c90 added: vrany parents: 10939 diff changeset	651	itemValue: changesetMenuBrowseA
1d7029646c90 added: vrany parents: 10939 diff changeset	652	translateLabel: true
1d7029646c90 added: vrany parents: 10939 diff changeset	653	)
1d7029646c90 added: vrany parents: 10939 diff changeset	654	(MenuItem
1d7029646c90 added: vrany parents: 10939 diff changeset	655	label: 'Browse changes (B)'
1d7029646c90 added: vrany parents: 10939 diff changeset	656	itemValue: changesetMenuBrowseB
1d7029646c90 added: vrany parents: 10939 diff changeset	657	translateLabel: true
1d7029646c90 added: vrany parents: 10939 diff changeset	658	)
1d7029646c90 added: vrany parents: 10939 diff changeset	659
1d7029646c90 added: vrany parents: 10939 diff changeset	660	)
1d7029646c90 added: vrany parents: 10939 diff changeset	661	nil
1d7029646c90 added: vrany parents: 10939 diff changeset	662	nil
1d7029646c90 added: vrany parents: 10939 diff changeset	663	)
1d7029646c90 added: vrany parents: 10939 diff changeset	664	)
1d7029646c90 added: vrany parents: 10939 diff changeset	665	(MenuItem
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	666	label: 'Diff'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	667	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	668	submenuChannel: listMenu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	669	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	670	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	671	nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	672	nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	673	)
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	674
1d7029646c90 added: vrany parents: 10939 diff changeset	675	"Modified: / 16-12-2011 / 14:24:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	676	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	677
ce5e1fc44d81 initial checkin vrany parents: diff changeset	678	!ChangeSetDiffTool class methodsFor:'plugIn spec'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	679
ce5e1fc44d81 initial checkin vrany parents: diff changeset	680	aspectSelectors
ce5e1fc44d81 initial checkin vrany parents: diff changeset	681	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	682	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	683
ce5e1fc44d81 initial checkin vrany parents: diff changeset	684	"Do not manually edit this. If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	685	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	686
ce5e1fc44d81 initial checkin vrany parents: diff changeset	687	"Return a description of exported aspects;
ce5e1fc44d81 initial checkin vrany parents: diff changeset	688	these can be connected to aspects of an embedding application
ce5e1fc44d81 initial checkin vrany parents: diff changeset	689	(if this app is embedded in a subCanvas)."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	690
ce5e1fc44d81 initial checkin vrany parents: diff changeset	691	^ #(
ce5e1fc44d81 initial checkin vrany parents: diff changeset	692	#diffsetHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	693	).
ce5e1fc44d81 initial checkin vrany parents: diff changeset	694
ce5e1fc44d81 initial checkin vrany parents: diff changeset	695	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	696
ce5e1fc44d81 initial checkin vrany parents: diff changeset	697	!ChangeSetDiffTool methodsFor:'accessing'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	698
ce5e1fc44d81 initial checkin vrany parents: diff changeset	699	beSingleColumn
ce5e1fc44d81 initial checkin vrany parents: diff changeset	700
ce5e1fc44d81 initial checkin vrany parents: diff changeset	701	self navigatorPanelSpecHolder value: #oneColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	702
ce5e1fc44d81 initial checkin vrany parents: diff changeset	703	"Created: / 20-11-2009 / 20:41:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	704	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	705
ce5e1fc44d81 initial checkin vrany parents: diff changeset	706	beTwoColumn
ce5e1fc44d81 initial checkin vrany parents: diff changeset	707
ce5e1fc44d81 initial checkin vrany parents: diff changeset	708	self navigatorPanelSpecHolder value: #twoColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	709
ce5e1fc44d81 initial checkin vrany parents: diff changeset	710	"Created: / 20-11-2009 / 20:42:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	711	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	712
ce5e1fc44d81 initial checkin vrany parents: diff changeset	713	beTwoColumn: aBoolean
ce5e1fc44d81 initial checkin vrany parents: diff changeset	714
ce5e1fc44d81 initial checkin vrany parents: diff changeset	715	aBoolean
ce5e1fc44d81 initial checkin vrany parents: diff changeset	716	ifTrue:[self beTwoColumn]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	717	ifFalse:[self beSingleColumn]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	718
ce5e1fc44d81 initial checkin vrany parents: diff changeset	719	"Created: / 20-11-2009 / 20:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	720	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	721
ce5e1fc44d81 initial checkin vrany parents: diff changeset	722	diffset
ce5e1fc44d81 initial checkin vrany parents: diff changeset	723
ce5e1fc44d81 initial checkin vrany parents: diff changeset	724	^self diffsetHolder value
ce5e1fc44d81 initial checkin vrany parents: diff changeset	725
ce5e1fc44d81 initial checkin vrany parents: diff changeset	726	"Created: / 05-12-2009 / 11:53:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	727	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	728
ce5e1fc44d81 initial checkin vrany parents: diff changeset	729	diffset: aDiff3Set
ce5e1fc44d81 initial checkin vrany parents: diff changeset	730
ce5e1fc44d81 initial checkin vrany parents: diff changeset	731	self diffsetHolder value: aDiff3Set
ce5e1fc44d81 initial checkin vrany parents: diff changeset	732
ce5e1fc44d81 initial checkin vrany parents: diff changeset	733	"Created: / 01-11-2009 / 09:33:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	734	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	735
ce5e1fc44d81 initial checkin vrany parents: diff changeset	736	patchset
ce5e1fc44d81 initial checkin vrany parents: diff changeset	737
ce5e1fc44d81 initial checkin vrany parents: diff changeset	738	\| patchset \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	739	patchset := ChangeSet new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	740	self diffset do:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	741	[:diff\|patchset add:diff versionA].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	742	^patchset
ce5e1fc44d81 initial checkin vrany parents: diff changeset	743
ce5e1fc44d81 initial checkin vrany parents: diff changeset	744	"Created: / 05-12-2009 / 11:54:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	745	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	746
ce5e1fc44d81 initial checkin vrany parents: diff changeset	747	selection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	748
ce5e1fc44d81 initial checkin vrany parents: diff changeset	749	^self selectionHolder value
ce5e1fc44d81 initial checkin vrany parents: diff changeset	750
ce5e1fc44d81 initial checkin vrany parents: diff changeset	751	"Created: / 22-10-2008 / 11:30:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	752	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	753
ce5e1fc44d81 initial checkin vrany parents: diff changeset	754	selection: selection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	755
ce5e1fc44d81 initial checkin vrany parents: diff changeset	756	^self selectionHolder value: selection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	757
ce5e1fc44d81 initial checkin vrany parents: diff changeset	758	"Created: / 22-10-2008 / 11:30:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	759	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	760
ce5e1fc44d81 initial checkin vrany parents: diff changeset	761	title: aString
ce5e1fc44d81 initial checkin vrany parents: diff changeset	762
ce5e1fc44d81 initial checkin vrany parents: diff changeset	763	self titleHolder value: aString
ce5e1fc44d81 initial checkin vrany parents: diff changeset	764
ce5e1fc44d81 initial checkin vrany parents: diff changeset	765	"Created: / 19-11-2009 / 15:44:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	766	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	767
ce5e1fc44d81 initial checkin vrany parents: diff changeset	768	!ChangeSetDiffTool methodsFor:'accessing - selection'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	769
ce5e1fc44d81 initial checkin vrany parents: diff changeset	770	theSingleSelectedObject
ce5e1fc44d81 initial checkin vrany parents: diff changeset	771
ce5e1fc44d81 initial checkin vrany parents: diff changeset	772	\| sel selSize obj \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	773	sel := self selection.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	774
ce5e1fc44d81 initial checkin vrany parents: diff changeset	775	(sel isCollection and:[self isString not])
ce5e1fc44d81 initial checkin vrany parents: diff changeset	776	ifFalse:[^sel].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	777
ce5e1fc44d81 initial checkin vrany parents: diff changeset	778	selSize := 0.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	779	obj := nil.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	780	sel do:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	781	[:each\|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	782	selSize := selSize + 1.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	783	selSize > 1 ifTrue:[^nil].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	784	obj := each].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	785	^obj
ce5e1fc44d81 initial checkin vrany parents: diff changeset	786
ce5e1fc44d81 initial checkin vrany parents: diff changeset	787	"Created: / 10-11-2009 / 11:12:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	788	"Modified: / 20-11-2009 / 19:54:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	789	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	790
ce5e1fc44d81 initial checkin vrany parents: diff changeset	791	!ChangeSetDiffTool methodsFor:'aspects'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	792
ce5e1fc44d81 initial checkin vrany parents: diff changeset	793	diffListEntryLabelGeneratorAspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	794
ce5e1fc44d81 initial checkin vrany parents: diff changeset	795	^nil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	796
ce5e1fc44d81 initial checkin vrany parents: diff changeset	797	"Created: / 24-11-2009 / 10:01:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	798	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	799
ce5e1fc44d81 initial checkin vrany parents: diff changeset	800	diffsetHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	801	"return/create the 'diffsetHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	802
ce5e1fc44d81 initial checkin vrany parents: diff changeset	803	diffsetHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	804	diffsetHolder := ValueHolder new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	805	diffsetHolder addDependent:self.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	806	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	807	^ diffsetHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	808	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	809
ce5e1fc44d81 initial checkin vrany parents: diff changeset	810	diffsetHolder:aValueHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	811	"set the 'diffsetHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	812
ce5e1fc44d81 initial checkin vrany parents: diff changeset	813	\|oldValue newValue\|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	814
ce5e1fc44d81 initial checkin vrany parents: diff changeset	815	diffsetHolder notNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	816	oldValue := diffsetHolder value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	817	diffsetHolder removeDependent:self.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	818	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	819	diffsetHolder := aValueHolder.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	820	diffsetHolder notNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	821	diffsetHolder addDependent:self.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	822	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	823	newValue := diffsetHolder value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	824	oldValue ~~ newValue ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	825	self update:#value with:newValue from:diffsetHolder.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	826	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	827	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	828
ce5e1fc44d81 initial checkin vrany parents: diff changeset	829	diffsetHolderPrivate
ce5e1fc44d81 initial checkin vrany parents: diff changeset	830	"return/create the 'diffSetHolderPrivate' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	831
ce5e1fc44d81 initial checkin vrany parents: diff changeset	832	diffsetHolderPrivate isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	833	diffsetHolderPrivate := ValueHolder with: (self diffsetHolder value).
ce5e1fc44d81 initial checkin vrany parents: diff changeset	834	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	835	^ diffsetHolderPrivate
ce5e1fc44d81 initial checkin vrany parents: diff changeset	836
ce5e1fc44d81 initial checkin vrany parents: diff changeset	837	"Created: / 05-12-2009 / 11:03:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	838	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	839
ce5e1fc44d81 initial checkin vrany parents: diff changeset	840	firstColSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	841	"return/create the valueHolder 'firstColSelectionHolder'"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	842
ce5e1fc44d81 initial checkin vrany parents: diff changeset	843	firstColSelectionHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	844	firstColSelectionHolder := ValueHolder with:nil "defaultValue here".
ce5e1fc44d81 initial checkin vrany parents: diff changeset	845	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	846	^ firstColSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	847	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	848
ce5e1fc44d81 initial checkin vrany parents: diff changeset	849	hasSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	850
ce5e1fc44d81 initial checkin vrany parents: diff changeset	851	\|holder\|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	852
ce5e1fc44d81 initial checkin vrany parents: diff changeset	853	(holder := builder bindingAt:#hasSelectionHolder) isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	854	holder := (AspectAdaptor forAspect: #notEmptyOrNil)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	855	subjectChannel: self selectionHolder.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	856	builder aspectAt:#hasSelectionHolder put: holder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	857	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	858	^ holder.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	859
ce5e1fc44d81 initial checkin vrany parents: diff changeset	860	"Created: / 22-10-2008 / 11:34:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	861	"Modified: / 22-10-2008 / 12:38:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	862	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	863
ce5e1fc44d81 initial checkin vrany parents: diff changeset	864	listHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	865	"return/create the 'listHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	866
ce5e1fc44d81 initial checkin vrany parents: diff changeset	867	listHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	868	listHolder := ValueHolder new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	869	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	870	^ listHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	871
ce5e1fc44d81 initial checkin vrany parents: diff changeset	872	"Modified: / 01-11-2009 / 16:57:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	873	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	874
ce5e1fc44d81 initial checkin vrany parents: diff changeset	875	listMenuHolder
10879 0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	876	diffMenuHolder isNil ifTrue:[
0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	877	diffMenuHolder := ValueHolder with:(Menu decodeFromLiteralArray: self class listMenu)
0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	878	].
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	879	^ diffMenuHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	880
ce5e1fc44d81 initial checkin vrany parents: diff changeset	881	"Created: / 21-11-2009 / 18:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	882	"Modified: / 09-12-2009 / 23:34:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10879 0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	883	"Modified: / 18-11-2011 / 14:57:47 / cg"
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	884	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	885
ce5e1fc44d81 initial checkin vrany parents: diff changeset	886	nameAspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	887
ce5e1fc44d81 initial checkin vrany parents: diff changeset	888	^(AspectAdaptor forAspect: #name)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	889	subjectChannel: self diffsetHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	890
ce5e1fc44d81 initial checkin vrany parents: diff changeset	891	"Created: / 01-11-2009 / 11:14:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	892	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	893
ce5e1fc44d81 initial checkin vrany parents: diff changeset	894	navigatorPanelSpecHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	895	<resource: #uiAspect>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	896
ce5e1fc44d81 initial checkin vrany parents: diff changeset	897	navigatorPanelSpecHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	898	navigatorPanelSpecHolder := ValueHolder with: #twoColumnNavigatorSpec.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	899	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	900	^ navigatorPanelSpecHolder.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	901
ce5e1fc44d81 initial checkin vrany parents: diff changeset	902	"Modified: / 20-11-2009 / 20:12:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	903	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	904
ce5e1fc44d81 initial checkin vrany parents: diff changeset	905	selectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	906	"return/create the 'selectionHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	907
ce5e1fc44d81 initial checkin vrany parents: diff changeset	908	selectionHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	909
ce5e1fc44d81 initial checkin vrany parents: diff changeset	910	selectionHolder := ValueHolder new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	911	selectionHolder addDependent:self.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	912	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	913	^ selectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	914
ce5e1fc44d81 initial checkin vrany parents: diff changeset	915	"Modified (format): / 06-07-2011 / 12:25:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	916	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	917
ce5e1fc44d81 initial checkin vrany parents: diff changeset	918	singleSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	919	"return/create the 'singleSelectionHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	920
ce5e1fc44d81 initial checkin vrany parents: diff changeset	921	singleSelectionHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	922	singleSelectionHolder := ValueHolder new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	923	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	924	^ singleSelectionHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	925
ce5e1fc44d81 initial checkin vrany parents: diff changeset	926	"Modified: / 10-11-2009 / 11:09:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	927	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	928
ce5e1fc44d81 initial checkin vrany parents: diff changeset	929	titleHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	930	"return/create the 'titleHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	931
ce5e1fc44d81 initial checkin vrany parents: diff changeset	932	titleHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	933	titleHolder := ValueHolder with: 'Diff Browser'.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	934	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	935	^ titleHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	936
ce5e1fc44d81 initial checkin vrany parents: diff changeset	937	"Modified: / 01-11-2009 / 14:04:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	938	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	939
ce5e1fc44d81 initial checkin vrany parents: diff changeset	940	versionALabelHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	941
ce5e1fc44d81 initial checkin vrany parents: diff changeset	942	^(AspectAdaptor forAspect: #versionALabel)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	943	subjectChannel: self diffsetHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	944
ce5e1fc44d81 initial checkin vrany parents: diff changeset	945	"Created: / 09-04-2011 / 23:30:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	946	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	947
ce5e1fc44d81 initial checkin vrany parents: diff changeset	948	versionATextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	949
10879 0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	950	versionATextHolder isNil ifTrue:[
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	951	versionATextHolder := ValueHolder new
ce5e1fc44d81 initial checkin vrany parents: diff changeset	952	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	953	^versionATextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	954
ce5e1fc44d81 initial checkin vrany parents: diff changeset	955	"Created: / 06-07-2011 / 12:05:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10879 0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	956	"Modified: / 18-11-2011 / 14:57:56 / cg"
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	957	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	958
ce5e1fc44d81 initial checkin vrany parents: diff changeset	959	versionBLabelHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	960
ce5e1fc44d81 initial checkin vrany parents: diff changeset	961	^(AspectAdaptor forAspect: #versionBLabel)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	962	subjectChannel: self diffsetHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	963
ce5e1fc44d81 initial checkin vrany parents: diff changeset	964	"Created: / 09-04-2011 / 23:30:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	965	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	966
ce5e1fc44d81 initial checkin vrany parents: diff changeset	967	versionBTextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	968
10879 0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	969	versionBTextHolder isNil ifTrue:[
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	970	versionBTextHolder := ValueHolder new
ce5e1fc44d81 initial checkin vrany parents: diff changeset	971	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	972	^versionBTextHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	973
ce5e1fc44d81 initial checkin vrany parents: diff changeset	974	"Created: / 06-07-2011 / 12:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10879 0dc2095adecf changed: Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	975	"Modified: / 18-11-2011 / 14:57:59 / cg"
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	976	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	977
ce5e1fc44d81 initial checkin vrany parents: diff changeset	978	!ChangeSetDiffTool methodsFor:'change & update'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	979
ce5e1fc44d81 initial checkin vrany parents: diff changeset	980	diffsetChanged
ce5e1fc44d81 initial checkin vrany parents: diff changeset	981
ce5e1fc44d81 initial checkin vrany parents: diff changeset	982	\| ds \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	983
ce5e1fc44d81 initial checkin vrany parents: diff changeset	984	ds := self diffsetHolder value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	985
ce5e1fc44d81 initial checkin vrany parents: diff changeset	986	self diffsetHolderPrivate value:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	987	(self isOneColumnBrowser
ce5e1fc44d81 initial checkin vrany parents: diff changeset	988	ifTrue:[ds flattened]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	989	ifFalse:[ds value]).
ce5e1fc44d81 initial checkin vrany parents: diff changeset	990
ce5e1fc44d81 initial checkin vrany parents: diff changeset	991	self versionALabelHolder value: ds versionALabel.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	992	self versionBLabelHolder value: ds versionBLabel.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	993
ce5e1fc44d81 initial checkin vrany parents: diff changeset	994	"Created: / 05-12-2009 / 11:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	995	"Modified: / 29-06-2011 / 08:24:18 / Jan Vrany <enter your email here>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	996	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	997
ce5e1fc44d81 initial checkin vrany parents: diff changeset	998	selectionChanged
ce5e1fc44d81 initial checkin vrany parents: diff changeset	999
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1000	\| diffItem \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1001
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1002	diffItem := self theSingleSelectedObject.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1003	self singleSelectionHolder value: diffItem.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1004	diffItem isNil ifTrue:[^self].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1005
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1006	self versionATextHolder setValue: diffItem versionAText.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1007	self versionBTextHolder setValue: diffItem versionBText.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1008
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1009	self versionATextHolder changed: #value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1010	self versionBTextHolder changed: #value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1011
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1012	"Created: / 22-10-2008 / 11:29:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1013	"Modified: / 06-07-2011 / 12:47:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1014	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1015
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1016	update: aspect with: param from: sender
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1017
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1018	sender == selectionHolder ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1019	self selectionChanged.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1020	^self.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1021	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1022
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1023	sender == diffsetHolder ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1024	self diffsetChanged.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1025	^self.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1026	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1027
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1028	^super update: aspect with: param from: sender
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1029
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1030	"Created: / 05-12-2009 / 11:02:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1031	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1032
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1033	updateListMenu
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1034	\|menu diffs loadA loadB\|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1035
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1036	menu := self listMenuHolder value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1037	diffs := self selection ? #().
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1038	loadA := menu atNameKey:#LoadVersionA.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1039	loadA disable.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1040	loadB := menu atNameKey:#LoadVersionB.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1041	loadB disable.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1042	(diffs select:[:e \| true ]) do:[:diff \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1043	diff versionA
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1044	ifNotNil:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1045	loadA enable.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1046	loadA label:'Load version ' , diff versionALabel
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1047	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1048	diff versionB
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1049	ifNotNil:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1050	loadB
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1051	label:'Load version ' , diff versionBLabel;
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1052	enable
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1053	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1054	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1055	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1056
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1057	!ChangeSetDiffTool methodsFor:'initialization'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1058
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1059	initialize
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1060
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1061	super initialize.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1062	self createBuilder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1063
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1064	"Created: / 22-10-2008 / 12:37:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1065	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1066
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1067	!ChangeSetDiffTool methodsFor:'menu actions'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1068
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	1069	changesetMenuBrowse: changeset
1d7029646c90 added: vrany parents: 10939 diff changeset	1070
1d7029646c90 added: vrany parents: 10939 diff changeset	1071	Tools::ChangeSetBrowser2 openOn: changeset
1d7029646c90 added: vrany parents: 10939 diff changeset	1072
1d7029646c90 added: vrany parents: 10939 diff changeset	1073	"Created: / 16-12-2011 / 14:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1d7029646c90 added: vrany parents: 10939 diff changeset	1074	!
1d7029646c90 added: vrany parents: 10939 diff changeset	1075
1d7029646c90 added: vrany parents: 10939 diff changeset	1076	changesetMenuBrowseA
1d7029646c90 added: vrany parents: 10939 diff changeset	1077
1d7029646c90 added: vrany parents: 10939 diff changeset	1078	self changesetMenuBrowse: self diffsetHolder value changesetA
1d7029646c90 added: vrany parents: 10939 diff changeset	1079
1d7029646c90 added: vrany parents: 10939 diff changeset	1080	"Created: / 16-12-2011 / 14:23:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1d7029646c90 added: vrany parents: 10939 diff changeset	1081	!
1d7029646c90 added: vrany parents: 10939 diff changeset	1082
1d7029646c90 added: vrany parents: 10939 diff changeset	1083	changesetMenuBrowseB
1d7029646c90 added: vrany parents: 10939 diff changeset	1084
1d7029646c90 added: vrany parents: 10939 diff changeset	1085	self changesetMenuBrowse: self diffsetHolder value changesetB
1d7029646c90 added: vrany parents: 10939 diff changeset	1086
1d7029646c90 added: vrany parents: 10939 diff changeset	1087	"Created: / 16-12-2011 / 14:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1d7029646c90 added: vrany parents: 10939 diff changeset	1088	!
1d7029646c90 added: vrany parents: 10939 diff changeset	1089
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	1090	fileMenuOpen
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1091
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1092	\| dlg a b \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1093	dlg := OpenDialog new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1094	dlg open ifFalse:[^self].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1095	a := dlg changeSetA.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1096	b := dlg changeSetB.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1097	^self fileMenuOpenOnDiffBetween: a and: b
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1098
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1099	"Modified: / 06-07-2011 / 11:36:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1100	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1101
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1102	fileMenuOpenOnDiffBetween: a and: b
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1103
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1104	self diffset: (ChangeSetDiff versionA: a versionB: b).
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1105
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1106	"Created: / 21-03-2011 / 23:23:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1107	"Modified: / 29-06-2011 / 08:10:17 / Jan Vrany <enter your email here>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1108	"Modified: / 06-07-2011 / 12:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1109	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1110
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1111	fileMenuSaveAsPatch
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1112
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1113	\| filename \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1114	filename := Smalltalk::Dialog requestFileName: 'Enter filename' default:'patch.chg' ifFail:[^self].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1115	self patchset fileOutAs: filename.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1116
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1117	"Modified: / 05-12-2009 / 12:37:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1118	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1119
10939 e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1120	listMenuBrowse
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1121
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1122	\| items \|
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1123	items := self selection collect:[:e\|e]. "/must do collect as selection is an iterator..."
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1124	items size == 1 ifTrue:[
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1125	\| item cls sel \|
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1126	item:= items anElement.
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1127	cls := item changeClass.
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1128	sel := item changeSelector.
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1129	cls notNil ifTrue:[
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1130	sel notNil ifTrue:[
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1131	UserPreferences current systemBrowserClass
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1132	openInClass:cls selector:sel
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1133
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1134	] ifFalse:[
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1135	UserPreferences current systemBrowserClass
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1136	browseClass: cls
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1137	]
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1138	] ifFalse:[
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1139	Dialog warn: (self class resources at: 'Oops, class is gone')
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1140	]
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1141	] ifFalse:[
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1142	Dialog error: 'Not yet implemented (Tools::ChangeSetDiffTool>>listMenuBrowse)'.
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1143	]
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1144
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1145	"Created: / 30-11-2011 / 11:30:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1146	!
e8a439fbd82d - added filter support vrany parents: 10879 diff changeset	1147
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	1148	listMenuInspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1149
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1150	(self selection collect:[:e\|e]) inspect
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1151
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1152	"Modified: / 24-11-2009 / 12:51:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1153	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1154
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1155	listMenuLoadVersionA
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1156
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1157	self selection do:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1158	[:diff\|diff versionA apply]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1159
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1160	"Modified: / 09-12-2009 / 23:09:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1161	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1162
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1163	listMenuLoadVersionB
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1164
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1165	self selection do:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1166	[:diff\|diff versionB apply]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1167
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1168	"Modified: / 09-12-2009 / 23:10:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1169	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1170
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1171	!ChangeSetDiffTool methodsFor:'queries'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1172
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1173	canBrowse
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1174
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1175	^true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1176
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1177	"^[self selection notNil
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1178	and:[self selection versionA notNil]]"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1179
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1180	"Created: / 02-11-2009 / 18:32:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1181	"Modified: / 21-11-2009 / 18:46:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1182	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1183
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1184	hasSelection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1185
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1186	^[self selection notNil]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1187
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1188	"Created: / 03-11-2009 / 10:48:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1189	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1190
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1191	isOneColumnBrowser
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1192
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1193	^self navigatorPanelSpecHolder value = #oneColumnNavigatorSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1194
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1195	"Created: / 05-12-2009 / 11:04:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1196	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1197
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1198	!ChangeSetDiffTool::OpenDialog class methodsFor:'image specs'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1199
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1200	versionA24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1201
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1202	^ToolbarIconLibrary versionA24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1203
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1204	"Created: / 24-03-2010 / 20:49:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1205	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1206
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1207	versionB24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1208
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1209	^ToolbarIconLibrary versionB24x24
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1210
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1211	"Created: / 24-03-2010 / 20:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1212	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1213
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1214	!ChangeSetDiffTool::OpenDialog class methodsFor:'interface specs'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1215
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1216	windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1217	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1218	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1219
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1220	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1221	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1222
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1223	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1224	UIPainter new openOnClass:Tools::ChangeSetDiffBrowser::OpenDialog andSelector:#windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1225	Tools::ChangeSetDiffBrowser::OpenDialog new openInterface:#windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1226	Tools::ChangeSetDiffBrowser::OpenDialog open
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1227	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1228
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1229	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1230
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1231	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1232	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1233	name: windowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1234	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1235	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1236	label: 'Open...'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1237	name: 'Open...'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1238	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1239	bounds: (Rectangle 0 0 640 130)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1240	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1241	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1242	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1243	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1244	(VariableHorizontalPanelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1245	name: 'ChangeSetsSpecPanel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1246	layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1247	barWidth: 3
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1248	showHandle: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1249	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1250	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1251	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1252	(ViewSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1253	name: 'A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1254	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1255	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1256	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1257	(UISubSpecification
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1258	name: 'SubSpecification1'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1259	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1260	minorKey: versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1261	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1262	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1263	name: 'ChangesetASpec'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1264	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1265	hasHorizontalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1266	hasVerticalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1267	majorKey: #'Tools::ChangeSetSelectionDialog'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1268	minorKey: windowSpecForEmbedding
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1269	subAspectHolders:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1270	(Array
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1271
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1272	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1273	subAspect: specHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1274	aspect: changesetSpecAHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1275	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1276	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1277	createNewApplication: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1278	createNewBuilder: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1279	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1280	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1281
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1282	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1283	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1284	(ViewSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1285	name: 'B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1286	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1287	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1288	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1289	(UISubSpecification
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1290	name: 'SubSpecification2'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1291	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1292	minorKey: versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1293	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1294	(SubCanvasSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1295	name: 'SubCanvas1'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1296	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1297	hasHorizontalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1298	hasVerticalScrollBar: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1299	majorKey: #'Tools::ChangeSetSelectionDialog'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1300	minorKey: windowSpecForEmbedding
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1301	subAspectHolders:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1302	(Array
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1303
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1304	(SubChannelInfoSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1305	subAspect: specHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1306	aspect: changesetSpecBHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1307	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1308	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1309	createNewApplication: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1310	createNewBuilder: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1311	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1312	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1313
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1314	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1315	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1316	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1317
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1318	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1319	handles: (Any 0.5 1.0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1320	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1321	(HorizontalPanelViewSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1322	name: 'ButtonPanel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1323	layout: (LayoutFrame 3 0 -30 1 -3 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1324	horizontalLayout: right
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1325	verticalLayout: center
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1326	horizontalSpace: 3
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1327	verticalSpace: 3
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1328	reverseOrderIfOKAtLeft: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1329	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1330	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1331	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1332	(ActionButtonSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1333	label: 'OK'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1334	name: 'Button1'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1335	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1336	model: doAccept
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1337	enableChannel: doAcceptEnabled
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1338	extent: (Point 125 22)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1339	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1340	(ActionButtonSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1341	label: 'Cancel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1342	name: 'Button2'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1343	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1344	model: doCancel
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1345	extent: (Point 125 22)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1346	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1347	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1348
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1349	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1350	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1351	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1352
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1353	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1354	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1355
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1356	"Modified: / 06-07-2011 / 11:32:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1357	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1358
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1359	!ChangeSetDiffTool::OpenDialog class methodsFor:'interface specs - labels'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1360
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1361	versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1362	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1363	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1364
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1365	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1366	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1367
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1368	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1369	UIPainter new openOnClass:Tools::ChangeSetDiffBrowser::OpenDialog andSelector:#versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1370	Tools::ChangeSetDiffBrowser::OpenDialog new openInterface:#versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1371	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1372
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1373	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1374
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1375	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1376	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1377	name: versionALabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1378	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1379	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1380	label: 'Version A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1381	name: 'Changeset A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1382	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1383	bounds: (Rectangle 0 0 300 30)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1384	backgroundColor: (Color 79.6078431372549 90.5882352941177 69.4117647058823)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1385	forceRecursiveBackground: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1386	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1387	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1388	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1389	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1390	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1391	label: 'versionA24x24'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1392	name: 'VersionAIcon'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1393	layout: (LayoutFrame 0 0 -12 0.5 27 0 12 0.5)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1394	hasCharacterOrientedLabel: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1395	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1396	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1397	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1398	label: 'Version A'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1399	name: 'VersionALabel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1400	layout: (LayoutFrame 30 0 5 0 0 1 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1401	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1402	resizeForLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1403	adjust: left
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1404	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1405	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1406
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1407	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1408	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1409
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1410	"Modified: / 06-07-2011 / 11:24:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1411	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1412
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1413	versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1414	"This resource specification was automatically generated
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1415	by the UIPainter of ST/X."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1416
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1417	"Do not manually edit this!! If it is corrupted,
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1418	the UIPainter may not be able to read the specification."
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1419
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1420	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1421	UIPainter new openOnClass:Tools::ChangeSetDiffBrowser::OpenDialog andSelector:#versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1422	Tools::ChangeSetDiffBrowser::OpenDialog new openInterface:#versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1423	"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1424
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1425	<resource: #canvas>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1426
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1427	^
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1428	#(FullSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1429	name: versionBLabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1430	window:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1431	(WindowSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1432	label: 'Version B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1433	name: 'Changeset B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1434	min: (Point 10 10)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1435	bounds: (Rectangle 0 0 300 30)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1436	backgroundColor: (Color 100.0 90.5882352941177 60.0)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1437	forceRecursiveBackground: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1438	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1439	component:
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1440	(SpecCollection
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1441	collection: (
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1442	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1443	label: 'versionB24x24'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1444	name: 'VersionBIcon'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1445	layout: (LayoutFrame 0 0 -12 0.5 27 0 12 0.5)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1446	hasCharacterOrientedLabel: false
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1447	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1448	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1449	(LabelSpec
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1450	label: 'Version B'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1451	name: 'VersionBLabel'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1452	layout: (LayoutFrame 30 0 5 0 97 0 0 1)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1453	translateLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1454	resizeForLabel: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1455	adjust: left
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1456	useDynamicPreferredWidth: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1457	usePreferredWidth: true
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1458	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1459	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1460
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1461	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1462	)
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1463
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1464	"Modified: / 06-07-2011 / 11:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1465	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1466
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1467	!ChangeSetDiffTool::OpenDialog methodsFor:'accessing'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1468
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1469	changeSetA
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1470
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1471	\| specA \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1472
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1473	specA := self changesetSpecAHolder value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1474	^specA ifNil:[nil] ifNotNil:[specA changeSet]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1475
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1476	"Created: / 06-07-2011 / 11:36:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1477	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1478
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1479	changeSetB
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1480
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1481	\| specB \|
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1482
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1483	specB := self changesetSpecBHolder value.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1484	^specB ifNil:[nil] ifNotNil:[specB changeSet]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1485
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1486	"Created: / 06-07-2011 / 11:36:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1487	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1488
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1489	!ChangeSetDiffTool::OpenDialog methodsFor:'aspects'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1490
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1491	changesetSpecAHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1492	"return/create the 'changesetSpecAHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1493
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1494	changesetSpecAHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1495	changesetSpecAHolder := ValueHolder new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1496	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1497	^ changesetSpecAHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1498	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1499
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1500	changesetSpecAHolder:something
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1501	"set the 'changesetSpecAHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1502
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1503	changesetSpecAHolder := something.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1504	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1505
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1506	changesetSpecBHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1507	"return/create the 'changesetSpecBHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1508
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1509	changesetSpecBHolder isNil ifTrue:[
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1510	changesetSpecBHolder := ValueHolder new.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1511	].
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1512	^ changesetSpecBHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1513	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1514
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1515	changesetSpecBHolder:something
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1516	"set the 'changesetSpecBHolder' value holder (automatically generated)"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1517
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1518	changesetSpecBHolder := something.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1519	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1520
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1521	doAcceptEnabled
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1522	<resource: #uiAspect>
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1523
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1524	^BlockValue
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1525	with:[:a :b\|a value notNil and:[b value notNil]]
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1526	argument:self changesetSpecAHolder
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1527	argument:self changesetSpecAHolder.
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1528
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1529	"Modified: / 06-07-2011 / 11:26:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1530	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1531
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1532	!ChangeSetDiffTool::OpenDialog methodsFor:'events'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1533
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1534	closeAccept
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1535
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1536	^super closeAccept
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1537
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1538	"Created: / 06-07-2011 / 12:09:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1539	! !
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1540
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1541	!ChangeSetDiffTool class methodsFor:'documentation'!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1542
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1543	version_CVS
10975 1d7029646c90 added: vrany parents: 10939 diff changeset	1544	^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffTool.st,v 1.5 2011-12-19 08:39:53 vrany Exp $'
10194 ce5e1fc44d81 initial checkin vrany parents: diff changeset	1545	!
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1546
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1547	version_SVN
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1548	^ '�Id: SVN__DiffBrowser.st 346 2011-06-29 06:40:53Z vranyj1 �'
ce5e1fc44d81 initial checkin vrany parents: diff changeset	1549	! !

author	vrany
	Mon, 19 Dec 2011 09:39:53 +0100
changeset 10975	1d7029646c90
parent 10939	e8a439fbd82d
child 12123	4bde08cebd48
child 13017	62a2cd2d8b70
permissions	-rw-r--r--