ContextInspectorView.st
author Claus Gittinger <cg@exept.de>
Tue, 04 Jul 2006 11:42:45 +0200
changeset 6809 feff4e2a1c4b
parent 6491 d02c41c57d02
child 6852 39c9b68020eb
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
     1
"
d904237f7c44 Initial revision
claus
parents:
diff changeset
     2
 COPYRIGHT (c) 1993 by Claus Gittinger
45
950b84ba89e6 *** empty log message ***
claus
parents: 37
diff changeset
     3
	      All Rights Reserved
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
     4
d904237f7c44 Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
d904237f7c44 Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
d904237f7c44 Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
d904237f7c44 Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
d904237f7c44 Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
d904237f7c44 Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
d904237f7c44 Initial revision
claus
parents:
diff changeset
    11
"
d904237f7c44 Initial revision
claus
parents:
diff changeset
    12
2717
dc997032a34e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2271
diff changeset
    13
"{ Package: 'stx:libtool' }"
dc997032a34e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2271
diff changeset
    14
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    15
InspectorView subclass:#ContextInspectorView
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    16
	instanceVariableNames:'inspectedContext names showingTemporaries argsOnly contextSize'
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    17
	classVariableNames:''
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    18
	poolDictionaries:''
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    19
	category:'Interface-Inspector'
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    20
!
d904237f7c44 Initial revision
claus
parents:
diff changeset
    21
785
16809b8d468c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
    22
!ContextInspectorView class methodsFor:'documentation'!
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    23
d904237f7c44 Initial revision
claus
parents:
diff changeset
    24
copyright
d904237f7c44 Initial revision
claus
parents:
diff changeset
    25
"
d904237f7c44 Initial revision
claus
parents:
diff changeset
    26
 COPYRIGHT (c) 1993 by Claus Gittinger
45
950b84ba89e6 *** empty log message ***
claus
parents: 37
diff changeset
    27
	      All Rights Reserved
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    28
d904237f7c44 Initial revision
claus
parents:
diff changeset
    29
 This software is furnished under a license and may be used
d904237f7c44 Initial revision
claus
parents:
diff changeset
    30
 only in accordance with the terms of that license and with the
d904237f7c44 Initial revision
claus
parents:
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
d904237f7c44 Initial revision
claus
parents:
diff changeset
    32
 be provided or otherwise made available to, or used by, any
d904237f7c44 Initial revision
claus
parents:
diff changeset
    33
 other person.  No title to or ownership of the software is
d904237f7c44 Initial revision
claus
parents:
diff changeset
    34
 hereby transferred.
d904237f7c44 Initial revision
claus
parents:
diff changeset
    35
"
d904237f7c44 Initial revision
claus
parents:
diff changeset
    36
!
d904237f7c44 Initial revision
claus
parents:
diff changeset
    37
d904237f7c44 Initial revision
claus
parents:
diff changeset
    38
documentation
d904237f7c44 Initial revision
claus
parents:
diff changeset
    39
"
471
114883d63124 commentary
Claus Gittinger <cg@exept.de>
parents: 302
diff changeset
    40
    a modified Inspector for Contexts (used in the Debugger)
114883d63124 commentary
Claus Gittinger <cg@exept.de>
parents: 302
diff changeset
    41
    TODO:
114883d63124 commentary
Claus Gittinger <cg@exept.de>
parents: 302
diff changeset
    42
        when expressions are evaluated in myself, the inst-var
114883d63124 commentary
Claus Gittinger <cg@exept.de>
parents: 302
diff changeset
    43
        names are not known by the expression evaluator.
114883d63124 commentary
Claus Gittinger <cg@exept.de>
parents: 302
diff changeset
    44
        This has to be fixed 
114883d63124 commentary
Claus Gittinger <cg@exept.de>
parents: 302
diff changeset
    45
        (actual work is to be done in the Parser to allow passing of a context ...)
510
6543e55fb227 documentation
Claus Gittinger <cg@exept.de>
parents: 471
diff changeset
    46
6543e55fb227 documentation
Claus Gittinger <cg@exept.de>
parents: 471
diff changeset
    47
    [author:]
