added: #toolBarMenu
changed:
#action:
#windowSpec
category of: #action:
--- 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 $'
! !