"

 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.

"

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'

	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon

		StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon

		TabListIcon HierarchicalListIcon TableColumnsIcon HelpIcon

		ShowResourceIcons ClassHistory'

	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.

    This will certainly change ...

    [author:]

	Claus Gittinger

"

! !

!BrowserView class methodsFor:'initialization'!

initialize

    "Browser configuration;

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

    ShowResourceIcons := true.

    "

     setting this 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 this 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:'cleanup'!

lowSpaceCleanup

    DefaultIcon := StopIcon := TraceIcon := TimeIcon := nil

    "Created: / 18.4.1996 / 16:46:40 / cg"

    "Modified: / 25.10.1997 / 19:30:32 / cg"

!

preSnapshot

    StopIcon := 

    TraceIcon := 

    TimeIcon := 

    CanvasIcon := 

    MenuIcon := 

    ImageIcon := 

    TabListIcon := 

    HierarchicalListIcon := 

    TableColumnsIcon :=

    HelpIcon :=

    nil

! !

!BrowserView class methodsFor:'defaults'!

classHistory

    "returns the class history"

    ClassHistory isNil ifTrue: [ClassHistory := OrderedCollection new].

    ^ClassHistory

!

classHistoryMaxSize

    "returns maximum size of the class history"

    ^10

!

defaultIcon

    "return the browsers default window icon"

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

    |nm i|

    (i := DefaultIcon) isNil ifTrue:[

	i := self classResources at:'SYSTEMBROWSER_ICON' default:nil.

	i isNil ifTrue:[

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

	    i := Image fromFile:nm resolution:100.

	    i isNil ifTrue:[

		i := Image fromFile:('bitmaps/' , nm) resolution:100.

		i isNil ifTrue:[

		    i := StandardSystemView defaultIcon

		]

	    ]

	].

	i notNil ifTrue:[

	    DefaultIcon := i := i on:Display

	]

    ].

    ^ i

    "Modified: 19.3.1997 / 20:48:34 / ca"

    "Modified: 15.8.1997 / 15:29:16 / cg"

!

fileImageIcon

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

    ^ self imageIcon

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

!

programMenuIcon

    "answer an icon to mark programmed-menu (menuSpec) methods"

    ^ self menuIcon

    "Created: / 28.10.1997 / 13:40:49 / cg"

! !

!BrowserView class methodsFor:'image specs'!

canvasIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#canvasIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView canvasIcon'

        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@.;.;.;.0@@@@@@@@@@C.;/C.;/@@9&XP9&XP@NY&DNY&D@C&Y!!C&Y!!@@9&XP9&XP@NY&DNY&D@C1DQC1DQ@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!

helpIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#helpIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView helpIcon'

        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@AUUUP@UZ%T@EYVU@AUU%S UU%T@EU%U@AUUUP@UVUT@EUUUN@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 0 127 255 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!

hierarchicalListIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#hierarchicalListIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView hierarchicalListIcon'

        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@NAUUU0@R??8@GO?>@A0@C @\??88G@@N@A3?? @^@@8@N***@@@@@C b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!

imageIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#imageIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView imageIcon'

        ifAbsentPut:[(Depth8Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@AYVU%YVU%YVU%YVP@@VPDAVU%YAPUYVU$@@E$A@U%YVPTEVU%Y@@AYVU%YVU$EAPUYVP@@VU%YVU$EAPTBVU$@@E%YVU%YAPTBVU%Y@@@C@0LC@0LE@ LC@0@@@0LC@0LCAPHC@0L@@@LC@0LC@0LC@0LC@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 0 0 127 0 255 153 0 204 255 255 51 153 153 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 0 127 0 127 127 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170 0 0 51 0 0 102 0 0 153 0 0 204 0 51 0 0 51 51 0 51 102 0 51 153 0 51 204 0 51 255 0 102 0 0 102 51 0 102 102 0 102 153 0 102 204 0 102 255 0 153 0 0 153 51 0 153 102 0 153 153 0 153 204 0 153 255 0 204 0 0 204 51 0 204 102 0 204 153 0 204 204 0 204 255 0 255 51 0 255 102 0 255 153 0 255 204 51 0 0 51 0 51 51 0 102 51 0 153 51 0 204 51 0 255 51 51 0 51 51 51 51 51 102 51 51 153 51 51 204 51 51 255 51 102 0 51 102 51 51 102 102 51 102 153 51 102 204 51 102 255 51 153 0 51 153 51 51 153 102 51 153 204 51 153 255 51 204 0 51 204 51 51 204 102 51 204 153 51 204 204 51 204 255 51 255 0 51 255 51 51 255 102 51 255 153 51 255 204 51 255 255 102 0 0 102 0 51 102 0 102 102 0 153 102 0 204 102 0 255 102 51 0 102 51 51 102 51 102 102 51 153 102 51 204 102 51 255 102 102 0 102 102 51 102 102 102 102 102 153 102 102 204 102 102 255 102 153 0 102 153 51 102 153 102 102 153 153 102 153 204 102 153 255 102 204 0 102 204 51 102 204 102 102 204 153 102 204 204 102 204 255 102 255 0 102 255 51 102 255 102 102 255 153 102 255 204 102 255 255 153 0 0 153 0 51 153 0 102 153 0 153 153 0 204 153 0 255 153 51 0 153 51 51 153 51 102 153 51 153 153 51 204 153 51 255 153 102 0 153 102 51 153 102 102 153 102 153 153 102 204 153 102 255 153 153 0 153 153 51 153 153 102 153 153 153 153 153 204 153 153 255 153 204 0 153 204 51 153 204 102 153 204 153 153 204 204 153 204 255 153 255 0 153 255 51 153 255 102 153 255 153 153 255 204 153 255 255 204 0 0 204 0 51 204 0 102 204 0 153 204 0 204 204 0 255 204 51 0 204 51 51 204 51 102 204 51 153 204 51 204 204 51 255 204 102 0 204 102 51 204 102 102 204 102 153 204 102 204 204 102 255 204 153 0 204 153 51 204 153 102 204 153 153 204 153 204 204 153 255 204 204 0 204 204 51 204 204 102 204 204 153 204 204 204 204 204 255 204 255 0 204 255 51 204 255 102 204 255 153 204 255 204 255 0 51 255 0 102 255 0 153 255 0 204 255 51 0 255 51 51 255 51 102 255 51 153 255 51 204 255 51 255 255 102 0 255 102 51 255 102 102 255 102 153 255 102 204 255 102 255 255 153 51 255 153 102 255 153 153 255 153 204 255 153 255 255 204 0 255 204 51 255 204 102 255 204 153 255 204 204 255 204 255 255 255 51 255 255 102 255 255 153 255 255 204 7 7 7 17 17 17 28 28 28 38 38 38 48 48 48 58 58 58 66 66 66 76 76 76 86 86 86 96 96 96 107 107 107 117 117 117 135 135 135 145 145 145 155 155 155 165 165 165 175 175 175 186 186 186 193 193 193 214 214 214 224 224 224 234 234 234 244 244 244]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!

menuIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#menuIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView menuIcon'

        ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@AUUU DZ**(@@@@@@AUUU @Z**(8@@@@@AUUU @Z**(@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a') ; yourself); yourself]!

stopIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#stopIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView stopIcon'

        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@B*(@@J**(@J*V* J*%**B*)Z*"**V****%****)Z****V****%*******(****(J*%**@*)Z*@B***@@B*(@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A>@_>C?<_?9??/???????????????7?>_?8??A?8A>@b') ; yourself); yourself]!

tabListIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#tabListIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView tabListIcon'

        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@G0; ; @@@A<@@@@@@A@_??????@@G?????? DA??????8@@_?????>C@G?????? @A??????8OC>;.;.;.@@@@@@@@@@Db') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?8C?0O?0??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!

tableColumnsIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#tableColumnsIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView tableColumnsIcon'

        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@DQDQDQG0@A<O<O<O8A@P@@@@@N@@G0?0?0? DA@@@@@@8@@_C?C?C>C@D@@@@@C @A<O<O<O8OC>;.;.;.@@@@@@@@@@Db') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!

timeIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#timeIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView timeIcon'

        ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@FXA?8O''0>_G9>_''8>AC8D_?9??#?<O?0_>@Y @@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A>@_>C?<_?9??/???????????????7?>_?8??A?8A>@b') ; yourself); yourself]!

traceIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     ImageEditor openOnClass:self andSelector:#traceIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'BrowserView traceIcon'

        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@B**** ****(B%UU(@)UUZ@B%UZ@@)UV @B%V @@)U(@@B%(@@@)Z@@@B*@@@@* @@@B @@@@(@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A??''?>O?0??A?8G? O<@?0A>@G8@O@@<@A @F@@@@b') ; yourself); yourself]! !

!BrowserView methodsFor:'change & update'!

delayedUpdate:something with:someArgument from:changedObject

    |list selector oldMethod|

    (changedObject == Smalltalk) ifTrue:[

        something == #methodInClassRemoved ifTrue:[

            "/ ignored; I am dependent of individual class update messages

            ^ self

        ].

        something == #methodInClass ifTrue:[

            "/ ignored; I am dependent of individual class update messages

            ^ self

        ].

        self updateNamespaceList.

        something == #newClass ifTrue:[

            (currentClass notNil

            and:[someArgument name = currentClass name]) ifTrue:[

                "

                 the current class has changed

                "

                (aspect == #definition

                and:[codeView modified not]) ifTrue:[

                    self refetchClass.

                    self classSelectionChanged.

                ] ifFalse:[

                    self updateClassListWithScroll:false.

                ].

                currentClass wasAutoloaded ifFalse:[

                    self warnLabel:'the selected class has changed'.

                ]

            ].

            ((someArgument category = currentClassCategory)

            or:[currentClassCategory notNil

                and:[currentClassCategory startsWith:$*]]) ifTrue:[

                self updateClassListWithScroll:false.

            ].

            someArgument category ~= currentClassCategory ifTrue:[

                "

                 category new ?

                "

                (classCategoryListView notNil 

                and:[(list := classCategoryListView list) notNil

                and:[(list includes:someArgument category) not]])

                ifTrue:[

                    self updateClassCategoryListWithScroll:false.

                ]

            ].

            ^ self

        ].

        something == #classRemove ifTrue:[

            someArgument == currentClass ifTrue:[

                self warnLabel:'the selected class was removed'.

                ^ self

            ].

            " fall into general update "

        ].

        "

         any other (unknown) change 

         with the Smalltalk dictionary ...

        "

        self updateClassCategoryListWithScroll:false.

        self updateClassListWithScroll:false.

        ^ self

    ].

    changedObject isBehavior ifTrue:[

        "/

        "/ its a class, that has changed

        "/

        fullClass ifTrue:[

            "/

            "/ full-class browser ...

            "/ (must check for both class and metaclass changes)

            "/

            (currentClass == changedObject

            or:[currentClass class == changedObject]) ifTrue:[

                self warnLabel:'class was changed - the code shown may be obsolete'.

            ].

            ^ self

        ].

        (currentClass notNil 

        and:[changedObject name = currentClass name]) ifTrue:[

            "/

            "/ its the current class that has changed

            "/

            ((something == #methodDictionary)

            or:[something == #methodTrap

            or:[something == #methodPrivacy]]) ifTrue:[

                "/ new feature: changeArg may be an array consisting of

                "/ the selector and the oldMethod

                someArgument isArray ifTrue:[

                    oldMethod := someArgument at:2.

                    selector := someArgument at:1.

                ] ifFalse:[

                    selector := someArgument

                ].

                (selector isSymbol) ifTrue:[

                    |changedMethod s1 s2 oldMethodSelection oldMethodCategorySelection|

                    "

                     the method with selector was changed or removed

                    "

                    methodListView notNil ifTrue:[

                        oldMethodSelection := methodListView selection.

                    ].

                    (something ~~ #methodTrap

                    and:[something ~~ #methodPrivacy]) ifTrue:[

                        methodCategoryListView notNil ifTrue:[

                            oldMethodCategorySelection := methodCategoryListView selection.