"

 COPYRIGHT (c) 1989 by Claus Gittinger

 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 autoSearchIgnoreCase icons'

	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon

		StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon

		TabListIcon HierarchicalListIcon TableColumnsIcon HelpIcon

		ShowResourceIcons ClassHistory LastSearchPatterns

		ShowMethodCategoryInClassMethodList'

	poolDictionaries:''

	category:'Interface-Browsers'

!

!BrowserView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

 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:]

"

! !

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

checkClassHistory

    "checks the class history on non-existing classes"

    self classHistory reverseDo:

    [:histEntry|

    ]

!

lowSpaceCleanup

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

    CanvasIcon := MenuIcon := ImageIcon := TabListIcon := nil.

    HierarchicalListIcon := TableColumnsIcon := HelpIcon := nil.

    "

     self lowSpaceCleanup

    "

    "Modified: / 26.7.1998 / 14:12:23 / 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 resources|

    (i := DefaultIcon) isNil ifTrue:[

    ].

    ^ i

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

    "Modified: / 27.4.1999 / 17:16:24 / 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

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

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

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

    "

     self imageIcon inspect

     ImageEditor openOnClass:self andSelector:#imageIcon

    "

    <resource: #image>

    ^Icon

!

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

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

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

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

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

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

!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

       #(#WindowSpec

       #(#SpecCollection