MCRepositoryBrowser.st
changeset 435 b0695f00424b
parent 432 e66073959001
child 460 46f1637ee276
--- 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