"

 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

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#TagsBrowser

	instanceVariableNames:'editedFileHolder commonAspects tagView tagList action tagsMenu

		menus tagsValid tagListGenerator'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File-Tags'

!

SelectionInListModelView subclass:#TagView

	instanceVariableNames:'application process fileName tagLineNr itemHeight'

	classVariableNames:'TypeInset'

	poolDictionaries:''

	privateIn:TagsBrowser

!

!TagsBrowser class methodsFor:'documentation'!

copyright

"

 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

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a simple tag-support view, which can be plugged into another (file) application

    for indexing.

    Supports a bunch of languages somehow, but none really perfect.

    Uses ctags if present, if not, has naive fallback tag generation support.

    Good enough for me, doing occasional work in other languages (of course, is not able

    to compete with a specialized editor tools loke notepad++, emacs or similar.

"

! !

!TagsBrowser class methodsFor:'help specs'!

flyByHelpSpec

    ^ super flyByHelpSpec addPairsFrom:#(

#updateTagList

'Update (regenerate) the tag list'

#sortByName

'Sort by name (ignoring case and leading underscores)'

#sortByLineNumber

'Sort by line number'

#functionsOnly

'Show only Functions (see popup menu for more options)'

#structsOnly

'Show only Structures (see popup menu for more options)'

#toggleTagFilter

'Toggle name filter to show only tags which match a pattern'

#tagFilter

'Pattern to filter tags by name.\Multiple OR-patterns are separated by ";"'

    )

    "Created: / 06-10-2011 / 12:04:51 / cg"

! !

!TagsBrowser class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::TagsBrowser andSelector:#windowSpec

     Tools::TagsBrowser new openInterface:#windowSpec

     Tools::TagsBrowser open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'TagsBrowser'

         name: 'TagsBrowser'

         min: (Point 10 10)

         max: (Point 1024 768)

         bounds: (Rectangle 0 0 300 337)

       )

       component: 

      (SpecCollection

         collection: (

          (HorizontalPanelViewSpec

             name: 'HorizontalPanel1'

             layout: (LayoutFrame 0 0 0 0 0 1 30 0)

             horizontalLayout: leftFit

             verticalLayout: center

             horizontalSpace: 3

             verticalSpace: 3

             ignoreInvisibleComponents: false

             elementsChangeSize: true

             component: 

            (SpecCollection

               collection: (

                (MenuPanelSpec

                   name: 'ToolBar1'

                   level: 0

                   menu: toolBarMenu

                   extent: (Point 32 30)

                   useDynamicPreferredWidth: true

                   usePreferredWidth: true

                   textDefault: true

                 )

                (InputFieldSpec

                   name: 'TagFilterInputField'

                   activeHelpKey: tagFilter

                   visibilityChannel: tagFilterFieldVisibleHolder

                   model: tagFilterPatternHolder

                   immediateAccept: true

                   acceptOnReturn: true

                   acceptOnTab: true

                   acceptOnPointerLeave: true

                   extent: (Point 263 22)

                 )

                )

             )

           )

          (ArbitraryComponentSpec

             name: 'Browser'

             layout: (LayoutFrame 0 0 30 0 0 1 0 1)

             level: -1

             menu: middleButtonMenu

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             miniScrollerHorizontal: true

             miniScrollerVertical: false

             hasBorder: false

             component: tagView

           )

          )

       )

     )

! !

!TagsBrowser class methodsFor:'menu specs'!

assemblerMenuSlice

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#assemblerMenuSlice

     (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser assemblerMenuSlice)) startUp

    "

    <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

      )

    "Modified: / 13-05-2012 / 11:26:28 / cg"

!

cMenuSlice

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#cMenuSlice

     (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser cMenuSlice)) startUp

    "

    <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

      )

!

dartMenuSlice

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#javaMenuSlice

     (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser javaMenuSlice)) startUp

    "

    <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

      )

    "Modified: / 21-08-2012 / 20:49:32 / cg"

!