6543e55fb227 documentation
Claus Gittinger <cg@exept.de>
parents: 471
diff changeset
    48
        Claus Gittinger
6543e55fb227 documentation
Claus Gittinger <cg@exept.de>
parents: 471
diff changeset
    49
6543e55fb227 documentation
Claus Gittinger <cg@exept.de>
parents: 471
diff changeset
    50
    [see also:]
6543e55fb227 documentation
Claus Gittinger <cg@exept.de>
parents: 471
diff changeset
    51
        Context DebugView
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    52
"
d904237f7c44 Initial revision
claus
parents:
diff changeset
    53
! !
d904237f7c44 Initial revision
claus
parents:
diff changeset
    54
d904237f7c44 Initial revision
claus
parents:
diff changeset
    55
!ContextInspectorView methodsFor:'accessing'!
d904237f7c44 Initial revision
claus
parents:
diff changeset
    56
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
    57
inspect:aContext
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    58
    "set the context to be inspected"
d904237f7c44 Initial revision
claus
parents:
diff changeset
    59
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
    60
    |methodHomeContext method homeNames rec sel 
5803
b43e404776f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5341
diff changeset
    61
     m argsOnly blockNode 
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
    62
     numVarsInSource numVarsInContext isDoIt
5803
b43e404776f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5341
diff changeset
    63
     numArgs numVars n tempNames realTempNames 
b43e404776f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5341
diff changeset
    64
     oldSelection oldSelectedName hCon|
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    65
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
    66
    (aContext == inspectedContext) ifTrue:[
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    67
        "/ care for contexts which change size
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    68
        "/ (after the locals & stack-setup)
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    69
        contextSize == inspectedContext size ifTrue:[
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    70
            listView selection notNil ifTrue:[
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    71
                self showSelection:(listView selection).
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    72
            ].
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    73
            ^ self
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    74
        ]
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    75
    ].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    76
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    77
    hasMore := argsOnly := false.
2236
257f587ad7dc migrate instvars 'inspectedObject' to 'object'
Claus Gittinger <cg@exept.de>
parents: 1769
diff changeset
    78
    inspectedObject := object := nil.
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
    79
    inspectedContext := aContext.
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
    80
    contextSize := inspectedContext size.
2236
257f587ad7dc migrate instvars 'inspectedObject' to 'object'
Claus Gittinger <cg@exept.de>
parents: 1769
diff changeset
    81
    oldSelection := selectionIndex.
1769
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
    82
    oldSelection notNil ifTrue:[oldSelectedName := listView at:oldSelection].
49
6fe62433cfa3 *** empty log message ***
claus
parents: 45
diff changeset
    83
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
    84
    aContext isNil ifTrue:[
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    85
        names := nil.
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    86
        listView list:nil. 
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    87
        ^ self
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
    88
    ].
d904237f7c44 Initial revision
claus
parents:
diff changeset
    89
56
d0cb937cbcaa *** empty log message ***
claus
parents: 55
diff changeset
    90
"/    realized ifFalse:[^ self].
d0cb937cbcaa *** empty log message ***
claus
parents: 55
diff changeset
    91
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
    92
    methodHomeContext := aContext methodHome.
