diff -r c46c9ffe64c3 -r ca909db9a8db Tools__TagsBrowser.st --- 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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 $' ! ! -