--- a/packages/PackageBrowser.st	Fri May 09 14:24:21 2003 +0200
+++ b/packages/PackageBrowser.st	Fri May 09 14:24:57 2003 +0200
@@ -50,7 +50,7 @@
 
 !PackageBrowser class methodsFor:'interface specs'!
 
-windowSpec
+XXXwindowSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -125,7 +125,7 @@
       )
 !
 
-windowSpecXXX
+windowSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -149,15 +149,23 @@
           #name: 'Packages::PackageBrowser'
           #min: #(#Point 10 10)
           #max: #(#Point 1024 768)
-          #bounds: #(#Rectangle 29 59 598 359)
+          #bounds: #(#Rectangle 29 59 777 532)
           #menu: #mainMenu
         )
         #component: 
        #(#SpecCollection
           #collection: #(
+           #(#MenuPanelSpec
+              #name: 'ToolBar1'
+              #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+              #menu: #menu
+              #textDefault: true
+            )
            #(#VariableHorizontalPanelSpec
               #name: 'VariableHorizontalPanel1'
-              #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
+              #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+              #showHandle: true
+              #snapMode: #both
               #component: 
              #(#SpecCollection
                 #collection: #(
@@ -170,12 +178,8 @@
                    #(#Array
                       
                      #(#SubChannelInfoSpec
-                        #subAspect: #list
-                        #aspect: #packageSelectorListHolder
-                      ) 
-                     #(#SubChannelInfoSpec
-                        #subAspect: #selectionHolder
-                        #aspect: #packageSelectorSelectionHolder
+                        #subAspect: #packagesSelectedHolder
+                        #aspect: #packagesSelectedHolder
                       )
                     )
                     #createNewApplication: true
@@ -187,18 +191,6 @@
                     #hasHorizontalScrollBar: false
                     #hasVerticalScrollBar: false
                     #majorKey: #'Packages::PackageDetails'
-                    #subAspectHolders: 
-                   #(#Array
-                      
-                     #(#SubChannelInfoSpec
-                        #subAspect: #list
-                        #aspect: #packageDetailsListHolder
-                      ) 
-                     #(#SubChannelInfoSpec
-                        #subAspect: #selectionHolder
-                        #aspect: #packageDetailsSelectionHolder
-                      )
-                    )
                     #createNewApplication: true
                     #createNewBuilder: true
                     #postBuildCallback: #packageDetailsCreated:
@@ -206,7 +198,7 @@
                  )
                
               )
-              #handles: #(#Any 0.5 1.0)
+              #handles: #(#Any 0.287433 1.0)
             )
            )
          
@@ -301,6 +293,41 @@
           ) nil
           nil
       )
+!
+
+menu
+    "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:Packages::PackageBrowser andSelector:#menu
+     (Menu new fromLiteralArrayEncoding:(Packages::PackageBrowser menu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(#Menu
+        #(
+         #(#MenuItem
+            #label: 'Reset Smalltalk Manager'
+            #itemValue: #resetSmalltalkManager
+            #translateLabel: true
+            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #idea16x16Icon)
+          )
+         #(#MenuItem
+            #label: 'Action'
+            #itemValue: #inspectSmalltalkManager
+            #translateLabel: true
+            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #inspectLocals20x20Icon)
+          )
+         )
+        nil
+        nil
+      )
 ! !
 
 !PackageBrowser class methodsFor:'plugIn spec'!
@@ -330,6 +357,23 @@
     ^ packageDetailsApplicationHolder value
 ! !
 
+!PackageBrowser methodsFor:'actions'!
+
+inspectSmalltalkManager
+    "This is temporary for when the manager goes a bit bonkers!!"
+    self packageManager inspect
+!
+
+resetSmalltalkManager
+    "This is temporary for when the manager goes a bit bonkers!!"
+    | aPackageManager |
+    self withWaitCursorDo:[
+        Packages::PackageManager smalltalkPackageManager becomeNil.
+        aPackageManager := Packages::PackageManager smalltalkPackageManager.
+        self packageManager:aPackageManager
+    ].
+! !
+
 !PackageBrowser methodsFor:'aspects'!
 
 packageDetailsApplicationHolder
@@ -516,5 +560,5 @@
 !PackageBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/packages/PackageBrowser.st,v 1.1 2003-04-09 11:24:19 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/packages/PackageBrowser.st,v 1.2 2003-05-09 12:22:37 james Exp $'
 ! !