51
57c1ccc3d7e0 *** empty log message ***
claus
parents: 49
diff changeset
    93
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
    94
    methodHomeContext isNil ifTrue:[
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    95
        "its a cheap blocks context"
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
    96
        rec := aContext receiver.
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
    97
        sel := aContext selector.
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
    98
        homeNames := OrderedCollection new.
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
    99
        isDoIt := false.
51
57c1ccc3d7e0 *** empty log message ***
claus
parents: 49
diff changeset
   100
    ] ifFalse:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   101
        rec := methodHomeContext receiver.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   102
        sel := methodHomeContext selector.
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   103
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   104
        "/ #doIt needs special handling below
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   105
        isDoIt := (sel == #doIt) or:[sel == #doIt:].
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   106
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   107
        method := methodHomeContext method.
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   108
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   109
"/        implementorClass := methodHomeContext methodClass.
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   110
"/        implementorClass notNil ifTrue:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   111
"/            method := implementorClass compiledMethodAt:sel.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   112
"/        ] ifFalse:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   113
"/            "/ mhm - an unbound method;
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   114
"/            "/ see if it was invoked by a direct call
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   115
"/            "/ consider this a kludge
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   116
"/
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   117
"/            methodHomeContext sender notNil ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   118
"/                (methodHomeContext sender selector startsWith:'valueWithReceiver:') ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   119
"/                    method := methodHomeContext sender receiver
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   120
"/                ]
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   121
"/            ]
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   122
"/        ].
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   123
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   124
        (method notNil 
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   125
        and:[method isWrapped]) ifTrue:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   126
            "
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   127
             in a wrapped context, locals are something different
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   128
            "
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   129
"/            argsOnly := true.
1026
b863f3784b3c oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
   130
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   131
            m := method originalMethod.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   132
            m notNil ifTrue:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   133
                method := m.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   134
            ] ifFalse:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   135
                argsOnly := true.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   136
            ].
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   137
        ].
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   138
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   139
        method notNil ifTrue:[
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   140
            "/ method source notNil ifTrue:[
1026
b863f3784b3c oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
   141
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   142
                argsOnly ifTrue:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   143
                    homeNames := method methodArgNames
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   144
                ] ifFalse:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   145
                    homeNames := method methodArgAndVarNames.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   146
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   147
                    "/ did it already allocate its locals ?
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   148
                    homeNames size > (methodHomeContext numArgs + methodHomeContext numVars)
1026
b863f3784b3c oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
   149
                    ifTrue:[
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   150
                        homeNames := method methodArgNames.
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   151
                        argsOnly := true.
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   152
                    ].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   153
                ].
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   154
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   155
                "/ there is one case, where the above is by purpose:
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   156
                "/ the #doIt - method, which has been given an invalid
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   157
                "/ source.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   158
                "/ care for this here.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   159
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   160
                isDoIt ifTrue:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   161
                    homeNames := #().
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   162
                ] ifFalse:[
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   163
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   164
                    "/ check
785
16809b8d468c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
   165
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   166
                    numVarsInContext := methodHomeContext argsAndVars size.
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   167
                    numVarsInSource := homeNames size.
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   168
977
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   169
                    numVarsInSource > 0 ifTrue:[
1026
b863f3784b3c oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
   170
                        numVarsInContext < numVarsInSource ifTrue:[
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   171
977
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   172
                            "/ the methods source does not correctly reflect
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   173
                            "/ the number of args&vars in the context.
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   174
                            "/ either outDated, or somehow strange.
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   175
                            "/ (happens with wrapped methods, which are not
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   176
                            "/  what they look)
947
b9625d9b0881 better block-var name detection
Claus Gittinger <cg@exept.de>
parents: 868
diff changeset
   177
977
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   178
                            numVarsInSource > numVarsInContext ifTrue:[
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   179
                                homeNames := homeNames copyTo:numVarsInContext.
976
95a817dc94a2 fixed arg-name display of wrapped methods
Claus Gittinger <cg@exept.de>
parents: 948
diff changeset
   180
                            ] ifFalse:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   181
                                numVarsInContext >= methodHomeContext numArgs ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   182
                                    homeNames := homeNames copyTo:methodHomeContext numArgs
977
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   183
                                ] ifFalse:[
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   184
                                    homeNames := nil
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   185
                                ]    
0bd3800f9e4a oops - dont copyFrom: nil
Claus Gittinger <cg@exept.de>
parents: 976
diff changeset
   186
                            ]
785
16809b8d468c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
   187
                        ]
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   188
                    ]
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   189
                ]
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   190
            "/ ]
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   191
        ].
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   192
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   193
        "
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   194
         create dummy names for method vars (if there is no source available)
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   195
        "
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   196
        homeNames isNil ifTrue:[
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   197
            homeNames := OrderedCollection new.
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   198
            1 to:methodHomeContext numArgs do:[:index |
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   199
                homeNames add:('mArg' , index printString)
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   200
            ].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   201
            argsOnly ifFalse:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   202
                1 to:methodHomeContext numVars do:[:index |
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   203
                    homeNames add:('mVar' , index printString)
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   204
                ].
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   205
"/                showingTemporaries ifTrue:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   206
"/                    1 to:methodHomeContext numTemps do:[:index |
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   207
"/                        homeNames add:('mTmp' , index printString)
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   208
"/                    ]
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   209
"/                ]
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   210
            ]
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   211
        ].
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   212
        showingTemporaries ifTrue:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   213
            1 to:methodHomeContext numTemps do:[:index |
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   214
                homeNames add:('mTmp' , index printString)
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   215
            ]
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   216
        ].
