"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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: Smalltalk }"

StandardSystemView subclass:#BrowserView

	instanceVariableNames:'classCategoryListView classListView methodCategoryListView

		methodListView classMethodListView codeView classToggle

		instanceToggle currentNamespace currentClassCategory

		currentClassHierarchy currentClass currentMethodCategory

		currentMethod currentSelector showInstance actualClass fullClass

		lastMethodCategory aspect variableListView fullProtocol

		lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage

		lastCategory lastModule lastPackage lastMethodMoveClass

		namespaceList allNamespaces gotClassList classList selectorList

		showAllNamespaces classInstVarsInVarList coloringProcess

		codeModified autoSearchIgnoreCase icons environment'

	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon

		ShowResourceIcons LastSearchPatterns

		ShowMethodCategoryInClassMethodList LastRenames Icons'

	poolDictionaries:''

	category:'Interface-Browsers'

!

!BrowserView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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

"

    this class implements all kinds of class browsers.

    Typically, it is started with 'SystemBrowser open', but there are many other 

    startup messages, to launch special browsers.

    See the categories 'startup' and 'special search startup' in the classes

    protocol.

    Alse, see the extra document 'doc/misc/sbrowser.doc' or the HTML online doc

    for how to use the browser.

    written winter 89 by claus

    Notice: 

        SystemBrowser is currently being rewritten to be an instance

        of ApplicationModel - this transition is not yet complete and you see

        here intermediate versions of BrowserView/SystemBrowser. 

        All action is (currently) still done here in BrowserView, although the

        SystemBrowsers class methods are used to startup a browser.

        (which is done to make the upcoming switch transparent)

        This will certainly change ...

    PS:

        why did we add more and more here, instead of rewriting ?

        - because nobody pays us for it ;-),

        and the browser is not too bad to use, as long as you do not look into code.

    [author:]

        Claus Gittinger

"

! !

!BrowserView class methodsFor:'initialization'!

initialize

    "Browser configuration;

     (values can be changed from your private startup file)"

    "

     setting 'ShowMethodCategoryInClassMethodList' to false will suppress the display

     of a methods category in the search-result browsers..

    "

    ShowMethodCategoryInClassMethodList := true.

    "

     setting 'ShowResourceIcons' to false will suppress the display

     of image-, menu-, canvas- etc. icons beside the method name in

     the method list.

    "

    ShowResourceIcons := true.

    "

     setting 'CheckForInstancesWhenRemovingClasses' to false, the removeClass function will remove

     classes WITHOUT checking for instances. Otherwise,

     it will check and let you confirm in case there are instances.

     Checking for instances may be a bit time consuming, though.

     The default is true - therefore, it will check

    "

    CheckForInstancesWhenRemovingClasses := true.

    "

     setting 'RememberAspect' to true makes the browser remember the aspect shown

     in the classList and show this aspect when a new class is selected.

     If false, it always switches to the classes definition

    "

    RememberAspect := true.

    "

     CheckForInstancesWhenRemovingClasses := true

     CheckForInstancesWhenRemovingClasses := false

     RememberAspect := true

     RememberAspect := false

     ShowResourceIcons := true

     ShowResourceIcons := false

    "

    "Created: / 23.11.1995 / 11:35:58 / cg"

    "Modified: / 27.10.1997 / 17:34:25 / cg"

! !

!BrowserView class methodsFor:'class history'!

addToClassHistory:aClass selector:aSelector

    SystemBrowser addToHistory:aClass selector:aSelector

!

checkClassHistory

    "checks the class history for non-existing classes"

    SystemBrowser checkClassHistory

! !

!BrowserView class methodsFor:'cleanup'!

lowSpaceCleanup

    "cleanup in low-memory situations"

    Icons := DefaultIcon := nil.

    "

     self lowSpaceCleanup

    "

    "Modified: / 26-07-1998 / 14:12:23 / cg"

    "Modified (comment): / 20-07-2017 / 12:05:26 / cg"

! !

!BrowserView class methodsFor:'defaults'!

changeHistoryMaxSize

    "returns maximum size of the change history"

    Screen current height < 768 ifTrue:[

        ^ 15

    ].

    ^ 20 "/ 15

    "Created: / 10.2.2000 / 14:03:27 / cg"

    "Modified: / 10.2.2000 / 14:07:01 / cg"

!

classHistory

    "returns the class history"

    ^ SystemBrowser classHistory

!

classHistory:newCollection

    "returns the class history"

    SystemBrowser classHistory:newCollection

!

classHistoryMaxSize

    "returns maximum size of the visited class history"

    ^ SystemBrowser classHistoryMaxSize

!

