# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1308839826 -7200
# Node ID 0ca0b92c24f2ce09642c410c460204883ce2d5a7
# Parent  08309b8378fc2ba3e635e4b5b1eac36ad101389c
added: #toolBarMenu
changed:
        #action:
        #windowSpec
category of: #action:

diff -r 08309b8378fc -r 0ca0b92c24f2 Tools__TagsBrowser.st
--- a/Tools__TagsBrowser.st	Wed Jun 22 17:37:43 2011 +0200
+++ b/Tools__TagsBrowser.st	Thu Jun 23 16:37:06 2011 +0200
@@ -89,9 +89,17 @@
         component: 
        (SpecCollection
           collection: (
+           (MenuPanelSpec
+              name: 'ToolBar1'
+              layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+              level: 0
+              menu: toolBarMenu
+              textDefault: true
+            )
            (ArbitraryComponentSpec
               name: 'Browser'
-              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              layout: (LayoutFrame 0 0 30 0 0 1 0 1)
+              level: -1
               menu: middleButtonMenu
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
@@ -895,10 +903,48 @@
         nil
         nil
       )
+!
+
+toolBarMenu
+    "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:Tools::TagsBrowser andSelector:#toolBarMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser toolBarMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'updateTagList'
+            itemValue: updateTagList
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+          )
+         )
+        nil
+        nil
+      )
 ! !
 
 !TagsBrowser methodsFor:'accessing'!
 
+action:aOneArgBlock
+    "set the action, which is called with the selected tag
+    "
+    action := aOneArgBlock.
+
+    "Modified: / 23-06-2011 / 16:36:59 / cg"
+!
+
 editedFile
     ^ self editedFileHolder value
 
@@ -1455,12 +1501,6 @@
 
 !TagsBrowser methodsFor:'accessing presentation aspects'!
 
-action:aOneArgTheTag
-    "set the action, which is called with the selected tag
-    "
-    action := aOneArgTheTag.
-!
-
 groupedByType
     ^ tagList groupedByType
 
@@ -2053,5 +2093,5 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.6 2011-05-08 08:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.7 2011-06-23 14:37:06 cg Exp $'
 ! !