"

 COPYRIGHT (c) 1993 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.

"

InspectorView subclass:#ContextInspectorView

	instanceVariableNames:'inspectedContext names showingTemporaries argsOnly'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Inspector'

!

copyright

"

 COPYRIGHT (c) 1993 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

"

    a modified Inspector for Contexts (used in the Debugger)

    TODO:

        when expressions are evaluated in myself, the inst-var

        names are not known by the expression evaluator.

        This has to be fixed 

        (actual work is to be done in the Parser to allow passing of a context ...)

    [author:]

        Claus Gittinger

    [see also:]

        Context DebugView

"

! !

!ContextInspectorView methodsFor:'accessing'!

inspect:con

    "set the context to be inspected"

    |homeContext method homeNames rec sel implementorClass 

     argNames varNames tmpNames m argsOnly|

    (con == inspectedContext) ifTrue:[

        listView selection notNil ifTrue:[

            self showSelection:(listView selection).

        ].

        ^ self

    ].

    hasMore := argsOnly := false.

    inspectedObject := nil.

    inspectedContext := con.

    con isNil ifTrue:[

        names := nil.

        listView list:nil. 

        ^ self

    ].

"/    realized ifFalse:[^ self].

    homeContext := con methodHome.

    homeContext isNil ifTrue:[

        "its a cheap blocks context"

        rec := con receiver.

        sel := con selector.

        homeNames := OrderedCollection new.

    ] ifFalse:[

        rec := homeContext receiver.

        sel := homeContext selector.

        implementorClass := homeContext methodClass.

        implementorClass notNil ifTrue:[

            method := implementorClass compiledMethodAt:sel.

            method notNil ifTrue:[

                method isWrapped ifTrue:[

                    "

                     in a wrapped context, locals are something different

                    "

"/                    argsOnly := true.

                    m := method originalMethod.

                    m notNil ifTrue:[

                        method := m.

                    ] ifFalse:[

                        argsOnly := true.

                    ].

                ].

            ].

            method notNil ifTrue:[

                method source notNil ifTrue:[

                    argsOnly ifTrue:[

                        homeNames := method methodArgNames

                    ] ifFalse:[

                        homeNames := method methodArgAndVarNames.

                    ]

                ]

            ].

        ].

        "

         create dummy names for method vars (if there is no source available)

        "

        homeNames isNil ifTrue:[

            homeNames := OrderedCollection new.

            1 to:homeContext numArgs do:[:index |

                homeNames add:('mArg' , index printString)

            ].

            argsOnly ifFalse:[

                1 to:homeContext nvars do:[:index |

                    homeNames add:('mVar' , index printString)

                ].

                showingTemporaries ifTrue:[

                    1 to:homeContext ntemp do:[:index |

                        homeNames add:('mTmp' , index printString)

                    ]

                ]

            ]

        ].

    ].

    "

     stupid: should find the block via the contexts

     method-home and put real names in here

    "

    con isBlockContext ifTrue:[

        names := OrderedCollection new.

        argNames := (1 to:(con numArgs)) collect:[:i | 'arg' , i printString].

        names addAll:argNames.

        varNames := (1 to:(con nvars)) collect:[:i | 'var' , i printString].

        names addAll:varNames.

        showingTemporaries ifTrue:[

            tmpNames := (1 to:(con ntemp)) collect:[:i | 'tmp' , i printString].

            names addAll:tmpNames.

        ].

        names addAll:homeNames.

    ] ifFalse:[

        names := homeNames.

    ].

    listView list:names. 

    workspace contents:nil.

    self setDoitActionIn:workspace for:con.

    "Modified: 14.12.1995 / 19:34:35 / cg"

!

release

    "release inspected object"

    inspectedContext := nil.

    names := nil.

    super release

    "Modified: 14.12.1995 / 21:49:43 / cg"

! !

!ContextInspectorView methodsFor:'initialization'!

fieldMenu

    |labels selectors|

    showingTemporaries ifFalse:[

	labels := #(

		     'inspect'

		     'basicInspect'

		     '-'

		     'show temporaries'

		   ).

	selectors := #(

		     doInspect

		     doBasicInspect

		     nil

		     showTemporaries

		   )

    ] ifTrue:[

	labels := #(

		     'inspect'

		     'basicInspect'

		     '-'

		     'hide temporaries'

		   ).

	selectors := #(

		     doInspect

		     doBasicInspect

		     nil

		     hideTemporaries

		   )

    ].

    ^ PopUpMenu

	  labels:(resources array:labels)

	  selectors:selectors

!

initialize

    super initialize.

    showingTemporaries := false.

! !

!ContextInspectorView methodsFor:'private'!

fieldList

    ^ names

!

hasSelfEntry

    ^ false

    "Created: 14.12.1995 / 19:29:47 / cg"

!

setDoitActionIn:aWorkspace for:aContext

    aWorkspace doItAction:[:theCode |

	Compiler evaluate:theCode

		       in:aContext

		 receiver:nil

		notifying:aWorkspace

		   logged:true 

		   ifFail:nil

    ]

!

valueAtLine:lineNr

    "helper - return the value of the selected entry"

    |homeContext con values|

    inspectedContext isNil ifTrue:[^ nil].

    argsOnly := false.

    con := inspectedContext.

    homeContext := con methodHome.

    con isBlockContext ifTrue:[

        values := Array withAll:(con argsAndVars).

        (showingTemporaries and:[con ntemp ~~ 0]) ifTrue:[

            values := values , con temporaries

        ].

        homeContext notNil ifTrue:[

            values := values , homeContext args.

            argsOnly ifFalse:[

                values := values , homeContext vars.

                (showingTemporaries and:[homeContext ntemp ~~ 0])ifTrue:[

                    values := values , homeContext temporaries

                ]

            ].

        ].

    ] ifFalse:[

        argsOnly ifTrue:[

            values := homeContext args

        ] ifFalse:[

            values := homeContext argsAndVars

        ]

    ].

    ^ values at:lineNr.

! !

!ContextInspectorView methodsFor:'user actions'!

doAccept:theText

    |value|

    selectedLine notNil ifTrue:[

	value := Compiler evaluate:theText

			  receiver:inspectedObject 

			 notifying:workspace.

	"yes, you can do that with a context"

	inspectedContext at:selectedLine put:value.

    ].

!

hideTemporaries

    "do not show contexts temporaries"

    showingTemporaries := false.

    self inspect:inspectedContext

    "Modified: 14.12.1995 / 19:24:44 / cg"

!

showTemporaries

    "show contexts temporaries"

    showingTemporaries := true.

    self inspect:inspectedContext

    "Modified: 14.12.1995 / 19:24:49 / cg"

! !

version

! !