"{ Encoding: utf8 }"

"

 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'!

helpSpec

    ^ super helpSpec 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)

         bounds: (Rectangle 0 0 300 337)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'VerticalPanel1'

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

             horizontalLayout: fit

             verticalLayout: topFit

             horizontalSpace: 3

             verticalSpace: 3

             elementsChangeSize: true

             component: 

            (SpecCollection

               collection: (

                (HorizontalPanelViewSpec

                   name: 'TagToolbarHorizontalPanel'

                   horizontalLayout: leftFit

                   verticalLayout: center

                   horizontalSpace: 3

                   verticalSpace: 3

                   ignoreInvisibleComponents: false

                   elementsChangeSize: true

                   component: 

                  (SpecCollection

                     collection: (

                      (MenuPanelSpec

                         name: 'ToolBar1'

                         level: 0

                         menu: toolBarMenu

                         extent: (Point 196 30)

                         usePreferredWidth: true

                         textDefault: true

                         useDynamicPreferredWidth: true

                       )

                      )

                   )

                   extent: (Point 300 30)

                 )

                (HorizontalPanelViewSpec

                   name: 'TagFilterPanel'

                   visibilityChannel: tagFilterFieldVisibleHolder

                   horizontalLayout: leftFit

                   verticalLayout: center

                   horizontalSpace: 3

                   verticalSpace: 3

                   ignoreInvisibleComponents: false

                   elementsChangeSize: true

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Filter:'

                         name: 'Label1'

                         translateLabel: true

                         resizeForLabel: true

                         adjust: left

                         useDefaultExtent: true

                       )

                      (InputFieldSpec

                         name: 'TagFilterInputField'

                         activeHelpKey: tagFilter

                         model: tagFilterPatternHolder

                         immediateAccept: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnPointerLeave: true

                         extent: (Point 254 22)

                       )

                      )

                   )

                   extent: (Point 300 30)

                 )

                (ArbitraryComponentSpec

                   name: 'Browser'

                   level: -1

                   menu: middleButtonMenu

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   miniScrollerHorizontal: true

                   miniScrollerVertical: false

                   hasBorder: false

                   component: tagView

                   extent: (Point 300 271)

                 )

                )

             )

           )

          )

       )

     )

! !

!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: classesOnly:

          )

         (MenuItem

            enabled: tagTypesPresentHolder

            label: 'Methods Only'

            translateLabel: true

            isVisible: editedFileHasDartSuffix

            indication: methodsOnly:

          )

         (MenuItem

            enabled: tagTypesPresentHolder

            label: 'Classes && Methods Only'

            translateLabel: true

            isVisible: editedFileHasDartSuffix

            indication: classesAndMethodsOnly:

          )

         (MenuItem

            label: '-'

            isVisible: editedFileHasDartSuffix

          )

         (MenuItem

            enabled: tagTypesPresentHolder

            label: 'Hide Packages'

            translateLabel: true

            isVisible: false "editedFileHasDartSuffix"

            hideMenuOnActivated: false

            indication: hidePackages:

          )