hg/stx-goodies-monticello: MCRepositoryBrowser.st@e3dd2050492e (annotated)

1156 b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	1	"
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	2	COPYRIGHT (c) 2021 LabWare
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	3	"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	"{ Package: 'stx:goodies/monticello' }"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	6	"{ NameSpace: Smalltalk }"
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	7
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	ApplicationModel subclass:#MCRepositoryBrowser
911 9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	9	instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	10	selectedVersionHolder worker selectedVersionDetailsHolder
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	11	selectedRepositoryHolder targetPackage targetNamespace
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	12	lastPackage targetPackageHolder targetNamespaceNameHolder
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	13	updateChangefileHolder selectedPackageHolder'
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	14	classVariableNames:'LastAddedRepository LastAddedURLString'
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	15	poolDictionaries:''
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	16	category:'SCM-Monticello-St/X UI'
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
1156 b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	19	!MCRepositoryBrowser class methodsFor:'documentation'!
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	20
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	21	copyright
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	22	"
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	23	COPYRIGHT (c) 2021 LabWare
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	24
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	25
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	26	"
b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	27	! !
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
563 098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	29	!MCRepositoryBrowser class methodsFor:'initialization'!
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	30
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	31	initialize
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	32	"/ self installInLauncher. - now done in phase 2
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	33	ObjectMemory addDependent:self.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	34	!
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	35
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	36	installInLauncher
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	37	\|menuItem action\|
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	38
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	39	NewLauncher isNil ifTrue:[^ self].
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	40	ToolbarIconLibrary isNil ifTrue:[^ self].
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	41
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	42	"/ NewLauncher removeUserTool:#TestRunner2.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	43
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	44	"Class may be changed, and we want to start the changed class"
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	45	"/ action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	46	action := [ (Smalltalk at:self name) open ].
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	47
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	48
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	49	"Install in Tools menu"
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	50	menuItem := (MenuItem label:'Monticello Browser')
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	51	nameKey:#MonticelloBrowser;
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	52	"/labelImage:self startSUnitIcon;
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	53	value:action;
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	54	isButton:false.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	55	NewLauncher
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	56	addMenuItem:menuItem
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	57	from:self
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	58	in:'menu.tools.programming'
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	59	position:nil
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	60	space:false.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	61
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	62	"Created: / 05-05-2012 / 19:12:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	63	!
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	64
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	65	update:something with:aParameter from:changedObject
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	66	something == #initialized ifTrue:[
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	67	changedObject == ObjectMemory ifTrue:[
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	68	self installInLauncher.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	69	ObjectMemory removeDependent:self.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	70	]
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	71	].
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	72	! !
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	73
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	74	!MCRepositoryBrowser class methodsFor:'help specs'!
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	75
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	76	flyByHelpSpec
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	77	"This resource specification was automatically generated
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	78	by the UIHelpTool of ST/X."
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	79
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	80	"Do not manually edit this!! If it is corrupted,
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	81	the UIHelpTool may not be able to read the specification."
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	82
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	83	"
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	84	UIHelpTool openOnClass:MCRepositoryBrowser
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	85	"
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	86
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	87	<resource: #help>
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	88
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	89	^ super flyByHelpSpec addPairsFrom:#(
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	90
558 6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	91	#browseVersion
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	92	'Open a changelist browser on the selected version'
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	93
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	94	#loadVersion
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	95	'Load the selected version'
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	96
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	97	#targetNamespace
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	98	'Namespace override. Change via the "Loading"-Menu'
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	99
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	100	#targetPackage
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	101	'ST/X Package override. Change via the "Loading"-Menu'
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	102
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	103	)
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	104
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	105	"Created: / 07-09-2011 / 15:13:00 / cg"
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	106	! !
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	107
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	!MCRepositoryBrowser class methodsFor:'interface specs'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	packageDetailsSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	"This resource specification was automatically generated
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	by the UIPainter of ST/X."
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	"Do not manually edit this!! If it is corrupted,
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	the UIPainter may not be able to read the specification."
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	"
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	118	UIPainter new openOnClass:MCRepositoryBrowser andSelector:#packageDetailsSpec
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	119	MCRepositoryBrowser new openInterface:#packageDetailsSpec
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	<resource: #canvas>
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	^
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	#(FullSpec
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	126	name: packageDetailsSpec
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	window:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	(WindowSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	label: 'MC Package Details'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	name: 'MC Package Details'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	min: (Point 10 10)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	bounds: (Rectangle 0 0 533 326)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	component:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	(SpecCollection
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	collection: (
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	(TextEditorSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	name: 'PackageDetails'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	model: selectedVersionDetailsHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	hasHorizontalScrollBar: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	hasVerticalScrollBar: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	isReadOnly: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	hasKeyboardFocusInitially: false
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	)
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	146	(LabelSpec
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	147	name: 'Label1'
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	148	layout: (LayoutFrame 2 0 -30 1 -1 0.5 -2 1)
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	149	activeHelpKey: targetNamespace
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	150	level: -1
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	151	translateLabel: true
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	152	labelChannel: targetNamespaceNameHolder
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	153	adjust: left
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	154	)
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	155	(LabelSpec
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	156	name: 'Label2'
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	157	layout: (LayoutFrame 1 0.5 -30 1 -2 1 -2 1)
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	158	activeHelpKey: targetPackage
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	159	level: -1
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	160	translateLabel: true
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	161	labelChannel: targetPackageHolder
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	162	adjust: left
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	163	)
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	windowSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	"This resource specification was automatically generated
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	by the UIPainter of ST/X."
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	"Do not manually edit this!! If it is corrupted,
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	the UIPainter may not be able to read the specification."
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	UIPainter new openOnClass:MCRepositoryBrowser andSelector:#windowSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	MCRepositoryBrowser new openInterface:#windowSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	MCRepositoryBrowser open
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	<resource: #canvas>
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	^
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	#(FullSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	name: windowSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	window:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	(WindowSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	label: 'MC Repository Browser'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	name: 'MC Repository Browser'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	min: (Point 10 10)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	bounds: (Rectangle 0 0 796 497)
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	194	menu: mainMenu
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	component:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	(SpecCollection
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	collection: (
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	(VariableVerticalPanelSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	name: 'VariableVerticalPanel1'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	component:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	(SpecCollection
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	collection: (
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	(VariableHorizontalPanelSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	name: 'VariableHorizontalPanel1'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	component:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	(SpecCollection
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	collection: (
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	(SubCanvasSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	name: 'RepositoryList'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	hasHorizontalScrollBar: false
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	hasVerticalScrollBar: false
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	majorKey: MCRepositoryList
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	subAspectHolders:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	(Array
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	217
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	218	(SubChannelInfoSpec
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	219	subAspect: menuHolder
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	220	aspect: repositoryListMenu
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	221	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	222	(SubChannelInfoSpec
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	223	subAspect: inGeneratorHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	224	aspect: repositoriesHolder
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	225	)
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	(SubChannelInfoSpec
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	228	subAspect: outGeneratorHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	229	aspect: packagesHolder
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	(SubChannelInfoSpec
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	232	subAspect: selectionHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	233	aspect: selectedRepositoryHolder
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	createNewApplication: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	createNewBuilder: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	(SubCanvasSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	name: 'PackageList'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	hasHorizontalScrollBar: false
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	hasVerticalScrollBar: false
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	majorKey: MCPackageList
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	subAspectHolders:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	(Array
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	246
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	247	(SubChannelInfoSpec
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	248	subAspect: menuHolder
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	249	aspect: packageListMenu
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	250	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	251	(SubChannelInfoSpec
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	252	subAspect: inGeneratorHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	253	aspect: packagesHolder
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	254	)
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	(SubChannelInfoSpec
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	257	subAspect: outGeneratorHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	258	aspect: versionsHolder
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260	(SubChannelInfoSpec
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	261	subAspect: selectionHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	262	aspect: selectedPackageHolder
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	createNewApplication: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	createNewBuilder: true
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	)
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	268	(ViewSpec
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	269	name: 'Box1'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	270	component:
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	271	(SpecCollection
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	272	collection: (
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	273	(SubCanvasSpec
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	274	name: 'VersionList'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	275	layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	276	hasHorizontalScrollBar: false
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	277	hasVerticalScrollBar: false
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	278	majorKey: MCVersionList
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	279	subAspectHolders:
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	280	(Array
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	281
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	282	(SubChannelInfoSpec
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	283	subAspect: inGeneratorHolder
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	284	aspect: versionsHolder
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	285	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	286	(SubChannelInfoSpec
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	287	subAspect: menuHolder
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	288	aspect: versionsMenu
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	289	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	290
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	291	(SubChannelInfoSpec
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	292	subAspect: selectionHolder
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	293	aspect: selectedVersionHolder
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	294	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	295	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	296	createNewApplication: true
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	297	createNewBuilder: true
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	298	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	299	(ActionButtonSpec
558 6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	300	label: 'Browse'
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	301	name: 'Button1'
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	302	layout: (LayoutFrame 0 0 -30 1 0 0.5 0 1)
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	303	activeHelpKey: browseVersion
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	304	translateLabel: true
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	305	model: versionBrowser
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	306	enableChannel: hasVersionSelectedHolder
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	307	)
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	308	(ActionButtonSpec
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	309	label: 'Load'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	310	name: 'LoadButton'
558 6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	311	layout: (LayoutFrame 0 0.5 -30 1 0 1 0 1)
6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	312	activeHelpKey: loadVersion
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	313	translateLabel: true
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	314	model: versionLoad
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	315	enableChannel: hasVersionSelectedHolder
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	316	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	317	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	318
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	322
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324	handles: (Any 0.333333333333333 0.666666666666667 1.0)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326	(UISubSpecification
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327	name: 'SubSpecification1'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	minorKey: packageDetailsSpec
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	handles: (Any 0.5 1.0)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	)
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	339
558 6740bbea6eeb added: #helpSpec Claus Gittinger <cg@exept.de> parents: 540 diff changeset	340	"Modified: / 16-03-2012 / 10:51:24 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	!MCRepositoryBrowser class methodsFor:'menu specs'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	345	loadingMenu
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	346	"This resource specification was automatically generated
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	347	by the MenuEditor of ST/X."
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	348
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	349	"Do not manually edit this!! If it is corrupted,
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	350	the MenuEditor may not be able to read the specification."
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	351
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	352
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	353	"
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	354	MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#loadingMenu
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	355	(Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser loadingMenu)) startUp
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	356	"
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	357
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	358	<resource: #menu>
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	359
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	360	^
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	361	#(Menu
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	362	(
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	363	(MenuItem
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	364	label: 'Set Target Package...'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	365	itemValue: setTargetPackage
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	366	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	367	(MenuItem
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	368	label: 'Set Target Namespace...'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	369	itemValue: setTargetNamespace
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	370	)
495 cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	371	(MenuItem
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	372	label: '-'
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	373	)
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	374	(MenuItem
772 2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	375	label: 'Update Changefile when Loading'
495 cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	376	indication: updateChangefileHolder
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	377	)
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	378	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	379	nil
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	380	nil
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	381	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	382	!
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	383
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	384	mainMenu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	385	"This resource specification was automatically generated
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	386	by the MenuEditor of ST/X."
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	387
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	388	"Do not manually edit this!! If it is corrupted,
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	389	the MenuEditor may not be able to read the specification."
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	390
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	391
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	392	"
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	393	MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#mainMenu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	394	(Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser mainMenu)) startUp
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	395	"
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	396
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	397	<resource: #menu>
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	398
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	399	^
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	400	#(Menu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	401	(
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	402	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	403	label: 'File'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	404	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	405	submenu:
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	406	(Menu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	407	(
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	408	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	409	label: 'Exit'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	410	itemValue: closeRequest
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	411	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	412	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	413	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	414	nil
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	415	nil
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	416	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	417	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	418	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	419	label: 'Repository'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	420	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	421	submenuChannel: repositoryListMenu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	422	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	423	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	424	label: 'Package'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	425	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	426	submenuChannel: packageListMenu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	427	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	428	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	429	label: 'Version'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	430	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	431	submenuChannel: versionsMenu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	432	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	433	(MenuItem
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	434	label: 'Loading'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	435	translateLabel: true
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	436	submenuChannel: loadingMenu
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	437	)
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	438	(MenuItem
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	439	label: 'Help'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	440	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	441	startGroup: conditionalRight
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	442	submenu:
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	443	(Menu
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	444	(
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	445	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	446	label: 'Documentation'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	447	itemValue: openDocumentation
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	448	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	449	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	450	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	451	label: '-'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	452	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	453	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	454	label: 'About this Application...'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	455	itemValue: openAboutThisApplication
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	456	translateLabel: true
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	457	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	458	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	459	nil
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	460	nil
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	461	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	462	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	463	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	464	nil
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	465	nil
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	466	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	467	!
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	468
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	469	packageListMenu
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	470	"This resource specification was automatically generated
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	471	by the MenuEditor of ST/X."
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	472
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	473	"Do not manually edit this!! If it is corrupted,
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	474	the MenuEditor may not be able to read the specification."
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	475
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	476
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	477	"
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	478	MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#packageListMenu
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	479	(Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser packageListMenu)) startUp
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	480	"
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	481
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	482	<resource: #menu>
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	483
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	484	^
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	485	#(Menu
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	486	(
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	487	(MenuItem
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	488	enabled: packageSelectedAndOperatingSystemIsWindows
468 11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	489	label: 'No Menuentry Yet'
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	490	translateLabel: true
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	491	)
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	492	)
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	493	nil
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	494	nil
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	495	)
468 11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	496
11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	497	"Modified: / 07-09-2011 / 11:44:38 / cg"
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	498	!
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	499
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	500	repositoryListMenu
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	501	"This resource specification was automatically generated
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	502	by the MenuEditor of ST/X."
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	503
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	504	"Do not manually edit this!! If it is corrupted,
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	505	the MenuEditor may not be able to read the specification."
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	506
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	507
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	508	"
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	509	MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#repositoryListMenu
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	510	(Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser repositoryListMenu)) startUp
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	511	"
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	512
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	513	<resource: #menu>
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	514
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	515	^
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	516	#(Menu
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	517	(
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	518	(MenuItem
773 2f780b5aa85b class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 772 diff changeset	519	label: 'Add Repository (URL)...'
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	520	itemValue: repositoryAdd
772 2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	521	)
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	522	(MenuItem
773 2f780b5aa85b class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 772 diff changeset	523	label: 'Add Repository (Expression)...'
2f780b5aa85b class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 772 diff changeset	524	itemValue: repositoryAddFromExpressionString
2f780b5aa85b class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 772 diff changeset	525	)
2f780b5aa85b class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 772 diff changeset	526	(MenuItem
772 2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	527	label: 'Add Directory Repository...'
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	528	itemValue: directoryRepositoryAdd
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	529	)
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	530	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	531	label: '-'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	532	)
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	533	(MenuItem
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	534	enabled: hasRepositorySelectedHolder
923 5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	535	label: 'Remove from List'
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	536	itemValue: repositoryRemove
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	537	)
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	538	(MenuItem
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	539	enabled: hasRepositorySelectedHolder
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	540	label: 'Flush Cache'
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	541	itemValue: repositoryFlushCache
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	542	)
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	543	(MenuItem
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	544	label: '-'
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	545	)
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	546	(MenuItem
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	547	enabled: repositoryIsDirectory
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	548	label: 'Browse Directory'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	549	itemValue: repositoryBrowseDirectory
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	550	)
516 41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	551	(MenuItem
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	552	label: '-'
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	553	)
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	554	(MenuItem
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	555	label: 'Inspect'
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	556	itemValue: repositoryInspect
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	557	)
435 b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	558	)
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	559	nil
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	560	nil
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	561	)
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	562	!
b0695f00424b added: Claus Gittinger <cg@exept.de> parents: 432 diff changeset	563
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	versionsMenu
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	"This resource specification was automatically generated
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	by the MenuEditor of ST/X."
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	"Do not manually edit this!! If it is corrupted,
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	the MenuEditor may not be able to read the specification."
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	571
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#versionsMenu
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	(Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser versionsMenu)) startUp
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	<resource: #menu>
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	^
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	#(Menu
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	(
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	(MenuItem
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	583	enabled: hasVersionSelectedHolder
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	label: 'Load'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585	itemValue: versionLoad
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	(MenuItem
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	588	enabled: hasVersionSelectedHolder
468 11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	589	label: 'Load into Package...'
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590	itemValue: versionLoadIntoPackage
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	591	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592	(MenuItem
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593	label: '-'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	(MenuItem
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	enabled: hasVersionSelectedHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	label: 'Browse'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598	itemValue: versionBrowser
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	599	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	(MenuItem
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	601	enabled: hasVersionSelectedHolder
468 11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	602	label: 'Browse Unloadable'
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	603	itemValue: versionBrowseUnloadable
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	(MenuItem
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	label: '-'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608	(MenuItem
984 269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	609	label: 'Compare'
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	610	itemValue: versionCompareWithImage
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	611	)
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	612	(MenuItem
1004 e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	613	label: '-'
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	614	)
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	615	(MenuItem
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	616	label: 'Update Code...'
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	617	itemValue: versionUpdateCode
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	618	)
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	619	(MenuItem
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	620	enabled: canUpdateSplicemap
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	621	label: 'Update Splicemap...'
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	622	itemValue: versionUpdateSplicemap
984 269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	623	)
269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	624	(MenuItem
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	625	label: '-'
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	626	)
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	627	(MenuItem
921 dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	628	label: 'Save .mcz File As...'
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	629	itemValue: saveMCZFileAs
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	630	)
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	631	(MenuItem
984 269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	632	label: '-'
269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	633	)
269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	634	(MenuItem
921 dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	635	label: 'Show in File Browser'
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	636	itemValue: showPackageInFileBrowser
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	637	)
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	638	(MenuItem
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	639	enabled: hasVersionSelectedAndOperatingSystemIsWindowsHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	640	label: 'Show in Winzip'
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	641	itemValue: showPackageInWinZip
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	642	)
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	643	(MenuItem
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	enabled: hasVersionSelectedHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645	label: 'Inspect'
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	itemValue: versionInspect
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649	nil
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	nil
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651	)
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	652	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653
563 098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	654	!MCRepositoryBrowser class methodsFor:'menu-about'!
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	655
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	656	aboutThisApplicationText
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	657	\|msg\|
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	658
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	659	msg := super aboutThisApplicationText.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	660	msg := msg , '\\Written by:\\ Jan Vrany (jan.vrany@fit.cvut.cz)\ Claus Gittinger (cg@exept.de).'.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	661	^msg withCRs.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	662
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	663	"Created: / 05-05-2012 / 19:23:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	664	! !
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	665
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	666	!MCRepositoryBrowser class methodsFor:'startup'!
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	667
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	668	openOnPrimaryRepository
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	669	"the primary repository is the one into which we checkin by default.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	670	(see MCSettingsApplication)"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	671
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	672	^ self openOnPrimaryRepositoryForPackage:nil
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	673
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	674	"Created: / 03-12-2011 / 10:41:03 / cg"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	675	!
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	676
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	677	openOnPrimaryRepositoryForPackage:anSTXPackageIdOrNil
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	678	"the primary repository is the one into which we checkin by default.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	679	(see MCSettingsApplication)"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	680
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	681	\|repository\|
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	682
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	683	repository := UserPreferences current at:#mcPrimaryRepository ifAbsent:nil.
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	684	^ self openOnRepository:repository forPackage:anSTXPackageIdOrNil
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	685
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	686	"Created: / 03-12-2011 / 10:42:01 / cg"
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	687	!
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	688
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	689	openOnRepository:aRepository forPackage:anSTXPackageIdOrNil
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	690	"the primary repository is the one into which we checkin by default.
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	691	(see MCSettingsApplication)"
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	692
fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	693	\|browser\|
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	694
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	695	browser := self new.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	696	browser allButOpen.
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	697	browser selectedRepository:aRepository.
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	698	anSTXPackageIdOrNil notNil ifTrue:[
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	699	browser selectedPackage:anSTXPackageIdOrNil.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	700	].
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	701	browser openWindow.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	702	^ browser.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	703
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	704	"Created: / 03-12-2011 / 10:42:01 / cg"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	705	! !
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	706
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	!MCRepositoryBrowser methodsFor:'accessing'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	708
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	709	selectedPackage:aPackageName
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	710	\|listEntry packageListApp\|
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	711
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	712	packageListApp := (builder componentAt:#PackageList) application.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	713	listEntry := packageListApp listHolder value detect:[:listEntry \| listEntry name = aPackageName] ifNone:nil.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	714	packageListApp selectionHolder value:listEntry.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	715
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	716	"Created: / 04-12-2011 / 09:30:00 / cg"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	717	!
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	718
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	719	selectedRepository:aRepository
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	720	\|rep fakeEntry listEntry repListApp\|
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	721
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	722	rep := self repositoriesHolder value detect:[:e \| e = aRepository] ifNone:nil.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	723	rep notNil ifTrue:[
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	724	repListApp := (builder componentAt:#RepositoryList) application.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	725	fakeEntry := repListApp makeEntry:rep.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	726	listEntry := repListApp listHolder value detect:[:listEntry \| listEntry repository = fakeEntry repository].
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	727	repListApp selectionHolder value:listEntry.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	728	]
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	729
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	730	"Created: / 03-12-2011 / 10:44:16 / cg"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	731	!
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	732
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733	selectedVersion
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	"return the value in 'selectedVersionHolder'"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736	^ self selectedVersionHolder value
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	737
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	738	"Modified (comment): / 04-12-2011 / 09:28:52 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	740
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	selectedVersion: newValue
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742	"set the value in 'selectedVersionHolder'"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744	self selectedVersionHolder value: newValue
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	selectedVersionAsMCVersion
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	748	\| entry \|
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750	entry := self selectedVersionHolder value.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	^entry ifNil:[nil] ifNotNil:[entry asMCVersion].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	"Created: / 13-10-2010 / 17:48:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	754	"Modified (format): / 04-12-2011 / 09:29:01 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757	!MCRepositoryBrowser methodsFor:'aspect-queries'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758
1004 e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	759	canUpdateSplicemap
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	760	^ ConfigurableFeatures hasMercurialSupport
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	761
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	762	"Created: / 08-09-2015 / 00:56:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	763	!
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	764
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	765	hasRepositorySelectedHolder
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	766	^ BlockValue
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	767	with:[:h \| h value notNil]
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	768	argument:(self selectedRepositoryHolder)
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	769
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	770	"Created: / 13-10-2010 / 17:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	771	"Modified: / 07-09-2011 / 13:14:17 / cg"
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	772	"Created: / 07-09-2011 / 15:00:44 / cg"
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	773	!
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	774
460 46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	775	hasVersionSelectedAndOperatingSystemIsWindowsHolder
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	776	^[self hasVersionSelectedHolder value
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	777	and:[ OperatingSystem isMSWINDOWSlike ]]
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	778
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	779	"Created: / 25-08-2011 / 08:49:24 / cg"
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	780	!
46f1637ee276 give it a more professional look (unfinished) Claus Gittinger <cg@exept.de> parents: 435 diff changeset	781
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	782	hasVersionSelectedHolder
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	783	^ BlockValue
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	784	with:[:h \| h value notNil]
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	785	argument:(self selectedVersionHolder)
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	786
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787	"Created: / 13-10-2010 / 17:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	788	"Modified: / 07-09-2011 / 13:14:17 / cg"
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	789	!
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	790
563 098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	791	packageSelectedAndOperatingSystemIsWindows
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	792
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	793	^[
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	794	OperatingSystem isMSWINDOWSlike
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	795	and:[selectedPackageHolder value notNil]
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	796	]
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	797
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	798	"Created: / 05-05-2012 / 19:20:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	799	!
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	800
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	801	repositoryIsDirectory
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	802	^ BlockValue
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	803	with:[:h \| h value notNil
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	804	and:[ h value repository isKindOf: MCDirectoryRepository ]]
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	805	argument:[ self selectedRepositoryHolder ]
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	806
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	807	"Created: / 31-08-2011 / 09:08:54 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	!MCRepositoryBrowser methodsFor:'aspects'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812	packagesHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813	packagesHolder isNil ifTrue:[
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	814	packagesHolder := ValueHolder new.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	815	].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	^ packagesHolder
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	817
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	818	"Modified (comment): / 04-12-2011 / 09:27:57 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821	packagesHolder:something
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	822	packagesHolder := something.
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	824	"Modified (comment): / 04-12-2011 / 09:28:01 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	repositoriesHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828	repositoriesHolder isNil ifTrue:[
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	829	repositoriesHolder := ValueHolder with:(MCRepositoryGroup default repositories).
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831	^ repositoriesHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	"Modified: / 16-09-2010 / 18:33:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	834	"Modified (comment): / 04-12-2011 / 09:28:06 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837	repositoriesHolder:something
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	838	repositoriesHolder := something.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	839
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	840	"Modified (comment): / 04-12-2011 / 09:28:09 / cg"
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	841	!
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	843	selectedPackageHolder
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	844	selectedPackageHolder isNil ifTrue:[
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	845	selectedPackageHolder := nil asValue.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	846	].
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	847	^ selectedPackageHolder
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	848
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	849	"Created: / 04-12-2011 / 09:27:50 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	852	selectedRepositoryHolder
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	853	selectedRepositoryHolder isNil ifTrue:[
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	854	selectedRepositoryHolder := nil asValue.
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	855	].
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	856	^ selectedRepositoryHolder
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	857
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	858	"Created: / 31-08-2011 / 09:09:56 / cg"
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	859	!
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	860
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861	selectedVersionDetailsHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	<resource: #uiAspect>
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864	selectedVersionDetailsHolder isNil ifTrue:[
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	selectedVersionDetailsHolder := '' asValue.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866	].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	^ selectedVersionDetailsHolder.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869	"Modified: / 17-09-2010 / 15:17:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	870	"Modified (comment): / 03-12-2011 / 11:08:52 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	selectedVersionHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	selectedVersionHolder isNil ifTrue:[
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	selectedVersionHolder := ValueHolder with:nil "defaultValue here".
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	selectedVersionHolder onChangeSend: #updateVersionDetails to: self.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	^ selectedVersionHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	"Modified: / 17-09-2010 / 15:23:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	881	"Modified (comment): / 04-12-2011 / 09:28:21 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	selectedVersionHolder:something
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	selectedVersionHolder := something.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	888	targetNamespaceNameHolder
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	889	<resource: #uiAspect>
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	890
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	891	targetNamespaceNameHolder isNil ifTrue:[
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	892	targetNamespaceNameHolder := ValueHolder new.
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	893	].
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	894	^ targetNamespaceNameHolder.
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	895
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	896	"Modified (comment): / 03-12-2011 / 11:09:03 / cg"
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	897	!
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	898
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	899	targetPackageHolder
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	900	<resource: #uiAspect>
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	901
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	902	targetPackageHolder isNil ifTrue:[
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	903	targetPackageHolder := ValueHolder new.
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	904	].
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	905	^ targetPackageHolder.
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	906
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	907	"Modified (comment): / 03-12-2011 / 11:09:09 / cg"
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	908	!
a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	909
495 cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	910	updateChangefileHolder
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	911	updateChangefileHolder isNil ifTrue:[
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	912	updateChangefileHolder := false asValue.
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	913	].
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	914	^ updateChangefileHolder
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	915
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	916	"Created: / 07-09-2011 / 15:54:03 / cg"
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	917	!
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	918
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919	versionsHolder
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	920	versionsHolder isNil ifTrue:[
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	921	versionsHolder := ValueHolder new.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923	^ versionsHolder
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	924
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	925	"Modified (comment): / 04-12-2011 / 09:28:30 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928	versionsHolder:something
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	929	versionsHolder := something.
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	931	"Modified (comment): / 04-12-2011 / 09:28:33 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934	!MCRepositoryBrowser methodsFor:'menu actions'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	936	addRepository:rep
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	937	\| files didWarn \|
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	938
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	939	didWarn := false.
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	940	Error handle:[:ex \|
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	941	Dialog warn:'Exception: ',ex description.
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	942	didWarn := true.
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	943	] do:[
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	944	files := rep allFileNames.
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	945	].
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	946	files isNil ifTrue:[
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	947	didWarn ifFalse:[
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	948	Dialog warn:'repository does not exist or is inaccessable.'.
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	949	].
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	950	^ self.
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	951	].
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	952
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	953	MCRepositoryGroup default addRepository:rep.
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	954	self repositoriesHolder value:(MCRepositoryGroup default repositories)
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	955
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	956	"Created: / 20-03-2012 / 17:37:17 / cg"
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	957	!
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	958
772 2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	959	directoryRepositoryAdd
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	960	\|repStr rep\|
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	961
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	962	repStr := Dialog requestDirectoryName:'Directory repository to add:'.
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	963	repStr isEmptyOrNil ifTrue:[^ self].
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	964
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	965	rep := MCDirectoryRepository directory:repStr.
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	966	self addRepository:rep
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	967
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	968	"Created: / 29-08-2011 / 12:25:40 / cg"
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	969	!
2b761f943a57 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 768 diff changeset	970
563 098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	971	openDocumentation
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	972	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/monticellobrowser.html'.
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	973
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	974	"Created: / 05-05-2012 / 19:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	975	!
098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	976
923 5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	977	removeRepository:rep
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	978	MCRepositoryGroup default removeRepository:rep.
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	979	self repositoriesHolder value:(MCRepositoryGroup default repositories)
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	980	!
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	981
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	982	repositoryAdd
781 6a0c60c2d9f7 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 780 diff changeset	983	\|repStr rep url initialURL\|
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	984
896 2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	985	initialURL := LastAddedURLString ? 'http://www.squeaksource.com/project'.
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	986	repStr := Dialog
781 6a0c60c2d9f7 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 780 diff changeset	987	request:'Repository to add (file- or HTTP-URL):'
6a0c60c2d9f7 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 780 diff changeset	988	initialAnswer:initialURL
6a0c60c2d9f7 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 780 diff changeset	989	initialSelection:((initialURL findString:'project') to:(initialURL size)).
6a0c60c2d9f7 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 780 diff changeset	990
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	991	repStr isEmptyOrNil ifTrue:[^ self].
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	992
896 2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	993	(repStr startsWith:'www.') ifTrue:[
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	994	repStr := 'http://',repStr.
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	995	].
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	996
768 5798e82337da class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	997	Error handle:[:ex \|
896 2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	998	LastAddedURLString := repStr.
768 5798e82337da class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	999	Dialog warn:'Invalid URL (',ex description,')'.
5798e82337da class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	1000	^ self
5798e82337da class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	1001	] do:[
911 9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1002	url := URI fromString:repStr.
768 5798e82337da class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	1003	].
896 2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1004	url isNil ifTrue:[
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1005	LastAddedURLString := repStr.
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1006	Dialog warn:'Invalid URL'.
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1007	^ self
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1008	].
768 5798e82337da class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	1009
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1010	url method = 'http' ifTrue:[
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1011	rep := MCHttpRepository
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1012	location: repStr
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1013	user: ''
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1014	password: ''
911 9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1015	] ifFalse:[
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1016	url method = 'ftp' ifTrue:[
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1017	rep := MCFtpRepository
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1018	host: url host
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1019	directory: url path
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1020	user: url user
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1021	password: (url password ? 'anonymous')
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1022	] ifFalse:[
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1023	url isFileScheme ifTrue:[
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1024	rep := MCDirectoryRepository directory:repStr.
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1025	].
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1026	]
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1027	].
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1028	rep isNil ifTrue:[
896 2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1029	LastAddedURLString := repStr.
2e49dd573eaf class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 879 diff changeset	1030	Dialog warn:'Cannot figure out access scheme from URL.'.
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1031	^ self.
911 9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1032	].
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1033	self withWaitCursorDo:[
9e6130c597b9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 896 diff changeset	1034	self addRepository:rep
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1035	].
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1036
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1037	"Created: / 29-08-2011 / 12:25:40 / cg"
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1038	!
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1039
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1040	repositoryAddFromExpressionString
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1041	\|str repStr rep\|
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1042
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1043	rep := LastAddedRepository ? 'XMLSchemaCodeGen'.
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1044
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1045	str := 'MCHttpRepository
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1046	location: ''http://www.squeaksource.com/',rep,'''
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1047	user: ''''
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1048	password: ''''
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1049	'.
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1050	repStr := Dialog
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1051	requestText:'Repository to add:'
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1052	initialAnswer:str
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1053	initialSelection:(str findRangeOfString:rep).
708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1054
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1055	repStr isEmptyOrNil ifTrue:[^ self].
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1056
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1057	Error handle:[:ex \|
779 708d7b360e51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	1058	Transcript showCR:ex description
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1059	] do:[
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1060	rep := Parser evaluate:repStr.
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1061	].
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1062	rep isNil ifTrue:[
d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1063	Dialog warn:'cannot figure out access scheme.'.
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1064	^ self.
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1065	].
780 fdd6a57098e4 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1066	self withWaitCursorDo:[
fdd6a57098e4 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1067	self addRepository:rep
fdd6a57098e4 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1068	]
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1069
559 d693deba961a added: Claus Gittinger <cg@exept.de> parents: 558 diff changeset	1070	"Created: / 20-03-2012 / 17:34:33 / cg"
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1071	!
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1072
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1073	repositoryBrowseDirectory
879 af18ca45a23d class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1074	"open a filebrowser on the selected directory-repository"
463 8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1075
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1076	\|fn\|
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1077
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1078	fn := self selectedRepositoryHolder value repository directory asFilename.
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1079	fn exists ifFalse:[
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1080	Dialog warn:'No such directory'.
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1081	^ self.
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1082	].
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1083	UserPreferences current fileBrowserClass openIn:fn
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1084
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1085	"Created: / 31-08-2011 / 09:16:33 / cg"
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1086	!
8dee452fcd3e class definition Claus Gittinger <cg@exept.de> parents: 462 diff changeset	1087
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1088	repositoryFlushCache
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1089	"flush the repository cache - useful only in case of an aborted file load"
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1090
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1091	self selectedRepositoryHolder value repository flushCache
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1092
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1093	"Created: / 07-09-2011 / 15:02:21 / cg"
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1094	!
72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1095
516 41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1096	repositoryInspect
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1097	"for debugging"
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1098
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1099	self selectedRepositoryHolder value repository inspect
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1100
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1101	"Created: / 25-11-2011 / 11:33:09 / cg"
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1102	!
41006ee80f02 added: #repositoryInspect Claus Gittinger <cg@exept.de> parents: 503 diff changeset	1103
923 5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1104	repositoryRemove
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1105	\|entry rep\|
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1106
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1107	entry := self selectedRepositoryHolder value.
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1108	entry isNil ifTrue:[^ self].
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1109	rep := entry repository.
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1110	self withWaitCursorDo:[
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1111	self removeRepository:rep
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1112	].
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1113	!
5e64988682fe class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1114
921 dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1115	saveMCZFileAs
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1116	\|entry fn\|
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1117
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1118	entry := self selectedVersionHolder value.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1119	fn := Dialog
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1120	requestFileNameForSave:'Save MCZ file as:'
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1121	default:entry name
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1122	fromDirectory:nil.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1123
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1124	self saveVersionFileToTempThenDo:[:tempFile \|
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1125	tempFile moveTo:(fn asFilename).
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1126	].
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1127	!
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1128
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1129	saveVersionFileToTempThenDo:aBlock
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1130	\|entry tempFile fileStream\|
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1131
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1132	tempFile := Filename newTemporary withSuffix:'zip'.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1133
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1134	self withReadCursorDo:[
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1135	entry := self selectedVersionHolder value.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1136	entry repository
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1137	readStreamForFileNamed:entry name do:[:s \|
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1138	fileStream := tempFile writeStream.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1139	s reset.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1140	s copyToEndInto:fileStream.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1141	fileStream close.
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1142	].
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1143	].
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1144	aBlock value:tempFile
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1145	!
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1146
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1147	setTargetNamespace
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1148	"specify an st/x namespace to be used as default"
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1149
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1150	\| nsName \|
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1151
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1152	nsName := Dialog
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1153	requestNameSpace:'Namepace to load code into:'
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1154	initialAnswer:targetNamespace.
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1155	nsName isEmptyOrNil ifTrue:[^self].
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1156
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1157	targetNamespace := nsName.
485 a2fd0438b8ac class definition Claus Gittinger <cg@exept.de> parents: 484 diff changeset	1158	self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1159
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1160	"Created: / 07-09-2011 / 12:49:42 / cg"
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1161	!
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1162
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1163	setTargetPackage
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1164	"specify an st/x package identifier to be used as default"
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1165
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1166	\| package \|
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1167
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1168	package := Dialog
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1169	requestProject:'Default Smalltalk/X package to load code into:'
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1170	initialAnswer:targetPackage
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1171	suggestions:#().
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1172	package isNil ifTrue:[
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1173	^ self
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1174	].
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1175	targetPackage := lastPackage := package.
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1176	self targetPackageHolder value:('Target-Package: ' , targetPackage).
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1177
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1178	"Created: / 07-09-2011 / 12:47:15 / cg"
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1179	"Modified: / 06-10-2014 / 23:38:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1180	!
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1181
921 dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1182	showPackageInFileBrowser
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1183	self saveVersionFileToTempThenDo:[:tempFile \|
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1184	UserPreferences current fileBrowserClass
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1185	openOnFileNamed:tempFile
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1186	].
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1187	!
468 11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1188
921 dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1189	showPackageInWinZip
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1190	self saveVersionFileToTempThenDo:[:tempFile \|
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1191	Win32OperatingSystem
dda5a9038a51 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1192	openApplicationForDocument:tempFile operation:#open
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1193	].
468 11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1194
11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1195	"Created: / 07-09-2011 / 11:46:08 / cg"
11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1196	!
11afd0e38d2f added: #showPackageInWinZip Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1197
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1198	versionBrowseUnloadable
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200	\| version snapshot loader unloadables \|
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1201	version := self selectedVersionAsMCVersion.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1202	version ifNil:[^self].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1203	snapshot := version snapshot.
1156 b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	1204	loader := MCStXPackageLoader new
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1205	installSnapshot: snapshot;
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1206	yourself.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1207	loader analyze.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1208	unloadables := ChangeSet withAll:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1209	(loader unloadableDefinitions collect:
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1210	[:def\|def asChange]).
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1211
432 e66073959001 csbrowser2 in: #versionBrowseUnloadable Claus Gittinger <cg@exept.de> parents: 291 diff changeset	1212	(Tools::ChangeSetBrowser2
503 fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1213	on: unloadables
fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1214	label: version info name , ' (unloadable definitions)')
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1215	beTwoColumn;
503 fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1216	targetNamespace:targetNamespace;
fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1217	targetPackage:targetPackage;
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218	open
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220	"Modified: / 26-10-2010 / 23:04:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
503 fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1221	"Modified: / 07-09-2011 / 20:17:15 / cg"
1156 b6ca954ebfc9 Use custom Smalltalk/X package loader(s) Jan Vrany <jan.vrany@labware.com> parents: 1005 diff changeset	1222	"Modified: / 29-11-2021 / 15:22:36 / Jan Vrany <jan.vrany@labware.com>"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1223	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	versionBrowser
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227	\| version snapshot \|
462 bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1228
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1229	self withWaitCursorDo:[
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1230	version := self selectedVersionAsMCVersion.
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1231	version ifNil:[^self].
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1232	snapshot := version snapshot.
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1233	(Tools::ChangeSetBrowser2
916 2d95d9b3fbe9 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 911 diff changeset	1234	on: (snapshot asChangeSet name:('ChangeSet for: ',version fileName))
503 fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1235	label: version info name)
462 bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1236	beTwoColumn;
503 fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1237	targetNamespace:targetNamespace;
fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1238	targetPackage:targetPackage;
462 bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1239	open
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1240	].
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1241
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1242	"Modified: / 04-08-2011 / 19:03:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
503 fff20d405433 changed: Claus Gittinger <cg@exept.de> parents: 502 diff changeset	1243	"Modified: / 07-09-2011 / 20:17:36 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1244	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1245
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1246	versionCompareWithImage
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1247
1005 fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1248	\| version package \|
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1249
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1250	self withWaitCursorDo:[
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1251	version := self selectedVersionAsMCVersion.
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1252	version isNil ifTrue:[ ^ self ].
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1253	package := Dialog requestProject:(resources string: 'Package to compare with') initialAnswer:package suggestions: nil.
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1254	package isNil ifTrue:[ ^ self ].
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1255	self versionCompareWithImagePackage: package.
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1256	].
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1257
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1258	"Modified: / 02-10-2015 / 16:27:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1259	!
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1260
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1261	versionCompareWithImagePackage: package
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1262
fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1263	\| version snapshot snapshotCS packageCS diffset diffCS \|
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1264
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1265	self withWaitCursorDo:[
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1266	version := self selectedVersionAsMCVersion.
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1267	version isNil ifTrue:[ ^ self ].
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1268	snapshot := version snapshot.
982 230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1269	snapshotCS := snapshot asChangeSet.
1005 fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1270	snapshotCS name: version info name.
982 230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1271	packageCS := ChangeSet forPackage: package.
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1272	"/ Remove St/X specific method and classes (used for package management)
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1273	packageCS := packageCS reject:[:chg \|
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1274	chg changeClass theNonMetaclass isProjectDefinition or:[ chg isMethodDefinitionChange and:[ AbstractSourceCodeManager isVersionMethodSelector: chg selector ]]
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1275	].
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1276	diffset := snapshotCS diffSetsAgainst: packageCS.
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1277	diffCS := ChangeSet new.
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1278	diffCS addAll: (diffset onlyInReceiver).
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1279	diffCS addAll: (diffset changed collect:[:pair \| pair first ]).
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1280	diffCS addAll: (diffset onlyInArg collect:[ :chg \| chg asAntiChange ]).
984 269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	1281	"/ Filter out Organization change - not needed for Smalltalk/X
269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	1282	(diffCS first isOtherChange and:[ diffCS first source startsWith: '" Organization:' ]) ifTrue:[
269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	1283	diffCS removeFirst.
269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	1284	].
993 331ce2db4c82 Another fix in "Compare" changeset computation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 984 diff changeset	1285	"/ Sort so that class definitions are first and
331ce2db4c82 Another fix in "Compare" changeset computation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 984 diff changeset	1286	"/ class removals last.
331ce2db4c82 Another fix in "Compare" changeset computation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 984 diff changeset	1287	diffCS sort:[ :a :b \| (a isClassDefinitionChange and:[b isClassDefinitionChange not]) or:[ a isClassRemoveChange not and:[ b isClassRemoveChange ] ] ].
994 73e11bcc0ff1 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 993 diff changeset	1288	"/ Set the package so when applied, the change goes to the
73e11bcc0ff1 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 993 diff changeset	1289	"/ correct package (if not overriden by 'target package'.
73e11bcc0ff1 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 993 diff changeset	1290	diffCS do:[:each \| each package: package ].
984 269c09751322 Fixed "Compare" changeset creation to ease applying it Jan Vrany <jan.vrany@fit.cvut.cz> parents: 982 diff changeset	1291
982 230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1292	diffCS name: (resources string: 'Diffs between %1 (MC version) and %2 (in image)' with: version info name with: package).
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1293	(Tools::ChangeSetBrowser2 on: diffCS)
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1294	beOneColumn;
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1295	showSame: false;
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1296	targetNamespace:targetNamespace;
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1297	targetPackage:targetPackage;
982 230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1298	allowRemove: true;
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1299	open
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1300	].
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1301
1004 e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1302	"Created: / 07-09-2015 / 18:41:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1005 fe6be0a71dbe Oops, fixed "Update Code" menu item in Monticello browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1004 diff changeset	1303	"Modified: / 02-10-2015 / 16:27:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
935 5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1304	!
5e40fb19c435 Added menu entry to show diff against the code in the image Jan Vrany <jan.vrany@fit.cvut.cz> parents: 933 diff changeset	1305
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306	versionInspect
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	\| v \|
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309	v := self selectedVersionAsMCVersion.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	v ifNotNil:[v inspect]
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	"Modified: / 13-10-2010 / 17:48:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	versionLoad
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1316	"load into the default (or previously set) package"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317
462 bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1318	\| entry \|
bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1319
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	entry := self selectedVersionHolder value.
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1321	entry notNil ifTrue:[
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1322	self withWaitCursorDo:[
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1323	\| version package \|
761 618f0ee3896a class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 603 diff changeset	1324
618f0ee3896a class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 603 diff changeset	1325	version := entry asMCVersion.
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1326	package := targetPackage.
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1327	package isNil ifTrue:[
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1328	version package name notNil ifTrue:[
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1329	"/ Just a guess...
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1330	package := 'stx:goodies/', (version package name asLowercase replaceAll: $- with: $_)
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1331	] ifFalse:[
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1332	package := PackageId noProjectID.
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1333	].
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1334	package := Dialog
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1335	requestProject:'Smalltalk/X package to load code into:'
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1336	initialAnswer:package
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1337	suggestions:#().
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1338	package isNil ifTrue:[
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1339	^ self
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1340	].
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1341	].
3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1342	self versionLoad: version into:package
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1343	]
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1344	].
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345
484 72911faa1f0a added: Claus Gittinger <cg@exept.de> parents: 472 diff changeset	1346	"Modified: / 07-09-2011 / 14:51:57 / cg"
933 3d57bd5bac92 Ask for package to load code in, if default is not specified. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1347	"Modified: / 06-10-2014 / 23:39:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350	versionLoad: version into: package
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351
462 bc04bf43bf7a comment/format in: #versionLoad Claus Gittinger <cg@exept.de> parents: 460 diff changeset	1352	self withWaitCursorDo:[
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1353	MCStXNamespaceQuery
502 8842b23dd67c changed: #versionLoad:into: Claus Gittinger <cg@exept.de> parents: 495 diff changeset	1354	answer:(NameSpace name:targetNamespace ? 'Smalltalk')
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1355	do: [
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1356	MCStXPackageQuery
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1357	answer: package
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1358	do: [
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1359	MCInteractiveLoadingQuery answer: true do:[
924 9e110e13d059 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 923 diff changeset	1360	self updateChangefileHolder value ifTrue:[
495 cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1361	version load
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1362	] ifFalse:[
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1363	Class withoutUpdatingChangesDo:[
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1364	version load
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1365	]
cacb11edaf45 class definition Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1366	].
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1367	]
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1368	].
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1369	].
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1370	].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1372	"Created: / 09-11-2010 / 13:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373	"Modified: / 06-03-2011 / 20:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
502 8842b23dd67c changed: #versionLoad:into: Claus Gittinger <cg@exept.de> parents: 495 diff changeset	1374	"Modified: / 07-09-2011 / 20:16:19 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377	versionLoadIntoPackage
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1378	"specify an st/x package identifier"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380	\| version package \|
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1381
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382	version := self selectedVersionAsMCVersion.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383	version ifNil:[^self].
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1384
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1385	package := Dialog
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1386	requestProject:'Smalltalk/X package to load code into'
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1387	initialAnswer:lastPackage
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1388	suggestions:#().
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389	package ifNil:[^self].
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1390
bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1391	lastPackage := package.
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1392	self versionLoad: version into: package
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1393
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1394	"Modified: / 09-11-2010 / 13:33:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
472 bd20d42c186c support namespace override Claus Gittinger <cg@exept.de> parents: 468 diff changeset	1395	"Modified: / 07-09-2011 / 12:47:51 / cg"
1004 e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1396	!
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1397
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1398	versionUpdateCode
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1399
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1400	\| version package snapshot snapshotCS \|
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1401
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1402	self withWaitCursorDo:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1403	version := self selectedVersionAsMCVersion.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1404	version isNil ifTrue:[ ^ self ].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1405	snapshot := version snapshot.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1406	snapshotCS := snapshot asChangeSet.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1407	snapshotCS name: version info name.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1408	ProjectDefinition allSubclassesDo:[ :def \|
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1409	((def class compiledMethodAt: #monticelloName) notNil and:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1410	def monticelloName = version package name]) ifTrue:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1411	package := def package.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1412	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1413	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1414	package isNil ifTrue:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1415	Dialog warn: (resources string: 'No package found for Monticello package ''%1''' with: version package name).
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1416	^ self
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1417	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1418	self versionCompareWithImagePackage: package.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1419	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1420
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1421	"Created: / 07-09-2015 / 18:36:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1422	!
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1423
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1424	versionUpdateSplicemap
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1425
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1426	\| version package dialog revset packageDef splicemap \|
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1427
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1428	self withWaitCursorDo:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1429	version := self selectedVersionAsMCVersion.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1430	version isNil ifTrue:[ ^ self ].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1431	ProjectDefinition allSubclassesDo:[ :def \|
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1432	((def class compiledMethodAt: #monticelloName) notNil and:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1433	def monticelloName = version package name]) ifTrue:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1434	package := def package.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1435	packageDef := def.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1436	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1437	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1438	package isNil ifTrue:[
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1439	Dialog warn: (resources string: 'No package found for Monticello package ''%1''' with: version package name).
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1440	^ self
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1441	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1442	revset := 'grep(''%1'')' bindWith: version info name.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1443
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1444	dialog := HGChangesetDialog new.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1445	dialog repository: (HGPackageWorkingCopy named:package) repository .
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1446	dialog revset: revset asHGRevset.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1447	dialog open ifFalse:[ ^ self ].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1448	splicemap := { dialog changeset id literalArrayEncoding . version info literalArrayEncodingWithoutAncestors }
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1449	, packageDef monticelloSplicemap.
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1450	packageDef theMetaclass
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1451	compile: (packageDef monticelloSplicemap_codeFor:splicemap)
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1452	classified:(packageDef class lookupMethodFor: #monticelloSplicemap) category
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1453
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1454	].
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1455
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1456	"Created: / 07-09-2015 / 18:37:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e48adfaf3541 Added support for ancestry splicemaps. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 994 diff changeset	1457	"Modified: / 08-09-2015 / 00:07:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1459
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1460	!MCRepositoryBrowser methodsFor:'updating'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1461
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1462	updateVersionDetails
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1463	\| versionEntry version \|
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1465	worker ifNotNil:[worker terminate. worker := nil].
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1466	versionEntry := self selectedVersion.
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1467	versionEntry ifNil:[selectedVersionDetailsHolder value:'No version selected'. ^self].
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1468	"/ async is not a good idea - if it takes long, user might start to click around...
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1469	"/ worker :=
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1470	"/ [[selectedVersionDetailsHolder value:'Reading ',versionEntry name,'...'.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1471	"/ version := versionEntry asMCVersion.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1472	"/ version ifNotNil:
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1473	"/ [selectedVersionDetailsHolder value: version summary]] ensure:[worker := nil]] newProcess.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1474	"/ worker resume.
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1475
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1476	self withWaitCursorDo:[
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1477	selectedVersionDetailsHolder value:'Reading ',versionEntry name,'...'.
777 e37741a76b01 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 773 diff changeset	1478	ZipArchive zipFileFormatErrorSignal handle:[:ex \|
e37741a76b01 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 773 diff changeset	1479	(Dialog confirm:'Zipfile format error encountered while reading (corrupt file?).\\Debug?' withCRs)
e37741a76b01 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 773 diff changeset	1480	ifTrue:[ex reject].
e37741a76b01 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 773 diff changeset	1481	] do:[
e37741a76b01 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 773 diff changeset	1482	version := versionEntry asMCVersion.
e37741a76b01 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 773 diff changeset	1483	].
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1484	version ifNotNil:[
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1485	selectedVersionDetailsHolder value: version summary
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1486	]
bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1487	].
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489	"Created: / 17-09-2010 / 15:23:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1490	"Modified: / 26-10-2010 / 22:08:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
540 bacdf1aea4a3 checkin support Claus Gittinger <cg@exept.de> parents: 516 diff changeset	1491	"Modified (comment): / 03-12-2011 / 11:11:28 / cg"
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492	! !
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1493
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1494	!MCRepositoryBrowser class methodsFor:'documentation'!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496	version
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	1497	^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.38 2015-02-09 13:57:08 cg Exp $'
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1499
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1500	version_CVS
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	1501	^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.38 2015-02-09 13:57:08 cg Exp $'
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1502	!
ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1503
982 230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1504	version_HG
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1505
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1506	^ '$Changeset: <not expanded> $'
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1507	!
230ed8c7d051 Fix in repository browser: include removals in "Compare with Image" changeset Jan Vrany <jan.vrany@fit.cvut.cz> parents: 970 diff changeset	1508
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1509	version_SVN
970 fa5b935ff989 class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	1510	^ '$Id: MCRepositoryBrowser.st,v 1.38 2015-02-09 13:57:08 cg Exp $'
289 ac6dfc008bfc initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1511	! !
563 098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	1512
761 618f0ee3896a class: MCRepositoryBrowser Claus Gittinger <cg@exept.de> parents: 603 diff changeset	1513
563 098783ae2b50 Added Launcher>Tools>Programming>Monticello Browser menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 559 diff changeset	1514	MCRepositoryBrowser initialize!

author	Jan Vrany <jan.vrany@labware.com>
	Tue, 11 Jul 2023 12:13:27 +0100
branch	jv
changeset 1173	e3dd2050492e
parent 1156	b6ca954ebfc9
permissions	-rw-r--r--