"

 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.

"

SimpleView subclass:#InspectorView

	instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown

		hasMore monitorProcess hideReceiver showHex inspectHistory

		allowFollow isStandaloneInspector selectionIndex object'

	classVariableNames:'DefaultIcon'

	poolDictionaries:''

	category:'Interface-Inspector'

!

!InspectorView 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 a graphical inspector.

    Inspecting can be done on an object -

    (where its instvarnames/values are inspected)

    or a list of objects (where a nameArray/valuesArray is inspected).

    The later is used by the debugger to inspect method variables/args.

    The system calls the inspector through the global variable 'Inspector'

    which is bound to this class (but could be redefined - it actually is

    set to MiniInspector in a smalltalk without graphical user interface,

    or to NewInspector if that is wanted).

    Also notice, that there are two methods to inspect an object:

    sending #basicInspect to any object, will open this kind of inspector on 

    it (showing instance variables which are physically present).

    Sending it #inspect, will - depending on the object - sometimes invoke a

    specialized inspector. 

    (see OrderedCollectionInspectorView, ImageInspectorView, 

     ColorInspectorView etc. as examples).

    You can also open a monitoring inspector, which displays some instance

    variable in regular intervals. See #openOn:monitor:.

    examples:

            #(1 2 3 4) asOrderedCollection inspect

            #(1 2 3 4) asOrderedCollection basicInspect

            (Array new:10000) inspect

            (Image fromFile:'bitmaps/claus.gif') inspect

            (Image fromFile:'bitmaps/claus.gif') basicInspect

            (Image fromFile:'bitmaps/SBrowser.xbm') inspect

            (Image fromFile:'bitmaps/SBrowser.xbm') basicInspect

            InspectorView openOn:Display

            InspectorView openOn:Display monitor:'shiftDown'

    The InspectorView can also be used as a subComponent within another view.

    In this case, the isStandAlone flag should be cleared, to prevent the

    inspector from changing the topViews window label.

    Notice:

        the instvars 'inspectedObject' and 'selectedLine' have been 

        renamed to 'object' and 'selectionIndex' for squeak compatibility;

        however, the old vars are kept (in sync) for a while, to allow for

        smooth migration.

    [author:]

        Claus Gittinger

"

! !

!InspectorView class methodsFor:'instance creation'!

for:anObject

    "create and launch a new inspector for anObject.

     This protocol is a historic leftover - this method will vanish."

    ^ self openOn:anObject

!

inspect:anObject

    "create and launch a new inspector for anObject.

     This protocol is a historic leftover - this method will vanish."

    ^ self openOn:anObject

!

openOn:anObject

    "create and launch a new inspector for anObject"

    ^ self openOn:anObject monitor:nil

    "

     InspectorView openOn:(5 @ 7)

     InspectorView openOn:(Array new:400)

     DictionaryInspectorView openOn:(IdentityDictionary new)

    "

    "Modified: 1.3.1996 / 19:31:03 / cg"

!

openOn:anObject monitor:anInstVarName

    "create and launch a new inspector for anObject.

     If anInstVarName is nonNil, let the inspector monitor it

     (use an integer-printString as name, for indexed instVars)."

    |topView inspectorView|

    topView := StandardSystemView new.

    topView icon:self defaultIcon.

    "/ topView minExtent:(100 @ 100).

    topView label:'Inspector'.

    topView iconLabel:'Inspector'.

    topView extent:(self defaultExtent).

    inspectorView := self origin:(0.0 @ 0.0)

                          corner:(1.0 @ 1.0)

                             in:topView.

    "kludge: must realize first, to be able to set menu again"

    topView openAndWait.

    topView windowGroup 

        focusSequence:(Array 

                            with:inspectorView listView

                            with:inspectorView workspace).

    inspectorView allowFollow:true.

    inspectorView isStandaloneInspector:true.

    inspectorView inspect:anObject.

    anInstVarName notNil ifTrue:[

        inspectorView monitor:anInstVarName

    ].

    ^ inspectorView

    "

     |m|

     m := 1 asValue.

     InspectorView openOn:m monitor:'value'.

     2 to:10 do:[:i |

         Delay waitForSeconds:1.

         m value:i

     ]

    "

    "

     |o|

     o := Array with:1 with:2 with:3.

     InspectorView openOn:o monitor:'2'.

     Delay waitForSeconds:1.

     o at:2 put:20

    "

    "Created: / 1.3.1996 / 19:30:50 / cg"

    "Modified: / 12.2.1999 / 16:04:42 / cg"

!

openOn:anObject withEvalPane:withEvalPane

    ^ self openOn:anObject

!

openOn:anObject withEvalPane:withEvalPane withLabel:aLabel

    ^ self openOn:anObject

! !

!InspectorView class methodsFor:'defaults'!

