"

 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'

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

#toggleTagFilter

'Toggle Tag Filter'

#tagFilter

'Pattern to Filter Tags'

    )

    "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: (

	   (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

	    )

	   )

	)

      )

! !

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

!

javaMenuSlice

    "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: editedFileHasJavaSuffix

	  )