1204
e2f7a2409f7d inlined vars/args are shown as *t<i>
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   217
e2f7a2409f7d inlined vars/args are shown as *t<i>
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   218
        n := homeNames size.
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   219
        n < (methodHomeContext numVars + methodHomeContext numArgs) ifTrue:[
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   220
            "/ its a context which includes locals from
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   221
            "/ inlined sub-blocks.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   222
            "/ First, generate synthetic varNames ...
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   223
1204
e2f7a2409f7d inlined vars/args are shown as *t<i>
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   224
            homeNames := homeNames asOrderedCollection.
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   225
            tempNames := OrderedCollection new.
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   226
            n to:(methodHomeContext numVars + methodHomeContext numArgs - 1) do:[:inlinedTempIdx |
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   227
                tempNames add:('*t' , (inlinedTempIdx - n + 1) printString)
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   228
            ].
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   229
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   230
            "/ now, see if we can find out more
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   231
            "/ (failes, if source is not available)
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   232
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   233
            method notNil ifTrue:[
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   234
                (isDoIt and:[tempNames size > 0]) ifTrue:[
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   235
                    "/ special for #doIt
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   236
                    "/ my source is found in the method.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   237
                    blockNode := Compiler
5803
b43e404776f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5341
diff changeset
   238
                                    blockAtLine:aContext lineNumber
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   239
                                    in:nil
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   240
                                    orSource:('[' , method source , '\]') withCRs
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   241
                                    numArgs:numArgs 
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   242
                                    numVars:numVars.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   243
                ] ifFalse:[
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   244
                    blockNode := Compiler 
5803
b43e404776f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5341
diff changeset
   245
                                    blockAtLine:methodHomeContext lineNumber
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   246
                                    in:method
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   247
                                    orSource:nil
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   248
                                    numArgs:numArgs
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   249
                                    numVars:numVars.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   250
                ].
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   251
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   252
                realTempNames := OrderedCollection new.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   253
                [blockNode notNil] whileTrue:[
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   254
                    blockNode variables notNil ifTrue:[
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   255
                        realTempNames := (blockNode variables collect:[:aVar | aVar name]) , realTempNames.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   256
                    ].
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   257
                    blockNode arguments notNil ifTrue:[
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   258
                        realTempNames := (blockNode arguments collect:[:aVar | aVar name]) , realTempNames.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   259
                    ].
1523
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   260
                    "/
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   261
                    "/ hidden temps used for loop.
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   262
                    "/
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   263
                    blockNode invokationSelector == #timesRepeat ifTrue:[
5148
8e1e6728fe69 avoid slow add: to Array
penk
parents: 5087
diff changeset
   264
                        realTempNames asOrderedCollection addFirst:'*loopStop*'
1523
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   265
                    ] ifFalse:[
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   266
                        blockNode invokationSelector == #to:do: ifTrue:[
5148
8e1e6728fe69 avoid slow add: to Array
penk
parents: 5087
diff changeset
   267
                            realTempNames asOrderedCollection addFirst:'*loopStop*'
1523
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   268
                        ]
fb99bad7e005 care for hidden tempVars in inlined loops
Claus Gittinger <cg@exept.de>
parents: 1401
diff changeset
   269
                    ].
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   270
                    blockNode := blockNode home.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   271
                ].
1377
0b4eb8d544b4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   272
                tempNames 
0b4eb8d544b4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   273
                        replaceFrom:1 to:(tempNames size min:realTempNames size)
0b4eb8d544b4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   274
                        with:realTempNames.
1370
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   275
            ].
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   276
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   277
            homeNames := homeNames asOrderedCollection.
d322faba88b9 better extract of block-var-names
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   278
            homeNames addAll:tempNames.