defaultExtent

    ^ (Screen current extent // 3)

    "Created: / 7.9.1998 / 13:47:45 / cg"

    "Modified: / 7.9.1998 / 14:15:38 / cg"

!

defaultIcon

    "return the browsers default window icon"

    <resource: #style (#ICON #ICON_FILE)>

    |nm i|

    (i := DefaultIcon) isNil ifTrue:[

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

	i isNil ifTrue:[

	    nm := ClassResources at:'ICON_FILE' default:'Inspector.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: 18.4.1997 / 15:16:53 / cg"

! !

!InspectorView methodsFor:'accessing'!

allowFollow:aBoolean

    "enable/disable the follow menu item;

     This is disabled for inspectors which are embedded in the debugger"

    allowFollow := aBoolean

!

hideReceiver:aBoolean

    "hide/show the self-entry for the inspected object;

     This is hidden for context inspectors in the debugger"

    hideReceiver := aBoolean

    "Created: 28.6.1996 / 15:08:32 / cg"

!

inspect:anObject

    "define the object to be inspected"

    |aList sameObject|

    sameObject := anObject == inspectedObject.

    inspectedObject := object := anObject.

    sameObject ifFalse:[

        hasMore := false.

        aList := self fieldList.

        hasMore ifTrue:[

            aList add:' ... '

        ].

    ].

    sameObject ifTrue:[

"/        listView setContents:aList.

    ] ifFalse:[

        listView contents:aList.

        workspace contents:nil.

        self setDoItAction.

    ].

    "Modified: / 12.2.1999 / 16:03:27 / cg"

!

isStandaloneInspector:aBoolean

    "obsolete now"

    isStandaloneInspector := aBoolean

    "Modified: / 12.2.1999 / 16:01:44 / cg"

!

label:aString

    "set some label"

    labelView label:aString

    "Created: 28.6.1996 / 15:30:26 / cg"

!

listView

    ^ listView

!

reinspect

    "update display for a changed inspectedObject"

    |aList|

    hasMore := false.

    aList := self fieldList.

    hasMore ifTrue:[

        aList add:' ... '

    ].

    listView contents:aList.

"/    workspace contents:nil.

    self setDoItAction.

    selectionIndex := selectedLine := nil

!

workspace

    ^ workspace

! !

!InspectorView methodsFor:'initialize / release'!

destroy

    inspectedObject := object := nil.

    monitorProcess notNil ifTrue:[

        monitorProcess terminate

    ].

    super destroy

!

initialize

    |v panel helpView labelView2|

    super initialize.

    hideReceiver := false.

    showHex := false.

    allowFollow := false.

    isStandaloneInspector := false.

    panel := VariableHorizontalPanel 

                origin:(0.0 @ 0.0)

                corner:(1.0 @ 1.0)

                in:self.

    helpView := View origin:(0.0 @ 0.0) corner:(0.3 @ 1.0) in:panel.

    helpView level:0; borderWidth:0.

    labelView := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView.

    labelView label:(self defaultLabel).

    labelView bottomInset:(labelView preferredExtent y negated).

    v := HVScrollableView 

                for:SelectionInListView 

                miniScrollerH:true

                miniScrollerV:false

                in:helpView.

"/    v autoHideScrollBars:true.

    v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).

    v topInset:(labelView preferredExtent y).

    listView := v scrolledView.

    listView action:[:lineNr | self showSelection:lineNr].

    listView doubleClickAction:[:lineNr | self doInspect].

    listView ignoreReselect:false.

    listView menuHolder:self; menuPerformer:self; menuMessage:#fieldMenu.

    helpView := View origin:(0.3 @ 0.0) corner:(1.0 @ 1.0) in:panel.

    helpView level:0; borderWidth:0.

    labelView2 := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView.

    labelView2 label:''.

    labelView2 bottomInset:(labelView preferredExtent y negated).

    v := HVScrollableView 

                for:CodeView 

                miniScrollerH:true

                miniScrollerV:false

                in:helpView.

"/    v autoHideScrollBars:true.

    v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).

    v topInset:(labelView2 preferredExtent y).

    workspace := v scrolledView.

    workspace acceptAction:[:theText | self doAccept:theText asString].

    nShown := 100.

    hasMore := false.

    "Modified: / 12.2.1999 / 16:03:19 / cg"

!

realize

    "delayed setup of lists till first map-time - 

     this makes startup of inspectors a bit faster"

    |o|

    super realize.

    inspectedObject notNil ifTrue:[

        "

         kludge to trick inspect:, which ignores setting the

         same object again ...

        "

        o := inspectedObject.

        inspectedObject := object := nil.

        self inspect:o

    ]

    "Created: 30.5.1996 / 09:38:37 / cg"

!

release

    "release inpected object. This is normally not needed,

     since the garbage collector will find this memory alone.

     However, if some applications keeps invisible inspectors around

     (for example, the debugger does this), the inspected object

     would be kept from being freed or freed very late."

"

    inspectedObject notNil ifTrue:[

        inspectedObject removeDependent:self

    ].

"

    inspectedObject := object := nil.

    self setDoItAction.      "/ to release ref to inspectedObject in doItBlock

    workspace contents:nil.

    listView contents:nil.

    super release.

    "Modified: 11.6.1997 / 13:20:39 / cg"

! !

!InspectorView methodsFor:'menu'!

fieldMenu

    "return the menu for the field-list"

    <resource: #programMenu>

    |items labels selectors m|

    items := #(

                       ('copy varName or key'          #doCopyKey              )

                       ('-')

                       ('inspect'                      #doInspect              )

                       ('basicInspect'                 #doBasicInspect         )

                       ('inspect hierarchical'         #doNewInspect           )

                       ('-')

                       ('ref chains'                   #showReferences         )

                       ('-')

                       ('browse'                       #browse                 )

                       ('browse class hierarchy'       #browseClassHierarchy   )

                       ('browse full class protocol'   #browseFullClassProtocol)

                       ('-')

                       ('trace messages'               #doTrace                )

                       ('trap message'                 #doTrapAll              )

                       ('trap all messages'            #doTrap                 )

                       ('untrace/untrap'               #doUntrace              )

              ).

    allowFollow ifTrue:[

        items := #(

                            ('follow'                       #doFollow              )

                            ('back'                         #doBack              )

                            ('-')

                  )

                 ,

                 items.

    ].

    hasMore ifTrue:[

        items := items , #(

                        ('-')

                        ('show more'                    #showMore               )

                          )

    ].

    monitorProcess isNil ifTrue:[

        items := items , #(

                        ('-')

                        ('start monitor'                #doStartMonitor         )