--- a/MCRepositoryBrowser.st Sat Aug 20 19:45:54 2011 +0200
+++ b/MCRepositoryBrowser.st Mon Aug 22 10:36:12 2011 +0200
@@ -108,6 +108,10 @@
majorKey: MCRepositoryList
subAspectHolders:
(Array
+ (SubChannelInfoSpec
+ subAspect: menuHolder
+ aspect: repositoryListMenu
+ )
(SubChannelInfoSpec
subAspect: inGeneratorHolder
@@ -128,6 +132,10 @@
majorKey: MCPackageList
subAspectHolders:
(Array
+ (SubChannelInfoSpec
+ subAspect: menuHolder
+ aspect: packageListMenu
+ )
(SubChannelInfoSpec
subAspect: inGeneratorHolder
@@ -184,10 +192,68 @@
)
)
+
+ "Modified: / 22-08-2011 / 10:31:32 / cg"
! !
!MCRepositoryBrowser class methodsFor:'menu specs'!
+packageListMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#packageListMenu
+ (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser packageListMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'No Items Yet !!'
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+!
+
+repositoryListMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#repositoryListMenu
+ (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser repositoryListMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Add Repository...'
+ itemValue: repositoryAdd
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+!
+
versionsMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -469,11 +535,11 @@
!MCRepositoryBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.3 2011-08-20 17:08:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.4 2011-08-22 08:36:12 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.3 2011-08-20 17:08:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.4 2011-08-22 08:36:12 cg Exp $'
!
version_SVN