1204
e2f7a2409f7d inlined vars/args are shown as *t<i>
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   279
        ]
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   280
    ].
51
57c1ccc3d7e0 *** empty log message ***
claus
parents: 49
diff changeset
   281
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   282
    "
d904237f7c44 Initial revision
claus
parents:
diff changeset
   283
     stupid: should find the block via the contexts
d904237f7c44 Initial revision
claus
parents:
diff changeset
   284
     method-home and put real names in here
d904237f7c44 Initial revision
claus
parents:
diff changeset
   285
    "
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   286
    aContext isBlockContext ifTrue:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   287
        names := self namesOfBlockContext:aContext.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   288
        hCon := aContext home.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   289
        [hCon == methodHomeContext] whileFalse:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   290
            names addAll:(self namesOfBlockContext:hCon).
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   291
            hCon := hCon home.
800
3abcfccedc0c finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents: 785
diff changeset
   292
        ].
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   293
        names addAll:homeNames.
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   294
    ] ifFalse:[
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   295
        names := homeNames.
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   296
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   297
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   298
    listView list:(self fieldList). 
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   299
d904237f7c44 Initial revision
claus
parents:
diff changeset
   300
    workspace contents:nil.
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   301
    self setDoitActionIn:workspace for:aContext.
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   302
1769
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   303
    oldSelectedName notNil ifTrue:[
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   304
        (names includes:oldSelectedName) ifTrue:[
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   305
            listView selectElement:oldSelectedName.
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   306
            self showSelection:(listView list indexOf:oldSelectedName).
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   307
        ]
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   308
    ].
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   309
6b904f69858f try to reselect the same name-entry, if inspected context
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   310
    "Modified: / 30.7.1998 / 12:51:44 / cg"
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   311
!
d904237f7c44 Initial revision
claus
parents:
diff changeset
   312
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   313
namesOfBlockContext:aContext
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   314
    |numArgs numVars argAndVarNames argNames varNames tmpNames names|
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   315
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   316
    numArgs := aContext numArgs.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   317
    numVars := aContext numVars.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   318
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   319
    (numArgs > 0 or:[numVars > 0]) ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   320
        argAndVarNames := aContext argAndVarNames.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   321
        argAndVarNames notEmptyOrNil ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   322
            argNames := argAndVarNames copyTo:numArgs.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   323
            varNames := argAndVarNames copyFrom:numArgs+1.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   324
        ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   325
    ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   326
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   327
    names := OrderedCollection new.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   328
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   329
    argNames isNil ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   330
        argNames := (1 to:numArgs) collect:[:i | 'arg' , i printString].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   331
    ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   332
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   333
    names addAll:argNames.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   334
    varNames isNil ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   335
        varNames := (1 to:numVars) collect:[:i | 'var' , i printString].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   336
    ] ifFalse:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   337
        varNames size ~~ numVars ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   338
            varNames := varNames asOrderedCollection.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   339
            varNames size+1 to:aContext numVars do:[:i |
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   340
                varNames add:('var' , i printString)
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   341
            ]
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   342
        ]
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   343
    ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   344
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   345
    names addAll:varNames.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   346
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   347
    showingTemporaries ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   348
        tmpNames := (1 to:(aContext numTemps)) collect:[:i | 'tmp' , i printString].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   349
        names addAll:tmpNames.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   350
    ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   351
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   352
    ^ names
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   353
!
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   354
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   355
release
d904237f7c44 Initial revision
claus
parents:
diff changeset
   356
    "release inspected object"
d904237f7c44 Initial revision
claus
parents:
diff changeset
   357
d904237f7c44 Initial revision
claus
parents:
diff changeset
   358
    inspectedContext := nil.
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   359
    names := nil.
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   360
    super release
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   361
297
3d34ce6e2b22 oops - leftover printMessage removed
Claus Gittinger <cg@exept.de>
parents: 296
diff changeset
   362
    "Modified: 14.12.1995 / 21:49:43 / cg"
34
d904237f7c44 Initial revision
claus
parents:
diff changeset
   363
