--- a/Tools__TagsBrowser.st Mon Jun 23 15:04:07 2014 +0200
+++ b/Tools__TagsBrowser.st Mon Jun 23 15:07:11 2014 +0200
@@ -103,54 +103,72 @@
<resource: #canvas>
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'TagsBrowser'
- name: 'TagsBrowser'
- min: (Point 10 10)
- max: (Point 1024 768)
- bounds: (Rectangle 0 0 300 337)
- )
- 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 30 0 0 1 0 1)
- level: -1
- menu: middleButtonMenu
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- miniScrollerVertical: false
- hasBorder: false
- component: tagView
- )
- (InputFieldSpec
- name: 'TagFilterInputField'
- layout: (LayoutFrame -125 1 4 0 -2 1 26 0)
- activeHelpKey: tagFilter
- visibilityChannel: tagFilterFieldVisibleHolder
- model: tagFilterPatternHolder
- immediateAccept: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- )
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'TagsBrowser'
+ name: 'TagsBrowser'
+ min: (Point 10 10)
+ max: (Point 1024 768)
+ bounds: (Rectangle 0 0 300 337)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ horizontalLayout: leftFit
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ ignoreInvisibleComponents: false
+ elementsChangeSize: true
+ component:
+ (SpecCollection
+ collection: (
+ (MenuPanelSpec
+ name: 'ToolBar1'
+ level: 0
+ menu: toolBarMenu
+ extent: (Point 32 30)
+ useDynamicPreferredWidth: true
+ usePreferredWidth: true
+ textDefault: true
+ )
+ (InputFieldSpec
+ name: 'TagFilterInputField'
+ activeHelpKey: tagFilter
+ visibilityChannel: tagFilterFieldVisibleHolder
+ model: tagFilterPatternHolder
+ immediateAccept: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnPointerLeave: true
+ extent: (Point 263 22)
+ )
+ )
+
+ )
+ )
+ (ArbitraryComponentSpec
+ name: 'Browser'
+ layout: (LayoutFrame 0 0 30 0 0 1 0 1)
+ level: -1
+ menu: middleButtonMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ miniScrollerVertical: false
+ hasBorder: false
+ component: tagView
+ )
+ )
+
+ )
+ )
! !
!TagsBrowser class methodsFor:'menu specs'!
@@ -1185,61 +1203,64 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- activeHelpKey: updateTagList
- label: 'updateTagList'
- itemValue: updateTagList
- translateLabel: true
- isButton: true
- labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: sortByName
- label: 'SortByName'
- itemValue: sortByName
- translateLabel: true
- isButton: true
- indication: sortIsByName
- labelImage: (ResourceRetriever ToolbarIconLibrary sortByName16x16Icon)
- )
- (MenuItem
- activeHelpKey: sortByLineNumber
- label: 'SortByLineNumber'
- itemValue: sortByLineNumber
- translateLabel: true
- isButton: true
- indication: sortIsByLineNumber
- labelImage: (ResourceRetriever ToolbarIconLibrary sortByLineNumber16x16Icon)
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: functionsOnly
- label: 'FunctionsOnly'
- itemValue: functionsOnly:
- translateLabel: true
- isButton: true
- indication: functionsOnlyHolder
- labelImage: (ResourceRetriever ToolbarIconLibrary functionsOnly16x16Icon)
- )
- (MenuItem
- activeHelpKey: toggleTagFilter
- label: 'TagFilter'
- translateLabel: true
- isButton: true
- indication: tagFilterFieldVisibleHolder
- labelImage: (ResourceRetriever ToolbarIconLibrary filter16x16Icon)
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ activeHelpKey: updateTagList
+ label: 'updateTagList'
+ itemValue: updateTagList
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: sortByName
+ label: 'SortByName'
+ itemValue: sortByName
+ isButton: true
+ indication: sortIsByName
+ labelImage: (ResourceRetriever ToolbarIconLibrary sortByName16x16Icon)
+ )
+ (MenuItem
+ activeHelpKey: sortByLineNumber
+ label: 'SortByLineNumber'
+ itemValue: sortByLineNumber
+ isButton: true
+ indication: sortIsByLineNumber
+ labelImage: (ResourceRetriever ToolbarIconLibrary sortByLineNumber16x16Icon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: functionsOnly
+ label: 'FunctionsOnly'
+ itemValue: functionsOnly:
+ isButton: true
+ indication: functionsOnlyHolder
+ labelImage: (ResourceRetriever ToolbarIconLibrary functionsOnly16x16Icon)
+ )
+ (MenuItem
+ activeHelpKey: functionsOnly
+ label: 'StructsOnly'
+ itemValue: structsOnly:
+ isButton: true
+ indication: structsOnlyHolder
+ labelImage: (ResourceRetriever ToolbarIconLibrary structsOnly16x16Icon)
+ )
+ (MenuItem
+ activeHelpKey: toggleTagFilter
+ label: 'TagFilter'
+ isButton: true
+ indication: tagFilterFieldVisibleHolder
+ labelImage: (ResourceRetriever ToolbarIconLibrary filter16x16Icon)
+ )
+ )
+ nil
+ nil
)
! !
@@ -2803,14 +2824,14 @@
!TagsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.52 2014-06-21 08:51:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.53 2014-06-23 13:07:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.52 2014-06-21 08:51:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.53 2014-06-23 13:07:11 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__TagsBrowser.st,v 1.52 2014-06-21 08:51:54 cg Exp $'
+ ^ '$Id: Tools__TagsBrowser.st,v 1.53 2014-06-23 13:07:11 cg Exp $'
! !