--- a/Tools__TagsBrowser.st Tue Jun 10 12:06:06 2014 +0200
+++ b/Tools__TagsBrowser.st Tue Jun 10 12:23:28 2014 +0200
@@ -1,6 +1,6 @@
"
- COPYRIGHT (c) 2002 by eXept Software AG
- All Rights Reserved
+ COPYRIGHT (c) 2002 by eXept Software AG
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -32,8 +32,8 @@
copyright
"
- COPYRIGHT (c) 2002 by eXept Software AG
- All Rights Reserved
+ COPYRIGHT (c) 2002 by eXept Software AG
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -103,53 +103,53 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: windowSpec
- window:
+ name: windowSpec
+ window:
(WindowSpec
- label: 'TagsBrowser'
- name: 'TagsBrowser'
- min: (Point 10 10)
- max: (Point 1024 768)
- bounds: (Rectangle 0 0 300 337)
- )
- component:
+ 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
- )
- )
-
- )
+ 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
+ )
+ )
+
+ )
)
! !
@@ -169,56 +169,56 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasAssemblerSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Local Labels (Style1: Starting with ".")'
- translateLabel: true
- isVisible: editedFileHasAssemblerSuffix
- hideMenuOnActivated: false
- indication: hideLocalLabels:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Local Labels (Style2: Not Starting with "_")'
- translateLabel: true
- isVisible: editedFileHasAssemblerSuffix
- hideMenuOnActivated: false
- indication: hideLocalLabels2:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Local Labels (Style3: "L[0-9]+")'
- translateLabel: true
- isVisible: editedFileHasAssemblerSuffix
- hideMenuOnActivated: false
- indication: hideLocalLabels3:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Data Labels'
- translateLabel: true
- isVisible: editedFileHasAssemblerSuffix
- hideMenuOnActivated: false
- indication: hideDataLabels:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Text Labels'
- translateLabel: true
- isVisible: editedFileHasAssemblerSuffix
- hideMenuOnActivated: false
- indication: hideTextLabels:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasAssemblerSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Local Labels (Style1: Starting with ".")'
+ translateLabel: true
+ isVisible: editedFileHasAssemblerSuffix
+ hideMenuOnActivated: false
+ indication: hideLocalLabels:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Local Labels (Style2: Not Starting with "_")'
+ translateLabel: true
+ isVisible: editedFileHasAssemblerSuffix
+ hideMenuOnActivated: false
+ indication: hideLocalLabels2:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Local Labels (Style3: "L[0-9]+")'
+ translateLabel: true
+ isVisible: editedFileHasAssemblerSuffix
+ hideMenuOnActivated: false
+ indication: hideLocalLabels3:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Data Labels'
+ translateLabel: true
+ isVisible: editedFileHasAssemblerSuffix
+ hideMenuOnActivated: false
+ indication: hideDataLabels:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Text Labels'
+ translateLabel: true
+ isVisible: editedFileHasAssemblerSuffix
+ hideMenuOnActivated: false
+ indication: hideTextLabels:
+ )
+ )
+ nil
+ nil
)
"Modified: / 13-05-2012 / 11:26:28 / cg"
@@ -238,145 +238,145 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasCSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes, Functions && Variables Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: classesFunctionsAndVariablesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: classesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Functions Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: functionsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Variables Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: variablesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Types Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: typesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Structs Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: structsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Defines Only'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- indication: definesOnly:
- )
- (MenuItem
- label: '-'
- isVisible: editedFileHasCSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Functions'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideFunctions:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Variables'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideVariables:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Typedefs'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideTypedefs:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Structures'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideStructures:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Struct Members'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideStructMembers:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Defines'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideDefines:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Labels'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideLabels:
- )
- (MenuItem
- label: '-'
- isVisible: editedFileHasCSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Static'
- translateLabel: true
- isVisible: editedFileHasCSuffix
- hideMenuOnActivated: false
- indication: hideStatic:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasCSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes, Functions && Variables Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: classesFunctionsAndVariablesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: classesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Functions Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: functionsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Variables Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: variablesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Types Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: typesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Structs Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: structsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Defines Only'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ indication: definesOnly:
+ )
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasCSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Functions'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideFunctions:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Variables'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideVariables:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Typedefs'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideTypedefs:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Structures'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideStructures:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Struct Members'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideStructMembers:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Defines'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideDefines:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Labels'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideLabels:
+ )
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasCSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Static'
+ translateLabel: true
+ isVisible: editedFileHasCSuffix
+ hideMenuOnActivated: false
+ indication: hideStatic:
+ )
+ )
+ nil
+ nil
)
!
@@ -394,81 +394,81 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasDartSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes Only'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- indication: dartClassesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Methods Only'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- indication: dartMethodsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes && Methods Only'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- indication: dartClassesAndMethodsOnly:
- )
- (MenuItem
- label: '-'
- isVisible: editedFileHasDartSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Packages'
- translateLabel: true
- isVisible: false "editedFileHasDartSuffix"
- hideMenuOnActivated: false
- indication: hideJavaPackages:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- hideMenuOnActivated: false
- indication: hideDartClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Interfaces'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- hideMenuOnActivated: false
- indication: hideDartInterfaces:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- hideMenuOnActivated: false
- indication: hideDartMethods:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Fields'
- translateLabel: true
- isVisible: editedFileHasDartSuffix
- hideMenuOnActivated: false
- indication: hideDartFields:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasDartSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes Only'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ indication: dartClassesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Methods Only'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ indication: dartMethodsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes && Methods Only'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ indication: dartClassesAndMethodsOnly:
+ )
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasDartSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Packages'
+ translateLabel: true
+ isVisible: false "editedFileHasDartSuffix"
+ hideMenuOnActivated: false
+ indication: hideJavaPackages:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ hideMenuOnActivated: false
+ indication: hideDartClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Interfaces'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ hideMenuOnActivated: false
+ indication: hideDartInterfaces:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ hideMenuOnActivated: false
+ indication: hideDartMethods:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Fields'
+ translateLabel: true
+ isVisible: editedFileHasDartSuffix
+ hideMenuOnActivated: false
+ indication: hideDartFields:
+ )
+ )
+ nil
+ nil
)
"Modified: / 21-08-2012 / 20:49:32 / cg"
@@ -488,73 +488,73 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasJavaSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes Only'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- indication: javaClassesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Methods OnLy'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- indication: javaMethodsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes && Methods Only'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- indication: javaClassesAndMethodsOnly:
- )
- (MenuItem
- label: '-'
- isVisible: editedFileHasJavaSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Packages'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- hideMenuOnActivated: false
- indication: hideJavaPackages:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- hideMenuOnActivated: false
- indication: hideJavaClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- hideMenuOnActivated: false
- indication: hideJavaMethods:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Fields'
- translateLabel: true
- isVisible: editedFileHasJavaSuffix
- hideMenuOnActivated: false
- indication: hideJavaFields:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasJavaSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes Only'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ indication: javaClassesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Methods OnLy'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ indication: javaMethodsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes && Methods Only'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ indication: javaClassesAndMethodsOnly:
+ )
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasJavaSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Packages'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ hideMenuOnActivated: false
+ indication: hideJavaPackages:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ hideMenuOnActivated: false
+ indication: hideJavaClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ hideMenuOnActivated: false
+ indication: hideJavaMethods:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Fields'
+ translateLabel: true
+ isVisible: editedFileHasJavaSuffix
+ hideMenuOnActivated: false
+ indication: hideJavaFields:
+ )
+ )
+ nil
+ nil
)
!
@@ -572,32 +572,32 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasJavaScriptSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Functions Only'
- translateLabel: true
- isVisible: editedFileHasJavaScriptSuffix
- hideMenuOnActivated: false
- indication: functionsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Variables Only'
- translateLabel: true
- isVisible: editedFileHasJavaScriptSuffix
- hideMenuOnActivated: false
- indication: variablesOnly:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasJavaScriptSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Functions Only'
+ translateLabel: true
+ isVisible: editedFileHasJavaScriptSuffix
+ hideMenuOnActivated: false
+ indication: functionsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Variables Only'
+ translateLabel: true
+ isVisible: editedFileHasJavaScriptSuffix
+ hideMenuOnActivated: false
+ indication: variablesOnly:
+ )
+ )
+ nil
+ nil
)
!
@@ -615,134 +615,134 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasLispSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Documentation Only'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- indication: documentationOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes Only'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- indication: classesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Methods Only'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- indication: methodsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Functions Only'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- indication: functionsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Variables Only'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- indication: variablesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Macros Only'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- indication: macrosOnly:
- )
- (MenuItem
- label: '-'
- isVisible: editedFileHasLispSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Documentation'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideDocumentation:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideLispMethods:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Functions'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideFunctions:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Variables'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideVariables:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Macros'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideLispMacros:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Constants'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideLispConstants:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Evaluations'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideLispEvaluations:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Structs'
- translateLabel: true
- isVisible: editedFileHasLispSuffix
- hideMenuOnActivated: false
- indication: hideStructures:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasLispSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Documentation Only'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ indication: documentationOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes Only'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ indication: classesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Methods Only'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ indication: methodsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Functions Only'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ indication: functionsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Variables Only'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ indication: variablesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Macros Only'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ indication: macrosOnly:
+ )
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasLispSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Documentation'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideDocumentation:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideLispMethods:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Functions'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideFunctions:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Variables'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideVariables:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Macros'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideLispMacros:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Constants'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideLispConstants:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Evaluations'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideLispEvaluations:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Structs'
+ translateLabel: true
+ isVisible: editedFileHasLispSuffix
+ hideMenuOnActivated: false
+ indication: hideStructures:
+ )
+ )
+ nil
+ nil
)
!
@@ -760,32 +760,32 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasLuaSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Functions Only'
- translateLabel: true
- isVisible: editedFileHasLuaSuffix
- hideMenuOnActivated: false
- indication: functionsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Variables Only'
- translateLabel: true
- isVisible: editedFileHasLuaSuffix
- hideMenuOnActivated: false
- indication: variablesOnly:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasLuaSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Functions Only'
+ translateLabel: true
+ isVisible: editedFileHasLuaSuffix
+ hideMenuOnActivated: false
+ indication: functionsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Variables Only'
+ translateLabel: true
+ isVisible: editedFileHasLuaSuffix
+ hideMenuOnActivated: false
+ indication: variablesOnly:
+ )
+ )
+ nil
+ nil
)
!
@@ -803,24 +803,24 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileIsMakefile
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Targets Only'
- translateLabel: true
- isVisible: editedFileIsMakefile
- hideMenuOnActivated: false
- indication: targetsOnly:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileIsMakefile
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Targets Only'
+ translateLabel: true
+ isVisible: editedFileIsMakefile
+ hideMenuOnActivated: false
+ indication: targetsOnly:
+ )
+ )
+ nil
+ nil
)
!
@@ -838,126 +838,126 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Group by Type'
- translateLabel: true
- indication: groupedByType:
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Sort by Name'
- translateLabel: true
- indication: sortedByName:
- )
- (MenuItem
- label: 'Sort by Name Ignoring Case'
- translateLabel: true
- indication: sortedByNameIgnoringCase:
- )
- (MenuItem
- label: 'Sort by Name (Ignore Leading Underscores)'
- translateLabel: true
- indication: sortedByNameIgnoringLeadingUnderscores:
- )
- (MenuItem
- label: 'Sort by Name (Ignore Leading Underscores and Case)'
- translateLabel: true
- indication: sortedByNameIgnoringLeadingUnderscoresAndCase:
- )
- (MenuItem
- label: 'Sort by Line Number'
- translateLabel: true
- indication: sortedByLineNumber:
- )
- (MenuItem
- label: 'C Menu Slice'
- translateLabel: true
- submenuChannel: cMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Smalltalk Menu Slice'
- translateLabel: true
- submenuChannel: smalltalkMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Java Menu Slice'
- translateLabel: true
- submenuChannel: javaMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'JavaScript Menu Slice'
- translateLabel: true
- submenuChannel: javaScriptMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Dart Menu Slice'
- translateLabel: true
- submenuChannel: dartMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'TCL Menu Slice'
- translateLabel: true
- submenuChannel: tclMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Assembler Menu Slice'
- translateLabel: true
- submenuChannel: assemblerMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Lisp Menu Slice'
- translateLabel: true
- submenuChannel: lispMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Lua Menu Slice'
- translateLabel: true
- submenuChannel: luaMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Python Menu Slice'
- translateLabel: true
- submenuChannel: pythonMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'OZ Menu Slice'
- translateLabel: true
- submenuChannel: ozMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Makefile Menu Slice'
- translateLabel: true
- submenuChannel: makefileMenuSlice
- isMenuSlice: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Update'
- itemValue: updateTagList
- translateLabel: true
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Group by Type'
+ translateLabel: true
+ indication: groupedByType:
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Sort by Name'
+ translateLabel: true
+ indication: sortedByName:
+ )
+ (MenuItem
+ label: 'Sort by Name Ignoring Case'
+ translateLabel: true
+ indication: sortedByNameIgnoringCase:
+ )
+ (MenuItem
+ label: 'Sort by Name (Ignore Leading Underscores)'
+ translateLabel: true
+ indication: sortedByNameIgnoringLeadingUnderscores:
+ )
+ (MenuItem
+ label: 'Sort by Name (Ignore Leading Underscores and Case)'
+ translateLabel: true
+ indication: sortedByNameIgnoringLeadingUnderscoresAndCase:
+ )
+ (MenuItem
+ label: 'Sort by Line Number'
+ translateLabel: true
+ indication: sortedByLineNumber:
+ )
+ (MenuItem
+ label: 'C Menu Slice'
+ translateLabel: true
+ submenuChannel: cMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Smalltalk Menu Slice'
+ translateLabel: true
+ submenuChannel: smalltalkMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Java Menu Slice'
+ translateLabel: true
+ submenuChannel: javaMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'JavaScript Menu Slice'
+ translateLabel: true
+ submenuChannel: javaScriptMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Dart Menu Slice'
+ translateLabel: true
+ submenuChannel: dartMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'TCL Menu Slice'
+ translateLabel: true
+ submenuChannel: tclMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Assembler Menu Slice'
+ translateLabel: true
+ submenuChannel: assemblerMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Lisp Menu Slice'
+ translateLabel: true
+ submenuChannel: lispMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Lua Menu Slice'
+ translateLabel: true
+ submenuChannel: luaMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Python Menu Slice'
+ translateLabel: true
+ submenuChannel: pythonMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'OZ Menu Slice'
+ translateLabel: true
+ submenuChannel: ozMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Makefile Menu Slice'
+ translateLabel: true
+ submenuChannel: makefileMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Update'
+ itemValue: updateTagList
+ translateLabel: true
+ )
+ )
+ nil
+ nil
)
"Modified: / 21-08-2012 / 21:00:35 / cg"
@@ -977,40 +977,40 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasOzSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasOzSuffix
- hideMenuOnActivated: false
- indication: hideOzClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasOzSuffix
- hideMenuOnActivated: false
- indication: hideOzMethods:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Functions'
- translateLabel: true
- isVisible: editedFileHasOzSuffix
- hideMenuOnActivated: false
- indication: hideOzFunctions:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasOzSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasOzSuffix
+ hideMenuOnActivated: false
+ indication: hideOzClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasOzSuffix
+ hideMenuOnActivated: false
+ indication: hideOzMethods:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Functions'
+ translateLabel: true
+ isVisible: editedFileHasOzSuffix
+ hideMenuOnActivated: false
+ indication: hideOzFunctions:
+ )
+ )
+ nil
+ nil
)
!
@@ -1028,65 +1028,65 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasPythonSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Classes Only'
- translateLabel: true
- isVisible: editedFileHasPythonSuffix
- indication: pythonClassesOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Methods Only'
- translateLabel: true
- isVisible: editedFileHasPythonSuffix
- indication: pythonMethodsOnly:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Functions Only'
- translateLabel: true
- isVisible: editedFileHasPythonSuffix
- indication: pythonFunctionsOnly:
- )
- (MenuItem
- label: '-'
- isVisible: editedFileHasPythonSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasPythonSuffix
- hideMenuOnActivated: false
- indication: hidePythonClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasPythonSuffix
- hideMenuOnActivated: false
- indication: hidePythonMethods:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Functions'
- translateLabel: true
- isVisible: editedFileHasPythonSuffix
- hideMenuOnActivated: false
- indication: hidePythonFunctions:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasPythonSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Classes Only'
+ translateLabel: true
+ isVisible: editedFileHasPythonSuffix
+ indication: pythonClassesOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Methods Only'
+ translateLabel: true
+ isVisible: editedFileHasPythonSuffix
+ indication: pythonMethodsOnly:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Functions Only'
+ translateLabel: true
+ isVisible: editedFileHasPythonSuffix
+ indication: pythonFunctionsOnly:
+ )
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasPythonSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasPythonSuffix
+ hideMenuOnActivated: false
+ indication: hidePythonClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasPythonSuffix
+ hideMenuOnActivated: false
+ indication: hidePythonMethods:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Functions'
+ translateLabel: true
+ isVisible: editedFileHasPythonSuffix
+ hideMenuOnActivated: false
+ indication: hidePythonFunctions:
+ )
+ )
+ nil
+ nil
)
!
@@ -1104,32 +1104,32 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasSmalltalkSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasSmalltalkSuffix
- hideMenuOnActivated: false
- indication: hideClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasSmalltalkSuffix
- hideMenuOnActivated: false
- indication: hideMethods:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasSmalltalkSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasSmalltalkSuffix
+ hideMenuOnActivated: false
+ indication: hideClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasSmalltalkSuffix
+ hideMenuOnActivated: false
+ indication: hideMethods:
+ )
+ )
+ nil
+ nil
)
"Created: / 21-08-2012 / 20:59:28 / cg"
@@ -1149,24 +1149,24 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasTCLSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Variables'
- translateLabel: true
- isVisible: editedFileHasTCLSuffix
- hideMenuOnActivated: false
- indication: hideVariables:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasTCLSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Variables'
+ translateLabel: true
+ isVisible: editedFileHasTCLSuffix
+ hideMenuOnActivated: false
+ indication: hideVariables:
+ )
+ )
+ nil
+ nil
)
!
@@ -1185,61 +1185,61 @@
<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
+ 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
)
! !
@@ -1269,8 +1269,8 @@
"gets the holder, which keeps the current edited file
"
editedFileHolder isNil ifTrue:[
- editedFileHolder := nil asValue.
- editedFileHolder addDependent:self.
+ editedFileHolder := nil asValue.
+ editedFileHolder addDependent:self.
].
^ editedFileHolder.
@@ -1282,11 +1282,11 @@
"gets the holder, which keeps the current edited file
"
editedFileHolder notNil ifTrue:[
- editedFileHolder removeDependent:self.
+ editedFileHolder removeDependent:self.
].
editedFileHolder := aHolder.
editedFileHolder notNil ifTrue:[
- editedFileHolder addDependent:self.
+ editedFileHolder addDependent:self.
].
"Created: / 07-05-2011 / 10:16:18 / cg"
@@ -1300,13 +1300,13 @@
tagsMenu := something.
!
-tagsValid
+tagsValid
^ tagsValid ? false
!
tempDirectory
commonAspects notNil ifTrue:[
- ^ commonAspects tempDirectory
+ ^ commonAspects tempDirectory
].
^ Filename tempDirectory
@@ -1321,9 +1321,9 @@
classesFunctionsAndVariablesOnly:aBool
aBool ifTrue:[
- tagList hideClasses:false.
- tagList hideFunctions:false.
- tagList hideVariables:false.
+ tagList hideClasses:false.
+ tagList hideFunctions:false.
+ tagList hideVariables:false.
].
tagList classesFunctionsAndVariablesOnly:aBool.
self updateTagList
@@ -1337,7 +1337,7 @@
classesOnly:aBool
aBool ifTrue:[
- tagList hideClasses:false.
+ tagList hideClasses:false.
].
tagList classesOnly:aBool.
self updateTagList
@@ -1351,8 +1351,8 @@
dartClassesAndMethodsOnly:aBool
aBool ifTrue:[
- tagList hideDartClasses:false.
- tagList hideDartMethods:false.
+ tagList hideDartClasses:false.
+ tagList hideDartMethods:false.
].
tagList dartClassesAndMethodsOnly:aBool.
self updateTagList
@@ -1364,7 +1364,7 @@
dartClassesOnly:aBool
aBool ifTrue:[
- tagList hideDartClasses:false.
+ tagList hideDartClasses:false.
].
tagList dartClassesOnly:aBool.
self updateTagList
@@ -1376,7 +1376,7 @@
dartMethodsOnly:aBool
aBool ifTrue:[
- tagList hideDartMethods:false.
+ tagList hideDartMethods:false.
].
tagList dartMethodsOnly:aBool.
self updateTagList
@@ -1388,7 +1388,7 @@
definesOnly:aBool
aBool ifTrue:[
- tagList hideDefines:false.
+ tagList hideDefines:false.
].
tagList definesOnly:aBool.
self updateTagList
@@ -1402,7 +1402,7 @@
documentationOnly:aBool
aBool ifTrue:[
- tagList hideDocumentation:false.
+ tagList hideDocumentation:false.
].
tagList documentationOnly:aBool.
self updateTagList
@@ -1416,8 +1416,8 @@
functionsAndVariablesOnly:aBool
aBool ifTrue:[
- tagList hideFunctions:false.
- tagList hideVariables:false.
+ tagList hideFunctions:false.
+ tagList hideVariables:false.
].
tagList functionsAndVariablesOnly:aBool.
self updateTagList
@@ -1430,7 +1430,7 @@
functionsOnly:aBool
self functionsOnlyHolder value:aBool.
aBool ifTrue:[
- tagList hideFunctions:false.
+ tagList hideFunctions:false.
].
tagList functionsOnly:aBool.
self updateTagList
@@ -1811,8 +1811,8 @@
javaClassesAndMethodsOnly:aBool
aBool ifTrue:[
- tagList hideJavaClasses:false.
- tagList hideJavaMethods:false.
+ tagList hideJavaClasses:false.
+ tagList hideJavaMethods:false.
].
tagList javaClassesAndMethodsOnly:aBool.
self updateTagList
@@ -1824,7 +1824,7 @@
javaClassesOnly:aBool
aBool ifTrue:[
- tagList hideJavaClasses:false.
+ tagList hideJavaClasses:false.
].
tagList javaClassesOnly:aBool.
self updateTagList
@@ -1836,7 +1836,7 @@
javaMethodsOnly:aBool
aBool ifTrue:[
- tagList hideJavaMethods:false.
+ tagList hideJavaMethods:false.
].
tagList javaMethodsOnly:aBool.
self updateTagList
@@ -1848,7 +1848,7 @@
luaFunctionsOnly:aBool
aBool ifTrue:[
- tagList hideLuaFunctions:false.
+ tagList hideLuaFunctions:false.
].
tagList luaFunctionsOnly:aBool.
self updateTagList
@@ -1862,7 +1862,7 @@
macrosOnly:aBool
aBool ifTrue:[
- tagList hideLispMacros:false.
+ tagList hideLispMacros:false.
].
tagList macrosOnly:aBool.
self updateTagList
@@ -1878,7 +1878,7 @@
methodsOnly:aBool
aBool ifTrue:[
- tagList hideLispMethods:false.
+ tagList hideLispMethods:false.
].
tagList methodsOnly:aBool.
self updateTagList
@@ -1892,7 +1892,7 @@
pythonClassesOnly:aBool
aBool ifTrue:[
- tagList hidePythonClasses:false.
+ tagList hidePythonClasses:false.
].
tagList pythonClassesOnly:aBool.
self updateTagList
@@ -1904,7 +1904,7 @@
pythonFunctionsOnly:aBool
aBool ifTrue:[
- tagList hidePythonFunctions:false.
+ tagList hidePythonFunctions:false.
].
tagList pythonFunctionsOnly:aBool.
self updateTagList
@@ -1916,7 +1916,7 @@
pythonMethodsOnly:aBool
aBool ifTrue:[
- tagList hidePythonMethods:false.
+ tagList hidePythonMethods:false.
].
tagList pythonMethodsOnly:aBool.
self updateTagList
@@ -1958,7 +1958,7 @@
typesOnly:aBool
aBool ifTrue:[
- tagList hideTypedefs:false.
+ tagList hideTypedefs:false.
].
tagList typesOnly:aBool.
self updateTagList
@@ -1970,7 +1970,7 @@
variablesOnly:aBool
aBool ifTrue:[
- tagList hideVariables:false.
+ tagList hideVariables:false.
].
tagList variablesOnly:aBool.
self updateTagList
@@ -2141,8 +2141,8 @@
|holder|
(holder := builder bindingAt:#remoteCtagsModel) isNil ifTrue:[
- holder := false asValue.
- builder aspectAt:#remoteCtagsModel put:holder.
+ holder := false asValue.
+ builder aspectAt:#remoteCtagsModel put:holder.
].
^ holder.
!
@@ -2163,9 +2163,9 @@
|holder|
(holder := builder bindingAt:#tagFilterFieldVisibleHolder) isNil ifTrue:[
- holder := false asValue.
- builder aspectAt:#tagFilterFieldVisibleHolder put:holder.
- holder onChangeSend:#tagFilterVisibilityChanged to:self.
+ holder := false asValue.
+ builder aspectAt:#tagFilterFieldVisibleHolder put:holder.
+ holder onChangeSend:#tagFilterVisibilityChanged to:self.
].
^ holder.
@@ -2176,9 +2176,9 @@
|holder|
(holder := builder bindingAt:#tagFilterPatternHolder) isNil ifTrue:[
- holder := '' asValue.
- builder aspectAt:#tagFilterPatternHolder put:holder.
- holder onChangeSend:#tagFilterChanged to:self.
+ holder := '' asValue.
+ builder aspectAt:#tagFilterPatternHolder put:holder.
+ holder onChangeSend:#tagFilterChanged to:self.
].
^ holder.
@@ -2206,7 +2206,7 @@
self updateFileTypeHolders.
tagsValid ifFalse:[
- self updateTagList.
+ self updateTagList.
].
"Created: / 07-05-2011 / 15:36:52 / cg"
@@ -2227,10 +2227,10 @@
tagFilterVisibilityChanged
self tagFilterFieldVisibleHolder value ifTrue:[
-"/ self windowGroup
-"/ focusView:(self builder componentAt:#TagFilterInputField)
+"/ self windowGroup
+"/ focusView:(self builder componentAt:#TagFilterInputField)
"/ byTab:true.
- self enqueueMessage:#assignFocusToTagFilterInputField for:self arguments:#().
+ self enqueueMessage:#assignFocusToTagFilterInputField for:self arguments:#().
].
"Created: / 01-08-2012 / 17:00:27 / cg"
@@ -2238,9 +2238,9 @@
update:something with:aparameter from:changedObject
changedObject == self editedFileHolder ifTrue:[
- tagList removeAll.
- self editedFileChanged.
- ^ self
+ tagList removeAll.
+ self editedFileChanged.
+ ^ self
].
super update:something with:aparameter from:changedObject
@@ -2261,32 +2261,32 @@
mime := TagList tagMimeTypeForFile:edFile.
- "/ valueHolder mime(s)
+ "/ valueHolder mime(s)
#(
- (editedFileHasJavaSuffix ('text/java' 'application/x-java-source'))
- (editedFileHasJavaScriptSuffix ('text/javaScript' 'text/javascript' 'application/x-javascript' 'application/x-javascript-source') )
- (editedFileHasDartSuffix ('text/dart' 'application/x-dart' 'application/x-dart-source') )
- (editedFileHasCSuffix ('text/c' 'application/x-c-source'))
- (editedFileHasEiffelSuffix ('text/eiffel' 'application/x-eiffel-source'))
- (editedFileHasFortranSuffix ('text/fortran' 'application/x-fortran-source'))
- (editedFileHasPythonSuffix ('text/python' 'application/x-python-source'))
- (editedFileHasOzSuffix ('text/oz' 'application/x-oz-source'))
- (editedFileHasLuaSuffix ('text/lua' 'application/x-lua-source'))
- (editedFileHasLispSuffix ('text/lisp' 'text/lisp-arc' 'text/scheme' 'application/x-lisp-source' 'application/x-scheme-source') )
- (editedFileHasSmalltalkSuffix ('text/smalltalk' 'application/x-smalltalk-source'))
- (editedFileHasTCLSuffix ('text/tcl' 'application/x-tcl-source') )
- (editedFileHasAssemblerSuffix ('text/asm' 'application/x-assembler-source'))
- (editedFileIsMakefile 'text/make')
- (editedFileHasRubySuffix ('text/ruby' 'application/x-ruby-source'))
+ (editedFileHasJavaSuffix ('text/java' 'application/x-java-source'))
+ (editedFileHasJavaScriptSuffix ('text/javaScript' 'text/javascript' 'application/x-javascript' 'application/x-javascript-source') )
+ (editedFileHasDartSuffix ('text/dart' 'application/x-dart' 'application/x-dart-source') )
+ (editedFileHasCSuffix ('text/c' 'application/x-c-source'))
+ (editedFileHasEiffelSuffix ('text/eiffel' 'application/x-eiffel-source'))
+ (editedFileHasFortranSuffix ('text/fortran' 'application/x-fortran-source'))
+ (editedFileHasPythonSuffix ('text/python' 'application/x-python-source'))
+ (editedFileHasOzSuffix ('text/oz' 'application/x-oz-source'))
+ (editedFileHasLuaSuffix ('text/lua' 'application/x-lua-source'))
+ (editedFileHasLispSuffix ('text/lisp' 'text/lisp-arc' 'text/scheme' 'application/x-lisp-source' 'application/x-scheme-source') )
+ (editedFileHasSmalltalkSuffix ('text/smalltalk' 'application/x-smalltalk-source'))
+ (editedFileHasTCLSuffix ('text/tcl' 'application/x-tcl-source') )
+ (editedFileHasAssemblerSuffix ('text/asm' 'application/x-assembler-source'))
+ (editedFileIsMakefile 'text/make')
+ (editedFileHasRubySuffix ('text/ruby' 'application/x-ruby-source'))
) pairsDo:[:holderName :mimeTypeOrTypes |
- |holder|
-
- holder := self perform:holderName.
- mimeTypeOrTypes isString ifTrue:[
- holder value:(mime = mimeTypeOrTypes)
- ] ifFalse:[
- holder value:(mimeTypeOrTypes includes:mime)
- ].
+ |holder|
+
+ holder := self perform:holderName.
+ mimeTypeOrTypes isString ifTrue:[
+ holder value:(mime = mimeTypeOrTypes)
+ ] ifFalse:[
+ holder value:(mimeTypeOrTypes includes:mime)
+ ].
].
"Modified: / 21-08-2012 / 20:54:08 / cg"
@@ -2309,10 +2309,10 @@
bestTag := tagList bestTagForLine:lineNr filtering:tagFilterOrNil.
bestTag notNil ifTrue:[
- tagView setSelection:(tagList identityIndexOf:bestTag).
+ tagView setSelection:(tagList identityIndexOf:bestTag).
] ifFalse:[
- "/ remember line in case the tag-list is being generated
- tagView tagLineNr:lineNr
+ "/ remember line in case the tag-list is being generated
+ tagView tagLineNr:lineNr
].
"Modified: / 23-06-2011 / 17:28:26 / cg"
@@ -2322,7 +2322,7 @@
buildTarget
commonAspects notNil ifTrue:[
- ^ commonAspects buildTarget
+ ^ commonAspects buildTarget
].
^ nil
@@ -2352,67 +2352,67 @@
oldSelection := tagView selectionValue.
aBlock value.
- oldSelection notNil ifTrue:[
- oldLabel := oldSelection label.
- tagView
- selectElementForWhich:[:el | el label = oldLabel]
- ifAbsent:[self halt:'ouch - no such label'].
+ oldSelection notNil ifTrue:[
+ oldLabel := oldSelection label.
+ tagView
+ selectElementForWhich:[:el | el label = oldLabel]
+ ifAbsent:[self halt:'ouch - no such label'].
].
"Created: / 06-10-2011 / 13:41:57 / cg"
!
middleButtonMenu
- ^ [
- |menu suffix file item|
-
- tagsMenu notNil ifTrue:[
- tagsMenu
- ] ifFalse:[
- menus isNil ifTrue:[
- menus := IdentityDictionary new.
- ].
-
- menu := nil.
-
- (file := self editedFile) notNil ifTrue:[
- (tagList supportsFile:file) ifTrue:[
- menu := menus at:#exists ifAbsentPut:[
- menu := self class middleButtonMenu decodeAsLiteralArray.
- menu receiver:self.
- menu findGuiResourcesIn:self.
- menu
- ].
- menu := MenuPanel menu:menu receiver:self.
- ] ifFalse:[
- suffix := file suffix.
-
- suffix size ~~ 0 ifTrue:[
- menu := menus at:#new ifAbsentPut:[
- menu := Menu new.
- item := MenuItem label:('assign ', (Text string:suffix emphasis:#underline), ' to:').
- item enabled:false.
- menu addItem:item.
- menu addItem:(MenuItem separator).
-
- tagList class tagsSuffixes keysAndValuesDo:[:aKey :aValue|
- item := MenuItem label:(' - ', aKey )
- itemValue:[ |list|
- list := aValue asOrderedCollection.
- list add:(suffix asLowercase).
- tagList class tagsSuffixes at:aKey put:list.
- self editedFileChanged.
- ].
- menu addItem:item.
- ].
- menu
- ].
-
- ]
- ].
- ].
- menu
- ]
+ ^ [
+ |menu suffix file item|
+
+ tagsMenu notNil ifTrue:[
+ tagsMenu
+ ] ifFalse:[
+ menus isNil ifTrue:[
+ menus := IdentityDictionary new.
+ ].
+
+ menu := nil.
+
+ (file := self editedFile) notNil ifTrue:[
+ (tagList supportsFile:file) ifTrue:[
+ menu := menus at:#exists ifAbsentPut:[
+ menu := self class middleButtonMenu decodeAsLiteralArray.
+ menu receiver:self.
+ menu findGuiResourcesIn:self.
+ menu
+ ].
+ menu := MenuPanel menu:menu receiver:self.
+ ] ifFalse:[
+ suffix := file suffix.
+
+ suffix size ~~ 0 ifTrue:[
+ menu := menus at:#new ifAbsentPut:[
+ menu := Menu new.
+ item := MenuItem label:('assign ', (Text string:suffix emphasis:#underline), ' to:').
+ item enabled:false.
+ menu addItem:item.
+ menu addItem:(MenuItem separator).
+
+ tagList class tagsSuffixes keysAndValuesDo:[:aKey :aValue|
+ item := MenuItem label:(' - ', aKey )
+ itemValue:[ |list|
+ list := aValue asOrderedCollection.
+ list add:(suffix asLowercase).
+ tagList class tagsSuffixes at:aKey put:list.
+ self editedFileChanged.
+ ].
+ menu addItem:item.
+ ].
+ menu
+ ].
+
+ ]
+ ].
+ ].
+ menu
+ ]
]
"Modified: / 08-09-2012 / 19:51:03 / cg"
@@ -2420,9 +2420,9 @@
sortByLineNumber
self keepingSelectionDo:[
- tagList sortedByLineNumber:true.
- self sortIsByName value:false.
- self sortIsByLineNumber value:true.
+ tagList sortedByLineNumber:true.
+ self sortIsByName value:false.
+ self sortIsByLineNumber value:true.
]
"Created: / 03-08-2011 / 11:04:51 / cg"
@@ -2430,9 +2430,9 @@
sortByName
self keepingSelectionDo:[
- tagList sortedByNameIgnoringLeadingUnderscoresAndCase: "sortedByName:" true.
- self sortIsByLineNumber value:false.
- self sortIsByName value:true.
+ tagList sortedByNameIgnoringLeadingUnderscoresAndCase: "sortedByName:" true.
+ self sortIsByLineNumber value:false.
+ self sortIsByName value:true.
].
"Created: / 03-08-2011 / 11:04:37 / cg"
@@ -2445,41 +2445,41 @@
|file target oldSelection|
tagListGenerator notNil ifTrue:[
- tagList setRawList:(tagListGenerator value).
- "/ tagView list:(tagListGenerator value).
- tagsValid := true.
- ^ self.
+ tagList setRawList:(tagListGenerator value).
+ "/ tagView list:(tagListGenerator value).
+ tagsValid := true.
+ ^ self.
].
tagsValid := false.
(true "(self tagsVisibilityHolder value == true)"
- and:[(file := self editedFile) notNil
- and:[tagList supportsFile:file]]
+ and:[(file := self editedFile) notNil
+ and:[tagList supportsFile:file]]
) ifTrue:[
- (target := self buildTarget) notNil ifTrue:[
- (target isRemote and:[self tagsRemoteHolder value]) ifFalse:[
- target := nil
- ]
- ].
- oldSelection := tagView selectionValue.
- (tagView generateTagsFor:file onTarget:target
- finally:[
- |oldLabel|
-
- oldSelection notNil ifTrue:[
- oldLabel := oldSelection label.
- tagView selectElementForWhich:[:el | el label = oldLabel] ifAbsent:["ok, if previous tag is filtered away" "self halt"].
- ].
- tagsValid := true.
- ]
- ) ifFalse:[
- "/ did not start a background tag job
- tagsValid := true. "/ to avoid waiting forever
- ].
+ (target := self buildTarget) notNil ifTrue:[
+ (target isRemote and:[self tagsRemoteHolder value]) ifFalse:[
+ target := nil
+ ]
+ ].
+ oldSelection := tagView selectionValue.
+ (tagView generateTagsFor:file onTarget:target
+ finally:[
+ |oldLabel|
+
+ oldSelection notNil ifTrue:[
+ oldLabel := oldSelection label.
+ tagView selectElementForWhich:[:el | el label = oldLabel] ifAbsent:["ok, if previous tag is filtered away" "self halt"].
+ ].
+ tagsValid := true.
+ ]
+ ) ifFalse:[
+ "/ did not start a background tag job
+ tagsValid := true. "/ to avoid waiting forever
+ ].
] ifFalse:[
- tagView stopGeneratingTags.
- tagView clearList.
- tagsValid := true.
+ tagView stopGeneratingTags.
+ tagView clearList.
+ tagsValid := true.
].
"Modified: / 07-12-2011 / 11:13:18 / cg"
@@ -2487,7 +2487,7 @@
!TagsBrowser methodsFor:'startup & release'!
-assignFocusToTagFilterInputField
+assignFocusToTagFilterInputField
(self builder componentAt:#TagFilterInputField) requestFocus.
"/ (self builder componentAt:#TagFilterInputField) takeFocus
@@ -2531,11 +2531,11 @@
|tag|
action notNil ifTrue:[
- tagList isEmpty ifTrue:[
- tagList := tagView list
- ].
- tag := tagList at:idx ifAbsent:nil.
- tag notNil ifTrue:[ action value:tag ].
+ tagList isEmpty ifTrue:[
+ tagList := tagView list
+ ].
+ tag := tagList at:idx ifAbsent:nil.
+ tag notNil ifTrue:[ action value:tag ].
]
"Modified: / 03-08-2011 / 11:19:49 / cg"
@@ -2593,15 +2593,15 @@
label := item printString ? ''.
(inSelection := self isInSelection:anIndex) ifTrue:[
- self paint:hilightFgColor on:hilightBgColor.
- label := label string. "/ to avoid printing blue on blue
+ self paint:hilightFgColor on:hilightBgColor.
+ label := label string. "/ to avoid printing blue on blue
] ifFalse:[
- self paint:fgColor on:bgColor.
+ self paint:fgColor on:bgColor.
].
lineNrString := ' [ %1 ]' bindWith:item lineNumber.
inSelection ifFalse:[
- lineNrString := lineNrString colorizeAllWith:Color darkGrey.
+ lineNrString := lineNrString colorizeAllWith:Color darkGrey.
].
label := label asText , lineNrString.
@@ -2609,11 +2609,11 @@
typeIdentifier := item typeIdentifierInList.
typeIdentifier isNil ifTrue:[
- widthOfTypeIdentifier := 0
+ widthOfTypeIdentifier := 0
] ifFalse:[
- typeIdentifier := Text string:typeIdentifier emphasis:#bold.
- typeIdentifier displayOn:self x:x y:y0.
- widthOfTypeIdentifier := self font widthOf:typeIdentifier.
+ typeIdentifier := Text string:typeIdentifier emphasis:#bold.
+ typeIdentifier displayOn:self x:x y:y0.
+ widthOfTypeIdentifier := self font widthOf:typeIdentifier.
].
inset := TypeInset max:widthOfTypeIdentifier.
@@ -2635,8 +2635,8 @@
wL "{ Class:SmallInteger }"
|
(item := list at:lnNr ifAbsent:nil) isNil ifTrue:[
- "/ list might change during drawing; item no longer visible
- ^ self
+ "/ list might change during drawing; item no longer visible
+ ^ self
].
"/ CLEAR THE BACKGROUND
@@ -2657,22 +2657,22 @@
"/ DRAW THE FRAME
hilightFrameColor notNil ifTrue:[
- hilightLevel == 0 ifTrue:[
- self paint:hilightFrameColor.
- self displayRectangleX:x0 y:y0 width:wL height:hL.
- ^ self.
- ]
+ hilightLevel == 0 ifTrue:[
+ self paint:hilightFrameColor.
+ self displayRectangleX:x0 y:y0 width:wL height:hL.
+ ^ self.
+ ]
] ifFalse:[
- hilightStyle == #motif ifTrue:[
- self paint:bgColor.
- y1 := y0 + 1.
- self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2.
- ]
+ hilightStyle == #motif ifTrue:[
+ self paint:bgColor.
+ y1 := y0 + 1.
+ self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2.
+ ]
].
hilightLevel ~~ 0 ifTrue:[
- "/ draw edge
- self drawEdgesForX:x0 y:y0 width:wL height:hL level:hilightLevel.
+ "/ draw edge
+ self drawEdgesForX:x0 y:y0 width:wL height:hL level:hilightLevel.
]
! !
@@ -2686,7 +2686,7 @@
"/ ugly hack to suppress generation if the taglist is externally provided
(list isKindOf:Tools::TagList) ifFalse:[
- ^ false
+ ^ false
].
Tag autoload.
@@ -2694,52 +2694,52 @@
self stopGeneratingTags.
aFile isNil ifTrue:[
- ^ false
+ ^ false
].
fileName := aFile asFilename.
"/ (tagFile := application changes backupFor:fileName) isNil ifTrue:[
- tagFile := fileName.
+ tagFile := fileName.
"/ ].
process := [
- [
- Error handle:[:ex|
- Transcript show:'TagGenerator error cought:'; showCR:ex errorString.
- ex suspendedContext fullPrintAllOn:Transcript.
- (Dialog
- confirm:(resources stringWithCRs:'Error encountered while generating tags:\\ %1\\Debug ?' with:ex description)
- yesLabel:'Debug'
- ) ifTrue:[
- ex reject
- ].
- ] do:[
- |bestTag|
-
- self enabled:false.
- list add:nil.
- list add:(Tag label:('Generating Tags ...' allBold) pattern:nil).
- "/ list filter:filter.
- list sortedByName:(application sortIsByName value).
-
- list
- fromFile:tagFile
- in:(application tempDirectory)
- onTarget:aTarget.
-
- tagLineNr notNil ifTrue:[
- bestTag := list bestTagForLine:tagLineNr.
- bestTag notNil ifTrue:[
- self setSelection:(list identityIndexOf:bestTag).
- ].
- tagLineNr := nil
- ].
- aBlock value.
- ]
- ] ensure:[
- process := nil.
- self enabled:true.
- ].
+ [
+ Error handle:[:ex|
+ Transcript show:'TagGenerator error caught:'; showCR:ex errorString.
+ ex suspendedContext fullPrintAllOn:Transcript.
+ (Dialog
+ confirm:(resources stringWithCRs:'Error encountered while generating tags:\\ %1\\Debug ?' with:ex description)
+ yesLabel:'Debug'
+ ) ifTrue:[
+ ex reject
+ ].
+ ] do:[
+ |bestTag|
+
+ self enabled:false.
+ list add:nil.
+ list add:(Tag label:('Generating Tags ...' allBold) pattern:nil).
+ "/ list filter:filter.
+ list sortedByName:(application sortIsByName value).
+
+ list
+ fromFile:tagFile
+ in:(application tempDirectory)
+ onTarget:aTarget.
+
+ tagLineNr notNil ifTrue:[
+ bestTag := list bestTagForLine:tagLineNr.
+ bestTag notNil ifTrue:[
+ self setSelection:(list identityIndexOf:bestTag).
+ ].
+ tagLineNr := nil
+ ].
+ aBlock value.
+ ]
+ ] ensure:[
+ process := nil.
+ self enabled:true.
+ ].
] forkAt:4.
process priorityRange:(4 to:8).
@@ -2754,14 +2754,14 @@
|task|
(task := process) notNil ifTrue:[
- process := nil.
-
- Exception handle:[:ex|
- Transcript showCR:('cought exception during tag-process termination: ',ex description).
- ] do:[
- task terminateWithAllSubprocessesInGroup.
- task waitUntilTerminated.
- ]
+ process := nil.
+
+ Exception handle:[:ex|
+ Transcript showCR:('caught exception during tag-process termination: ',ex description).
+ ] do:[
+ task terminateWithAllSubprocessesInGroup.
+ task waitUntilTerminated.
+ ]
].
fileName := nil.
"/ list removeAll.
@@ -2786,29 +2786,28 @@
!TagsBrowser::TagView methodsFor:'protocol'!
-heightOfLineAt:aLineNr
+heightOfLineAt:aLineNr
"returns the total height for a line at an index (including lineSpacing)"
-
+
^ lineSpacing + gc font height
!
-widthOfWidestLineBetween:firstLine and:lastLine
+widthOfWidestLineBetween:firstLine and:lastLine
"return the width in pixels of the widest line in a range"
-
+
^ TypeInset + (super widthOfWidestLineBetween:firstLine and:lastLine)
! !
!TagsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.50 2014-06-08 21:01:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.51 2014-06-10 10:23:28 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.50 2014-06-08 21:01:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.51 2014-06-10 10:23:28 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__TagsBrowser.st,v 1.50 2014-06-08 21:01:43 cg Exp $'
+ ^ '$Id: Tools__TagsBrowser.st,v 1.51 2014-06-10 10:23:28 cg Exp $'
! !
-