! !
d904237f7c44 Initial revision
claus
parents:
diff changeset
   364
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   365
!ContextInspectorView methodsFor:'initialization'!
51
57c1ccc3d7e0 *** empty log message ***
claus
parents: 49
diff changeset
   366
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   367
initialize
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   368
    super initialize.
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   369
    showingTemporaries := false.
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   370
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   371
! !
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   372
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   373
!ContextInspectorView methodsFor:'menu'!
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   374
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   375
fieldMenu
1596
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   376
    "return a popUpMenu for the left (fields) pane"
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   377
1361
20c353524524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
   378
    <resource: #programMenu >
20c353524524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
   379
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   380
    |items m sel|
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   381
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   382
    items := #(
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   383
                   ('Copy Name or Key'      #doCopyKey)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   384
                   ('-')
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   385
                   ('Inspect'               #doInspect)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   386
                   ('BasicInspect'          #doBasicInspect)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   387
                   ('Inspect Hierarchical'  #doNewInspect)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   388
                   ('-')
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   389
                   ('Browse'                #browse)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   390
              ).
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   391
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   392
    sel := self selection.
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   393
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   394
    (sel isBlock or:[sel isContext]) ifTrue:[
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   395
        items := items , #(
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   396
                       ('Browse Blocks Home'           #browseHome)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   397
              ).
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   398
    ].
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   399
    (sel isKindOf:Filename) ifTrue:[
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   400
        items := items , #(
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   401
                   ('Open Filebrowser'  #openFileBrowser)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   402
                  ).
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   403
    ].
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   404
    items := items , #(
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   405
               ('-')
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   406
              ).
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   407
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   408
    showingTemporaries ifFalse:[
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   409
        items := items , #(
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   410
                       ('Show Temporaries'      #showTemporaries)
1596
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   411
                  )
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   412
    ] ifTrue:[
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   413
        items := items , #(
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   414
                       ('Hide temporaries'      #hideTemporaries)
1596
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   415
                  )
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   416
    ].
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   417
1634
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   418
    showHex ifTrue:[
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   419
        items := items , #(
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   420
                        ('-')
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   421
                        ('Decimal Integers'  #toggleHex               )
1634
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   422
                          )
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   423
    ] ifFalse:[
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   424
        items := items , #(
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   425
                        ('-')
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   426
                        ('Hex Integers'      #toggleHex               )
1634
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   427
                          )
216a4254e634 added 'hex integers' toggle to menu.
Claus Gittinger <cg@exept.de>
parents: 1596
diff changeset
   428
    ].
3105
9d80b49560ca added browse blocks home menu item
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   429
    m := PopUpMenu
1596
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   430
          itemList:items
3105
9d80b49560ca added browse blocks home menu item
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   431
          resources:resources.
9d80b49560ca added browse blocks home menu item
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   432
3425
63909439cbe8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3200
diff changeset
   433
    selectionIndex isNil ifTrue:[
63909439cbe8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3200
diff changeset
   434
        m disableAll:#(doInspect doBasicInspect browse browseHome)
63909439cbe8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3200
diff changeset
   435
    ] ifFalse:[
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   436
        sel isBlock ifFalse:[
3425
63909439cbe8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3200
diff changeset
   437
            m disable:#browseHome
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   438
        ].
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   439
        sel class hasImmediateInstances ifTrue:[
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   440
            m disableAll:#(showReferences doNewInspect)
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   441
        ].
3105
9d80b49560ca added browse blocks home menu item
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   442
    ].
9d80b49560ca added browse blocks home menu item
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   443
    ^ m
1361
20c353524524 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
   444
3425
63909439cbe8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3200
diff changeset
   445
    "Modified: / 16.11.2001 / 13:02:35 / cg"
73
e332d9c71624 *** empty log message ***
claus
parents: 57
diff changeset
   446
! !
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   447
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   448
!ContextInspectorView methodsFor:'private'!
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   449
647
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   450
defaultLabel
4095
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   451
    ^ 'Locals'
647
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   452
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   453
    "
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   454
     ContextInspectorView openOn:thisContext sender
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   455
    "
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   456
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   457
    "Modified: 28.6.1996 / 16:07:49 / cg"
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   458
!
1791ceddf2ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 645
diff changeset
   459
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   460
displayStringForValue:someValue 
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   461
    "return the values displayString"
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   462
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   463
    |sel|
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   464
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   465
    sel := listView at:selectionIndex.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   466
    (sel startsWith:'-all local vars') ifTrue:[
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   467
        ^ self stringWithAllLocalValues
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   468
    ].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   469
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   470
    ^ super displayStringForValue:someValue
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   471
!
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   472
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   473
fieldList
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   474
    names size == 0 ifTrue:[^ names].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   475
    ^ #('-all local vars') , names
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   476
!
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   477
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   478
hasSelfEntry
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   479
    ^ false
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   480
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   481
    "Created: 14.12.1995 / 19:29:47 / cg"
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   482
!
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   483
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   484
setDoitActionIn:aWorkspace for:aContext
1596
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   485
    aWorkspace 
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   486
        doItAction:[:theCode |
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   487
            Compiler 
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   488
                evaluate:theCode
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   489
                in:aContext
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   490
                receiver:nil
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   491
                notifying:aWorkspace
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   492
                logged:true 
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   493
                ifFail:nil
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   494
        ]
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   495
!
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   496
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   497
stringWithAllLocalValues
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   498
    |s  maxLen varString|
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   499
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   500
    s := '' writeStream.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   501
    maxLen := (names collect:[:eachName | eachName size]) max.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   502
    names keysAndValuesDo:[:varIdx :eachLocalName |
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   503
        s nextPutAll:((eachLocalName , ' ') paddedTo:maxLen+1 with:$.).
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   504
        s nextPutAll:' : '.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   505
5922
354cc187ba57 catch errors in displayString
martin
parents: 5803
diff changeset
   506
        [
354cc187ba57 catch errors in displayString
martin
parents: 5803
diff changeset
   507
            varString := (self valueAtIndex:varIdx) displayString.
354cc187ba57 catch errors in displayString
martin
parents: 5803
diff changeset
   508
        ] on:Error do:[
354cc187ba57 catch errors in displayString
martin
parents: 5803
diff changeset
   509
            varString := '*** Error in displayString ***'
354cc187ba57 catch errors in displayString
martin
parents: 5803
diff changeset
   510
        ].
6404
f4c76a21ba34 care for local value with invalid class.
Claus Gittinger <cg@exept.de>
parents: 5922
diff changeset
   511
        varString := varString ? ''.
5922
354cc187ba57 catch errors in displayString
martin
parents: 5803
diff changeset
   512
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   513
        (varString includes:Character cr) ifTrue:[
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   514
            varString := varString copyTo:(varString indexOf:Character cr)-1.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   515
            varString := varString , '...'.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   516
        ].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   517
        s nextPutAll:varString.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   518
        s cr.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   519
    ].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   520
    ^ s contents
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   521
!
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   522
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   523
valueAtIndex:varIdx
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   524
    "helper - return the value of the selected entry"
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   525
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   526
    |methodHomeContext hCon theContext values|
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   527
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   528
    inspectedContext isNil ifTrue:[^ nil].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   529
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   530
    argsOnly := false.
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   531
    theContext := inspectedContext.
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   532
    methodHomeContext := theContext methodHome.
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   533
868
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   534
    theContext isBlockContext ifTrue:[
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   535
        values := Array withAll:(theContext argsAndVars).
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   536
        (showingTemporaries and:[theContext numTemps ~~ 0]) ifTrue:[
b5f5f5723793 renamed vars for WIN32
Claus Gittinger <cg@exept.de>
parents: 840
diff changeset
   537
            values := values , theContext temporaries
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   538
        ].
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   539
        hCon := theContext home.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   540
        [hCon == methodHomeContext] whileFalse:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   541
            values := values , hCon argsAndVars.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   542
            (showingTemporaries and:[theContext numTemps ~~ 0]) ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   543
                values := values , hCon temporaries
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   544
            ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   545
            hCon := hCon home.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   546
        ].
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   547
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   548
        methodHomeContext notNil ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   549
            values := values , methodHomeContext args.
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   550
            argsOnly ifFalse:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   551
                values := values , methodHomeContext vars.
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   552
                (showingTemporaries and:[methodHomeContext numTemps ~~ 0])ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   553
                    values := values , methodHomeContext temporaries
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   554
                ]
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   555
            ].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   556
        ].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   557
    ] ifFalse:[
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   558
        argsOnly ifTrue:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   559
            values := methodHomeContext args
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   560
        ] ifFalse:[
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   561
            values := methodHomeContext argsAndVars
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   562
        ].