defaultIcon

    "return the browsers default window icon"

    <resource: #programImage>

    <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>

    |nm i resources|

    (i := DefaultIcon) isNil ifTrue:[

        resources := self classResources.

        i := resources at:'SYSTEMBROWSER_ICON' default:nil.

        i isNil ifTrue:[

            nm := resources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.

            i := Smalltalk imageFromFileNamed:nm inPackage:#'stx:libtool'.

            i isNil ifTrue:[

                i := StandardSystemView defaultIcon

            ]

        ].

        i notNil ifTrue:[

            DefaultIcon := i := i onDevice:Screen current

        ]

    ].

    ^ i

    "Modified: / 19-03-1997 / 20:48:34 / ca"

    "Modified: / 17-09-2007 / 11:35:24 / cg"

!

fileImageIcon

    "answer an icon to mark file-loading image  methods"

    ^ self imageIcon

    "Created: / 29.10.1997 / 03:32:43 / cg"

! !

!BrowserView class methodsFor:'interface specs'!

methodFilterSpec

    "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:BrowserView andSelector:#methodFilterSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: methodFilterSpec

        window: 

       (WindowSpec

          label: 'Method Filter:'

          name: 'Method Filter:'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 530 225)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Browse methods from list, which:'

              name: 'Label1'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 38 0)

              translateLabel: true

              adjust: left

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel2'

              layout: (LayoutFrame 0 0 44 0 -2 1 84 0)

              horizontalLayout: leftFit

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ToggleSpec

                    label: 'Do not'

                    name: 'Toggle1'

                    translateLabel: true

                    model: notContainingMessage

                    isTriggerOnDown: true

                    showLamp: false

                    lampColor: (Color 100.0 100.0 0.0)

                    extent: (Point 70 27)

                  )

                 (CheckBoxSpec

                    label: 'Send the message:'

                    name: 'CheckBox1'

                    model: doFilterMessage

                    translateLabel: true

                    extent: (Point 200 22)

                  )

                 (InputFieldSpec

                    name: 'EntryField1'

                    enableChannel: doFilterMessage

                    model: filteredMessageSelector

                    acceptOnPointerLeave: false

                    extent: (Point 238 22)

                  )

                 )

              )

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel3'

              layout: (LayoutFrame 0 0 84 0 -2 1 124 0)

              horizontalLayout: leftFit

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ToggleSpec

                    label: 'Do not'

                    name: 'Toggle2'

                    translateLabel: true

                    model: notContainingString

                    isTriggerOnDown: true

                    showLamp: false

                    lampColor: (Color 100.0 100.0 0.0)

                    extent: (Point 70 27)

                  )

                 (CheckBoxSpec

                    label: 'Contain the String:'

                    name: 'CheckBox2'

                    model: doFilterString

                    translateLabel: true

                    extent: (Point 200 22)

                  )

                 (InputFieldSpec

                    name: 'EntryField2'

                    enableChannel: doFilterString

                    model: filteredString

                    acceptOnPointerLeave: false

                    extent: (Point 238 22)

                  )

                 )

              )

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel1'

              layout: (LayoutFrame 0 0.0 -48 1.0 0 1.0 0 1.0)

              horizontalLayout: fitSpace

              verticalLayout: centerMax

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Cancel'

                    name: 'Button1'

                    translateLabel: true

                    model: cancel

                    extent: (Point 253 27)

                  )

                 (ActionButtonSpec

                    label: 'Browse'

                    name: 'Button2'

                    translateLabel: true

                    model: accept

                    isDefault: true

                    actionValue: ''

                    extent: (Point 254 27)

                  )

                 )

              )

            )

           )

        )

      )

!

methodMoveDialogSpec

    "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:BrowserView andSelector:#methodMoveDialogSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: methodMoveDialogSpec

        window: 

       (WindowSpec

          label: 'Move method to:'

          name: 'Move method to:'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 353 174)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Move method to which class:'

              name: 'Label1'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 38 0)

              translateLabel: true

              adjust: left

            )

           (ComboBoxSpec

              name: 'ComboBox1'

              layout: (LayoutFrame 0 0.0 41 0 0 1.0 66 0)

              model: className

              acceptOnPointerLeave: false

              comboList: classList

              useIndex: true

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel1'

              layout: (LayoutFrame 0 0.0 -48 1.0 0 1.0 0 1.0)

              horizontalLayout: fitSpace

              verticalLayout: centerMax

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Cancel'

                    name: 'Button1'

                    translateLabel: true

                    model: cancel

                    extent: (Point 165 27)

                  )

                 (ActionButtonSpec

                    label: 'Move'

                    name: 'Button2'

                    translateLabel: true

                    model: accept

                    isDefault: true

                    extent: (Point 165 27)

                  )

                 )

              )

            )

           )

        )

      )

!

repositoryLoadSpec

    "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:BrowserView andSelector:#repositoryLoadSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: repositoryLoadSpec

        window: 

       (WindowSpec

          label: 'Load from repository'

          name: 'Load from repository'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 417 611)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Load class(es) from the repository ...'

              name: 'Label1'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)

              translateLabel: true

              adjust: left

            )

           (VariableVerticalPanelSpec

              name: 'VariableVerticalPanel1'

              layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -30 1.0)

              component: 

             (SpecCollection

                collection: (

                 (ViewSpec