5339
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   563
        (showingTemporaries and:[methodHomeContext numTemps ~~ 0])ifTrue:[
a740e2325527 also show argAndVarNames of outer blocks.
Claus Gittinger <cg@exept.de>
parents: 5148
diff changeset
   564
            values := values , methodHomeContext temporaries
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   565
        ]
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   566
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   567
    ].
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   568
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   569
    ^ values at:varIdx.
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   570
1395
1c7f8d3794f7 context vars
Claus Gittinger <cg@exept.de>
parents: 1377
diff changeset
   571
    "Modified: / 13.1.1998 / 15:55:16 / cg"
3775
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   572
!
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   573
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   574
valueAtLine:lineNr
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   575
    "helper - return the value of the selected entry"
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   576
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   577
    |varIdx l|
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   578
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   579
    inspectedContext isNil ifTrue:[^ nil].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   580
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   581
    varIdx := lineNr.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   582
    ((l := listView at:lineNr) startsWith:$-) ifTrue:[
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   583
        (l ~= '-') ifTrue:[
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   584
            ^ self valueForSpecialLine:(listView at:lineNr)
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   585
        ].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   586
    ].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   587
    ^ self valueAtIndex:(varIdx - 1). "/ for the special var
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   588
!
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   589
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   590
valueForSpecialLine:line
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   591
    (line startsWith:'-all local vars') ifTrue:[
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   592
        ^ inspectedObject
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   593
    ].
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   594
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   595
    self error:'unknown special line'.
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   596
6537791170d8 added all local vars
Claus Gittinger <cg@exept.de>
parents: 3425
diff changeset
   597
    "Created: / 31.10.2001 / 09:17:45 / cg"
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   598
! !
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   599
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   600
!ContextInspectorView methodsFor:'user actions'!
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   601
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   602
doAccept:theText
1596
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   603
    "text in the right pane was accepted - evaluate the contents and
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   604
     assign to the selected field"
1c937a1d2d37 use new menu-creation message in PopUpMenu.
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
   605
4095
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   606
    super doAccept:theText.
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   607
"/    |newValue|
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   608
"/
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   609
"/    selectionIndex notNil ifTrue:[
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   610
"/        newValue := inspectedObject class evaluatorClass 
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   611
"/                       evaluate:theText
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   612
"/                       receiver:inspectedObject 
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   613
"/                       notifying:workspace.
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   614
"/
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   615
"/        "yes, you can do that with a context"
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   616
"/        inspectedContext at:selectionIndex put:newValue.
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   617
"/    ].
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   618
!
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   619
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   620
hideTemporaries
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   621
    "do not show contexts temporaries"
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   622
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   623
    showingTemporaries := false.
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   624
    self inspect:inspectedContext
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   625
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   626
    "Modified: 14.12.1995 / 19:24:44 / cg"
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   627
!
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   628
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   629
showTemporaries
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   630
    "show contexts temporaries"
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   631
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   632
    showingTemporaries := true.
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   633
    self inspect:inspectedContext
296
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   634
b480a51cfb5f dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents: 200
diff changeset
   635
    "Modified: 14.12.1995 / 19:24:49 / cg"
4095
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   636
!
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   637
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   638
valueAtLine:selectionIndex put:newValue
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   639
    "yes, you can do that with a context"
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders
Claus Gittinger <cg@exept.de>
parents: 3775
diff changeset
   640
    inspectedContext at:selectionIndex put:newValue.
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   641
! !
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   642
785
16809b8d468c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
   643
!ContextInspectorView class methodsFor:'documentation'!
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   644
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   645
version
6491
d02c41c57d02 better menu
Claus Gittinger <cg@exept.de>
parents: 6404
diff changeset
   646
    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.62 2006-01-24 16:27:16 cg Exp $'
200
01ce3d3636d5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
   647
! !