DebugView.st
author Claus Gittinger <cg@exept.de>
Thu, 06 Feb 2014 12:47:16 +0100
changeset 13904 fa0f2004dfd9
parent 13842 609697ec1e06
child 13934 ec9cc7cf19aa
permissions -rw-r--r--
class: DebugView comment/format in: #postRealize #setLabelFor:in: changed: #enter:withMessage:mayProceed:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
     1
"
4
77d8e96499b2 *** empty log message ***
claus
parents: 2
diff changeset
     2
 COPYRIGHT (c) 1989 by Claus Gittinger
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
     3
              All Rights Reserved
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
     4
571fd5eee315 Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
571fd5eee315 Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
571fd5eee315 Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
571fd5eee315 Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
571fd5eee315 Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
571fd5eee315 Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
571fd5eee315 Initial revision
claus
parents:
diff changeset
    11
"
2678
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
    12
"{ Package: 'stx:libtool' }"
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
    13
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
    14
StandardSystemView subclass:#DebugView
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    15
	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    16
		receiverInspector contextInspector contextArray selectedContext
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    17
		catchBlock grabber mayProceed traceView tracing bigStep
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    18
		skipLineNr steppedContextAddress abortButton terminateButton
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    19
		continueButton stepButton nextButton nextOverButton nextOutButton
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    20
		sendButton returnButton restartButton exclusive inspecting
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    21
		nChainShown inspectedProcess updateProcess stopButton
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    22
		updateButton defineButton monitorToggle stepping
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    23
		steppedContextLineno stepForReturn actualContext inWrap
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    24
		stackInspector steppedContext wrapperContext verboseBacktrace
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    25
		firstContext stepHow cachable currentMethod ignoreBreakpoints
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    26
		stepUntilEntering lastStepUntilEntering
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    27
		lastSelectionInReceiverInspector lastSelectionInContextInspector
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    28
		canShowMore exitAbort reportButton setOfHiddenCallingSelectors
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    29
		isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    30
		methodCodeToggleSelectionHolder
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    31
		isStoppedAtBreakPointWithParameter breakPointParameter
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
    32
		hideSupportCode contextInfoLabel resendButton
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
    33
		gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
    34
		classToDefineIn'
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    35
	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    36
		DebuggingDebugger DebuggingDebugger2
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    37
		DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    38
		ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
    39
		LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
    40
		NumberOfDebuggers'
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    41
	poolDictionaries:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    42
	category:'Interface-Debugger'
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
    43
!
571fd5eee315 Initial revision
claus
parents:
diff changeset
    44
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    45
Object subclass:#IgnoredHaltOrBreakpoint
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
    46
	instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
    47
		ignoredReceiverClasses ignoredProcesses'
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    48
	classVariableNames:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    49
	poolDictionaries:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    50
	privateIn:DebugView
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    51
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    52
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    53
DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredHalt
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    54
	instanceVariableNames:'weakMethodHolder lineNumber'
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    55
	classVariableNames:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    56
	poolDictionaries:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    57
	privateIn:DebugView
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    58
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    59
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    60
DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredBreakpoint
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    61
	instanceVariableNames:'parameter'
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    62
	classVariableNames:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    63
	poolDictionaries:''
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
    64
	privateIn:DebugView
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
    65
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
    66
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
    67
!DebugView class methodsFor:'documentation'!
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    68
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    69
copyright
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    70
"
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    71
 COPYRIGHT (c) 1989 by Claus Gittinger
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
    72
              All Rights Reserved
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    73
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    74
 This software is furnished under a license and may be used
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    75
 only in accordance with the terms of that license and with the
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    76
 inclusion of the above copyright notice.   This software may not
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    77
 be provided or otherwise made available to, or used by, any
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    78
 other person.  No title to or ownership of the software is
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    79
 hereby transferred.
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    80
"
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    81
!
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
    82
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    83
documentation
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    84
"
1240
ff3fdaa72df6 In #destroy CodeView>>contents: has been called and caused a
Stefan Vogel <sv@exept.de>
parents: 1213
diff changeset
    85
    This class implements a graphical debugger interface.
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    86
    The debugger usually sits on top of the faulting process,
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
    87
    taking over its event processing.
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    88
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
    89
    (this is different from other Smalltalk debuggers, which control
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
    90
     the debuggee as a separate process. Consider this an historic
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
    91
     leftover - the debugger was one of the first applications written for
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    92
     ST/X.
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    93
     The whole setup might be changed, once the required process primitives
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    94
     are available, which allow control of another processes execution
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    95
     (i.e. single-step, restart & return). The setup will be changed then,
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    96
     to have the debugger control the debuggee (i.e. two processes)
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
    97
     however, why should we change it without a particular need...).
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
    98
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
    99
    Only the 'stopped' debugged process is affected;
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   100
    other processes continue to respond to events.
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   101
    The one exception to this is when an error occurs within the dispatcher process
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   102
    or in one of the eventhandler processes. In this case, the debugger
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   103
    will sit on an exclusive display connection.
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   104
35
cd5cb075fd6a *** empty log message ***
claus
parents: 29
diff changeset
   105
    See additional information in 'doc/misc/debugger.doc'.
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   106
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   107
    Notice & Warning:
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   108
        the DebugView class caches the last used debugger in a class variable. 
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   109
        It may happen, that a malfunctioning debugger (for example, a halfway destroyed one) 
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   110
        is kept there. You will notice this, if a debugger comes up without showing any contents. 
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   111
        In this case, close (or destroy) the broken debugView, and execute
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   112
            Debugger newDebugger
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   113
        which removes the cached debugger and forces creation of a new one the next time. 
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   114
        This is a temporary workaround - the debugger should be fixed to avoid this situation.
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   115
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   116
        You must also flush the cached debugger, if you change the debugger's
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   117
        initialization code (buttons, menu, etc.) or the debugger's class layout,
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
   118
        and you want the new code to become effective.
508
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   119
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   120
    [author:]
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   121
        Claus Gittinger
508
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   122
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   123
    [see also:]
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   124
        Exception Signal
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   125
        Process
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   126
"
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   127
! !
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   128
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
   129
!DebugView class methodsFor:'initialization'!
243
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   130
1092
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   131
initialize
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
   132
    DebuggingDebugger := DebuggingDebugger2 := MoreDebuggingDetail := false.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
   133
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
   134
    InitialNChainShown := 50.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
   135
    "/ DefaultDebuggerBackgroundColor := nil.
3387
4cbed052fbbe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3350
diff changeset
   136
    "/ DefaultDebuggerBackgroundColor := Color red lightened.
4cbed052fbbe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3350
diff changeset
   137
    "/ DefaultDebuggerBackgroundColor := Color blue lightened lightened.
1092
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   138
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   139
    "Created: 20.3.1997 / 16:53:37 / cg"
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   140
    "Modified: 20.3.1997 / 16:54:32 / cg"
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   141
!
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   142
243
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   143
reinitialize
7822
3438bb87dda0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7797
diff changeset
   144
    "reinitialize after an image-restart"
3438bb87dda0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7797
diff changeset
   145
243
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   146
    self newDebugger
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   147
! !
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   148
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   149
!DebugView class methodsFor:'cleanup'!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   150
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   151
lowSpaceCleanup
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   152
    "in low memory situations, give up cached debuggers"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   153
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   154
    CachedDebugger := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   155
    CachedExclusive := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   156
    OpenDebuggers := nil.
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
   157
    RememberedCallChain := nil.
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   158
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   159
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   160
     DebugView lowSpaceCleanup
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   161
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   162
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
   163
    "Modified: / 08-03-2012 / 01:30:21 / cg"
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   164
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   165
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   166
newDebugger
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
   167
    "force creation of a new debugger (give up cached debuggers).
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
   168
     Call this, if you changed the debugger heavily, and you want to avoid
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
   169
     that an old, cached debugger gets reused when the next error comes around."
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   170
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   171
    CachedDebugger := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   172
    CachedExclusive := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   173
    OpenDebuggers := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   174
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   175
    (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   176
        Debugger := self
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   177
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   178
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   179
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   180
     DebugView newDebugger
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   181
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   182
! !
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   183
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   184
!DebugView class methodsFor:'defaults'!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   185
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   186
defaultIcon
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   187
    "return the browsers default window icon"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   188
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   189
    <resource: #programImage>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   190
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   191
    ^ ToolbarIconLibrary debug22x22Icon
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   192
    "/ ^ ToolbarIconLibrary debugIt20x20Icon
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   193
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   194
    "Modified: / 11-02-2007 / 11:47:20 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   195
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   196
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   197
defaultIconForAboutBox
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   198
    <resource: #programImage>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   199
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   200
    ^ ToolbarIconLibrary debug22x22IconForBlackBackgound
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   201
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   202
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   203
defaultVerboseBacktrace
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   204
    <resource: #obsolete>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   205
    self obsoleteMethodWarning.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   206
    ^ UserPreferences current verboseBacktraceInDebugger
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   207
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   208
    "Created: 11.1.1997 / 12:14:35 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   209
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   210
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   211
defaultVerboseBacktrace:aBoolean
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   212
    <resource: #obsolete>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   213
    self obsoleteMethodWarning.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   214
    UserPreferences current verboseBacktraceInDebugger:aBoolean
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   215
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   216
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   217
maxNumberOfDebuggers
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   218
    "to prevent debuggers from flooding the screen,
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   219
     in case of an error in an ever-forked background process
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   220
     (such as tooltip process)"
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   221
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   222
    ^ 10
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   223
!
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   224
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   225
updateStyleCache
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   226
    "extract values from the styleSheet and cache them in class variables"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   227
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   228
    <resource: #style (#'debugView.viewBackgroundColor')>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   229
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   230
    DefaultDebuggerBackgroundColor := StyleSheet at:#'debugView.viewBackgroundColor'
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   231
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   232
    "Modified: / 17.11.2001 / 17:31:42 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   233
! !
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   234
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   235
!DebugView class methodsFor:'ignoring halts'!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   236
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   237
haltIgnoreInformationFor:haltingMethod atLineNr:lineNrInHaltingMethod
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   238
    "the information (if any) about the ignore-state of a halt"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   239
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   240
    IgnoredHalts isNil ifTrue:[^ nil].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   241
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   242
    IgnoredHalts do:[:ign |
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   243
        (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   244
        "/ (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) 
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   245
        ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   246
            ^ ign
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   247
        ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   248
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   249
    ^ nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   250
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   251
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   252
hasIgnoredHalts
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   253
    self removeInactiveIgnores.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   254
    ^ IgnoredHalts notEmptyOrNil
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   255
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   256
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   257
ignoreBreakpointWithParameter:parameterOrNil forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey orReceiverClass:receiverClassOrNil orProcess:processOrNil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   258
    "remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   259
     or until some time has elapsed.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   260
     With nil count and time arguments, such an ignored breakpoint is reactivated"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   261
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   262
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   263
        ignoreHaltOrBreakpoint:#halt 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   264
        method:nil line:nil  
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   265
        parameter:parameterOrNil 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   266
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   267
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   268
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   269
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   270
ignoreHaltIn:haltingMethod at:lineNrOfHalt forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey orReceiverClass:receiverClassOrNil orProcess:processOrNil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   271
    "remember to ignore a halt in some method for some number of invocations
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   272
     or until some time has elapsed.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   273
     With nil count and time arguments, such an ignored halt is reactivated"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   274
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   275
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   276
        ignoreHaltOrBreakpoint:#halt 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   277
        method:haltingMethod line:lineNrOfHalt  
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   278
        parameter:nil 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   279
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   280
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   281
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   282
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   283
ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   284
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   285
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   286
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   287
    "remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   288
     or until some time has elapsed.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   289
     With nil count and time arguments, such an ignored breakpoint is reactivated"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   290
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   291
    |oldEntry ign|
12947
46051d026ba5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12941
diff changeset
   292
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   293
    IgnoredHalts notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   294
        self removeInactiveIgnores.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   295
        type == #halt ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   296
            oldEntry := IgnoredHalts
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   297
                            detect:[:ign | ign isForMethod:methodOrNil line:lineNrOfHaltOrNil]
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   298
                            ifNone:nil.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   299
        ] ifFalse:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   300
            oldEntry := IgnoredHalts
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   301
                            detect:[:ign | ign isForBreakpointWithParameter:parameterOrNil]
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   302
                            ifNone:nil.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   303
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   304
        oldEntry notNil ifTrue:[
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   305
            (processOrNil notNil or:[receiverClassOrNil notNil]) ifTrue:[
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   306
                receiverClassOrNil notNil ifTrue:[
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   307
                    oldEntry ignoreForReceiverClass:receiverClassOrNil.
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   308
                ].
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   309
                processOrNil notNil ifTrue:[
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   310
                    oldEntry ignoreForProcess:processOrNil.
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   311
                ].
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   312
                ^ self.
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
   313
            ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   314
            IgnoredHalts remove:oldEntry ifAbsent:[].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   315
        ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   316
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   317
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   318
    (countOrNil notNil 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   319
      or:[dTOrNil notNil 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   320
      or:[untilShiftKey == true
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   321
      or:[receiverClassOrNil notNil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   322
      or:[processOrNil notNil]]]]
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   323
    ) ifTrue:[
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   324
        IgnoredHalts isNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   325
            IgnoredHalts := OrderedCollection new.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   326
        ].
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   327
        type == #halt ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   328
            ign := IgnoredHalt new method:methodOrNil lineNumber:lineNrOfHaltOrNil.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   329
        ] ifFalse:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   330
            ign := IgnoredHalt new breakpointWithParameter:parameterOrNil.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   331
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   332
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   333
        (countOrNil notNil and:[countOrNil > 0]) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   334
            ign ignoreCount:countOrNil.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   335
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   336
        (dTOrNil notNil) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   337
            ign ignoreEndTime:(Timestamp now + dTOrNil).
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   338
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   339
        untilShiftKey == true ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   340
            ign ignoreUntilShiftKeyPressed:true.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   341
        ].
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   342
        receiverClassOrNil notNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   343
            ign ignoreForReceiverClass:receiverClassOrNil.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   344
        ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   345
        processOrNil notNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   346
            ign ignoreForProcess:processOrNil.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   347
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   348
        IgnoredHalts add:ign.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   349
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   350
    Smalltalk changed:#ignoredHalts.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   351
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   352
    "Created: / 06-03-2012 / 12:37:58 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   353
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   354
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   355
isBreakpointToBeIgnoredForParameter:parameter context:aContext modifyEntryCount:modifyCount
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   356
    "/ should a breakpoint be ignored ?
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   357
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   358
    IgnoredHalts isNil ifTrue:[^ false].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   359
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   360
    "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   361
    IgnoredHalts do:[:ign |
11367
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
   362
        (ign isForBreakpointWithParameter:parameter) ifTrue:[
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   363
            Transcript show:'Debugger [info]: break ignored for ', parameter.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   364
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   365
            modifyCount ifTrue:[ ign decrementIgnoreCount ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   366
            ign isHaltIgnored ifFalse:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   367
                Transcript showCR:'Debugger [info]: no longer ignore breakpoint for ', parameter.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   368
                IgnoredHalts remove:ign ifAbsent:[].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   369
            ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   370
            ^ true.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   371
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   372
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   373
13162
e19746a3bf73 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13111
diff changeset
   374
    IgnoredHalts := (IgnoredHalts reject:[:ign | ign isActive not ]) asNilIfEmpty.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   375
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   376
    ^ false.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   377
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   378
    "Created: / 06-03-2012 / 12:50:30 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   379
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   380
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   381
isHaltToBeIgnoredIn:haltingMethod atLineNr:lineNrInHaltingMethod context:aContext modifyEntryCount:modifyCount
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   382
    "should a halt be ignored ?"
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   383
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   384
    IgnoredHalts isNil ifTrue:[^ false].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   385
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   386
    "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   387
    IgnoredHalts do:[:ign |
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   388
        (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod context:aContext) ifTrue:[
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   389
            Transcript show:'Debugger [info]: halt/break ignored in ', haltingMethod whoString.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   390
            Transcript show:' ('; show:ign; showCR:')'.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   391
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   392
            modifyCount ifTrue:[ ign decrementIgnoreCount ].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   393
            ign isHaltIgnored ifFalse:[
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   394
                Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   395
                IgnoredHalts remove:ign ifAbsent:[].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   396
            ].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   397
            ^ true.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   398
        ].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   399
    ].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   400
13162
e19746a3bf73 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13111
diff changeset
   401
    IgnoredHalts := (IgnoredHalts reject:[:ign | ign isActive not]) asNilIfEmpty.
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   402
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   403
    ^ false.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   404
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   405
    "Modified (comment): / 06-03-2012 / 12:51:43 / cg"
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   406
!
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   407
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   408
removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   409
    IgnoredHalts notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   410
        IgnoredHalts := IgnoredHalts select:[:i | i isActive].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   411
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   412
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   413
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   414
stopIgnoringHalts
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   415
    "forget about all ignored halts"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   416
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   417
    IgnoredHalts := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   418
    Smalltalk changed:#ignoredHalts.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   419
! !
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   420
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   421
!DebugView class methodsFor:'instance creation / entering'!
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   422
2421
9b166a3ce3cd checkin from browser
ca
parents: 2404
diff changeset
   423
enter
9b166a3ce3cd checkin from browser
ca
parents: 2404
diff changeset
   424
    "enter a debugger"
9b166a3ce3cd checkin from browser
ca
parents: 2404
diff changeset
   425
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   426
    <context: #return>
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   427
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   428
    ^ self
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   429
        enter:thisContext sender
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
   430
        withMessage:'Debugger Entered'
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   431
        mayProceed:true.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   432
!
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   433
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   434
enter:aContext withMessage:aString
2355
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   435
    "enter a debugger"
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   436
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   437
    <context: #return>
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   438
2355
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   439
    ^ self
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   440
        enter:aContext
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   441
        withMessage:aString
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   442
        mayProceed:true
2355
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   443
!
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   444
2317
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
   445
enter:aContext withMessage:aString mayProceed:mayProceed
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   446
    "enter a debugger; if this is a recursive invocation, enter
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   447
     a MiniDebugger instead.
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   448
     This is the standard way of entering the debugger;
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   449
     sent from error- and halt messages."
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   450
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   451
    <context: #return>
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   452
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   453
    (NumberOfDebuggers ? 0) > self maxNumberOfDebuggers ifTrue:[
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   454
        NumberOfDebuggers := self allInstances count:[:d | d isOpen].
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   455
        NumberOfDebuggers > self maxNumberOfDebuggers ifTrue:[
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   456
            MiniDebugger enter:aContext withMessage:'too many debuggers - looping?' mayProceed:true.
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   457
        ].
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   458
    ].
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   459
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   460
    DebuggingDebugger == true ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   461
        '==> enter1: (' print. aContext print. ')' printCR.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   462
    ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   463
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
   464
    StepInterruptPending := nil.
3998
a5d701d3802c ignore breakpoints within debugger
penk
parents: 3928
diff changeset
   465
    ControlInterrupt handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   466
        'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   467
        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   468
        ex proceed
3998
a5d701d3802c ignore breakpoints within debugger
penk
parents: 3928
diff changeset
   469
    ] do:[
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   470
        |debugger|
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   471
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   472
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   473
         well, it could be a stepping or sending debugger up there;
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   474
         in this case, return to it. This happens, when a stepping process
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   475
         runs into an error (for example, a halt). In this case, we want the
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   476
         stepping debugger to come up again instead of a new one.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   477
        "
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   478
        (debugger := self openDebuggerForActiveProcess) notNil ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   479
            debugger unstep.
13904
fa0f2004dfd9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13842
diff changeset
   480
            debugger setLabelFor:aString in:Processor activeProcess.
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   481
            debugger mayProceed:mayProceed.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   482
            ^ debugger enter:aContext select:nil.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   483
        ].
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   484
    ].
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   485
    ^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
526
8be290d825d6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   486
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   487
    "Modified: / 06-11-2013 / 20:58:54 / cg"
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   488
!
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   489
8347
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   490
enterException:ex
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   491
    "enter a debugger; if this is a recursive invocation, enter
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   492
     a MiniDebugger instead.
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   493
     This is the standard way of entering the debugger;
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   494
     sent from error- and halt messages."
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   495
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   496
    ^ self
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   497
        enter:ex returnableSuspendedContext
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
   498
        withMessage:('[',ex originalSignal class name,']: ',ex descriptionForDebugger)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   499
        mayProceed:(ex mayProceed).
8347
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   500
!
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   501
2317
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
   502
enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   503
    "enter a debugger - do not check for recursive invocation"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   504
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   505
    <context: #return>
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   506
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   507
    |aDebugger|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   508
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   509
    StepInterruptPending := nil.
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   510
    NumberOfDebuggers := (NumberOfDebuggers ? 0) + 1.
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
   511
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
   512
    "/ ignore halts & breakpoints while setting up the debugger
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
   513
    "/ to avoid recursive debugging ...
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   514
    ControlInterrupt handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   515
        'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   516
        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   517
        ex proceed
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
   518
    ] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   519
        aDebugger := self new.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   520
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   521
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   522
    aDebugger isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   523
        'DebugView [error]: cannot open debugger' errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   524
        'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   525
        mayProceed ifTrue:[
12333
a2387c6089f4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12106
diff changeset
   526
            (Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   527
                   yesLabel:'Continue' noLabel:'Abort')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   528
            ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   529
                ^ nil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   530
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   531
        ] ifFalse:[
12333
a2387c6089f4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12106
diff changeset
   532
            self information:'Error caught.\\Press OK to abort the operation.' withCRs.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   533
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   534
        AbortOperationRequest raise.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   535
        "not reached"
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
   536
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   537
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   538
    aDebugger mayProceed:mayProceed.
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   539
    aDebugger setLabelFor:aString in:Processor activeProcess.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   540
    aDebugger enter:aContext select:nil.
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   541
    ^ nil.
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   542
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   543
    "
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   544
        nil halt
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   545
    "
1244
413709b30fd2 more care for breakpoints in debugger
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
   546
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   547
    "Modified: / 18.11.2001 / 00:29:23 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   548
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   549
6430
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   550
enterWithMessage:message
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   551
    "enter a debugger"
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   552
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   553
    <context: #return>
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   554
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   555
    ^ self
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   556
        enter:(thisContext sender)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   557
        withMessage:message
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   558
        mayProceed:true.
6430
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   559
!
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   560
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   561
new
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   562
    "return a new DebugView.
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   563
     - return a cached debugger if it already exists.
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   564
     Also, care for remote displays on which no debugger is wanted
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   565
     (ask with mayOpenDebugger) - if so, open on the default screen."
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   566
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   567
    |debugger currentScreen debuggerDevice|
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   568
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   569
    currentScreen := Screen current.
14
e07eee5d93ca *** empty log message ***
claus
parents: 13
diff changeset
   570
3030
5adb33d5111d fixed devices mayOpenDebugger / suppressDebugger handling.
Michael Beyl <mb@exept.de>
parents: 2963
diff changeset
   571
    currentScreen notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   572
        (currentScreen suppressDebugger) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   573
            "/ no debuggers with that device - show an alertBox which aborts...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   574
            ^ nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   575
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   576
        (currentScreen mayOpenDebugger) ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   577
            "/ no debugger on that device - but on the main screen
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   578
            currentScreen := Screen default.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   579
        ].
3030
5adb33d5111d fixed devices mayOpenDebugger / suppressDebugger handling.
Michael Beyl <mb@exept.de>
parents: 2963
diff changeset
   580
    ].
5adb33d5111d fixed devices mayOpenDebugger / suppressDebugger handling.
Michael Beyl <mb@exept.de>
parents: 2963
diff changeset
   581
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   582
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   583
     need a blocking debugger if no processes or
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   584
     or if its a timing/interrupt process
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   585
     (because otherwise we would not get any events here ...
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   586
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   587
    Processor activeProcessIsSystemProcess ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   588
        ((debugger := CachedExclusive) isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   589
        or:[debugger device ~~ currentScreen
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   590
        or:[currentScreen isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   591
        or:[currentScreen isOpen not]]]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   592
            debugger := self newExclusive
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   593
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   594
        CachedExclusive := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   595
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   596
        CachedDebugger notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   597
            (CachedDebugger device ~~ currentScreen
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   598
            or:[currentScreen isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   599
            or:[currentScreen isOpen not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   600
            or:[CachedDebugger class ~~ self]]]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   601
                CachedDebugger := nil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   602
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   603
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   604
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   605
        (debugger := CachedDebugger) notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   606
            CachedDebugger := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   607
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   608
            debuggerDevice := currentScreen.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   609
            debuggerDevice isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   610
                "/ use the default display
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   611
                debuggerDevice := Screen default.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   612
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   613
            (debuggerDevice isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   614
            or:[debuggerDevice isOpen not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   615
            "/ or:[debuggerDevice mayOpenDebugger not]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   616
            ]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   617
                "/ no debugger
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   618
                ^ nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   619
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   620
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   621
            Screen currentScreenQuerySignal answer:debuggerDevice
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   622
            do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   623
                debugger := super new.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   624
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   625
            debugger label:'Debugger'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   626
            debugger icon:self defaultIcon.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   627
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   628
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
   629
    ^ debugger
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   630
1265
3db375412f5d avoid caching a debugger which got destroyed
Claus Gittinger <cg@exept.de>
parents: 1263
diff changeset
   631
    "Modified: 31.7.1997 / 21:20:27 / cg"
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
   632
!
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   633
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   634
newExclusive
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   635
    "return a debugger for exclusive display access"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   636
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   637
    |debugger|
105
claus
parents: 101
diff changeset
   638
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   639
    debugger := super new.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   640
    debugger label:'Debugger'.
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   641
    debugger icon:self defaultIcon.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   642
    debugger exclusive:true.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   643
    ^ debugger
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   644
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   645
    "Modified: 1.1.1970 / 23:27:06 / cg"
105
claus
parents: 101
diff changeset
   646
!
claus
parents: 101
diff changeset
   647
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   648
openDebuggerForActiveProcess
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   649
    "return an already open debugger for the active process, or nil, if there is none.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   650
     Open debuggers exist when stepping only, as then, the debugger is left open until the step
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   651
     is reached, to avoid too much flickering and redrawing on the screen"
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   652
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   653
    |active|
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   654
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   655
    "
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   656
     well, it could be a stepping or sending debugger up there;
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   657
     in this case, return to it. This happens, when a stepping process
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   658
     runs into an error (for example, a halt). In this case, we want the
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   659
     stepping debugger to come up again instead of a new one.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   660
    "
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   661
    OpenDebuggers notNil ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   662
        active := Processor activeProcess.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   663
        OpenDebuggers do:[:aDebugger |
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   664
            |debuggersProcess|
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   665
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   666
            (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   667
                debuggersProcess := aDebugger inspectedProcess.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   668
                debuggersProcess == active ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   669
                    aDebugger device isOpen ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   670
                        DebuggingDebugger == true ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   671
                            'reusing cached debugger' errorPrintCR.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   672
                        ].
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   673
                        aDebugger unstep.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   674
                        ^ aDebugger.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   675
                    ]
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   676
                ].
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   677
                (debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   678
                    aDebugger destroy.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   679
                ].
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   680
            ]
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   681
        ]
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   682
    ].
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   683
    ^ nil
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   684
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   685
    "Created: / 06-11-2013 / 20:57:49 / cg"
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   686
!
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   687
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   688
openOn:aProcess
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   689
    "start a  debugger on aProcess
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   690
     (actually not more than a good-looking inspector)"
15
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   691
52
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
   692
    |aDebugger label nm|
15
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   693
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   694
    aDebugger := super new.
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   695
    aDebugger icon:self defaultIcon.
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   696
    aProcess notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   697
        nm := aProcess name.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   698
        nm notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   699
            nm := (nm contractTo:17) , '-' , aProcess id printString
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   700
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   701
            nm := aProcess id printString
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   702
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   703
        label := 'Debugger [' , nm , ']'.
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   704
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
   705
        label := 'no process'
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   706
    ].
1114
c663a9b0a1dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1101
diff changeset
   707
    aDebugger label:label iconLabel:'Debugger'.
15
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   708
    aDebugger openOn:aProcess.
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   709
    ^ nil
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   710
1114
c663a9b0a1dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1101
diff changeset
   711
    "Modified: 4.4.1997 / 16:22:36 / cg"
126
claus
parents: 124
diff changeset
   712
! !
claus
parents: 124
diff changeset
   713
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   714
!DebugView class methodsFor:'menu specs'!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   715
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   716
breakPointMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   717
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   718
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   719
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   720
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   721
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   722
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   723
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   724
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   725
     MenuEditor new openOnClass:DebugView andSelector:#breakPointMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   726
     (Menu new fromLiteralArrayEncoding:(DebugView breakPointMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   727
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   728
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   729
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   730
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   731
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   732
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   733
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   734
         (MenuItem
13229
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   735
            enabled: canRemoveBreakpoint
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   736
            label: 'Remove Breakpoint'
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   737
            itemValue: removeBreakpoint
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   738
          )
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   739
         (MenuItem
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   740
            label: 'Remove all Breakpoints'
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   741
            itemValue: removeAllBreakpoints
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   742
          )
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   743
         (MenuItem
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   744
            label: '-'
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   745
          )
515a080489a6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13228
diff changeset
   746
         (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   747
            label: 'Ignore this Halt/BreakPoint'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   748
            submenu: 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   749
           (Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   750
              (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   751
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   752
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   753
                  label: 'Forever (Until Ignoring is Stopped)'
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   754
                  itemValue: ignoreHaltForever
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   755
                )
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   756
               (MenuItem
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   757
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   758
                  label: 'For Some Time...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   759
                  itemValue: openIgnoreHaltUntilTimeElapsedDialog
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   760
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   761
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   762
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   763
                  label: 'For the Next N Times...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   764
                  itemValue: openIgnoreHaltNTimesDialog
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   765
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   766
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   767
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   768
                  label: 'Until Shift-Key is Pressed'
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   769
                  itemValue: ignoreHaltUntilShiftKeyIsPressed
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   770
                )
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   771
               (MenuItem
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   772
                  label: '-'
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   773
                )
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   774
               (MenuItem
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   775
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   776
                  label: 'In Current Process'
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   777
                  itemValue: ignoreHaltForCurrentProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   778
                )
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   779
               (MenuItem
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   780
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   781
                  label: 'For this Receiver Class'
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   782
                  itemValue: ignoreHaltForThisReceiverClass
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   783
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   784
               )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   785
              nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   786
              nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   787
            )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   788
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   789
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   790
            enabled: isStoppedAtBreakPointWithParameter
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   791
            label: 'Ignore all BreakPoints with this Parameter'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   792
            submenu: 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   793
           (Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   794
              (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   795
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   796
                  enabled: isStoppedAtBreakPointWithParameter
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   797
                  label: 'Forever (Reenable in BreakPoint-Browser)'
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   798
                  itemValue: ignoreBreakpointsWithThisParameterForever
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   799
                )
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   800
               (MenuItem
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   801
                  enabled: isStoppedAtBreakPointWithParameter
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   802
                  label: 'For Some Time...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   803
                  itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   804
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   805
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   806
                  enabled: isStoppedAtBreakPointWithParameter
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   807
                  label: 'For the Next N Times...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   808
                  itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   809
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   810
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   811
                  enabled: isStoppedAtBreakPointWithParameter
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   812
                  label: 'Until Shift-Key is Pressed'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   813
                  itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   814
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   815
               )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   816
              nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   817
              nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   818
            )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   819
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   820
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   821
            label: 'Ignore all Halts/BreakPoints'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   822
            submenu: 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   823
           (Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   824
              (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   825
               (MenuItem
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   826
                  label: 'Forever (Until Ignoring is Stopped)'
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   827
                  itemValue: ignoreAllHaltsForever
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   828
                )
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
   829
               (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   830
                  label: 'For Some Time...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   831
                  itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   832
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   833
               (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   834
                  label: 'Until Shift-Key is Pressed'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   835
                  itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   836
                )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   837
               )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   838
              nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   839
              nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   840
            )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   841
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   842
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   843
            enabled: hasHaltsToIgnore
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   844
            label: 'Stop Ignoring'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   845
            itemValue: stopIgnoringHalts
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   846
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   847
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   848
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   849
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   850
         (MenuItem
13228
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   851
            enabled: canAddBreakpoint
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   852
            label: 'Add Breakpoint'
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   853
            itemValue: addBreakpoint
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   854
          )
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   855
         (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   856
            label: 'Manage Breakpoints'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   857
            itemValue: openBreakPointBrowser
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   858
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   859
         (MenuItem
13228
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   860
            label: '-'
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   861
          )
4aa6411bdea8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13226
diff changeset
   862
         (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   863
            label: 'Allow Halt in Debugger'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   864
            itemValue: allowBreakPointsInDebugger:
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   865
            indication: allowBreakPointsInDebugger
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   866
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   867
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   868
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   869
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   870
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   871
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   872
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   873
classMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   874
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   875
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   876
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   877
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   878
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   879
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   880
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   881
    "
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   882
     MenuEditor new openOnClass:DebugView andSelector:#receiverMenuSpec
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   883
     (Menu new fromLiteralArrayEncoding:(DebugView receiverMenuSpec)) startUp
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   884
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   885
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   886
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   887
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   888
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   889
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   890
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   891
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   892
            enabled: canBrowseImplementingClass
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   893
            label: 'Browse Implementing Class'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   894
            itemValue: browseImplementingClass
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   895
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   896
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   897
            enabled: canBrowseReceiversClass
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   898
            label: 'Browse Receiver''s Class'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   899
            itemValue: browseReceiversClass
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   900
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   901
         (MenuItem
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   902
            enabled: canBrowseProcessesApplication
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   903
            label: 'Browse Application Class'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   904
            itemValue: browseProcessesApplication
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   905
          )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   906
         (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   907
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   908
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   909
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   910
            enabled: canBrowseClassHierarchy
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   911
            label: 'Browse Receiver''s Class Hierarchy'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   912
            itemValue: browseClassHierarchy
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   913
            isVisible: false
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   914
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   915
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   916
            enabled: canBrowseFullClassProtocol
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   917
            label: 'Browse Receiver''s Full Protocol'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   918
            itemValue: browseFullClassProtocol
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   919
            isVisible: false
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   920
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   921
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   922
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   923
            isVisible: false
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   924
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   925
         (MenuItem
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   926
            enabled: canInspectWidgetHierarchy
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   927
            label: 'Inspect Widget Hierarchy'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   928
            itemValue: inspectWidgetHierarchy
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   929
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   930
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   931
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   932
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   933
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   934
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   935
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   936
contextMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   937
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   938
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   939
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   940
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   941
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   942
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   943
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   944
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   945
     MenuEditor new openOnClass:DebugView andSelector:#contextMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   946
     (Menu new fromLiteralArrayEncoding:(DebugView contextMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   947
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   948
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   949
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   950
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   951
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   952
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   953
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   954
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   955
            enabled: canReturn
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   956
            label: 'Return'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   957
            itemValue: doReturn
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   958
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   959
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   960
            enabled: canRestart
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   961
            label: 'Restart'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   962
            itemValue: doRestart
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   963
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   964
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   965
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   966
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   967
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   968
            enabled: hasContextSelected
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   969
            label: 'Inspect'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   970
            itemValue: inspectContext
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   971
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   972
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   973
            label: 'Copy WalkBack Text'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   974
            itemValue: copyWalkbackText
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   975
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   976
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   977
            label: 'Bookmark Method in SystemBrowser'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   978
            itemValue: addBrowserBookmark
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   979
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   980
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   981
            label: '-'
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   982
          )
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   983
         (MenuItem
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   984
            enabled: hasContextSelected
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   985
            label: 'Find Context with String in Source...'
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   986
            itemValue: findContextWithStringInSource
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   987
          )
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   988
         (MenuItem
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   989
            enabled: hasContextSelected
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   990
            label: 'Find Context with Value in Variable...'
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   991
            itemValue: findContextWithValueInVariable
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   992
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   993
         (MenuItem
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   994
            enabled: hasContextSelected
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   995
            label: 'Find Next Exception Handler'
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   996
            itemValue: findNextExceptionHandlerContext
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   997
          )
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   998
         (MenuItem
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
   999
            enabled: hasContextSelected
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1000
            label: 'Find Handler For...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1001
            itemValue: findHandlerFor
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  1002
          )
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  1003
         (MenuItem
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  1004
            label: 'Find Dialog Opener...'
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  1005
            itemValue: doGotoDialogOpener
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1006
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1007
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1008
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1009
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1010
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1011
            label: 'Remember Callchain && Highlight on Next Entry'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1012
            itemValue: rememberCallchain
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1013
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1014
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1015
            label: 'Clear Remembered Callchain'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1016
            itemValue: clearRememberedCallchain
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1017
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1018
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1019
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1020
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1021
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1022
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1023
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1024
fileMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1025
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1026
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1027
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1028
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1029
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1030
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1031
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1032
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1033
     MenuEditor new openOnClass:DebugView andSelector:#fileMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1034
     (Menu new fromLiteralArrayEncoding:(DebugView fileMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1035
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1036
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1037
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1038
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1039
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1040
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1041
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1042
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1043
            enabled: canSendEmail
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1044
            label: 'Report a Bug via eMail...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1045
            itemValue: doOpenReportMailApp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1046
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1047
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1048
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1049
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1050
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1051
            enabled: canCloseAllDebuggers
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1052
            label: 'Close all Debuggers...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1053
            itemValue: closeAllDebuggers
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1054
            isVisible: isNotInspecting
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1055
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1056
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1057
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1058
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1059
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1060
            label: 'Exit'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1061
            itemValue: closeRequest
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1062
            isVisible: isInspecting
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1063
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1064
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1065
            label: 'Close Debugger and Abort'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1066
            itemValue: closeRequest
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1067
            isVisible: isNotInspecting
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1068
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1069
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1070
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1071
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1072
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1073
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1074
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1075
helpMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1076
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1077
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1078
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1079
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1080
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1081
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1082
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1083
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1084
     MenuEditor new openOnClass:DebugView andSelector:#helpMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1085
     (Menu new fromLiteralArrayEncoding:(DebugView helpMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1086
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1087
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1088
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1089
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1090
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1091
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1092
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1093
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1094
            label: 'Debugger''s Documentation'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1095
            itemValue: openHTMLDocument:
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1096
            argument: 'tools/debugger/TOP.html'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1097
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1098
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1099
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1100
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1101
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1102
            label: 'About DebugView...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1103
            itemValue: openAboutThisApplication
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1104
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1105
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1106
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1107
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1108
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1109
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1110
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1111
menuSpec
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1112
    "This resource specification was automatically generated
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1113
     by the MenuEditor of ST/X."
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1114
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1115
    "Do not manually edit this!! If it is corrupted,
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1116
     the MenuEditor may not be able to read the specification."
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1117
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  1118
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1119
    "
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1120
     MenuEditor new openOnClass:DebugView andSelector:#menuSpec
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1121
     (Menu new fromLiteralArrayEncoding:(DebugView menuSpec)) startUp
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1122
    "
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1123
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1124
    <resource: #menu>
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1125
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  1126
    ^ 
5875
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  1127
     #(Menu
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1128
        (
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1129
         (MenuItem
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1130
            label: 'File'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1131
            submenuChannel: fileMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1132
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1133
         (MenuItem
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1134
            label: 'View'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1135
            submenuChannel: viewMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1136
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1137
         (MenuItem
12534
397f6b124b1a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12529
diff changeset
  1138
            label: 'Process'
397f6b124b1a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12529
diff changeset
  1139
            submenuChannel: processMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1140
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1141
         (MenuItem
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1142
            label: 'Context'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1143
            submenuChannel: contextMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1144
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1145
         (MenuItem
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1146
            label: 'Receiver'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1147
            submenuChannel: classMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1148
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1149
         (MenuItem
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1150
            label: 'Selector'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1151
            submenuChannel: selectorMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1152
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1153
         (MenuItem
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1154
            label: 'Breakpoint'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1155
            submenuChannel: breakPointMenuSpec
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1156
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1157
         (MenuItem
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1158
            label: 'Help'
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1159
            startGroup: conditionalRight
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1160
            submenuChannel: helpMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1161
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1162
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1163
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1164
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1165
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1166
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1167
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1168
processMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1169
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1170
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1171
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1172
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1173
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1174
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1175
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1176
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1177
     MenuEditor new openOnClass:DebugView andSelector:#processMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1178
     (Menu new fromLiteralArrayEncoding:(DebugView processMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1179
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1180
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1181
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1182
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1183
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1184
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1185
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1186
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1187
            label: 'Continue'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1188
            itemValue: doContinue
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1189
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1190
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1191
            label: 'Next (Line-Step)'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1192
            itemValue: doNext
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1193
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1194
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1195
            label: 'Step'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1196
            itemValue: doStep
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1197
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1198
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1199
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1200
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1201
         (MenuItem
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1202
            label: 'After 5 Seconds'
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1203
            submenu: 
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1204
           (Menu
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1205
              (
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1206
               (MenuItem
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1207
                  label: 'Continue'
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1208
                  itemValue: doContinueAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1209
                )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1210
               (MenuItem
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1211
                  label: 'Next (Line-Step)'
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1212
                  itemValue: doNextAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1213
                )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1214
               (MenuItem
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1215
                  label: 'Step'
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1216
                  itemValue: doStepAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1217
                )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1218
               )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1219
              nil
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1220
              nil
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1221
            )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1222
          )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1223
         (MenuItem
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1224
            label: '-'
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1225
          )
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  1226
         (MenuItem
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1227
            label: 'Skip to Cursor Line'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1228
            itemValue: skip
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1229
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1230
         (MenuItem
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1231
            label: 'Step Out (Skip until Return)'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1232
            itemValue: skipForReturn
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1233
          )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1234
         (MenuItem
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1235
            label: 'Skip until Entering...'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1236
            itemValue: skipUntilEntering
12671
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  1237
          )
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  1238
         (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1239
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1240
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1241
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1242
            label: 'Abort'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1243
            itemValue: doAbort
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1244
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1245
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1246
            enabled: abortAllIsHandled
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1247
            label: 'Abort All'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1248
            itemValue: doAbortAll
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1249
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1250
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1251
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1252
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1253
         (MenuItem
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1254
            label: 'Inspect'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1255
            itemValue: doInspectProcess
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1256
          )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1257
         (MenuItem
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1258
            label: 'Change Priority...'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1259
            itemValue: doChangeProcessPriority
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1260
          )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1261
         (MenuItem
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1262
            label: '-'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1263
          )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1264
         (MenuItem
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1265
            label: 'Terminate'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1266
            itemValue: doTerminate
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1267
          )
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1268
         (MenuItem
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1269
            label: 'Hard Terminate (Danger)'
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1270
            itemValue: quickTerminate
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1271
            isVisible: false
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1272
          )
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1273
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1274
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1275
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1276
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1277
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1278
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1279
selectorMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1280
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1281
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1282
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1283
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1284
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1285
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1286
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1287
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1288
     MenuEditor new openOnClass:DebugView andSelector:#selectorMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1289
     (Menu new fromLiteralArrayEncoding:(DebugView selectorMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1290
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1291
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1292
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1293
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1294
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1295
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1296
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1297
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1298
            label: 'Browse Implementors...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1299
            itemValue: browseImplementorsOf
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1300
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1301
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1302
            label: 'Browse Senders...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1303
            itemValue: browseSendersOf
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1304
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1305
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1306
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1307
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1308
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1309
            enabled: canDefineMethod
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1310
            label: 'Define Missing Method'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1311
            itemValue: doDefineMethod
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1312
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1313
         )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1314
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1315
        nil
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1316
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1317
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1318
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1319
viewMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1320
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1321
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1322
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1323
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1324
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1325
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1326
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1327
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1328
     MenuEditor new openOnClass:DebugView andSelector:#viewMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1329
     (Menu new fromLiteralArrayEncoding:(DebugView viewMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1330
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1331
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1332
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1333
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1334
    ^ 
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1335
     #(Menu
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1336
        (
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1337
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1338
            enabled: canShowMore
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1339
            label: 'Show More WalkBack'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1340
            itemValue: showMoreWalkback
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1341
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1342
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1343
            enabled: canShowMore
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1344
            label: 'Show Full WalkBack'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1345
            itemValue: showFullWalkback
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1346
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1347
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1348
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1349
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1350
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1351
            label: 'Show Dense WalkBack'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1352
            itemValue: showingDenseWalkback:
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1353
            hideMenuOnActivated: false
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1354
            indication: showingDenseWalkback
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1355
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1356
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1357
            label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1358
            itemValue: showingSupportCode:
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1359
            hideMenuOnActivated: false
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1360
            indication: showingSupportCode
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1361
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1362
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1363
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1364
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1365
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1366
            label: 'Raise Debugger when Entering'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1367
            itemValue: autoRaiseView:
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1368
            hideMenuOnActivated: false
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1369
            indication: autoRaiseView
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1370
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1371
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1372
            label: '-'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1373
          )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1374
         (MenuItem
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1375
            label: 'Settings...'
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1376
            itemValue: openSettingsDialog
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1377
          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1378
         )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1379
        nil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1380
        nil
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1381
      )
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1382
! !
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1383
913
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1384
!DebugView class methodsFor:'misc'!
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1385
4121
Claus Gittinger <cg@exept.de>
parents: 4120
diff changeset
  1386
interestingContextFrom:aContext
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1387
    "return an interesting context to be shown in an error notifier.
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1388
     We move up the calling chain, skipping intermediate Signal
913
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1389
     and Exception contexts, to present the context in which the error
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1390
     actually occured.
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1391
     Just for your convenience :-)"
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1392
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1393
    |someContexts con idx|
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1394
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1395
    "/ fetch some contexts...
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1396
    someContexts := Array new:25.
2042
ccbf16071e41 code cleanup
Claus Gittinger <cg@exept.de>
parents: 2033
diff changeset
  1397
    con := aContext.
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1398
    idx := 1.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1399
    [(idx <= someContexts size) and:[con notNil]] whileTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1400
        someContexts at:idx put:con.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1401
        con := con sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1402
        idx := idx + 1.
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1403
    ].
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1404
    "/ search...
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1405
    idx := self interestingContextIndexIn:someContexts.
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1406
    ^ someContexts at:idx.
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1407
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1408
    "Modified: / 28-08-2013 / 20:12:47 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1409
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1410
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1411
interestingContextIndexIn:aContextArray
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1412
    "return an interesting context's index, or nil.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1413
     This is the context initially shown (selected) in the walkback.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1414
     We move up the calling chain, skipping all intermediate Signal
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1415
     and Exception contexts, to present the context in which the error actually occured.
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1416
     Just for your (my) convenience :-)"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1417
13309
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1418
    |con found offset sel prev rcvr nMax idx methodHome method|
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1419
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1420
"/ Transcript showCR:'x'.
7713
11282af806b0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7648
diff changeset
  1421
"/ Transcript showCR:aContextArray.
7648
acfbc051149f *** empty log message ***
ca
parents: 7647
diff changeset
  1422
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1423
    nMax := aContextArray size.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1424
    nMax <= 1 ifTrue:[^ 1].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1425
    con := aContextArray at:1.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1426
    con isBlockContext ifTrue:[^ 1].
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1427
    (con method notNil and:[ con method isWrapped ]) ifTrue:[^ 1].  "/ we are already there
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1428
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1429
    "/ somewhere, at the bottom, there must be a raise ...
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1430
    "/ find the exception
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1431
    1 to:5 do:[:i |
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1432
        found isNil ifTrue:[
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1433
            con := aContextArray at:i ifAbsent:nil.
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1434
            con notNil ifTrue:[
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1435
                sel := con selector ? ''.
13641
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  1436
                (sel isSymbol
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  1437
                and:[ (sel startsWith:'raise') 
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1438
                and:[ ((rcvr := con receiver) isLazyValue not) 
13641
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  1439
                and:[ rcvr isExceptionCreator]]]) ifTrue:[
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1440
                    offset := i.
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1441
                    found := con.
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1442
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1443
                    "/ if this is a noHandler exception, 
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1444
                    "/ skip forward to the erronous context
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1445
                    (rcvr isException) ifTrue:[
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1446
                        rcvr creator == Signal noHandlerSignal ifTrue:[
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1447
                            found := rcvr suspendedContext.
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1448
                            offset := aContextArray identityIndexOf:found.
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1449
                        ]
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1450
                    ].
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1451
                ].
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1452
            ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1453
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1454
    ].
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1455
"/ Transcript showCR:con.
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1456
"/ Transcript show:'1 '; showCR:found.
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1457
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1458
    found isNil ifTrue:[
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1459
        "/ this is a kludge, but convenient.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1460
        "/ show the place where the error (divisionByZero...) happend,
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1461
        "/ not where the signal was raised.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1462
        con := (aContextArray at:1).
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1463
        sel := con methodHome selector.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1464
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1465
"/ Transcript show:'2 '; showCR:con.
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1466
        "/ typically a DivisionByZero - show caller of division
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1467
        (sel == #//
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1468
        or:[sel == #/
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1469
        or:[sel == #\\]]) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1470
            ^ 2
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1471
        ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1472
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1473
        "/ show the place of the bad message; not where the Signal was raised...
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1474
        (sel == #doesNotUnderstand:) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1475
            idx := 3.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1476
            nMax > 2 ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1477
                sel := (aContextArray at:idx) selector ? ''.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1478
                sel == #doesNotUnderstand: ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1479
                    idx := 4
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1480
                ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1481
                nMax > idx ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1482
                    sel := (aContextArray at:idx) selector ? ''.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1483
                    "/ show the place of the perfor-send; not where the Signal was raised...
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1484
                    ((sel == #perform:)
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1485
                    or:[sel startsWith:'perform:with']) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1486
                        idx := idx + 1
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1487
                    ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1488
                ]
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1489
            ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1490
            ^ idx min:nMax
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1491
        ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1492
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1493
        "/ show the bad method; not where the Signal was raised...
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1494
        (sel == #noByteCode) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1495
            ^ 2
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1496
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1497
8143
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1498
"/        "/ show the place of the halt; not where the HaltSignal was raised...
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1499
"/        ((sel == #halt) or:[sel == #halt:]) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1500
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1501
"/        ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1502
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1503
"/        "/ show the place of the shouldImplement; not where the Signal was raised...
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1504
"/        (sel == #shouldImplement) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1505
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1506
"/        ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1507
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1508
"/        "/ show the place of error-call; not where the ErrorSignal was raised...
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1509
"/        ((sel == #error:mayProceed:)
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1510
"/        or:[ sel == #signalFailure:resumable:]) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1511
"/            nMax > 2 ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1512
"/                sel := (aContextArray at:2) selector.
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1513
"/                sel == #mustBeBoolean ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1514
"/                    ^ 3
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1515
"/                ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1516
"/            ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1517
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1518
"/        ].
7862
8aaae35e340f interesting context
Claus Gittinger <cg@exept.de>
parents: 7844
diff changeset
  1519
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1520
        "/ show the place of signalInterrupt-call; not where the Signal was raised...
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1521
        (sel == #signalInterrupt:) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1522
            ^ 2
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1523
        ].
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1524
8143
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1525
"/        "/ show the place of error-call; not where the ErrorSignal was raised...
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1526
"/        ((sel == #error) or:[sel == #error:]) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1527
"/            con method mclass == Object ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1528
"/                ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1529
"/            ]
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1530
"/        ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1531
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1532
"/        "/ show the place of the send; not where the Signal was raised...
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1533
"/        (sel == #subclassResponsibility) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1534
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1535
"/        ].
6132
ca1f04f5232b lineNumber display of shared subclassResponsibilityMethods
Claus Gittinger <cg@exept.de>
parents: 6129
diff changeset
  1536
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1537
        "/ show the place of the bad index; not where the Signal was raised...
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1538
        ( #(#notIndexed
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1539
            #indexNotIntegerOrOutOfBounds:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1540
            #subscriptBoundsError:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1541
            #elementBoundsError:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1542
            "/ #subclassResponsibility
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1543
        ) includes:sel) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1544
            idx := 2.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1545
            [ idx <= 3
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1546
                and:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1547
                    sel := (aContextArray at:idx) selector.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1548
                    #(#notIndexed
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1549
                      #indexNotIntegerOrOutOfBounds:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1550
                      #subscriptBoundsError:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1551
                      #elementBoundsError: ) includes:sel
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1552
                ]
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1553
            ] whileTrue:[ idx := idx + 1 ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1554
            sel := (aContextArray at:idx) selector.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1555
            (nMax > idx and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1556
            ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1557
                sel := (aContextArray at:idx+1) selector.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1558
                (nMax > (idx+1) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1559
                ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1560
                    sel := (aContextArray at:idx+2) selector.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1561
                    (nMax > (idx+2) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1562
                    ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1563
                        ^ idx+3
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1564
                    ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1565
                    ^ idx+2
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1566
                ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1567
                ^ idx+1
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1568
            ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1569
            ^ idx
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1570
        ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1571
        offset := 1.
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1572
    ].
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1573
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1574
    "/ the above is all too hard-coded;
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1575
    "/ ask the method, if it thinks it should be skipped in the walkback.
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1576
    "/ as more methods get flagged, remove code from above.
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1577
    con := aContextArray at:offset ifAbsent:nil.
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1578
"/ Transcript show:'2 '; showCR:con.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1579
    [
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1580
        con notNil
13309
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1581
        and:[ (methodHome := con methodHome) notNil
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1582
        and:[ (method := methodHome method) notNil
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1583
        and:[ method shouldBeSkippedInDebuggersWalkBack ]]]
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1584
    ] whileTrue:[
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1585
"/ Transcript showCR:con methodHome method.
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1586
        offset := offset + 1.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1587
        con := aContextArray at:offset ifAbsent:nil.
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1588
    ].
13309
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1589
    methodHome := nil. "/ help GC
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1590
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1591
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1592
     got it; move up, skipping all intermediate Signal and
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1593
     Exception contexts
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1594
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1595
    prev := nil.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1596
    rcvr := con receiver.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1597
    [
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1598
        rcvr isLazyValue not and:[(rcvr isExceptionHandler) or:[(rcvr isException)]]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1599
    ] whileTrue:[
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1600
        prev := con.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1601
        nMax > offset ifFalse:[^ offset].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1602
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1603
        offset := offset + 1.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1604
        con := aContextArray at:offset.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1605
        rcvr := con receiver.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1606
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1607
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1608
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1609
     now, we are one above the raising context
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1610
    "
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1611
"/ Transcript show:'3 '; showCR:con.
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1612
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1613
    (con selector == #retry:coercing:) ifTrue:[
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1614
        "/ show the operation which failed to coerce, not the coerce
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1615
        ^ offset + 1
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1616
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1617
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1618
    "
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1619
     if the sender-method of the raise is one of object's error methods ...
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1620
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1621
    ( #( halt halt:
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1622
         error error:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1623
         doesNotUnderstand:
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1624
         subclassResponsibility
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1625
         primitiveFailed) includes:con selector)
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1626
    ifTrue:[
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1627
        con selector == #doesNotUnderstand: ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1628
            "
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1629
             one more up, to get to the originating context
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1630
            "
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1631
            con := aContextArray at:(offset + 1).
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1632
            con isNil ifTrue:[^ offset].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1633
            offset := offset + 1.
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1634
        ].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1635
        con := aContextArray at:(offset + 1).
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1636
        con isNil ifTrue:[^ offset].
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1637
        offset := offset + 1.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1638
    ] ifFalse:[
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1639
        "
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1640
         ok, got the raise - if its a BreakPoint, look for the sender
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1641
        "
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1642
        (prev notNil and:[prev receiver == BreakPointInterrupt]) ifTrue:[
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1643
            offset := offset + 1
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1644
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1645
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1646
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1647
    ^ offset
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1648
7713
11282af806b0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7648
diff changeset
  1649
    "Created: / 17-11-2001 / 20:37:49 / cg"
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1650
    "Modified: / 28-08-2013 / 20:23:35 / cg"
913
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1651
! !
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1652
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1653
!DebugView methodsFor:'basic'!
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1654
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1655
enableDisableActions
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1656
    |m|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1657
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1658
    m := contextView middleButtonMenu.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1659
    m notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1660
        self updateMenuItems.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1661
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1662
        (inspecting or:[AbortOperationRequest isHandled]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1663
            abortButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1664
            m enable:#doAbort.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1665
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1666
            abortButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1667
            m disable:#doAbort.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1668
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1669
        exclusive ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1670
            terminateButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1671
            m disable:#doTerminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1672
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1673
            terminateButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1674
            m enable:#doTerminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1675
        ]
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1676
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1677
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1678
    mayProceed == false ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1679
        continueButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1680
        m notNil ifTrue:[m disable:#doContinue].
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1681
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1682
        continueButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1683
        m notNil ifTrue:[m enable:#doContinue]
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1684
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1685
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1686
    "Created: / 16.11.2001 / 17:40:51 / cg"
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1687
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1688
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1689
enter
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1690
    "enter a debugger"
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1691
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1692
    <context: #return>
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1693
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1694
    ^ self
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1695
        enter:thisContext sender
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1696
        select: nil.
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1697
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1698
    "Modified: / 28-08-2012 / 21:13:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1699
!
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  1700
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  1701
enter:aContext select:initialSelectionOrNil
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1702
    "enter the debugger - get and display the context, then start an
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1703
     exclusive event loop on top of eveything else"
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1704
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1705
    <context: #return>
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1706
9076
Claus Gittinger <cg@exept.de>
parents: 9034
diff changeset
  1707
    |con m enteredByInterrupt sel iAmNew foundNoByteCodeContext foundExitContext c|
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1708
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  1709
    DebuggingDebugger == true ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  1710
        '==> enter2: (' print. aContext print.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1711
        ') select: ' print. initialSelectionOrNil printCR.
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  1712
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1713
    thisContext isRecursive ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1714
        "/ care for the special case, were the Debugger was autoloaded.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1715
        "/ in this case, thisContext IS recursive, but thats no error
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1716
        "/ condition.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1717
        foundNoByteCodeContext := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1718
        foundExitContext := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1719
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1720
        c := thisContext findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1721
        [
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1722
         foundNoByteCodeContext not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1723
         and:[ foundExitContext not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1724
         and:[c notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1725
         and:[c selector ~~ #enter:withMessage:mayProceed:
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1726
        ]]]]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1727
        whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1728
            c selector == #exit_unwindThenDo: ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1729
                foundExitContext := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1730
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1731
            c selector == #noByteCode ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1732
                foundNoByteCodeContext := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1733
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1734
            c := c findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1735
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1736
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1737
        (foundNoByteCodeContext not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1738
        and:[ foundExitContext not]) ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1739
            ('DebugView [warning]: reentered') errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1740
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1741
            ^ MiniDebugger
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1742
                enter:aContext
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1743
                withMessage:'DebugView [error]: recursive error (in debugger)'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1744
                mayProceed:mayProceed.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1745
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1746
        foundExitContext ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1747
            'DebugView [error]: recursive error (in debugger) ignored' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1748
            ^ self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1749
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1750
    ].
2360
cef61dce4358 avoid empty debugger if some subcomponent forces creation
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
  1751
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  1752
    "/'entering: ' print. aContext printCR.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  1753
    "/'initial: ' print. initialSelectionOrNil printCR.
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  1754
    thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s)
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  1755
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  1756
    (self isHaltToBeIgnored) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1757
        ^ self.
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  1758
    ].
11892
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1759
"/    "/ does not work yet - but we should ignore any breakpoints while stepping
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1760
"/    (stepping and:[steppedContext notNil]) ifTrue:[
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1761
"/        self isEnteredDueToBreakpointOrHalt ifTrue:[
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1762
"/            'DebugView [info]: ignored other interrupt while stepping' infoPrintCR.
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1763
"/            ^ self
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1764
"/        ].
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  1765
"/    ].
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  1766
2360
cef61dce4358 avoid empty debugger if some subcomponent forces creation
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
  1767
    iAmNew := drawableId isNil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1768
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  1769
    verboseBacktrace := UserPreferences current verboseBacktraceInDebugger.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  1770
1265
3db375412f5d avoid caching a debugger which got destroyed
Claus Gittinger <cg@exept.de>
parents: 1263
diff changeset
  1771
    busy := cachable := true.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1772
    inspecting := false.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1773
    inspectedProcess := Processor activeProcess.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1774
    stepping := false.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1775
    bigStep := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  1776
    stepHow := nil.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  1777
    nChainShown := InitialNChainShown.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1778
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1779
    "/ if debugger is entered while a box has grabbed the
9076
Claus Gittinger <cg@exept.de>
parents: 9034
diff changeset
  1780
    "/ pointer, we must ungrab - otherwise X won't talk to us here.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1781
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1782
    "/ On a multiUser system, ungrab all of them ...
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1783
    "/ Q: this is good for multi-screen apps (where an error should not happen),
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1784
    "/    but not for multi-user development, where the debugger is entered often.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1785
    "/    What is a good solution to this dilemma ?
1279
84ec8d33eba8 ungrab all screens in case of an error
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  1786
    Screen allScreens do:[:aScreen |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1787
        aScreen ungrabPointer.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1788
        aScreen ungrabKeyboard.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1789
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1790
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1791
    ("inspectedProcess suspendedContext isNil
1179
e927f0c09298 Move #isSystemProcess from ProcessorScheduler to Process.
Stefan Vogel <sv@exept.de>
parents: 1148
diff changeset
  1792
    or:["inspectedProcess isSystemProcess"]") ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1793
        terminateButton disable.
316
7d529dfe8a99 disable abort & terminate for system processes
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
  1794
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1795
        terminateButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1796
        abortButton enable.
316
7d529dfe8a99 disable abort & terminate for system processes
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
  1797
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1798
2360
cef61dce4358 avoid empty debugger if some subcomponent forces creation
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
  1799
    iAmNew ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1800
        "/ not the first time - disable buttons & menus
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1801
        "/ from the previous life
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1802
        self turnOffAllButtons.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1803
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1804
        m := contextView middleButtonMenu.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1805
        m notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1806
            m disableAll:#(showMore "skip skipForReturn" inspectContext).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1807
        ].
11697
e776722de7b5 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11696
diff changeset
  1808
        self showingDenseWalkback:(verboseBacktrace not).
132
claus
parents: 127
diff changeset
  1809
    ].
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1810
    self iconLabel:'Debugger'.
132
claus
parents: 127
diff changeset
  1811
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1812
    windowGroup isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1813
        self windowGroup: WindowGroup new.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1814
        windowGroup addTopView:self.
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1815
    ].
132
claus
parents: 127
diff changeset
  1816
    exclusive ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1817
        "/ create a (modal) windowGroup for myself
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1818
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1819
        windowGroup setModal:true.
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1820
    ] ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1821
        "/ create a windowGroup with a synchronous sensor for me
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1822
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1823
        windowGroup beSynchronous.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1824
    ].
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1825
    windowGroup setProcess:Processor activeProcess.
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1826
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1827
        "
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1828
         get the walkback list; clear inspectors if we did not come here by single stepping)
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1829
        "
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1830
"/Transcript show:'0 '; showCR:aContext.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1831
"/Transcript show:'0 '; showCR:thisContext sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1832
"/Transcript show:'0 '; showCR:thisContext sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1833
"/Transcript show:'0 '; showCR:thisContext sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1834
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1835
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1836
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1837
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1838
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender .
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1839
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1840
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1841
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1842
"/Transcript showCR:initialSelectionOrNil.
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1843
        self setContext:aContext releaseInspectors:(exitAction ~~ #step).
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1844
        "/'after setContext; first is ' print.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1845
        "/(contextArray at:1 ifAbsent:nil) printCR.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1846
        self setInitialSelectionOnEntry:initialSelectionOrNil context:aContext.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1847
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1848
    IsDebuggingQuery answer:true do:[
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1849
        self updateButtonsAndMenuItemsForContext:aContext.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1850
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1851
        "
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1852
         If this is a new debugger, do a realize.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1853
         Otherwise, its probably better to do a map, which shows the
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1854
         view at the previous position, without a need for the user to set the
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1855
         position again
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1856
        "
12809
24d2a31e458b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12743
diff changeset
  1857
        iAmNew ifTrue:[
24d2a31e458b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12743
diff changeset
  1858
            self realize.
24d2a31e458b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12743
diff changeset
  1859
        ] ifFalse:[
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1860
            self remap.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1861
        ].
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1862
        self setForegroundWindow.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1863
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1864
        exclusive ifTrue:[
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1865
            self showError:'
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1866
Debugging system process `' , (inspectedProcess nameOrId) printString , '''.
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1867
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1868
This is a modal debugger - all event processing is stopped..
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1869
Therefore, you cannot interact with other views or
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1870
open any other tools while this debugger is active.
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1871
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  1872
Also, there is no event processing (redraw) for other views.'
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1873
        ].
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1874
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1875
        self autoRaiseView ifTrue:[
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1876
            "/ self raise.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1877
            self raiseDeiconified.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1878
            self topView activate; setForegroundWindow; activate.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1879
        ].
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1880
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1881
        canContinue := true.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1882
        exitAction := nil.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1883
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1884
        "/ enter private event handling loop. This is left (and we come back here again)
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1885
        "/ when any button was pressed which requires continuation of the debuggee or
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1886
        "/ closedown of the debugger.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1887
        [self controlLoop] ifCurtailed:[
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1888
            windowGroup notNil ifTrue:[
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1889
                windowGroup setProcess:nil.
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1890
            ].
13544
9a6069a18d4e class: DebugView
ab
parents: 13538
diff changeset
  1891
            NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1892
            self destroy
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1893
        ].
13544
9a6069a18d4e class: DebugView
ab
parents: 13538
diff changeset
  1894
        NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  1895
    ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  1896
    "/ here after my own control loop is finished.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  1897
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1898
    "/ release all context stuff.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1899
    "/ This is required to avoid keeping references to the debuggees objects
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  1900
    "/ forever. (since the debugger is reused for faster startup next time)
942
25d4f244abbe checkin from browser
Claus Gittinger <cg@exept.de>
parents: 941
diff changeset
  1901
    contextView contents:nil.
25d4f244abbe checkin from browser
Claus Gittinger <cg@exept.de>
parents: 941
diff changeset
  1902
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1903
    codeView acceptAction:nil.
942
25d4f244abbe checkin from browser
Claus Gittinger <cg@exept.de>
parents: 941
diff changeset
  1904
    codeView doItAction:nil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1905
4892
f7b6afd8cec9 release StepInterruptHandler
penk
parents: 4871
diff changeset
  1906
    ObjectMemory stepInterruptHandler == self ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1907
        ObjectMemory stepInterruptHandler:nil.
4892
f7b6afd8cec9 release StepInterruptHandler
penk
parents: 4871
diff changeset
  1908
    ].
f7b6afd8cec9 release StepInterruptHandler
penk
parents: 4871
diff changeset
  1909
11911
aa49a8d724b8 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11898
diff changeset
  1910
    lastSelectionInReceiverInspector := receiverInspector selectedKeyName.
aa49a8d724b8 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11898
diff changeset
  1911
    lastSelectionInContextInspector := contextInspector selectedKeyName.
aa49a8d724b8 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11898
diff changeset
  1912
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1913
    (exitAction ~~ #step) ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  1914
        "/ not stepping or continue - close window
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  1915
        self cacheMyself.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1916
        receiverInspector release.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1917
        contextInspector release.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1918
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1919
        self unmap.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1920
        device flush.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1921
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1922
        (exitAction == #abort) ifTrue:[ self exit_abort. "does not return" ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1923
        (exitAction == #abortAll) ifTrue:[ self exit_abortAll. "does not return" ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1924
        (exitAction == #return) ifTrue:[ self exit_return. "does not return" ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1925
        (exitAction == #restart) ifTrue:[ self exit_restart. "does not return" ].
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  1926
        (exitAction == #resend) ifTrue:[ self exit_resend. "does not return" ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1927
        (exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate. "does not return" ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1928
        (exitAction == #terminate) ifTrue:[ self exit_terminate. "does not return" ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1929
        exitAction isBlock ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1930
            self exit_unwindThenDo:exitAction.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1931
            "does not return"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1932
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1933
        "not reached"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1934
        ^ self
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1935
    ].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1936
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1937
    "/ stepping - window stays open
940
b27a64095304 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 939
diff changeset
  1938
    selectedContext := actualContext := firstContext := nil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1939
2472
03b50188ac9b checkin from browser
ca
parents: 2470
diff changeset
  1940
    "/ restore the previous pointer grab
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1941
    grabber notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1942
        device grabPointerInView:grabber.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1943
        grabber := nil.
61
cb5e3560bd82 *** empty log message ***
claus
parents: 58
diff changeset
  1944
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1945
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  1946
    (exitAction == #step) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1947
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1948
         schedule another stepInterrupt
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1949
         - must enter myself into the collection of open debuggers,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1950
           in case the stepping process comes back again via a halt or signal
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1951
           before the step is finished. In this case, the stepping debugger should
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1952
           come up (instead of a new one)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1953
         - must flush caches since optimized methods not always
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1954
           look for pending interrupts
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1955
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1956
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1957
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1958
        "/ also must care for stepping into a return
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1959
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1960
        steppedContext notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1961
            Processor activeProcess forceInterruptOnReturnOf:steppedContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1962
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1963
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1964
        OpenDebuggers isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1965
            OpenDebuggers := WeakIdentitySet new.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1966
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1967
        OpenDebuggers add:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1968
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1969
        self label:'single stepping - please wait ...'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1970
        stepping := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1971
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1972
        ObjectMemory stepInterruptHandler:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1973
        Processor activeProcess stepInterruptHandler:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1974
        ObjectMemory flushCaches.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1975
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1976
        Context singleStepInterruptRequest isHandled ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1977
            Context singleStepInterruptRequest
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1978
                raiseWith:
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1979
                    (("bigStep" steppedContextLineno notNil)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1980
                        ifTrue:[#next]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1981
                        ifFalse:[#step])
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1982
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1983
            "/ see if we came here through an interrupt-action
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1984
            "/ (i.e. aProcess interruptWith:...)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1985
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1986
            enteredByInterrupt := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1987
            con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1988
            [enteredByInterrupt not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1989
             and:[con notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1990
             and:[con ~~ aContext]]] whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1991
                ((sel := con selector) == #timerInterrupt
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1992
                or:[sel == #ioInterrupt]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1993
                    enteredByInterrupt := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1994
                ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1995
                    con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1996
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1997
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1998
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  1999
            ObjectMemory flushInlineCaches.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2000
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2001
            DebuggingDebugger == true ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2002
                enteredByInterrupt printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2003
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2004
            enteredByInterrupt ifTrue:[
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  2005
                "/ don't want to step through all intermediate
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2006
                "/ (scheduler-) contexts; place a return-trap on the
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2007
                "/ one right below the interesting one
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2008
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2009
"/                'special unwind return' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2010
                con unwindThenDo:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2011
                                  Processor activeProcess stepInterruptHandler:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2012
                                  ObjectMemory stepInterruptHandler:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2013
                                  InStepInterrupt := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2014
                                  StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2015
                                  InterruptPending := 1].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2016
            ] ifFalse:[
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2017
"/                'normal step return' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2018
                skipLineNr ~~ #return ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2019
                    StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2020
                    InterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2021
                ] ifFalse:[
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2022
"/                    'step for return' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2023
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2024
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2025
            InStepInterrupt := nil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2026
        ]
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2027
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2028
        OpenDebuggers notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2029
            OpenDebuggers remove:self ifAbsent:[].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2030
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2031
        self cacheMyself.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2032
    ]
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2033
7796
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  2034
    "Modified: / 17-04-1997 / 13:01:32 / stefan"
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  2035
    "Created: / 30-10-1997 / 21:08:18 / cg"
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  2036
    "Modified: / 13-10-1998 / 19:56:59 / ps"
11697
e776722de7b5 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11696
diff changeset
  2037
    "Modified: / 27-07-2012 / 17:35:56 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2038
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2039
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2040
exit_abort
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2041
    "/ cannot simply raise an abort here, because if there is an abortHandler somewhere,
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2042
    "/ that one would run on top of this context.
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2043
    "/ Therefore, any controlInterrupt(i.e. halt) or reentering of the debugger from that handler
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2044
    "/ would be interpreted as a recursive invocation (in #enter:select).
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2045
    "/ To avoid this, we unwind all contexts and simulate the raise as if it was
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2046
    "/ done in the #enter:select method.
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2047
    "/ You are not expected to understand this.
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2048
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2049
    self exit_unwindThenDo:[ AbortOperationRequest raise ]
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2050
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2051
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2052
exit_abortAll
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2053
    "/ cannot simply raise an abort here, because if there is an abortHandler somewhere,
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2054
    "/ that one would run on top of this context.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2055
    "/ Therefore, any controlInterrupt(i.e. halt) or reentering of the debugger from that handler
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2056
    "/ would be interpreted as a recursive invocation (in #enter:select).
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2057
    "/ To avoid this, we unwind all contexts and simulate the raise as if it was
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2058
    "/ done in the #enter:select method.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2059
    "/ You are not expected to understand this.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2060
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2061
    self exit_unwindThenDo:[ AbortAllOperationRequest raise ]
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2062
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2063
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2064
exit_quickTerminate
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2065
    self cacheMyself.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2066
    Processor activeProcess terminateNoSignal
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2067
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2068
    "Created: / 16.11.2001 / 17:23:51 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2069
    "Modified: / 17.11.2001 / 23:20:07 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2070
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2071
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2072
exit_resend
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2073
    |con|
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2074
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2075
    selectedContext notNil ifTrue:[
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2076
        con := selectedContext.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2077
        self cacheMyself.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2078
        "
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2079
         have to catch errors occuring in unwind-blocks
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2080
        "
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2081
        Error handle:[:ex |
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2082
            'DebugView [info]: ignored error while unwinding: ' infoPrint.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2083
            ex description infoPrintCR.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2084
            ex proceed
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2085
        ] do:[
13411
4a1d147858a8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13408
diff changeset
  2086
            ^ con unwindThenResend.
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2087
        ].
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2088
        'DebugView [warning]: cannot resend selected context''s message' errorPrintCR
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2089
    ]
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2090
!
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2091
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2092
exit_restart
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2093
    |con|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2094
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2095
    selectedContext notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2096
        con := selectedContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2097
        self cacheMyself.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2098
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2099
         have to catch errors occuring in unwind-blocks
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2100
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2101
        Error handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2102
            'DebugView [info]: ignored error while unwinding: ' infoPrint.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2103
            ex description infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2104
            ex proceed
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2105
        ] do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2106
            con unwindAndRestart.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2107
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2108
        'DebugView [warning]: cannot restart selected context' errorPrintCR
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2109
    ]
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2110
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  2111
    "Created: / 16-11-2001 / 17:23:17 / cg"
11819
0829ba326853 changed: #exit_restart
Claus Gittinger <cg@exept.de>
parents: 11818
diff changeset
  2112
    "Modified: / 26-09-2012 / 15:09:52 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2113
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2114
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2115
exit_return
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2116
    |con retVal|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2117
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2118
    selectedContext notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2119
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2120
         if there is a selection in the codeView,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2121
         evaluate it and use the result as return value
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2122
        "
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2123
"/ disabled for now, there is almost always a selection (the current line)
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2124
"/ and that is syntactically incorrect ...
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2125
"/ ... leading to a popup warning from the codeView
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2126
"/
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2127
"/                codeView hasSelection ifTrue:[
4644
e6dd5c21b9c0 Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 4356
diff changeset
  2128
"/                    Error handle:[:ex |
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2129
"/                        'DebugView [warning]: error - returning nil' errorPrintCR.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2130
"/                        retVal := nil.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2131
"/                        ex return
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2132
"/                    ] do:[
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2133
"/                        |s|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2134
"/
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2135
"/                        s := codeView selection asString.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2136
"/                        retVal := codeView doItAction value:s.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2137
"/                    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2138
"/                ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2139
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2140
        con := selectedContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2141
        self cacheMyself.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2142
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2143
         have to catch errors occuring in unwind-blocks
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2144
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2145
        Error handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2146
            'DebugView [info]: ignored error while unwinding: ' infoPrint.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2147
            ex description infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2148
            ex proceed
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2149
        ] do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2150
            con unwind:retVal.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2151
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2152
        'DebugView [warning]: cannot return from selected context' errorPrintCR
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2153
    ]
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2154
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2155
    "Created: / 16.11.2001 / 17:22:24 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2156
    "Modified: / 17.11.2001 / 23:20:21 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2157
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2158
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2159
exit_terminate
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2160
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2161
    "
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2162
     have to catch errors occuring in unwind-blocks
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2163
    "
4644
e6dd5c21b9c0 Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 4356
diff changeset
  2164
    Error handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2165
        'DebugView [info]: ignored error while unwinding: ' infoPrint.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2166
        ex description infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2167
        ex proceed
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2168
    ] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2169
        self cacheMyself.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2170
        Processor activeProcess terminate.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2171
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2172
    'DebugView [warning]: cannot terminate process' errorPrintCR
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2173
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2174
    "Created: / 16.11.2001 / 17:24:20 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2175
    "Modified: / 17.11.2001 / 23:20:27 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2176
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2177
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2178
exit_unwindThenDo:aBlock
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2179
    |con|
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2180
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2181
    "/ cannot simply raise an abort here, because if there is an abortHandler somewhere,
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2182
    "/ that one would run on top of this context.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2183
    "/ Therefore, any controlInterrupt(i.e. halt) or reentering of the debugger from that handler
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2184
    "/ would be interpreted as a recursive invocation (in #enter:select).
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2185
    "/ To avoid this, we unwind all contexts and simulate the raise as if it was
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2186
    "/ done in the #enter:select method.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2187
    "/ You are not expected to understand this.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2188
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2189
    "
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2190
     have to catch errors occuring in unwind-blocks
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2191
    "
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2192
    self cacheMyself.
12743
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  2193
    con := thisContext sender.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2194
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2195
    Error handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2196
        'DebugView [info]: ignored error while unwinding: ' infoPrint.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2197
        ex description infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2198
        ex proceed
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2199
    ] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2200
        "/ find the enter:select context.
12743
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  2201
        [(con selector ~~ #enter:select:) or:[con receiver ~~ self]] whileTrue:[ 
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  2202
            con := con sender 
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  2203
        ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2204
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2205
        "/ must skip over its caller (because this one has a ControlInterrupt handler too)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2206
        con sender receiver == self class ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2207
            con := con sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2208
            con sender receiver == self class ifTrue:[
12743
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  2209
                con := con sender methodHome.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2210
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2211
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2212
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2213
        con unwindThenDo:aBlock.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2214
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2215
    'DebugView [warning]: abort failed' errorPrintCR
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2216
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2217
    "Created: / 16.11.2001 / 17:20:45 / cg"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2218
    "Modified: / 18.11.2001 / 00:58:14 / cg"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2219
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2220
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2221
initialSelectionOnEntry:initialSelectionOrNil context:aContext
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2222
    |selection con1 con2 h|
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2223
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2224
    initialSelectionOrNil notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2225
        ^ initialSelectionOrNil
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2226
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2227
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2228
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2229
     and find the one context to show initially
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2230
     - if we came here by a send (single step), its the top context;
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2231
     - if we came here by a step (i.e. bigStep), its the top context
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2232
       (for ifs and whiles) or the sender (for regular sends).
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2233
     - otherwise, we came here by some signal raise, and we are interested
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2234
       in the context where the raise actually occured.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2235
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2236
    con1 := (contextArray at:1 ifAbsent:nil).
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2237
    con2 := (contextArray at:2 ifAbsent:nil).
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2238
"/ Transcript show:'x '; showCR:exitAction.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2239
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2240
    "/ came here via a step?
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2241
    exitAction == #step ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2242
        selection := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2243
        steppedContext notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2244
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2245
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2246
             if we came here by a big-step, show the method where we are
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2247
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2248
            con1 == steppedContext ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2249
                selection := 1
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2250
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2251
                con2 == steppedContext ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2252
                    selection := 2
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2253
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2254
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2255
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2256
             for bigStep, we could also be in a block below the actual method ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2257
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2258
            ((h := con1 home) notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2259
             and:[h == steppedContext]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2260
                selection := 1
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2261
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2262
                (con2 notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2263
                and:[(h := con2 home) notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2264
                and:[h == steppedContext]]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2265
                    selection := 2
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2266
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2267
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2268
            h := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2269
        ]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2270
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2271
        steppedContext isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2272
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2273
             preselect a more interesting context, (where halt/raise was ...)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2274
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2275
            "/ selection := self class interestingContextIndexFrom:aContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2276
            selection := self class interestingContextIndexIn:contextArray.
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2277
"/ Transcript show:'x '; showCR:selection.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2278
            selection := selection min:(contextArray size).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2279
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2280
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2281
             if we came here by a big-step, show the method where we are
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2282
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2283
            con1 == steppedContext ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2284
                selection := 1
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2285
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2286
                con2 == steppedContext ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2287
                    selection := 2.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2288
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2289
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2290
        ]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2291
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2292
    ^ selection
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2293
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2294
    "Created: / 17.11.2001 / 20:26:26 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2295
    "Modified: / 17.11.2001 / 22:51:46 / cg"
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2296
!
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2297
5110
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2298
isInspecting
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2299
    ^ inspecting
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2300
!
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2301
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2302
isNotInspecting
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2303
    ^ inspecting not
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2304
!
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2305
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2306
openOn:aProcess
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2307
    "enter the debugger on a process -
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2308
     in this case, we are just inspecting the context chain of the process,
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2309
     not running on top of the debugged process, but as a separate
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2310
     one. (think of it as an inspector showing more detail, and offering
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2311
     some more control operations)"
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2312
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2313
    |bpanel dummy w|
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2314
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  2315
    verboseBacktrace := UserPreferences current verboseBacktraceInDebugger.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  2316
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2317
    busy := true.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2318
    bigStep := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  2319
    stepHow := nil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2320
    inspecting := true.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2321
    inspectedProcess := aProcess.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  2322
    nChainShown := InitialNChainShown.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2323
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2324
    bpanel := abortButton superView.
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2325
    bpanel ignoreInvisibleComponents:true.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2326
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2327
    "/ get the max size & freeze button
6647
89560e789618 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6622
diff changeset
  2328
    continueButton label:(resources string:'Continue').
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2329
    w := continueButton preferredWidth.
6647
89560e789618 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6622
diff changeset
  2330
    continueButton label:(resources string:'Stop').
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2331
    w := w max:(continueButton preferredWidth).
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2332
    continueButton preferredExtent:(w @ continueButton preferredHeight).
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2333
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2334
    aProcess state == #run ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2335
        device hasColors ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2336
            continueButton foregroundColor:Color red darkened.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2337
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2338
        continueButton label:(resources string:'Stop').
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2339
        continueButton action:[self doStop].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2340
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2341
        device hasColors ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2342
            continueButton foregroundColor:Color green darkened darkened.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2343
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2344
        continueButton label:(resources string:'Continue').
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2345
        continueButton action:[self doContinue].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2346
    ].
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2347
    continueButton preferredExtent:(w @ continueButton preferredHeight).
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2348
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2349
    returnButton disable.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2350
    restartButton disable.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2351
92
claus
parents: 90
diff changeset
  2352
    dummy := View extent:(10 @ 5) in:bpanel.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2353
    dummy borderWidth:0; level:0.
61
cb5e3560bd82 *** empty log message ***
claus
parents: 58
diff changeset
  2354
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2355
"/    stepButton destroy.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2356
"/    sendButton destroy.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2357
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2358
    updateButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2359
                        label:(resources string:'Update')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2360
                        action:[self updateContext]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2361
                        in:bpanel.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2362
    monitorToggle := Toggle in:bpanel.
6647
89560e789618 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6622
diff changeset
  2363
    monitorToggle label:(resources string:'Monitor').
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2364
    monitorToggle pressAction:[self autoUpdateOn].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2365
    monitorToggle releaseAction:[self autoUpdateOff].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2366
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2367
    "can only look into process - context chain is not active"
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2368
    canContinue := true.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2369
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2370
    terminateButton enable.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2371
    abortButton enable.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2372
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2373
    sendButton disable; beInvisible.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2374
    stepButton disable; beInvisible.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2375
    nextButton disable; beInvisible.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2376
    nextOverButton notNil ifTrue:[nextOverButton disable; beInvisible].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2377
    nextOutButton notNil ifTrue:[nextOutButton disable; beInvisible].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2378
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2379
    aProcess isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2380
        terminateButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2381
        abortButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2382
        continueButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2383
        returnButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2384
        restartButton disable.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2385
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2386
        (aProcess suspendedContext isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2387
        or:[aProcess isSystemProcess]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2388
            terminateButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2389
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2390
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2391
        self setContextSkippingInterruptContexts:aProcess suspendedContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2392
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2393
        catchBlock := [
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2394
            catchBlock := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2395
            contextArray := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2396
            selectedContext := actualContext := firstContext := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2397
            steppedContext := wrapperContext := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2398
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2399
            (exitAction == #terminate) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2400
                aProcess terminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2401
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2402
            (exitAction == #quickTerminate) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2403
                aProcess terminateNoSignal.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2404
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2405
            super destroy
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2406
        ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2407
    ].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2408
    self open
316
7d529dfe8a99 disable abort & terminate for system processes
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
  2409
1092
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2410
    "Modified: 20.3.1997 / 16:53:56 / cg"
1179
e927f0c09298 Move #isSystemProcess from ProcessorScheduler to Process.
Stefan Vogel <sv@exept.de>
parents: 1148
diff changeset
  2411
    "Modified: 17.4.1997 / 13:01:57 / stefan"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2412
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2413
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  2414
selectContextWithIndex:index
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2415
    self showSelection:index.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2416
    contextView setSelection:index.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2417
    index > 1 ifTrue:[
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2418
        contextView scrollToLine:(index - 1)
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2419
    ].
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2420
!
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2421
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2422
setInitialSelectionOnEntry:initialSelectionOrNil context:aContext
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2423
    |selection|
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2424
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2425
    selection := self initialSelectionOnEntry:initialSelectionOrNil context:aContext.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2426
    selection notNil ifTrue:[
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  2427
        self selectContextWithIndex:selection
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2428
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2429
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2430
    "Created: / 16.11.2001 / 17:28:07 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2431
    "Modified: / 17.11.2001 / 20:27:21 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2432
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2433
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2434
turnOffAllButtons
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2435
    terminateButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2436
    continueButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2437
    returnButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2438
    restartButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2439
    abortButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2440
    nextButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2441
    stepButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2442
    sendButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2443
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2444
    "Created: / 16.11.2001 / 17:36:18 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2445
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2446
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2447
!DebugView methodsFor:'help'!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2448
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2449
flyByHelpDependsOnPositionIn:aView
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2450
    "subclasses where the help-text depends upon the pointer position might
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2451
     want to redefine this"
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2452
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2453
    ^ aView == codeView
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2454
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2455
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2456
flyByHelpTextFor:aComponent
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2457
    |s|
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2458
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2459
    aComponent == abortButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2460
        s := 'Abort (unwind to eventLoop)'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2461
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2462
    aComponent == terminateButton ifTrue:[
13339
1aacbaaed26e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13309
diff changeset
  2463
        Processor activeProcess isGUIProcess ifTrue:[
1aacbaaed26e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13309
diff changeset
  2464
            s := 'Terminate the process (closes view and shuts down application)'
1aacbaaed26e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13309
diff changeset
  2465
        ] ifFalse:[
1aacbaaed26e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13309
diff changeset
  2466
            s := 'Terminate the process'
1aacbaaed26e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13309
diff changeset
  2467
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2468
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2469
    aComponent == continueButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2470
        continueButton label = (resources string:'Stop') ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2471
            s := 'Stop'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2472
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2473
            s := 'Continue execution'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2474
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2475
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2476
    aComponent == stepButton ifTrue:[
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  2477
        s := 'Step to next send in selected context (don''t enter into called methods)'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2478
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2479
    aComponent == nextButton ifTrue:[
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  2480
        s := 'Step to next line in selected context (don''t enter into called methods)'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2481
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2482
    aComponent == nextOverButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2483
        s := 'Step over to cursor-line'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2484
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2485
    aComponent == nextOutButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2486
        s := 'Step out to caller'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2487
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2488
    aComponent == sendButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2489
        s := 'Send next message (enter into called methods)'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2490
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2491
    aComponent == returnButton ifTrue:[
12977
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2492
        restartButton enabled ifTrue:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2493
            s := 'Return from the selected method'
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2494
        ] ifFalse:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2495
            s := 'Return from the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2496
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2497
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2498
    aComponent == restartButton ifTrue:[
12977
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2499
        restartButton enabled ifTrue:[
13376
9e6c72fd57e0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13368
diff changeset
  2500
            s := 'Restart the selected method.\If the code was changed in the meanwhile, the original method will be executed again'
12977
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2501
        ] ifFalse:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2502
            s := 'Restart the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2503
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2504
    ].
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2505
    aComponent == resendButton ifTrue:[
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2506
        resendButton enabled ifTrue:[
13376
9e6c72fd57e0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13368
diff changeset
  2507
            s := 'Resend the selected method''s message.\If the code was changed in the meanwhile, the new method will be called with the original arguments.'
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2508
        ] ifFalse:[
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2509
            s := 'Resend the selected method''s message.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2510
        ]
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2511
    ].
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2512
    aComponent == monitorToggle ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2513
        s := 'Toggle monitoring'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2514
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2515
    aComponent == updateButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2516
        s := 'Update'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2517
    ].
13464
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  2518
    aComponent == defineButton ifTrue:[
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  2519
        s := 'Define the missing method (as halting) and proceed into it.\A debugger will reopen there, so you can add the code then'
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  2520
    ].
8656
6c92a022f929 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8636
diff changeset
  2521
    aComponent == reportButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2522
        s := 'Send a defect report via eMail'
8656
6c92a022f929 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8636
diff changeset
  2523
    ].
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2524
    s notNil ifTrue:[
13376
9e6c72fd57e0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13368
diff changeset
  2525
        ^ resources stringWithCRs:s
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2526
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2527
    ^ nil
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2528
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  2529
    "Modified: / 29-08-1995 / 23:38:54 / claus"
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  2530
    "Modified: / 18-06-2010 / 11:34:51 / cg"
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2531
!
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2532
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2533
flyByHelpTextFor:aComponent at:aPointOrNil
8396
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2534
    |s vline line col pos interval|
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2535
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2536
    aComponent == codeView ifFalse:[^ nil].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2537
    aPointOrNil isNil ifTrue:[^ nil].
9446
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  2538
    self sensor motionEventPending ifTrue:[^ nil].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2539
8396
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2540
    vline := codeView visibleLineOfY:aPointOrNil y.
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2541
    col := codeView colOfX:aPointOrNil x inVisibleLine:vline.
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2542
    line := codeView visibleLineToAbsoluteLine:vline.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2543
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2544
    pos := codeView characterPositionOfLine:line col:col.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2545
    interval := pos to:pos.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2546
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2547
    self
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2548
        withNodeValueAtInterval:interval
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2549
        do:[:value :description |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2550
            |valueClassOrSizeString valueString|
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2551
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2552
            valueClassOrSizeString := valueString := ''.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2553
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2554
            "/ some heuristics as when to show the class name (a purely subjective preference)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2555
            value isString ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2556
                value isText ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2557
                    valueString := '"',(value contractTo:80),'"'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2558
                ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2559
                    valueString := value storeString contractTo:80.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2560
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2561
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2562
                (value isBoolean
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2563
                or:[ value isInteger
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2564
                or:[ value isSymbol ]]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2565
                    valueString := value printString.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2566
                ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2567
                    valueClassOrSizeString := ' (',value class name,')'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2568
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2569
                    (value isArray
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2570
                    or:[ value isOrderedCollection ]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2571
                        valueClassOrSizeString := ' (size=',value size printString,')'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2572
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2573
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2574
                    Error handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2575
                        valueString := '??? (',ex description,')'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2576
                    ] do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2577
                        [
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2578
                            valueString := value printString contractTo:80.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2579
                        ] valueWithWatchDog:[ valueString := value classNameWithArticle ] afterMilliseconds:30.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2580
                    ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2581
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2582
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2583
            description isEmptyOrNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2584
                s := valueString , valueClassOrSizeString
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2585
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2586
                s := description , ': ', valueString, valueClassOrSizeString
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2587
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2588
        ].
8592
6a544f86c279 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8580
diff changeset
  2589
    "/ Transcript showCR:s.
6a544f86c279 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8580
diff changeset
  2590
    ^ s
9446
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  2591
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  2592
    "Modified: / 27-04-2010 / 17:51:53 / cg"
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2593
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2594
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2595
helpTextFor:aComponent
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2596
    |s|
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2597
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2598
    aComponent == abortButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2599
        s := 'HELP_ABORT'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2600
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2601
    aComponent == terminateButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2602
        s := 'HELP_TERMINATE'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2603
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2604
    aComponent == continueButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2605
        continueButton label = (resources string:'Stop') ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2606
            s := 'HELP_STOP'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2607
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2608
            s := 'HELP_CONTINUE'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2609
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2610
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2611
    aComponent == stepButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2612
        s := 'HELP_STEP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2613
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2614
    aComponent == nextButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2615
        s := 'HELP_NEXT'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2616
    ].
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  2617
    aComponent == nextOverButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2618
        s := 'HELP_NEXTOVER'
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  2619
    ].
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  2620
    aComponent == nextOutButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2621
        s := 'HELP_NEXTOUT'
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  2622
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2623
    aComponent == stepButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2624
        s := 'HELP_STEP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2625
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2626
    aComponent == sendButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2627
        s := 'HELP_SEND'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2628
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2629
    aComponent == returnButton ifTrue:[
12977
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2630
        returnButton enabled ifTrue:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2631
            s := 'HELP_RETURN'
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2632
        ] ifFalse:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2633
            s := 'HELP_RETURN_DISABLED'
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2634
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2635
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2636
    aComponent == restartButton ifTrue:[
12977
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2637
        restartButton enabled ifTrue:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2638
            s := 'HELP_RESTART'
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2639
        ] ifFalse:[
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2640
            s := 'HELP_RESTART_DISABLED'
2b05130a9a56 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
  2641
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2642
    ].
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2643
    aComponent == resendButton ifTrue:[
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2644
        resendButton enabled ifTrue:[
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2645
            s := 'HELP_RESEND'
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2646
        ] ifFalse:[
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2647
            s := 'HELP_RESEND_DISABLED'
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2648
        ].
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2649
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2650
    aComponent == contextView ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2651
        s := 'HELP_WALKBACK'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2652
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2653
    aComponent == codeView ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2654
        s := 'HELP_CODEVIEW'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2655
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2656
    aComponent == monitorToggle ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2657
        s := 'HELP_MONITOR'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2658
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2659
    aComponent == updateButton ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2660
        s := 'HELP_UPDATE'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2661
    ].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2662
"/    aComponent == stopButton ifTrue:[
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2663
"/        s := 'HELP_STOP'
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2664
"/    ].
612
986e371232a2 isSubViewOf: -> isComponentOf:
Claus Gittinger <cg@exept.de>
parents: 583
diff changeset
  2665
    (aComponent isComponentOf:receiverInspector) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2666
        s := 'HELP_REC_INSP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2667
    ].
612
986e371232a2 isSubViewOf: -> isComponentOf:
Claus Gittinger <cg@exept.de>
parents: 583
diff changeset
  2668
    (aComponent isComponentOf:contextInspector) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2669
        s := 'HELP_CON_INSP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2670
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2671
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2672
    s notNil ifTrue:[
13376
9e6c72fd57e0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13368
diff changeset
  2673
        ^ resources stringWithCRs:s
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2674
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2675
    ^ nil
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2676
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2677
    "Modified: 29.8.1995 / 23:38:54 / claus"
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  2678
    "Modified: 4.3.1997 / 01:54:03 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2679
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2680
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  2681
!DebugView methodsFor:'initialization & release'!
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2682
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2683
addToCurrentProject
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2684
    "ignored here"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2685
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2686
    ^ self
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2687
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2688
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2689
destroy
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2690
    "closing the debugger implies an abort or continue"
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2691
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2692
    self destroyWithConfirmation:true
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2693
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2694
    "Modified: / 10-07-1997 / 17:15:41 / stefan"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2695
    "Modified: / 23-03-2012 / 12:50:01 / cg"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2696
!
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2697
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2698
destroyWithConfirmation:withConfirmation
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2699
    "closing the debugger implies an abort or continue"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2700
2404
5d0d2c826eff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
  2701
    |m|
5d0d2c826eff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
  2702
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2703
    withConfirmation ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2704
        self checkIfCodeIsReallyModified ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2705
            (self confirm:('Code modified - exit anyway ?'))
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2706
            ifFalse:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2707
                ^ self
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2708
            ]
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2709
        ]
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2710
    ].
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2711
2172
dc9b1ed43f64 turn off autoUpdate when destroyed
Claus Gittinger <cg@exept.de>
parents: 2150
diff changeset
  2712
    self autoUpdateOff.
dc9b1ed43f64 turn off autoUpdate when destroyed
Claus Gittinger <cg@exept.de>
parents: 2150
diff changeset
  2713
2404
5d0d2c826eff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
  2714
    (m := contextView middleButtonMenu) notNil ifTrue:[m hide].
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2715
    inspecting ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2716
        "I am running on top of a process, abort or continue it"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2717
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2718
        windowGroup notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2719
            windowGroup setProcess:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2720
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2721
        self uncacheMyself.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2722
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2723
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2724
        "/ catch invalid return;
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2725
        "/ this happens, when my process has somehow died (quickterminate)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2726
        "/ and I am a leftOver view, which gets terminated via the launchers
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2727
        "/ #destroy-window function.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2728
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2729
        Context cannotReturnSignal handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2730
            'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2731
            self uncacheMyself.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2732
            Debugger newDebugger.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2733
            ex return.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2734
        ] do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2735
            AbortOperationRequest isHandled ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2736
                self doAbort.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2737
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2738
                self doContinue
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2739
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2740
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2741
        "/ We don't reach this point normally
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2742
        'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2743
    ].
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2744
2299
3cadf0ee9d2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2258
diff changeset
  2745
    Debugger newDebugger.
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2746
    "/ since I am going to be destroyed, remove me from the cache
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2747
    self uncacheMyself.
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2748
    super destroy.
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2749
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2750
    "Modified: / 10-07-1997 / 17:15:41 / stefan"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  2751
    "Created: / 23-03-2012 / 12:49:50 / cg"
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2752
!
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  2753
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2754
initialize
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2755
    |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2756
     newLayout v exceptionAndTogglePanel codeToggleLabels userPrefs|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2757
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2758
    super initialize.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2759
2340
3258f3daf0e6 #on: -> #onDevice:
Claus Gittinger <cg@exept.de>
parents: 2333
diff changeset
  2760
    font := font onDevice:device.
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2761
    userPrefs := UserPreferences current.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2762
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2763
    verboseBacktrace := userPrefs verboseBacktraceInDebugger ? false.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2764
    hideSupportCode := userPrefs hideSupportCodeInDebugger ? false.
2445
acd747458906 allow for breaks/halts in doIts to be optionally
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2765
    ignoreBreakpoints := true.    "/ ignore halts/breakpoints in doIts of
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2766
                                  "/ the debugger
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  2767
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2768
    busy := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2769
    exclusive := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2770
    inspecting := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2771
    exitAction := nil.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2772
    bigStep := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  2773
    stepHow := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2774
    canContinue := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2775
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2776
    mH := 0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2777
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2778
    menuPanel := MenuPanel in:self.
8131
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  2779
    menuPanel receiver:self.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2780
    menuPanel verticalLayout:false.
8131
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  2781
    menu := self class menuSpec decodeAsLiteralArray.
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  2782
    menu findGuiResourcesIn:self.
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  2783
    menuPanel menu:menu.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2784
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2785
    mH := menuPanel preferredHeight.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2786
    menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2787
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2788
    newLayout := userPrefs useNewLayoutInDebugger.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  2789
    newLayout ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2790
        bpanel := HorizontalPanelView in:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2791
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2792
        self initializeButtonsIn:bpanel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2793
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2794
        bH := bpanel preferredHeight + 5.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2795
        bpanel origin:(0.0 @ mH)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2796
               extent:(1.0 @ bH).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2797
        panel := VariableVerticalPanel
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2798
                            origin:(0.0 @ (mH + bH))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2799
                            corner:(1.0 @ 1.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2800
                            in:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2801
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2802
        v := self initializeContextListViewIn:panel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2803
        v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2804
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2805
        codePanel := View in:panel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2806
        v := self initializeCodeViewIn:codePanel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2807
        v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2808
        codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2809
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2810
        v := self initializeInspectorViewsIn:panel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2811
        v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2812
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  2813
    ] ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2814
        bpanel1 := HorizontalPanelView in:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2815
        self initializeButtons1In:bpanel1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2816
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2817
        contextInfoLabel := Label label:''.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2818
        contextInfoLabel adjust:#left.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2819
        bpanel1 add:contextInfoLabel.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  2820
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2821
        bH1 := bpanel1 preferredHeight + 5.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2822
        bpanel1 origin:(0.0 @ mH)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2823
                extent:(1.0 @ bH1).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2824
        panel := VariableVerticalPanel
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2825
                            origin:(0.0 @ (mH + bH1))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2826
                            corner:(1.0 @ 1.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2827
                                in:self.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2828
        "/ panel showHandle:true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2829
        "/ panel handlePosition:#left.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2830
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2831
        v := self initializeContextListViewIn:panel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2832
        v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2833
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2834
        codePanel := View in:panel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2835
        bpanel2 := HorizontalPanelView in:codePanel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2836
        self initializeButtons2In:bpanel2.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2837
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2838
        bH2 := bpanel2 preferredHeight + 5.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2839
        bpanel2 origin:(0.0 @ 0.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2840
                extent:(1.0 @ bH2).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2841
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2842
        exceptionInfoLabel := Label label:''.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2843
        exceptionInfoLabel adjust:#left.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2844
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2845
        exceptionAndTogglePanel := HorizontalPanelView in:codePanel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2846
        exceptionAndTogglePanel horizontalLayout:#left.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2847
        exceptionAndTogglePanel
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2848
            geometryLayout:
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2849
                ((LayoutFrame
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2850
                    origin:(0.0 @ 0.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2851
                    corner:(1.0 @ 0.0))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2852
                        topOffset:bH2;
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2853
                        bottomOffset:(bH2 + exceptionInfoLabel preferredHeight + 6);
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2854
                        rightOffset:-2).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2855
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2856
        methodCodeToggleSelectionHolder := 1 asValue.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2857
        methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
11305
f9019302309d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11304
diff changeset
  2858
        codeToggleLabels := resources array:{ 
f9019302309d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11304
diff changeset
  2859
                    'Showing Original Code (being executed, but obsolete)' asText backgroundColorizeAllWith:Color red lightened . 
f9019302309d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11304
diff changeset
  2860
                    'Showing Current Code'                                 asText backgroundColorizeAllWith:Color green lightened . 
f9019302309d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11304
diff changeset
  2861
                  }.
f9019302309d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11304
diff changeset
  2862
        methodCodeToggle := PopUpList label:codeToggleLabels first in:exceptionAndTogglePanel.
f9019302309d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11304
diff changeset
  2863
        methodCodeToggle list:codeToggleLabels.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2864
        methodCodeToggle useIndex:true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2865
        methodCodeToggle model:methodCodeToggleSelectionHolder.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2866
        methodCodeToggle beInvisible.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2867
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2868
        exceptionAndTogglePanel add:exceptionInfoLabel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2869
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2870
        v := self initializeCodeViewIn:codePanel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2871
        v origin:(0.0 @ (bH2+exceptionInfoLabel preferredHeight+6)) corner:(1.0 @ 1.0).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2872
        codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2873
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2874
        v := self initializeInspectorViewsIn:panel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2875
        v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2876
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2877
3387
4cbed052fbbe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3350
diff changeset
  2878
    DefaultDebuggerBackgroundColor notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2879
        self allViewBackground:DefaultDebuggerBackgroundColor.
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  2880
    ].
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  2881
    LastExtent notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2882
        self extent:LastExtent.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  2883
    ].
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  2884
    LastOrigin notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2885
        self origin:LastOrigin.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  2886
    ].
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  2887
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2888
    "
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2889
     Debugger newDebugger
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2890
    "
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2891
11693
367eaa0e1ead changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11661
diff changeset
  2892
    "Modified: / 27-07-2012 / 14:46:07 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2893
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2894
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2895
initializeAbortButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2896
    abortButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2897
                label:(resources string:'Abort')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2898
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2899
                    abortButton turnOffWithoutRedraw.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2900
                    self doAbort
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2901
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2902
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2903
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2904
    "Created: / 17.11.2001 / 20:56:47 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2905
    "Modified: / 17.11.2001 / 20:57:17 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2906
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2907
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2908
initializeButtons1In:bpanel
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  2909
    "creates the top button row, consisting of 'continue', 'abort', 'terminate'..."
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  2910
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2911
    |separator|
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2912
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2913
    bpanel horizontalLayout:#left.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2914
    bpanel verticalLayout:#centerMax.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2915
    bpanel verticalSpace:ViewSpacing // 2.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2916
8194
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  2917
    self initializeContinueButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2918
    continueButton width:150.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2919
9131
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  2920
    "/ separator := View extent:(10 @ 5) in:bpanel.
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  2921
    "/ separator borderWidth:0; level:0.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2922
    self initializeAbortButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2923
    abortButton width:150.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2924
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2925
    separator := View extent:(100 @ 5) in:bpanel.
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2926
    separator borderWidth:0; level:0.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2927
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2928
    self initializeTerminateButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2929
9131
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  2930
    separator := View extent:(50 @ 5) in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2931
    separator borderWidth:0; level:0.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2932
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2933
    self initializeGotoDialogOpenerButtonIn:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2934
    self initializeDefineButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  2935
    (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2936
        separator := View extent:(10 @ 5) in:bpanel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2937
        separator borderWidth:0; level:0.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  2938
        self initializeReportButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  2939
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2940
    "Modified: / 17.11.2001 / 21:02:59 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2941
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2942
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2943
initializeButtons2In:bpanel
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  2944
    "creates the second button row, consisting of 'next', 'step', 'return'..."
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  2945
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2946
    |separator|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2947
9131
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  2948
    bpanel horizontalLayout:#left.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2949
    bpanel verticalLayout:#centerMax.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2950
    bpanel verticalSpace:ViewSpacing // 2.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2951
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2952
    self initializeNextButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2953
    nextButton width:100.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2954
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2955
    self initializeStepButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2956
    stepButton width:100.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2957
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2958
"/ cg:
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2959
"/ I disabled the stepIn / stepOut buttons - for now.
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  2960
"/ they do not work reliable with inlined blocks yet.
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2961
"/
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2962
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2963
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2964
"/    img := Image fromFile:'bitmaps/stepIn.xpm'.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2965
"/    img isNil ifTrue:[
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2966
"/        img := (resources at:'next')
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2967
"/    ].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2968
"/    nextButton := Button
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2969
"/                        label:img
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2970
"/                        action:[stepButton turnOff. self doNext]
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2971
"/                        in:bpanel.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2972
"/
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2973
"/    img := Image fromFile:'bitmaps/stepOver.xpm'.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2974
"/    img isNil ifTrue:[
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2975
"/        img := (resources at:'over')
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2976
"/    ].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2977
"/    nextOverButton := Button
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2978
"/                        label:img
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2979
"/                        action:[stepButton turnOff. self doNextOver]
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2980
"/                        in:bpanel.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2981
"/
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2982
"/    img := Image fromFile:'bitmaps/stepOut.xpm'.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2983
"/    img isNil ifTrue:[
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2984
"/        img := (resources at:'out')
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2985
"/    ].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2986
"/    nextOutButton := Button
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2987
"/                        label:img
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2988
"/                        action:[stepButton turnOff. self doNextOut]
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2989
"/                        in:bpanel.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  2990
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2991
    self initializeSendButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2992
    sendButton width:100.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2993
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2994
    separator := View extent:(30 @ 5) in:bpanel.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2995
    separator borderWidth:0; level:0.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  2996
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2997
    self initializeReturnButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  2998
    returnButton width:100.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2999
    self initializeRestartButtonIn:bpanel.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3000
    restartButton width:100.
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3001
    self initializeResendButtonIn:bpanel.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3002
    resendButton width:100.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3003
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  3004
    "Modified: / 18-06-2010 / 08:32:05 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3005
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3006
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3007
initializeButtonsIn:bpanel
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3008
    |separator|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3009
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3010
    bpanel horizontalLayout:#left.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3011
    bpanel verticalLayout:#centerMax.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3012
    bpanel verticalSpace:ViewSpacing // 2.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3013
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3014
    self initializeAbortButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3015
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3016
    separator := View extent:(10 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3017
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3018
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3019
    self initializeContinueButtonIn:bpanel.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3020
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3021
    separator := View extent:(10 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3022
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3023
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3024
    self initializeReturnButtonIn:bpanel.
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3025
    self initializeRestartButtonIn:bpanel.
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3026
    self initializeResendButtonIn:bpanel.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3027
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3028
    separator := View extent:(10 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3029
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3030
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3031
    self initializeNextButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3032
    self initializeStepButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3033
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3034
"/ cg:
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3035
"/ I disabled the stepIn / stepOut buttons - for now.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3036
"/ they do not work relyable with inlined blocks yet.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3037
"/
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3038
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3039
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3040
"/    img := Image fromFile:'bitmaps/stepIn.xpm'.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3041
"/    img isNil ifTrue:[
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3042
"/        img := (resources at:'next')
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3043
"/    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3044
"/    nextButton := Button
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3045
"/                        label:img
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3046
"/                        action:[stepButton turnOff. self doNext]
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3047
"/                        in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3048
"/
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3049
"/    img := Image fromFile:'bitmaps/stepOver.xpm'.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3050
"/    img isNil ifTrue:[
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3051
"/        img := (resources at:'over')
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3052
"/    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3053
"/    nextOverButton := Button
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3054
"/                        label:img
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3055
"/                        action:[stepButton turnOff. self doNextOver]
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3056
"/                        in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3057
"/
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3058
"/    img := Image fromFile:'bitmaps/stepOut.xpm'.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3059
"/    img isNil ifTrue:[
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3060
"/        img := (resources at:'out')
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3061
"/    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3062
"/    nextOutButton := Button
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3063
"/                        label:img
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3064
"/                        action:[stepButton turnOff. self doNextOut]
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3065
"/                        in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3066
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3067
    self initializeSendButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3068
3187
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  3069
    separator := View extent:(30 @ 5) in:bpanel.
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  3070
    separator borderWidth:0; level:0.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3071
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3072
    self initializeTerminateButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3073
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3074
    separator := View extent:(30 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3075
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3076
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3077
    self initializeDefineButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3078
    (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3079
        self initializeReportButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3080
    ].
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3081
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3082
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3083
    "Created: / 17.11.2001 / 20:56:20 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3084
    "Modified: / 17.11.2001 / 21:03:18 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3085
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3086
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3087
initializeCodeViewIn:panel
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3088
    |scrollableCodeView|
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3089
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3090
    (UserPreferences current useCodeView2In: #Debugger) ifTrue:[
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3091
        scrollableCodeView := codeView := Tools::CodeView2 new.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3092
        codeView model: ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3093
        codeView methodHolder: ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3094
        codeView classHolder: ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3095
    ] ifFalse:[
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3096
        scrollableCodeView := HVScrollableView
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3097
                    for:CodeView
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3098
                    miniScrollerH:true
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3099
                    miniScrollerV:false
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3100
                    in:panel.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3101
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3102
        codeView := scrollableCodeView scrolledView.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3103
        codeView enableMotionEvents. "/ for active help
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3104
    ].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3105
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  3106
     (UserPreferences current showAcceptCancelBarInBrowser 
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  3107
        and:[codeView isCodeView2 not or:[UserPreferences current codeView2ShowAcceptCancel not]]) ifTrue:[
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3108
        ViewWithAcceptAndCancelBar notNil ifTrue:[
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3109
            |v|
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3110
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3111
            v := ViewWithAcceptAndCancelBar new.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3112
            v slaveView:scrollableCodeView.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3113
            v reallyModifiedHolder:(codeView isCodeView2 
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3114
                                        ifTrue:[ codeView reallyModifiedChannel ]
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3115
                                        ifFalse:[ 
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3116
                                            BlockValue
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3117
                                                with:[:m |
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3118
                                                    |same|
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3119
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3120
                                                    same := (codeView contentsAsString string = currentMethod source string).
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3121
                                                    codeView modifiedChannel setValue:false.  "/ so it triggers again
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3122
                                                    same not.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3123
                                                ]
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3124
                                                argument:codeView modifiedChannel 
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3125
                                        ]).
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3126
            v cancelAction:
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3127
                [
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3128
                    "/ codeView setClipboardText:(codeView contents).   "/ for undo
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3129
                    codeView device rememberInCopyBufferHistory:(codeView contents).  "/ for undo
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3130
                    codeView contents:(currentMethod source).
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3131
                    codeView modifiedChannel setValue:false; changed.   "/ trigger
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3132
                    codeView requestFocus.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3133
                ].
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3134
            v compareAction:
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3135
                [
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3136
                    v := DiffCodeView
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3137
                            openOn:codeView contentsAsString
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3138
                            label:(resources string:'Changed definition (to be accepted ?)')
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3139
                            and:currentMethod source
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3140
                            label:(resources string:'Method''s Original Code').
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3141
                    v label:(resources string:'Changed Code in Debugger').
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3142
                    v waitUntilVisible.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3143
                    "/ codeView requestFocus
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3144
                ].
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3145
            scrollableCodeView := v.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3146
        ]
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3147
    ].
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3148
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3149
    panel add:scrollableCodeView.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3150
    ^ scrollableCodeView
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3151
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  3152
    "Modified: / 06-12-2013 / 17:30:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3153
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3154
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3155
initializeContextListViewIn:panel
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3156
    |v|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3157
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3158
    v := HVScrollableView
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3159
                for:SelectionInListView
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3160
                miniScrollerH:true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3161
                miniScrollerV:false
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3162
                in:panel.
3034
fad21a9a02bd context-list is horizontal scrollable
Claus Gittinger <cg@exept.de>
parents: 3033
diff changeset
  3163
    v autoHideHorizontalScrollBar:true.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3164
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3165
    contextView := v scrolledView.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3166
    contextView action:[:lineNr | self showSelection:lineNr].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3167
    contextView doubleClickAction:[:line | self browseImplementingClass].
2678
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  3168
    contextView selectConditionBlock:[:line | self checkSelectionChangeAllowed:line].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3169
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3170
    contextView middleButtonMenu:(self middleButtonMenu).
5453
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3171
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3172
    ^ v
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3173
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3174
5453
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3175
initializeContextViewsMiddleButtonMenu
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3176
    <resource: #programMenu >
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3177
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3178
    contextView middleButtonMenu:(self middleButtonMenu).
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3179
!
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3180
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3181
initializeContinueButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3182
    continueButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3183
                label:(resources string:'Continue')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3184
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3185
                    continueButton turnOffWithoutRedraw.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3186
                    self doContinue
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3187
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3188
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3189
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3190
    "Created: / 17.11.2001 / 20:57:34 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3191
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3192
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3193
initializeDefineButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3194
    defineButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3195
                label:(resources string:'Define')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3196
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3197
                    defineButton turnOffWithoutRedraw.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3198
                    self doDefine
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3199
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3200
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3201
    defineButton beInvisible
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3202
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3203
    "Created: / 17.11.2001 / 21:02:48 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3204
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3205
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3206
initializeGotoDialogOpenerButtonIn:bpanel
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3207
    gotoDialogOpenerButton := Button
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3208
                label:(resources string:'Goto Dialog Opener')
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3209
                action:[
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3210
                    gotoDialogOpenerButton turnOffWithoutRedraw.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3211
                    self doGotoDialogOpener
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3212
                ]
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3213
                in:bpanel.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3214
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3215
    gotoDialogOpenerButton beInvisible
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3216
!
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3217
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3218
initializeInspectorViewsIn:panel
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3219
    |hpanel|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3220
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3221
    hpanel := VariableHorizontalPanel in:panel.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3222
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3223
    receiverInspector := InspectorView
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3224
                                origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3225
                                    in:hpanel.
4103
6c0eb2985cee label: -> fieldListLabel: in inspector
Claus Gittinger <cg@exept.de>
parents: 3998
diff changeset
  3226
    receiverInspector fieldListLabel:'Receiver'.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3227
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3228
    contextInspector := ContextInspectorView
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3229
                                origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3230
                                    in:hpanel.
4103
6c0eb2985cee label: -> fieldListLabel: in inspector
Claus Gittinger <cg@exept.de>
parents: 3998
diff changeset
  3231
    contextInspector fieldListLabel:'Context'.
646
04dafb2560bf added labels 'receiver' & 'context';
Claus Gittinger <cg@exept.de>
parents: 642
diff changeset
  3232
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3233
    ^ hpanel
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3234
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3235
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3236
initializeNextButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3237
    nextButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3238
                label:(resources string:'Debug_Next')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3239
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3240
                    stepButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3241
                    self doNext
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3242
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3243
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3244
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3245
    "Created: / 17.11.2001 / 20:59:38 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3246
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3247
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3248
initializeReportButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3249
    reportButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3250
                label:(resources string:'Report by Mail...')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3251
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3252
                    reportButton turnOffWithoutRedraw.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3253
                    self doOpenReportMailApp.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3254
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3255
                in:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3256
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3257
    "Created: / 17.11.2001 / 21:02:20 / cg"
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3258
!
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3259
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3260
initializeResendButtonIn:bpanel
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3261
    resendButton := Button
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3262
                label:(resources string:'Resend')
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3263
                action:[
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3264
                    resendButton turnOff.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3265
                    self doResend
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3266
                ]
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3267
                in:bpanel.
13490
5dbbc9379782 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13489
diff changeset
  3268
5dbbc9379782 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13489
diff changeset
  3269
    "/ if we have this, we do not need the restart button
5dbbc9379782 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13489
diff changeset
  3270
    restartButton beInvisible.
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3271
!
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3272
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3273
initializeRestartButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3274
    restartButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3275
                label:(resources string:'Restart')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3276
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3277
                    restartButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3278
                    self doRestart
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3279
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3280
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3281
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3282
    "Created: / 17.11.2001 / 20:58:52 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3283
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3284
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3285
initializeReturnButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3286
    returnButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3287
                label:(resources string:'Return')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3288
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3289
                    returnButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3290
                    self doReturn
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3291
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3292
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3293
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3294
    "Created: / 17.11.2001 / 20:58:22 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3295
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3296
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3297
initializeSendButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3298
    sendButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3299
                label:(resources string:'Send')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3300
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3301
                    sendButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3302
                    self doSend
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3303
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3304
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3305
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3306
    "Created: / 17.11.2001 / 21:01:20 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3307
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3308
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3309
initializeStepButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3310
    stepButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3311
                label:(resources string:'Debug_Step')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3312
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3313
                    stepButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3314
                    self doStep
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3315
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3316
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3317
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3318
    "Created: / 17.11.2001 / 21:00:13 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3319
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3320
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3321
initializeTerminateButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3322
    terminateButton := Button
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3323
                label:(resources string:'Debug_Terminate')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3324
                action:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3325
                    terminateButton turnOffWithoutRedraw.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3326
                    self doTerminate
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3327
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3328
                in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3329
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3330
    terminateButton backgroundColor:Color red lightened.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3331
    "/ terminateButton foregroundColor:Color red.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3332
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3333
    "Created: / 17.11.2001 / 21:02:20 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3334
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3335
1249
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3336
postRealize
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3337
    super postRealize.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3338
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3339
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3340
        inspectedProcess notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3341
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3342
             set prio somewhat higher (by 2, to allow walkBack-update process
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3343
             to run between mine and the debugged processes prio)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3344
            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3345
            Processor activeProcess
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3346
                priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3347
        ]
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  3348
    ].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  3349
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  3350
    self sensor addEventListener:self.
1249
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3351
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3352
    "Created: 24.7.1997 / 18:17:44 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3353
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3354
2150
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3355
reinitialize
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3356
    "/ redefined - since the debugView runs on top of
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3357
    "/ the debuggee, there would be no event loop for me.
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3358
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3359
    drawableId notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3360
        ^ self
2150
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3361
    ].
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3362
    "physically create the view & subviews"
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3363
    self recreate.
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3364
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3365
!
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3366
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3367
releaseDebuggee
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3368
    "We have to be careful to release all refs to the debuggee,
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3369
     because we may be in the cache.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3370
     Otherwise, the GC will not be able to release it"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3371
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3372
    busy := false.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3373
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3374
    codeView acceptAction:nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3375
    codeView doItAction:nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3376
    codeView contents:nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3377
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3378
    receiverInspector release.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3379
    contextInspector release.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3380
    inspectedProcess := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3381
    contextArray := nil.
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  3382
    ((exitAction == #restart) or:[exitAction == #return or:[exitAction == #resend]]) ifFalse:[
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3383
        selectedContext := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3384
    ].
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3385
    actualContext := firstContext := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3386
    steppedContext := wrapperContext := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3387
    catchBlock := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3388
    grabber := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3389
    self autoUpdateOff.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3390
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3391
    "Created: / 10-07-1997 / 14:57:51 / stefan"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3392
    "Modified: / 26-09-2012 / 15:08:21 / cg"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3393
!
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3394
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3395
setLabelFor:aMessage in:aProcess
9403
ba9cafeaecd7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9348
diff changeset
  3396
    |l lines processNameOrNil pidOrNil osPidString|
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3397
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3398
    lines := aMessage asStringCollection.
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3399
    lines size > 1 ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3400
        l := lines first
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3401
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3402
        l := aMessage.
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3403
    ].
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3404
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3405
    l := l , ' ('.
4644
e6dd5c21b9c0 Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 4356
diff changeset
  3406
    Error handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3407
        l := l , '???'
1030
1a1ee0356c1b catch errors while extracting processes name
ca
parents: 1019
diff changeset
  3408
    ] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3409
        processNameOrNil := aProcess name.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3410
        processNameOrNil notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3411
            l := l , (processNameOrNil contractTo:20) , ''.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3412
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3413
        pidOrNil := aProcess id printString.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3414
        l := l , '[' , pidOrNil , ']'.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  3415
    ].
1030
1a1ee0356c1b catch errors while extracting processes name
ca
parents: 1019
diff changeset
  3416
    l := l , ')'.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3417
    self label:l.
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3418
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3419
    ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3420
        osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
9403
ba9cafeaecd7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9348
diff changeset
  3421
    ].
ba9cafeaecd7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9348
diff changeset
  3422
8305
9d6337aa3ab8 exception info
Claus Gittinger <cg@exept.de>
parents: 8257
diff changeset
  3423
    exceptionInfoLabel notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3424
        exceptionInfoLabel
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3425
            label:(resources
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  3426
                    string:'%1 in process %2 [%3]%4'
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3427
                    with:(lines first colorizeAllWith:Color red)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3428
                    with:(processNameOrNil ? '')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3429
                    with:(pidOrNil ? '')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3430
                    with:(osPidString ? ''))
8305
9d6337aa3ab8 exception info
Claus Gittinger <cg@exept.de>
parents: 8257
diff changeset
  3431
    ].
9d6337aa3ab8 exception info
Claus Gittinger <cg@exept.de>
parents: 8257
diff changeset
  3432
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3433
    "Modified: / 06-07-2006 / 12:43:19 / cg"
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3434
! !
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3435
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3436
!DebugView methodsFor:'interrupt handling'!
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3437
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3438
contextInterrupt
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3439
    DebuggingDebugger == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3440
        'contextIRQ' printCR.
12743
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  3441
        thisContext methodHome sender fullPrint.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3442
    ].
5340
8e2526806312 return value of stepInterrupt, contextInterrupt and stepOrNext
Claus Gittinger <cg@exept.de>
parents: 5271
diff changeset
  3443
    self stepOrNext
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3444
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  3445
    "Modified: / 30.10.1997 / 21:22:25 / cg"
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3446
!
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3447
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3448
stepInterrupt
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3449
    DebuggingDebugger == true ifTrue:[
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3450
        'stepIRQ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3451
        "/ ' in ' print. thisContext sender fullPrint.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3452
        '' printCR.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3453
    ].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  3454
    Processor yield.
5340
8e2526806312 return value of stepInterrupt, contextInterrupt and stepOrNext
Claus Gittinger <cg@exept.de>
parents: 5271
diff changeset
  3455
    self stepOrNext
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3456
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3457
    "Modified: / 20-07-2012 / 14:06:54 / cg"
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3458
!
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3459
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3460
stepOrNext
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3461
    |where here con s isWrap method wrappedMethod 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3462
     originalMethodOfWrappedMethod originalMethodsContext
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3463
     inBlock subBlockLeft ignore contextBelow wrapContext
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3464
     leftWrap enteredWrap anyStepBlocks
9024
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  3465
     oneMore initiallyShown inBlockBelow receiver processName|
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3466
789
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  3467
    "/ DebuggingDebugger := true
1049
3223853742a4 fixed initial selection after stepping with non-verbose
Claus Gittinger <cg@exept.de>
parents: 1030
diff changeset
  3468
    "/ DebuggingDebugger := false
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3469
    "/ DebuggingDebugger2 := true
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3470
    "/ DebuggingDebugger2 := false
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3471
    "/ DebuggingDebugger3 := false
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3472
    "/ '' printCR
789
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  3473
9024
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  3474
    processName := (Processor activeProcess nameOrId),' [',Processor activeProcess id printString,']'.
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  3475
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3476
    skipLineNr == #return ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3477
        self label:('stepping context returned ' , ' (process: ' , processName , ')').
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3478
        here := thisContext sender sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3479
        here setLineNumber:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3480
        here := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3481
        con := thisContext sender sender sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3482
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3483
        HaltInterrupt handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3484
            ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3485
            ex proceed
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3486
        ] do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3487
            self enter:con select:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3488
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3489
        con := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3490
        ^ self
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  3491
    ].
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  3492
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3493
"/    "/
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3494
"/    "/ should no longer happen
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3495
"/    "/
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3496
"/    stepForReturn == true ifTrue:[
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3497
"/"/'stepForreturn' printCR.
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3498
"/        self enter:thisContext sender.
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3499
"/        ^ self
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3500
"/    ].
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3501
52
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
  3502
    Processor activeProcess ~~ inspectedProcess ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3503
        'DebugView [info]: stray step interrupt' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3504
        ^ self
52
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
  3505
    ].
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
  3506
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3507
    here := thisContext.        "stepInterrupt"
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3508
    here := here sender.        "the caller; step- or contextIRQ"
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3509
    here := here sender.        "the interrupted context"
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3510
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3511
    DebuggingDebugger2 == true ifTrue:[
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3512
        '***************************' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3513
        'here in ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3514
        inWrap ifTrue:['(wrap) ' print.].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3515
        ((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3516
        here selector printCR.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3517
        'stepping in ' print. 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3518
        steppedContext notNil ifTrue:[    
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3519
            ((ObjectMemory addressOf:steppedContext) printStringRadix:16) print. ' ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3520
        ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3521
        steppedContext printCR.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3522
    ].
10
46e0d4f2079f *** empty log message ***
claus
parents: 7
diff changeset
  3523
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3524
    "/ when single stepping, ignore breakpoints
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3525
    here selector == #break ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3526
        (here receiver isKindOf:Breakpoint) ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3527
            false "here receiver isEnabled" ifFalse:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3528
                con := nil.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3529
                where := nil. here := nil.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3530
                StepInterruptPending := 1.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3531
                InterruptPending := 1.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3532
                InStepInterrupt := nil.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3533
                ^ self
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3534
            ]
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3535
        ].
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3536
    ].
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3537
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3538
    "/ kludge: a bug-workaround;
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3539
    "/ I should not see those...
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3540
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3541
    here selector == #ioInterrupt ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3542
        DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3543
            'oops - should not get that one' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3544
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3545
        Processor ioInterrupt.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3546
        StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3547
        InterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3548
        where := nil. here := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3549
        InStepInterrupt := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3550
        ^ self
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3551
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3552
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3553
    stepUntilEntering notNil ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3554
        DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3555
            'check if entering ' print. stepUntilEntering printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3556
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3557
        (stepUntilEntering match:here selector) ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3558
            DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3559
                'entering...' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3560
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3561
            self label:('arrived at ' , stepUntilEntering , ' (process: ' , processName , ')').
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3562
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3563
            lastStepUntilEntering := stepUntilEntering.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3564
            stepUntilEntering := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3565
            self enter:here select:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3566
            con := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3567
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3568
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3569
        "/ see if stepping context is still active ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3570
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3571
        con := here.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3572
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3573
        DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3574
            'start searching at: ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3575
            con fullPrint.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3576
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3577
        [con notNil and:[con ~~ steppedContext]] whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3578
            con := con sender
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3579
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3580
        con notNil ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3581
            DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3582
                'steppingContext still active - continue stepping' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3583
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3584
            con := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3585
            where := nil. here := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3586
            StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3587
            InterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3588
            InStepInterrupt := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3589
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3590
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3591
        stepUntilEntering := nil.
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3592
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3593
781
33e4d40fddbe better stepping (stepping in methods blockContext)
Claus Gittinger <cg@exept.de>
parents: 779
diff changeset
  3594
    "
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3595
     kludge to hide breakpoint wrappers in the context list and when single stepping:
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3596
         check if we are in a wrapper method's hidden setup-sequence
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3597
         if so, ignore the interrupt and continue single sending.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3598
         Assume we are in a wrappers setup code, if there is another context above,
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3599
         which is for the wrapper method (i.e. if there is context with an originalmethod
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3600
         of some other context higher in the caller chain
781
33e4d40fddbe better stepping (stepping in methods blockContext)
Claus Gittinger <cg@exept.de>
parents: 779
diff changeset
  3601
    "
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3602
    isWrap := false.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3603
    subBlockLeft := false.
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3604
    leftWrap := enteredWrap := false.
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3605
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  3606
    inWrap ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3607
        "/ situation1:
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3608
        "/   valueWithReceiver or other
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3609
        "/   foo (wrapped)                 <- wrapContext
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3610
        "/
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3611
        "/ situation2:
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3612
        "/   foo (original)                <- originalMethodsContext
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3613
        "/   valueWithReceiver
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3614
        "/   foo (wrapped)                 <- wrapContext
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3615
        "/
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3616
        "/ situation3:
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3617
        "/   other
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3618
        "/   foo (original)                <- originalMethodsContext
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3619
        "/   valueWithReceiver
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3620
        "/   foo (wrapped)                 <- wrapContext
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3621
        "/
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3622
        "/ situation4:
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3623
        "/   ... many-contexts ... (more than 8)
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3624
        "/   possibly foo (original)  
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3625
        "/   valueWithReceiver or other
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3626
        "/   foo (wrapped)                 
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3627
        "/
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3628
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3629
        "/ search for the wrapped method's context and extract the original method 
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3630
        where := here.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3631
        8 timesRepeat:[
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3632
            wrapContext isNil ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3633
                where notNil ifTrue:[
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3634
                    DebuggingDebugger2 == true ifTrue:[ 
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3635
                        ((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3636
                        where printCR 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3637
                    ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3638
                    where isBlockContext ifFalse:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3639
                        method := where method.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3640
                        (method notNil and:[method isWrapped]) ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3641
                            originalMethodOfWrappedMethod := method originalMethod.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3642
                            wrappedMethod := method.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3643
                            wrapContext := where.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3644
                        ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3645
                    ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3646
                    where := where sender
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3647
                ]
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3648
            ]
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3649
        ].
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3650
        DebuggingDebugger2 == true ifTrue:[ 
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3651
            'wrap-context is: ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3652
            wrapContext notNil ifTrue:[    
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3653
                ((ObjectMemory addressOf:wrapContext) printStringRadix:16) print. ' ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3654
            ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3655
            wrapContext printCR 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3656
        ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3657
        originalMethodOfWrappedMethod isNil ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3658
            'oops no wrap?' errorPrintCR.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3659
        ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3660
    ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3661
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3662
    (inWrap and:[ originalMethodOfWrappedMethod notNil ]) ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3663
        isWrap := false.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3664
        "/ DebuggingDebugger2 ifTrue:[ '----------->' print. originalMethodOfWrappedMethod printCR ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3665
        where := here.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3666
        8 timesRepeat:[
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3667
            originalMethodsContext isNil ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3668
                where notNil ifTrue:[
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3669
                    DebuggingDebugger2 ifTrue:[ 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3670
                        ((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3671
                        where printCR 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3672
                    ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3673
                    where isBlockContext ifFalse:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3674
                        method := where method.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3675
                        method == originalMethodOfWrappedMethod ifTrue:[
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3676
                            originalMethodsContext := here.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3677
                            where == here ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3678
                                "/ situation2
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3679
                                DebuggingDebugger2 ifTrue:[ 's2' printCR ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3680
                                isWrap := true.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3681
                                "/ here setSender:(wrapContext sender). --- leads to a crash
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3682
                            ] ifFalse: [
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3683
                                "/ situation3
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3684
                                DebuggingDebugger2 ifTrue:[ 's3' printCR ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3685
                                inWrap := false.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3686
                                isWrap := false. 
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3687
                            ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3688
                            steppedContext := where
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3689
"/                        ] ifFalse:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3690
"/                            where selector == wrapContext selector ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3691
"/                                where receiver == wrapContext receiver ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3692
"/                                    '!!!!!!!!!!!!!!!!!!!!!!!!' printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3693
"/                                    method printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3694
"/                                    method originalMethod printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3695
"/                                    originalMethodOfWrappedMethod printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3696
"/                                    '!!!!!!!!!!!!!!!!!!!!!!!!' printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3697
"/                                ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3698
"/                            ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3699
                        ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3700
                        where := where sender
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3701
                    ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3702
                ].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3703
            ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3704
        ].
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3705
        DebuggingDebugger2 ifTrue:[ 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3706
            'original method-context is: ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3707
            originalMethodsContext notNil ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3708
                ((ObjectMemory addressOf:originalMethodsContext) printStringRadix:16) print. ' ' print.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3709
            ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3710
            originalMethodsContext printCR 
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3711
        ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3712
        originalMethodsContext isNil ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3713
            originalMethodOfWrappedMethod isNil ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3714
                "/ situation4
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3715
                DebuggingDebugger2 ifTrue:[ 's4' printCR ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3716
                DebuggingDebugger2 ifTrue:[ steppedContext printCR ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3717
                isWrap := false.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3718
            ] ifFalse:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3719
                "/ situation1
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3720
                DebuggingDebugger2 ifTrue:[ 's1' printCR ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3721
                isWrap := true.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3722
                "/ steppedContext := wrapContext
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3723
            ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3724
        ].
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3725
    ].
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3726
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3727
    isWrap ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3728
        DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3729
            'ignore wrap' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3730
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3731
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3732
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3733
        "/ ignore, while in wrappers hidden setup
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3734
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3735
        where := nil. here := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3736
        ObjectMemory flushInlineCaches.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3737
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3738
        DebuggingDebugger2 == true ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3739
            skipLineNr == #return ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3740
                'skipRet in wrap' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3741
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3742
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3743
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3744
        StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3745
        InterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3746
        InStepInterrupt := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3747
        ^ self
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3748
    ].
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  3749
3593
eb71fcdf0cfa single stepping in blocks of a method (fixed - I hope)
Claus Gittinger <cg@exept.de>
parents: 3591
diff changeset
  3750
    inBlock := inBlockBelow := anyStepBlocks := false.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  3751
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3752
    DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3753
        'bigStep is: ' print. bigStep printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3754
        'steppedContext is: ' print. steppedContext printCR.
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3755
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  3756
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3757
    "/
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3758
    "/ is this for a send or a step/next ?
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3759
    "/
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3760
    (bigStep
787
dab2fdc4a811 care for degenerated stepInterrupt
Claus Gittinger <cg@exept.de>
parents: 786
diff changeset
  3761
    and:[steppedContext notNil]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3762
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3763
         a step or next - ignore all contexts below the interesting one
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3764
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3765
        where := here.      "the interrupted context"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3766
        contextBelow := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3767
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3768
        where home notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3769
            "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3770
            "/ in a block called by 'our' context ?
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3771
            "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3772
            where home == steppedContext ifTrue:[
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3773
                "/ '*block*' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3774
                inBlock := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3775
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3776
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3777
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3778
        where == steppedContext ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3779
            where := where sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3780
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3781
            where notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3782
                where home == steppedContext ifTrue:[
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3783
                    "/ '*block*' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3784
                    inBlock := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3785
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3786
            ].
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  3787
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  3788
"/ 'looking for ' print.
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  3789
"/  (steppedContextAddress printStringRadix:16)print. '' printCR.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  3790
786
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  3791
"/where print. ' ' print. ((ObjectMemory addressOf:where)printStringRadix:16) printCR.
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  3792
"/steppedContext print. ' ' print. ((ObjectMemory addressOf:steppedContext)printStringRadix:16) printCR.
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  3793
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3794
            where == steppedContext ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3795
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3796
                "/ check if we are in a context below steppedContext
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3797
                "/ (i.e. if steppedContext can be reached from
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3798
                "/  interrupted context. Not using context-ref but its
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3799
                "/  address to avoid creation of many useless contexts.)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3800
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3801
                inBlock ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3802
                    [where notNil] whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3803
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3804
                        "/ if either the receiver or any arg of this context
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3805
                        "/ is a block of the steppedContext, we must really
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3806
                        "/ do a single step. Otherwise, stepping through a
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3807
                        "/ do:-loop would be very difficult.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3808
                        receiver := where receiver.
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3809
where selector == #critical: ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3810
anyStepBlocks := true.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3811
] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3812
                        (receiver isBlock
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3813
                        and:[(receiver isKindOf:Block)
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3814
                        and:[receiver homeMethod == steppedContext method
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3815
                             "receiver home == steppedContext"]])
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3816
                        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3817
                            anyStepBlocks := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3818
                        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3819
                            where args do:[:arg |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3820
                                (arg isBlock
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3821
                                and:[(arg isKindOf:Block)
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3822
                                and:[arg homeMethod == steppedContext method
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3823
                                     "arg home == steppedContext"]])
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3824
                                ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3825
                                    anyStepBlocks := true.
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3826
                                ] ifFalse:[
13218
b67ece43f671 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13210
diff changeset
  3827
                                    (where methodHome notNil
b67ece43f671 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13210
diff changeset
  3828
                                    and:[where methodHome receiver isBlock
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3829
                                    and:[(where methodHome receiver isKindOf:Block)
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3830
                                    and:[where methodHome receiver homeMethod == steppedContext method
13218
b67ece43f671 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13210
diff changeset
  3831
                                         "where methodHome receiver home == steppedContext"]]])
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3832
                                    ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3833
                                        anyStepBlocks := true.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3834
                                    ]
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3835
                                ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3836
                            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3837
                        ].
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  3838
].
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3839
                        DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3840
                            ((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3841
                            where selector printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3842
                        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3843
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3844
                        where == steppedContext ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  3845
"/ 'found it - below; ignore' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3846
                            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3847
                             found the interesting context somwehere up in the
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3848
                             chain. We seem to be still below the interesting one ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3849
                            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3850
                            tracing == true ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3851
                                here printString printCR
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3852
                            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3853
                            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3854
                              yes, a context below
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3855
                              - continue and schedule another stepInterrupt.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3856
                              Must flush caches since optimized methods not always
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3857
                              look for pending interrupts
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3858
                            "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3859
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3860
                            contextBelow notNil ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  3861
"/ 'prepare for unwind-catch' printCR.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3862
"/ 'con= ' print. contextBelow printCR.
1613
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  3863
"/                                contextBelow selector notNil ifTrue:[
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  3864
"/                                    self label:'single stepping - please wait ...(' , contextBelow selector , ')'.
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  3865
"/                                ].
1399
35674d7ac5bc handle contextVars in codeViews doIt.
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3866
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3867
                                DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3868
                                    'below stepCon; continue until unwind of: ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3869
                                    contextBelow printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3870
                                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3871
                                Processor activeProcess forceInterruptOnReturnOf:contextBelow.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3872
                                StepInterruptPending := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3873
                            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3874
                                ObjectMemory flushInlineCaches.
1399
35674d7ac5bc handle contextVars in codeViews doIt.
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3875
1613
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  3876
"/                                here selector notNil ifTrue:[
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  3877
"/                                    self label:'single stepping - please wait ...(' , here selector , ')'.
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  3878
"/                                ].
1399
35674d7ac5bc handle contextVars in codeViews doIt.
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3879
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3880
                                DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3881
                                    'in stepCon; continue single stepping' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3882
                                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3883
                                StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3884
                                InterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3885
                            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3886
                            where := nil. here := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3887
                            InStepInterrupt := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3888
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3889
                            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3890
                        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3891
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3892
                        (steppedContext notNil and:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3893
                         where methodHome == steppedContext methodHome]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3894
                            inBlockBelow := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3895
                        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3896
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3897
                        anyStepBlocks ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3898
                            inBlock ifFalse:[
2633
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  3899
"/ workaround a VM bug,
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  3900
"/ which does not honor interrupt-on-return of block contexts
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  3901
"/ sigh
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  3902
where isBlockContext ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3903
                                contextBelow := where
2633
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  3904
].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3905
                            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3906
                        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3907
                        where := where sender
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3908
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3909
                    s := 'context returned'.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3910
                    subBlockLeft := true.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3911
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3912
            ] ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  3913
"/ 'found it right in sender' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3914
                s := 'after step'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3915
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3916
        ] ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  3917
"/ 'found it right away' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3918
            s := 'after step'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3919
        ].
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3920
    ] ifFalse:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  3921
"/ ' send' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3922
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3923
         a send
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3924
        "
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3925
        DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3926
            'clear steppedContext' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3927
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3928
        steppedContext := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3929
        s := 'after send'
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3930
    ].
7
92b82578c88c *** empty log message ***
claus
parents: 4
diff changeset
  3931
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3932
    ignore := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  3933
    (inBlock and:[stepHow == #nextOver or:[stepHow == #nextOut]]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3934
        ignore := true.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  3935
    ].
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3936
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  3937
    "/ handle the case, when a subBlock leaves;
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  3938
    "/ continue stepping in the home context.
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  3939
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3940
    subBlockLeft ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3941
        steppedContext home notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3942
            steppedContext := steppedContext home.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3943
            s := 'after step'.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3944
            subBlockLeft := false.
803
f8371812c789 fast next in subcontext of subblock
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
  3945
"/ DebugView enterUnconditional:thisContext withMessage:'debug'.
f8371812c789 fast next in subcontext of subblock
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
  3946
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3947
        ]
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  3948
    ].
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  3949
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3950
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3951
     kludge to hide breakpoint wrappers in the context list:
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3952
         check if we are in a wrapper methods hidden exit-sequence
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3953
         if so, ignore the interrupt and continue single sending
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3954
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3955
    (where isNil
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3956
    and:[wrapperContext notNil])
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3957
    ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3958
        "/ did not find our steppedContext along the chain;
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3959
        "/ could be in a wrappedMethods exitBlock ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3960
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3961
        leftWrap ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3962
            where := here.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3963
            wrappedMethod := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3964
            5 timesRepeat:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3965
                where notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3966
                    where isBlockContext ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3967
                        method := where method.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3968
                        (method notNil and:[method isWrapped]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3969
                            where == wrapperContext ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3970
                                DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3971
                                    'change stepCon fromWrapped: ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3972
                                    steppedContext print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3973
                                    ' to: ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3974
                                    wrapperContext printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3975
                                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3976
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3977
                                inWrap := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3978
                                enteredWrap := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3979
                                steppedContext := wrapperContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3980
                                wrapperContext := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3981
                            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3982
                        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3983
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3984
                    where := where sender
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3985
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3986
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3987
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3988
        enteredWrap ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3989
            ignore := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3990
        ]
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3991
    ].
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3992
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3993
    "/
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  3994
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  3995
    subBlockLeft ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3996
        "/ special care for stepInterrupt in send,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3997
        "/ when created a dummy context (lineNr == 1)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3998
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  3999
        steppedContext lineNumber isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4000
            steppedContext selector == here sender selector ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4001
                subBlockLeft := false.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4002
                s := 'after step'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4003
                steppedContext := here sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4004
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4005
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4006
        oneMore := true
786
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  4007
    ].
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  4008
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4009
    inBlock ifTrue:[
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4010
        DebuggingDebugger2 == true ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4011
            'inBlock' printCR.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4012
        ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4013
        s := 'in block'.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4014
    ].
3593
eb71fcdf0cfa single stepping in blocks of a method (fixed - I hope)
Claus Gittinger <cg@exept.de>
parents: 3591
diff changeset
  4015
    inBlockBelow ifTrue:[
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4016
        DebuggingDebugger2 == true ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4017
            'inBlockBelow' printCR.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4018
        ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4019
        ignore := true
3593
eb71fcdf0cfa single stepping in blocks of a method (fixed - I hope)
Claus Gittinger <cg@exept.de>
parents: 3591
diff changeset
  4020
    ].
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4021
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4022
    DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4023
        where notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4024
            '(' print. steppedContextLineno print. ') ' print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4025
            where printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4026
        ].
654
dac2634ce5ec better support for alien context single stepping
Claus Gittinger <cg@exept.de>
parents: 651
diff changeset
  4027
    ].
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4028
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4029
    ignore ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4030
        (bigStep
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4031
        and:[steppedContextLineno notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4032
        and:[where notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4033
        and:[where lineNumber == steppedContextLineno]]]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4034
            (here isBlockContext
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4035
            and:[(here methodHome == steppedContext)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4036
                 or:[here home == steppedContext]]) ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4037
                DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4038
                    'same line but in block' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4039
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4040
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4041
                steppedContext := actualContext := here.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4042
                steppedContextLineno := here lineNumber.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4043
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4044
                "/ kludge - I only have the info for up to 255 lines
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4045
                steppedContextLineno ~~ 255 ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4046
                    DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4047
                        'same line - ignored' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4048
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4049
                    ignore := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4050
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4051
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4052
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4053
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4054
        (subBlockLeft not
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4055
        and:[skipLineNr notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4056
        and:[where notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4057
        and:[where lineNumber notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4058
        and:[where lineNumber < skipLineNr]]]]) ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4059
            DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4060
                'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4061
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4062
            ignore := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4063
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4064
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4065
        (steppedContextLineno isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4066
        and:[skipLineNr isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4067
        and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4068
            DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4069
                'same line2 (after conIRQ) - ignored' printCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4070
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4071
            ignore := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4072
        ].
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4073
    ].
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4074
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4075
    ignore ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4076
"/' ' printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4077
        where := nil. here := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4078
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4079
         yes, a context below
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4080
          - continue and schedule another stepInterrupt.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4081
          Must flush caches since optimized methods not always
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4082
          look for pending interrupts
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4083
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4084
        ObjectMemory flushInlineCaches.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4085
        StepInterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4086
        InterruptPending := 1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4087
        InStepInterrupt := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4088
        ^ self
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4089
    ].
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4090
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4091
"/ ' ' printCR.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4092
9024
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  4093
    self label:(s , ' (process: ' , processName , ')').
7
92b82578c88c *** empty log message ***
claus
parents: 4
diff changeset
  4094
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4095
    tracing := false.
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4096
    bigStep := false.
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4097
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4098
    "release refs to context"
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4099
    where := nil. here := nil.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4100
"/'enter' printCR.
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4101
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4102
    DebuggingDebugger2 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4103
        '==> enter on: ' print. thisContext sender sender printCR.
1049
3223853742a4 fixed initial selection after stepping with non-verbose
Claus Gittinger <cg@exept.de>
parents: 1030
diff changeset
  4104
    ].
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4105
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4106
    initiallyShown := nil.
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4107
    (oneMore == true) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4108
        (thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4109
            initiallyShown := 2
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4110
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4111
            initiallyShown := 1
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4112
        ]
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4113
    ].
2060
0b1b4269aa75 care for breakPoints while entering debugger
Claus Gittinger <cg@exept.de>
parents: 2042
diff changeset
  4114
    con := thisContext sender sender.
3435
2f45c629f115 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3434
diff changeset
  4115
9235
fdcf1d96cdfe changed:
Stefan Vogel <sv@exept.de>
parents: 9155
diff changeset
  4116
    HaltInterrupt handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4117
        'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4118
        ex proceed
3435
2f45c629f115 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3434
diff changeset
  4119
    ] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4120
        self enter:con select:initiallyShown
2060
0b1b4269aa75 care for breakPoints while entering debugger
Claus Gittinger <cg@exept.de>
parents: 2042
diff changeset
  4121
    ].
0b1b4269aa75 care for breakPoints while entering debugger
Claus Gittinger <cg@exept.de>
parents: 2042
diff changeset
  4122
    con := nil
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4123
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4124
    "Created: / 14-10-1996 / 12:53:39 / cg"
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4125
    "Modified: / 20-07-2012 / 15:26:26 / cg"
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4126
! !
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4127
4867
269d62a1ed27 method category rename
Claus Gittinger <cg@exept.de>
parents: 4859
diff changeset
  4128
!DebugView methodsFor:'menu & button actions'!
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4129
5875
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4130
addBrowserBookmark
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4131
    "add a browser-bookmark for the selected contexts method"
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4132
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4133
    |cls sel|
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4134
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4135
    selectedContext isNil ifTrue:[^ self].
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4136
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4137
    cls := selectedContext receiver class.
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4138
    sel := selectedContext selector.
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4139
    (cls includesSelector:sel) ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4140
        sel := nil
5875
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4141
    ].
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4142
    Tools::NewSystemBrowser addToBookMarks:cls selector:sel
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4143
!
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4144
7796
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4145
autoRaiseView
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4146
    ^ UserPreferences current autoRaiseDebugger
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4147
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4148
    "Created: / 15-05-2007 / 13:29:55 / cg"
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4149
!
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4150
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4151
autoRaiseView:aBoolean
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4152
    UserPreferences current autoRaiseDebugger:aBoolean
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4153
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4154
    "Created: / 15-05-2007 / 13:30:04 / cg"
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4155
!
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4156
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4157
autoUpdateOff
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4158
    "stop the update process"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4159
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4160
    updateProcess notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4161
        monitorToggle lampColor:(Color yellow).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4162
        updateProcess terminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4163
        updateProcess := nil
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4164
    ]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4165
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4166
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4167
autoUpdateOn
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4168
    "fork a subprocess which updates the contextList in regular intervals"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4169
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4170
    updateProcess isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4171
        updateProcess :=
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4172
            [
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4173
                [true] whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4174
                    monitorToggle showLamp ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4175
                        monitorToggle lampColor:(Color yellow).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4176
                    ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4177
                        monitorToggle activeForegroundColor:Color black.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4178
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4179
                    (Delay forSeconds:0.25) wait.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4180
                    self updateContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4181
                    monitorToggle showLamp ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4182
                        monitorToggle lampColor:(Color red).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4183
                    ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4184
                        monitorToggle activeForegroundColor:Color red.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4185
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4186
                    (Delay forSeconds:0.25) wait.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4187
                    self updateContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4188
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4189
            ] forkAt:(Processor activePriority - 1)
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4190
    ]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4191
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4192
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4193
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4194
browseBlocksHome
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4195
    "browse the receiver block's home method (if a value-like send is selected)"
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4196
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4197
    |cls sel block mthd|
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4198
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4199
    selectedContext isNil ifTrue:[^ self].
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4200
    (block := selectedContext receiver) isBlock ifFalse:[ ^ self ].
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4201
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4202
    mthd := block method.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4203
    cls := mthd mclass.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4204
    sel := mthd selector.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4205
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4206
    (cls notNil and:[(cls includesSelector:sel)]) ifTrue:[
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4207
        cls browserClass openInClass:cls selector:sel.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4208
        ^ self
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4209
    ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4210
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4211
    mthd source notEmptyOrNil ifTrue:[
13415
3ed3e30cbf8e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13414
diff changeset
  4212
        (Dialog confirm:'Block''s home method is (no longer) present in any class.\Do you want to see the method anyway?' withCRs)
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4213
        ifTrue:[
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4214
            UserPreferences current systemBrowserClass 
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4215
                browseMethods:{ mthd } title:'Unbound Method' sort:false
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4216
            "/ TextView openWith:mthd source title:'Unbound Method''s Source'.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4217
        ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4218
        ^ self
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4219
    ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4220
    cls notNil ifTrue:[
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4221
        (Dialog confirm:'Block''s home method is (no longer) present in any class and no source can be shown.\Do you want to browse the method''s last class instead?' withCRs)
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4222
        ifTrue:[
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4223
            cls browserClass openInClass:cls selector:nil.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4224
        ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4225
        ^ self
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4226
    ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4227
    Dialog information:'Block''s home method is (no longer) present in any class.'.
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4228
!
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4229
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4230
browseClass
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4231
    "browse the receiver's class (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4232
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4233
    |cls sel|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4234
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4235
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4236
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4237
    cls := selectedContext receiver class.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4238
    sel := selectedContext selector.
3591
754970803c0f #implements: -> #includesSelector:
Claus Gittinger <cg@exept.de>
parents: 3580
diff changeset
  4239
    (cls includesSelector:sel) ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4240
        sel := nil
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4241
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4242
    cls browserClass openInClass:cls selector:sel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4243
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4244
    "Modified: / 3.2.1998 / 20:23:36 / cg"
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4245
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4246
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4247
browseClassHierarchy
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4248
    "browse the receiver's classHierarchy (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4249
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4250
    |cls mthd|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4251
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4252
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4253
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4254
    mthd := selectedContext method.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4255
    mthd notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4256
        cls := mthd containingClass.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4257
        "/ still nil if unbound - then use receivers class
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4258
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4259
    cls isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4260
        cls := selectedContext receiver class
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4261
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4262
    cls browserClass browseClassHierarchy:cls.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4263
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4264
    "Modified: / 17.11.2001 / 19:43:06 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4265
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4266
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4267
browseFullClassProtocol
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4268
    "browse the receiver's full protocol (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4270
    |cls mthd|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4271
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4272
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4273
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4274
    mthd := selectedContext method.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4275
    mthd notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4276
        cls := mthd containingClass.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4277
        "/ still nil if unbound - then use receivers class
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4278
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4279
    cls isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4280
        cls := selectedContext receiver class
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4281
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4282
    cls browserClass browseFullClassProtocol:cls.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4283
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4284
    "Modified: / 17.11.2001 / 19:43:43 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4285
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4286
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4287
browseImplementingClass
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4288
    "browse the implementing class (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4289
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4290
    |con mthd who sel cls home|
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4291
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4292
    con := selectedContext ? actualContext.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4293
    con isNil ifTrue:[^ self].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4294
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4295
    mthd := con method.
651
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4296
    mthd notNil ifTrue:[
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4297
        who := mthd who.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4298
        who notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4299
            cls := who methodClass.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4300
            sel := who methodSelector.
11303
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4301
        ] ifFalse:[
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4302
            "might have been re-accepted"
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4303
            (home := con methodHome) notNil ifTrue:[
11303
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4304
                (sel := home selector) notNil ifTrue:[
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4305
                    cls := home receiver class 
11304
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  4306
                            whichClassImplements:selectedContext selector.
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  4307
                    cls notNil ifTrue:[
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  4308
                        Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  4309
                    ].
11303
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4310
                ]
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4311
            ].
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4312
        ].
651
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4313
    ].
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4314
    cls isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4315
        "/ class not found - try receiver
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4316
        cls := con receiver class
651
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4317
    ].
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4318
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4319
    cls browserClass openInClass:cls selector:sel.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4320
11303
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4321
    "Created: / 22-11-1995 / 21:27:01 / cg"
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4322
    "Modified: / 19-07-2012 / 11:27:32 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4323
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4324
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4325
browseImplementors
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4326
    "open a browser on the implementors of the selected method's selector"
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4327
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4328
    selectedContext isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4329
        ^ self showError:'** select a context first **'
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4330
    ].
4153
603173e5f84e ask userPrefs
Claus Gittinger <cg@exept.de>
parents: 4122
diff changeset
  4331
    "/ selectedContext receiver class browserClass
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4332
    self withWaitCursorDo:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4333
        UserPreferences systemBrowserClass
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4334
             browseImplementorsOf:selectedContext selector.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4335
    ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4336
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4337
    "Modified: / 19-07-2012 / 11:44:03 / cg"
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4338
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4339
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4340
browseImplementorsOf
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4341
    "open a browser on the implementors of some selector"
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4342
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4343
    |initial selector sel|
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4344
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4345
    (sel := codeView selection) notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4346
        initial := SystemBrowser extractSelectorFrom:sel
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4347
    ].
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4348
    initial isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4349
        initial := selectedContext isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4350
                            ifTrue:[nil]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4351
                            ifFalse:[selectedContext selector].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4352
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4353
    selector := Dialog
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4354
                    requestSelector:'Selector to browse implementors of:'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4355
                    initialAnswer:initial.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4356
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4357
    selector notEmptyOrNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4358
        self withWaitCursorDo:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4359
            UserPreferences systemBrowserClass
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4360
                browseImplementorsMatching:selector.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4361
        ]
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4362
    ]
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4363
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4364
    "Modified: / 19-07-2012 / 11:43:52 / cg"
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4365
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4366
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4367
browseProcessesApplication
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4368
    "browse the application class (of the process, if it is a GUI process)"
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4369
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4370
    |app appClass|
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4371
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4372
    (app := self processesApplication) notNil ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4373
        appClass := app class.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4374
        appClass browserClass openInClass:appClass selector:nil.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4375
        ^ self
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4376
    ].
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4377
!
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4378
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4379
browseReceiversClass
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4380
    "browse the receiver's class (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4381
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4382
    |cls sel|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4383
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4384
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4385
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4386
    selectedContext isCheapBlockContext ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4387
        cls := selectedContext method mclass.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4388
        sel := selectedContext method selector.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4389
    ] ifFalse:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4390
        cls := selectedContext receiver class.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4391
        sel := selectedContext selector.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4392
    ].
3591
754970803c0f #implements: -> #includesSelector:
Claus Gittinger <cg@exept.de>
parents: 3580
diff changeset
  4393
    (cls includesSelector:sel) ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4394
        sel := nil
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4395
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4396
    cls browserClass openInClass:cls selector:sel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4397
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4398
    "Modified: / 19-07-2012 / 11:29:48 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4399
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4400
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4401
browseSenders
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4402
    "open a browser on the senders of the selected method's selector"
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4403
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4404
    selectedContext isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4405
        ^ self showError:'** select a context first **'
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4406
    ].
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4407
    self withWaitCursorDo:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4408
        UserPreferences systemBrowserClass
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4409
            browseAllCallsOn:selectedContext selector.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4410
    ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4411
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4412
    "Modified: / 19-07-2012 / 11:43:02 / cg"
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4413
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4414
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4415
browseSendersOf
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4416
    "open a browser on the senders of some selector"
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4417
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4418
    |initial selector sel|
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4419
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4420
    (sel := codeView selection) notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4421
        initial := SystemBrowser extractSelectorFrom:sel
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4422
    ].
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4423
    initial isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4424
        initial := selectedContext isNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4425
                            ifTrue:[nil]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4426
                            ifFalse:[selectedContext selector].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4427
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4428
    selector := Dialog
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4429
                    requestSelector:'Selector to browse senders of:'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4430
                    initialAnswer:initial.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4431
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4432
    selector notEmptyOrNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4433
        self withWaitCursorDo:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4434
            UserPreferences systemBrowserClass
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4435
                browseAllCallsOn:selector asSymbol.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4436
        ]
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4437
    ]
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4438
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4439
    "Modified: / 19-07-2012 / 11:43:29 / cg"
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4440
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4441
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4442
clearRememberedCallchain
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4443
    "clear the remembered callchain."
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4444
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4445
    RememberedCallChain := nil
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4446
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4447
    "Created: / 08-03-2012 / 01:29:46 / cg"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4448
!
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4449
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4450
closeAllDebuggers
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4451
    (Dialog confirm:'Close all Debuggers (without confirmation if code was changed)?')
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4452
    ifFalse:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4453
        ^ self
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4454
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4455
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4456
    self class allInstancesDo:[:debugger | 
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4457
        debugger ~~ self ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4458
            debugger busy ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4459
                debugger destroyWithConfirmation:true.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4460
            ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4461
        ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4462
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4463
    self closeRequest.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4464
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4465
    "Created: / 23-03-2012 / 12:40:22 / cg"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4466
!
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4467
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4468
configureX:x y:y width:newWidth height:newHeight
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4469
    super configureX:x y:y width:newWidth height:newHeight.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4470
    LastExtent := self extent.
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4471
    LastOrigin := self origin.
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4472
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4473
    "Created: / 10-11-2010 / 10:09:11 / cg"
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4474
!
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  4475
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4476
copyWalkbackText
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4477
    "place the contents of the walkback view into the copy-paste buffer.
12884
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  4478
     This allows pasting it into some other view for printing.
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  4479
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  4480
     Show the full verbose context without filtering."
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4481
10760
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4482
    |infoText|
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4483
12884
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  4484
    firstContext isNil ifTrue:[
10760
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4485
        infoText := 'No context, no walkback'.
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4486
    ] ifFalse:[
12884
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  4487
        infoText := firstContext fullPrintAllString asStringCollection.
10760
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4488
    ].
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4489
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  4490
    self setClipboardText:infoText
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4491
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4492
    "Modified: 28.8.1995 / 15:31:59 / claus"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4493
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4494
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4495
doAbort
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  4496
    "abort - send Object>>abortSignal, which is usually caught
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4497
     at save places (for example: in the event loop) and returns back
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4498
     from whatever the process is doing, but does not terminate it."
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4499
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  4500
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4501
        (self confirm:('Code modified - abort anyway ?'))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4502
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4503
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4504
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4505
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4506
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4507
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4508
        inspectedProcess isDead ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4509
            self showTerminated.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4510
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4511
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4512
        (AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4513
            self showError:'** the process does not handle the abort signal **'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4514
        ] ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4515
            self interruptProcessWith:[AbortOperationRequest raise].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4516
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4517
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4518
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4519
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4520
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4521
    haveControl := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4522
    exitAction := #abort.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4523
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4524
    "exit private event-loop"
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4525
    catchBlock notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4526
        abortButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4527
        catchBlock value.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4528
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4529
        "/ not reached
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4530
        'DebugView [warning]: abort failed' errorPrintCR.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4531
    ].
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4532
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4533
    ^ self.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4534
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4535
    "Modified: / 17.11.2001 / 22:53:22 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4536
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4537
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4538
doAbortAll
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4539
    "abortAll - send Object>>abortAllSignal, which is usually caught
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4540
     at save places (for example: in the event loop) and returns back
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4541
     from whatever the process is doing, but does not terminate it."
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4542
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4543
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4544
        (self confirm:('Code modified - abort anyway ?'))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4545
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4546
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4547
        ]
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4548
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4549
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4550
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4551
        inspectedProcess isDead ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4552
            self showTerminated.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4553
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4554
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4555
        (AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4556
            self showError:'** the process does not handle the abort signal **'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4557
        ] ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4558
            self interruptProcessWith:[AbortAllOperationRequest raise].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4559
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4560
        ^ self
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4561
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4562
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4563
    steppedContext := wrapperContext := nil.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4564
    haveControl := false.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4565
    exitAction := #abortAll.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4566
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4567
    "exit private event-loop"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4568
    catchBlock notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4569
        abortButton turnOff.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4570
        catchBlock value.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4571
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4572
        "/ not reached
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4573
        'DebugView [warning]: abort failed' errorPrintCR.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4574
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4575
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4576
    ^ self.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4577
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4578
    "Modified: / 17.11.2001 / 22:53:22 / cg"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4579
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  4580
11378
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4581
doChangeProcessPriority
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4582
    "ask for and change the process's priority"
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4583
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4584
    |oldPrio newPrio s|
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4585
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4586
    oldPrio := (inspectedProcess ? Processor activeProcess) priority.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4587
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4588
    [
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4589
        s := Dialog 
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4590
                request:(resources stringWithCRs:'Change the processes priority to (proceed with prio):\\    2 - system background\    4 - user background\    8 - normal\    9 - high\   16 - I/O (danger alert)\')
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4591
                initialAnswer:oldPrio printString.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4592
        s isEmptyOrNil ifTrue:[^ self].
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4593
        newPrio := Integer readFrom:s onError:nil.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4594
        newPrio isNil
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4595
    ] whileTrue.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4596
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4597
    newPrio := newPrio max:(Processor lowestPriority).
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4598
    newPrio := newPrio min:(Processor highestPriority).
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4599
    newPrio >= Processor highIOPriority ifTrue:[
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4600
        (Dialog 
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4601
                confirm:(resources 
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4602
                            stringWithCRs:'Attention: event handling takes place at prio 16.\An ever running high priority process\could block the system and make the UI unusable.\\Proceed?'))
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4603
        ifFalse:[^ self].
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4604
    ].
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4605
    (inspectedProcess ? Processor activeProcess) priority:newPrio.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4606
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4607
    "Created: / 07-03-2012 / 14:15:09 / cg"
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4608
!
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  4609
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4610
doContinue
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4611
    "continue from menu"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4612
1719
4f99e8100bb5 when continuing after a stack-overflow,
Claus Gittinger <cg@exept.de>
parents: 1699
diff changeset
  4613
    |proc exContext ex answer|
4f99e8100bb5 when continuing after a stack-overflow,
Claus Gittinger <cg@exept.de>
parents: 1699
diff changeset
  4614
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  4615
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4616
        (self confirm:('Code modified - continue anyway ?')) ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4617
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4618
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4619
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4620
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4621
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4622
        device hasColors ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4623
            continueButton foregroundColor:Color red darkened.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4624
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4625
        continueButton label:(resources string:'Stop').
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4626
        continueButton action:[self doStop].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4627
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4628
        self processPerform:#resume.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4629
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4630
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4631
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4632
    canContinue ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4633
        exContext := thisContext findSpecialHandle:false raise:true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4634
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4635
        (exContext notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4636
        and:[ (ex := exContext receiver) isLazyValue not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4637
        and:[ ex isException
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  4638
        and:[ ex creator == NoHandlerError
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  4639
        and:[ ex exception creator == RecursionError]]]])
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4640
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4641
            "/ debug due to unhandled recursionInterrupt.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4642
            "/ ask if we should proceed with more stack.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4643
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4644
            answer := self confirm:'Debugger entered due to a stack overflow.\\Continue with more stack ?' withCRs.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4645
            answer == true ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4646
                proc := Processor activeProcess.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4647
                proc setMaximumStackSize:(proc maximumStackSize * 2).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4648
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4649
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4650
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4651
        steppedContext := wrapperContext := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4652
        tracing := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4653
        haveControl := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4654
        exitAction := #continue.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4655
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4656
        "exit private event-loop"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4657
        catchBlock value.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4658
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4659
        "/ not reached.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4660
        'DebugView [warning]: continue failed' errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4661
        continueButton turnOff.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4662
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4663
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4664
        inspecting ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4665
            'DebugView [info]: resuming top context' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4666
            self showSelection:1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4667
            self doReturn
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4668
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4669
    ]
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  4670
1917
200617958f79 continue with more stack fixed
Claus Gittinger <cg@exept.de>
parents: 1906
diff changeset
  4671
    "Modified: / 5.10.1998 / 13:03:47 / cg"
2308
96e0033aa5a3 Exception handling change.
Stefan Vogel <sv@exept.de>
parents: 2305
diff changeset
  4672
    "Modified: / 26.7.1999 / 15:38:45 / stefan"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4673
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4674
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4675
doContinueAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4676
    Delay waitForSeconds:5.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4677
    self doContinue.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4678
!
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4679
3187
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  4680
doDefine
5955
8704599a5d2f nice argument names in define-method
ca
parents: 5911
diff changeset
  4681
    |selectionIndex selector argNames receiversClass proto haltStmtDef haltStmtFix code cat
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4682
     bagOfClassNames bagOfUsedClassNames implClass idx callee restart varName argName|
3270
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  4683
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  4684
    selectionIndex := contextView selection.
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  4685
    restart := true.
3270
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  4686
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4687
    selectorToDefine notNil ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4688
        selector := selectorToDefine.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4689
        receiversClass := classToDefineIn.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4690
    ] ifFalse:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4691
        selector := actualContext selector.
13538
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4692
        receiversClass := actualContext receiver class.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4693
    ].
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4694
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4695
    implClass := actualContext receiver class whichClassIncludesSelector:selector.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4696
    implClass notNil ifTrue:[
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4697
        "/ must be a subclassResponsibility
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4698
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4699
        idx := contextArray identityIndexOf:actualContext.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4700
        idx > 1 ifTrue:[
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4701
            callee := contextArray at:idx-1.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4702
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4703
            callee selector == #subclassResponsibility ifTrue:[
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4704
                restart := false.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4705
            ]
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4706
        ].
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4707
    ].
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4708
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4709
    "generate nice argument names"
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4710
    bagOfClassNames := (actualContext args collect:[:eachArg | eachArg class name]) asBag.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4711
    bagOfUsedClassNames := Bag new.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4712
    argNames := actualContext args
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4713
                    collect:
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4714
                        [:eachArg |
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4715
                            |nm|
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4716
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4717
                            nm := eachArg class nameWithoutPrefix.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4718
                            (bagOfClassNames occurrencesOf:nm) == 1 ifTrue:[
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4719
                                nm article , nm
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4720
                            ] ifFalse:[
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4721
                                bagOfUsedClassNames add:nm.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4722
                                nm asLowercaseFirst , (bagOfUsedClassNames occurrencesOf:nm) printString
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4723
                            ].
13538
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  4724
                        ].
5955
8704599a5d2f nice argument names in define-method
ca
parents: 5911
diff changeset
  4725
8704599a5d2f nice argument names in define-method
ca
parents: 5911
diff changeset
  4726
    proto := Method methodDefinitionTemplateForSelector:selector andArgumentNames:argNames.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4727
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4728
    haltStmtDef := '    self halt:''please define %2 here''.'.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4729
    haltStmtFix := '    self halt:''please change %2 as required''.'.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4730
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4731
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4732
    ( { UndefinedObject . True . False } includes:receiversClass ) ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4733
        (self confirm:'Are you sure you want to add this method (to ',receiversClass name,') ?')
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4734
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4735
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4736
        ]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4737
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4738
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4739
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4740
    "/ code for a getter
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4741
    (receiversClass instVarNames includes:selector) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4742
        code := '%1\' , haltStmtFix , '\    ^ %2'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4743
        cat := 'accessing'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4744
    ].
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4745
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4746
    "/ code for a setter
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4747
    (selector numArgs == 1
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4748
    and:[(selector endsWith:':')
12716
062e27d32904 Changed usage of deprecated #copyWithoutLast: to #copyButLast:
Stefan Vogel <sv@exept.de>
parents: 12687
diff changeset
  4749
    and:[receiversClass instVarNames includes:(selector copyButLast:1)]])
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4750
    ifTrue:[
12716
062e27d32904 Changed usage of deprecated #copyWithoutLast: to #copyButLast:
Stefan Vogel <sv@exept.de>
parents: 12687
diff changeset
  4751
        varName := selector copyButLast:1.
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4752
        argName := argNames first.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4753
        code := '%1\' , haltStmtFix , '\    %3 := %4.'.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4754
        cat := 'accessing'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4755
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4756
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4757
    "/ code for a tester
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4758
    (selector numArgs == 0
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4759
    and:[(selector startsWith:'is')
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4760
    and:[(Smalltalk classNamed:(selector copyFrom:3)) notNil ]])
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4761
    ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4762
        (receiversClass nameWithoutPrefix = (selector copyFrom:3)) ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4763
            code := '%1\' , haltStmtFix , '\    ^ true.'.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4764
        ] ifFalse:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4765
            code := '%1\' , haltStmtFix , '\    ^ false.'.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4766
        ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4767
        cat := 'testing'.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4768
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4769
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4770
"/    actualContext receiver isClass ifTrue:[
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4771
"/        selector == #new ifTrue:[
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4772
"/            code := '%1\' , haltStmt , '\    ^ self basicNew initialize'
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4773
"/        ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4774
"/        selector == #'new:' ifTrue:[
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4775
"/            code := '%1\' , haltStmt , '\    ^ (self basicNew:arg) initialize'
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4776
"/        ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4777
"/    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4778
    code isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4779
        code := '%1\' , haltStmtDef
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4780
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4781
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4782
    self
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4783
        codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4784
        inClass:receiversClass
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4785
        unwind:false
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4786
        category:cat
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4787
        onCancel:[^ self].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4788
3270
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  4789
    self doShowSelection:selectionIndex.
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  4790
    restart ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4791
        self doRestart
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  4792
    ]
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  4793
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4794
    "Modified: / 23-03-2012 / 09:49:31 / cg"
3187
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  4795
!
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  4796
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4797
doGotoDialogOpener
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4798
    "select the context where the dialog was opened"
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4799
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4800
    contextArray keysAndValuesDo:[:i :c |
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4801
        |nextCon nextRcvr dialog|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4802
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4803
        "/ find the openModal, then walk upward
13367
5c9b85ea7a77 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13363
diff changeset
  4804
        ((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4805
            dialog := c receiver.
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4806
            nextCon := contextArray at:i+1.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4807
            "/ while still in dialog code
13368
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4808
            [ 
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4809
                nextRcvr := nextCon receiver.
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4810
                (nextRcvr == dialog)
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4811
                or:[ nextRcvr == dialog class
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4812
                or:[ nextRcvr == DialogBox ]]
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  4813
            ] whileTrue:[
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4814
                (nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[ 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4815
                    nextCon := nextCon methodHome 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4816
                ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4817
                nextCon := nextCon sender.
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  4818
            ].
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4819
            "/ while still in a Notification
13368
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4820
            [ 
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4821
                nextRcvr := nextCon receiver.
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4822
                (nextRcvr isKindOf:UserInformation)
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4823
                or:[ nextRcvr isBehavior
f2f60625d4d1 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13367
diff changeset
  4824
                     and:[nextRcvr includesBehavior:UserInformation]]
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4825
            ] whileTrue:[
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4826
                nextCon := nextCon sender
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4827
            ].
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4828
            self selectContext:nextCon.
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4829
            ^ self.            
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4830
        ]
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4831
    ].
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  4832
    "/ not found
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4833
    gotoDialogOpenerButton disable.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4834
!
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  4835
12671
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  4836
doInspectProcess
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  4837
    (inspectedProcess ? Processor activeProcess) inspect.
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  4838
!
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  4839
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4840
doMicroSend
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4841
    "single send; reenter with next message send"
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4842
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4843
    inspecting ifTrue:[^ self].
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4844
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  4845
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4846
        (self confirm:('Code modified - step anyway ?'))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4847
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4848
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4849
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4850
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4851
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4852
    canContinue ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4853
        steppedContext := wrapperContext := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4854
        haveControl := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4855
        exitAction := #step.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4856
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4857
        "exit private event-loop"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4858
        catchBlock value.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4859
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4860
        "/ not reached
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4861
        'DebugView [warning]: send failed' errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4862
        sendButton turnOff.
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4863
    ]
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4864
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4865
    "Created: / 6.3.1997 / 21:09:36 / cg"
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4866
    "Modified: / 29.7.1998 / 21:49:29 / cg"
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4867
!
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4868
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4869
doNext
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  4870
    "skip for next source-code line; entering blocks"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4871
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4872
    stepHow := #nextIn.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4873
    self doStep:nil
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  4874
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  4875
    "Modified: 7.3.1997 / 18:38:41 / cg"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4876
!
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4877
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4878
doNextAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4879
    Delay waitForSeconds:5.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4880
    self doNext.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4881
!
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  4882
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4883
doNextOut
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  4884
    "skip for next source-code line; leaving blocks"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4885
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4886
    stepHow := #nextOut.
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4887
    self doStep:nil
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4888
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4889
    "Created: 3.3.1997 / 21:31:22 / cg"
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  4890
    "Modified: 7.3.1997 / 18:38:49 / cg"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4891
!
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4892
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4893
doNextOver
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  4894
    "skip for next source-code line; skip over blocks"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4895
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4896
    stepHow := #nextOver.
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4897
    self doStep:nil
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4898
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4899
    "Created: 3.3.1997 / 20:50:38 / cg"
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  4900
    "Modified: 7.3.1997 / 18:39:00 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4901
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4902
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4903
doNoTrace
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4904
    traceView notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4905
        traceView topView destroy.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4906
        traceView := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4907
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4908
    tracing := false
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4909
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4910
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4911
doOpenReportMailApp
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4912
    "open a mail report tool"
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4913
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4914
    | str |
7844
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  4915
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4916
    str := '' writeStream.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4917
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4918
    str nextPutLine:('Error notification from '
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4919
                    , OperatingSystem getLoginName
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4920
                    , '@'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4921
                    , OperatingSystem getHostName).
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4922
    str cr.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4923
5779
f2f987342b81 Use Timestamp/#asTimestamp instead of AbsoluteTime/#asAbsoluteTime
Stefan Vogel <sv@exept.de>
parents: 5664
diff changeset
  4924
    str nextPutLine:('Time: ' , Timestamp now printString).
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4925
    str nextPutLine:('STX Version: ' , Smalltalk versionString).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4926
    str nextPutLine:('Description: ' , self label).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4927
"/    str nextPutLine:('Error: ', printedException description).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4928
"/    str nextPutLine:('Signal: ', printedException signal printString).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4929
"/    str nextPutLine:('Parameter: ', printedException parameter printString).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4930
    str nextPutLine:'Backtrace:'.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4931
    str cr.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4932
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4933
    firstContext notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4934
        firstContext fullPrintAllOn:str.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4935
    ].
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4936
    str cr;cr.
7844
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  4937
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4938
    SendMailTool
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4939
        openForMessage:(str contents)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4940
        withSubject:('STX Error:[', self label, ']')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4941
        preOpenBlock:[:inst|
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4942
            inst recipientEntryField value:'error@exept.de'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4943
        ].
7844
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  4944
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  4945
    "Modified: / 20-09-2007 / 12:40:40 / cg"
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4946
!
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  4947
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4948
doResend
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4949
    "resend - the selected context is unwound and its message resent.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4950
     To be done after a cde change, to get nto the new method"
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4951
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4952
    self checkIfCodeIsReallyModified ifTrue:[
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4953
        (self confirm:('Code modified - resend anyway ?')) ifFalse:[
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4954
            ^ self
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4955
        ]
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4956
    ].
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4957
    inspecting ifTrue:[
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4958
        ^ self showError:'** not avail in inspecting debugger **'
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4959
    ].
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4960
    steppedContext := wrapperContext := nil.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4961
    haveControl := false.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4962
    exitAction := #resend. "exit private event-loop"
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4963
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4964
    catchBlock value.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4965
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4966
    "/ normally not reached
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4967
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4968
    'DebugView [warning]: resend failed' errorPrintCR.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4969
    resendButton turnOff.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4970
!
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  4971
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4972
doRestart
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4973
    "restart - the selected context will be restarted"
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4974
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  4975
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4976
        (self confirm:('Code modified - restart anyway ?')) ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4977
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4978
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4979
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4980
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4981
        selectedContext isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4982
            ^ self showError:'** select a context first **'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4983
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4984
        self interruptProcessWith:[ selectedContext unwindAndRestart ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  4985
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4986
    ].
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4987
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4988
    haveControl := false.
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  4989
    exitAction := #restart. "exit private event-loop"
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  4990
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  4991
    catchBlock value.
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  4992
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  4993
    "/ normally not reached
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4994
935
7c75379de9ec newStyle info & error messages
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
  4995
    'DebugView [warning]: restart failed' errorPrintCR.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4996
    restartButton turnOff.
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  4997
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  4998
    "Modified: / 29.7.1998 / 21:49:53 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4999
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5000
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5001
doReturn
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5002
    "return - the selected context will do a ^nil"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5003
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  5004
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5005
        (self confirm:('Code modified - return anyway ?'))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5006
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5007
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5008
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5009
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5010
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5011
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5012
        selectedContext isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5013
            ^ self showError:'** select a context first **'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5014
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5015
        self interruptProcessWith:[selectedContext unwind:nil].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5016
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5017
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5018
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  5019
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5020
    haveControl := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5021
    exitAction := #return.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5022
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5023
    "exit private event-loop"
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5024
    catchBlock value.
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5025
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5026
    "/ not reached
935
7c75379de9ec newStyle info & error messages
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
  5027
    'DebugView [warning]: return failed' errorPrintCR.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5028
    returnButton turnOff.
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5029
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5030
    "Modified: / 29.7.1998 / 21:50:03 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5031
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5032
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5033
doSend
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5034
    "single send; reenter with next message send"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5035
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5036
    stepHow := #send.
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5037
    self doStep:-1
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5038
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5039
"/    inspecting ifTrue:[^ self].
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5040
"/
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5041
"/    canContinue ifTrue:[
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5042
"/        steppedContext := wrapperContext := nil.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5043
"/        haveControl := false.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5044
"/        exitAction := #step.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5045
"/
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5046
"/        "exit private event-loop"
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5047
"/        catchBlock notNil ifTrue:[catchBlock value].
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5048
"/
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5049
"/        "/ not reached
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5050
"/        'DebugView [warning]: send failed' errorPrintCR.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5051
"/        sendButton turnOff.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5052
"/    ]
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5053
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5054
    "Modified: 7.3.1997 / 18:41:26 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5055
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5056
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5057
doStep
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5058
    "skip for next send in selected method"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5059
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5060
    stepHow := #step.
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  5061
    self doStep:-1
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  5062
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5063
    "Modified: 7.3.1997 / 18:46:49 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5064
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5065
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5066
doStep:lineNrOrNilOrMinus1
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5067
    "common helper for step, skip & next.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5068
     Arrange for single-steppping until we pass lineNr (if nonNil)
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5069
     or to next line (if nil) or to next send (if -1)"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5070
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5071
    |con method|
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5072
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5073
    inspecting ifTrue:[^ self].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5074
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  5075
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5076
        (self confirm:('Code modified - step anyway ?'))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5077
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5078
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5079
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5080
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5081
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5082
    canContinue ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5083
        selectedContext notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5084
            con := actualContext. "/ selectedContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5085
            steppedContextLineno := actualContext lineNumber.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5086
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5087
            con := contextArray at:2.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5088
            steppedContextLineno := con lineNumber.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5089
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5090
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5091
        skipLineNr := lineNrOrNilOrMinus1.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5092
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5093
        lineNrOrNilOrMinus1 == -1 ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5094
            steppedContextLineno := skipLineNr := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5095
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5096
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5097
        (stepUntilEntering isNil and:[stepHow == #send]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5098
            steppedContext := contextArray at:1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5099
            stepHow := #nextIn.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5100
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5101
            stepHow == #nextOut ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5102
                steppedContext := con home.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5103
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5104
                steppedContext := con.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5105
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5106
        ].
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5107
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5108
        wrapperContext := nil.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5109
789
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  5110
"/ ' step con:' print. (ObjectMemory addressOf:steppedContext) printHex. ' ' print. steppedContext printCR.
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  5111
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5112
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5113
         if we step in a wrapped method,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5114
         prepare to skip the prolog ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5115
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5116
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5117
        inWrap := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5118
        method := con method.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5119
        (method notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5120
        and:[method isWrapped
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5121
        and:[method originalMethod ~~ method]]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5122
            inWrap := true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5123
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5124
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5125
        lineNrOrNilOrMinus1 == #return ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5126
            Processor activeProcess forceInterruptOnReturnOf:con.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5127
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5128
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5129
        con := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5130
        bigStep := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5131
        haveControl := false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5132
        exitAction := #step.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5133
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5134
        "exit private event-loop"
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5135
        catchBlock value.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5136
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5137
        "/ not reached
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5138
        'DebugView [warning]: step failed' errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5139
        stepButton turnOff. nextButton turnOff. sendButton turnOff.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5140
    ]
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5141
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5142
    "Modified: / 29.7.1998 / 21:50:16 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5143
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5144
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5145
doStepAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5146
    Delay waitForSeconds:5.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5147
    self doStep.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5148
!
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5149
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5150
doStop
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5151
    "stop the process (if its running, otherwise this is a no-op)"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5152
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5153
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5154
        device hasColors ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5155
            continueButton foregroundColor:Color green darkened darkened.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5156
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5157
        continueButton label:(resources string:'Continue').
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5158
        continueButton action:[self doContinue].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5159
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5160
        self processPerform:#stop.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5161
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5162
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5163
    ].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  5164
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  5165
    "Modified: 20.10.1996 / 18:30:48 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5166
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5167
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5168
doTerminate
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5169
    "terminate - the process has a chance for cleanup"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5170
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  5171
    self checkIfCodeIsReallyModified ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5172
        (self confirm:('Code modified - terminate anyway ?'))
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5173
        ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5174
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5175
        ]
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5176
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5177
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5178
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5179
        self processPerform:#terminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5180
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5181
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5182
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  5183
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5184
    haveControl := false.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5185
    exitAction := #terminate.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5186
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5187
    "exit private event-loop"
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5188
    catchBlock value.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5189
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5190
    "/ not reached (normally)
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5191
    inspecting ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5192
        'DebugView [warning]: terminate failed' errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5193
        (self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5194
            Debugger newDebugger.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5195
            Processor activeProcess terminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5196
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5197
    ].
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5198
    terminateButton turnOff.
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5199
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5200
    "Modified: / 29.7.1998 / 21:50:35 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5201
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5202
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5203
doTrace
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5204
    "tracing - not really implemented ..."
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5205
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5206
    self warn:'this function is not yet implemented'.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5207
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5208
"/    |v b|
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5209
"/
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5210
"/    traceView isNil ifTrue:[
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5211
"/        v := StandardSystemView on:Display.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5212
"/        v label:'Debugger-Trace'.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5213
"/        v icon:icon.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5214
"/
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5215
"/        b := Button label:'untrace' in:v.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5216
"/        b origin:(0 @ 0) extent:(1.0 @ (b height)).
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5217
"/        b action:[
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5218
"/            StepInterruptPending := nil.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5219
"/            tracing := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5220
"/            v unrealize.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5221
"/            traceView := nil
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5222
"/        ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5223
"/        traceView := ScrollableView for:TextCollector in:v.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5224
"/        traceView origin:(0 @ (b height))
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5225
"/                  extent:[v width @ (v height - b height)]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5226
"/    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5227
"/    v realize.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5228
"/
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5229
"/    tracing := true.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5230
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5231
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5232
doTraceStep
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5233
    "tracestep - not implemented yet"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5234
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5235
    canContinue ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5236
        tracing := true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5237
        self doStep
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5238
    ]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5239
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5240
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5241
exit
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5242
    "exit from menu: immediate exit from smalltalk"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5243
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5244
    OperatingSystem exit
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5245
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5246
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5247
findContextForWhich:aBlock thenDo:additionalAction
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5248
    |con|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5249
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5250
    con := self selectedContext.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5251
    con isNil ifTrue:[^ self].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5252
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5253
    con := con sender.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5254
    [con notNil] whileTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5255
        (aBlock value:con) ifTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5256
            (self selectContext:con) ifTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5257
                additionalAction value:con.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5258
                ^ self.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5259
            ] 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5260
        ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5261
        con := con sender.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5262
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5263
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5264
    Dialog information:'None found'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5265
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5266
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5267
findContextWithStringInSource
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5268
    |stringToSearch source|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5269
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5270
    stringToSearch := Dialog request:'Search what:'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5271
    stringToSearch isEmptyOrNil ifTrue:[^ self].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5272
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5273
    self 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5274
        findContextForWhich:[:con |
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5275
            con method notNil
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5276
            and:[ (source := con method source) notNil
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5277
            and:[ (source includesString:stringToSearch) ]]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5278
        ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5279
        thenDo:[:con |
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5280
            codeView searchFwd:stringToSearch.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5281
        ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5282
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5283
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5284
findContextWithValueInVariable
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5285
    |valueStringToSearch|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5286
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5287
    valueStringToSearch := Dialog request:'Search for a local value whith printString containing:'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5288
    valueStringToSearch isEmptyOrNil ifTrue:[^ self].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5289
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5290
    self 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5291
        findContextForWhich:[:con |
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5292
            con argsAndVars contains:[:val | val printString asLowercase includesString: valueStringToSearch asLowercase]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5293
        ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5294
        thenDo:[:con | ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5295
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5296
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5297
findHandlerFor
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5298
    |exClass con|
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5299
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5300
    (con := self selectedContext) isNil ifTrue:[ 
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5301
        con := contextArray at:1
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5302
    ].
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5303
    con sender isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5304
        self information:'Context has already returned'.
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5305
        ^ self
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5306
    ].
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5307
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5308
    exClass := Dialog 
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5309
                choose:'Exception class:'
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5310
                fromList:(GenericException withAllSubclasses copyAsOrderedCollection sort:[:a :b | a name < b name])
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5311
                lines:25
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5312
                title:'Choose Exception class'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5313
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5314
    self 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5315
        findContextForWhich:[:con |
13412
23550f667aba class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13411
diff changeset
  5316
            con isHandleContext 
23550f667aba class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13411
diff changeset
  5317
            and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ] 
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5318
        ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5319
        thenDo:[:con | 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5320
            self selectContext:con sender.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5321
        ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5322
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5323
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5324
findNextExceptionHandlerContext
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5325
    self 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5326
        findContextForWhich:[:con |
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5327
            con isHandleContext 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5328
        ]
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5329
        thenDo:[:con | 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5330
            self selectContext:con sender.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5331
        ]
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5332
!
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5333
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5334
inspectContext
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5335
    "launch an inspector on the currently selected context"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5336
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5337
    |con|
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5338
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5339
    (con := self selectedContext) notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5340
        con inspect.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5341
    ]
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5342
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5343
    "Modified: / 17-07-2012 / 12:52:34 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5344
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5345
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5346
inspectWidgetHierarchy
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5347
    |rcvr view|
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5348
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5349
    selectedContext isNil ifTrue:[ ^ self ].
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5350
    Tools::ViewTreeInspectorApplication isNil ifTrue:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5351
        Dialog warn:'Missing class: Tools::ViewTreeInspectorApplication'.
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5352
        ^ self.
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5353
    ].
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5354
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5355
    rcvr := selectedContext receiver.
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5356
    rcvr isView ifTrue:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5357
        view := rcvr
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5358
    ] ifFalse:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5359
        view := rcvr window
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5360
    ].
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5361
    Tools::ViewTreeInspectorApplication openOn:view
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5362
!
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5363
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5364
middleButtonMenu
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5365
    <resource: #programMenu >
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5366
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5367
    |items m nameOfExecutable|
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5368
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5369
    exclusive ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5370
        items := #(
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5371
                    ('Show More WalkBack'               showMore                )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5372
                    ('-'                                                        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5373
                    ('Add Breakpoint'                   addBreakpoint           )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5374
                    ('Remove Breakpoint'                removeBreakpoint        )
11661
2bda6075f0fa comment/format in:
Claus Gittinger <cg@exept.de>
parents: 11647
diff changeset
  5375
                    ('Remove all Break- && Tracepoints'  removeAllBreakpoints   )
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5376
                    ('-'                                                        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5377
                  ).
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5378
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5379
        items := #(
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5380
                    ('Show More WalkBack'               showMore                )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5381
                    ('-'                                                        )
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  5382
                    ('Skip'                             skip                    )
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5383
                    ('Step Out'                         skipForReturn           )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5384
                    ('Skip until Entering...'           skipUntilEntering       )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5385
                    ('-'                                                        )
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5386
"
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5387
                    ('Continue'                         doContinue              )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5388
                    ('Terminate'                        doTerminate             )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5389
                    ('Abort'                            doAbort                 )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5390
                    ('-'                                                        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5391
                    ('Step'                             doStep                  )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5392
                    ('Send'                             doSend                  )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5393
                    ('-'                                                        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5394
                    ('Return'                           doReturn                )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5395
                    ('Restart'                          doRestart               )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5396
                    ('-'                                                        )
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5397
"
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5398
                    ('Add Breakpoint'                   addBreakpoint           )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5399
                    ('Remove Breakpoint'                removeBreakpoint        )
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5400
                    ('Remove all Break- & Tracepoints'  removeAllBreakpoints    )
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5401
                ).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5402
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5403
"/        self allowBreakPointsInDebugger ifFalse:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5404
"/            items := items , #(
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5405
"/                        ('Allow Breakpoints & halt in Debugger'      doNotIgnoreBreakpoints  )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5406
"/                    ).
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5407
"/        ] ifTrue:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5408
"/            items := items , #(
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5409
"/                        ('Ignore Breakpoints & halt in Debugger'     doIgnoreBreakpoints  )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5410
"/                    ).
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5411
"/        ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5412
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5413
        items := items , #(
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5414
                    ('-'                                                        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5415
                    ('Browse Implementing Class'      browseImplementingClass )
13210
214639c7834e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13197
diff changeset
  5416
                    ('Browse Receiver''s Class'             browseReceiversClass    )
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5417
                    ('Browse Blocks''s Home'                browseBlocksHome    )
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5418
"/                    ('Browse Receivers Class Hierarchy'   browseClassHierarchy    )
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5419
"/                    ('Browse Receivers Full Protocol'     browseFullClassProtocol )
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5420
                    ('Implementors'                     browseImplementors      )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5421
                    ('Implementors Of...'               browseImplementorsOf    )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5422
                    ('Senders'                          browseSenders           )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5423
                    ('Senders Of...'                    browseSendersOf         )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5424
                    ('-'                                                        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5425
                    ('Inspect Context'                  inspectContext          )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5426
                  ).
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5427
    ].
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5428
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5429
    items := items , #(
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5430
                ('Copy WalkBack Text'               copyWalkbackText        )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5431
                ('-'                                                        )
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5432
                ('Hard Terminate (Danger)'          quickTerminate          )
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5433
                ('='                                                        )).
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5434
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5435
    nameOfExecutable := OperatingSystem nameOfSTXExecutable asFilename withoutSuffix baseName.
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5436
    nameOfExecutable = 'stx' ifTrue:[ nameOfExecutable := 'Smalltalk' ].
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5437
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5438
    items := items , {
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5439
        { 'Exit %1 (No Confirmation)' bindWith:nameOfExecutable. #exit                 }}.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5440
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5441
    m := PopUpMenu
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5442
                itemList:items
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5443
                resources:resources
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5444
                receiver:self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5445
                for:contextView.
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5446
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5447
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5448
        m notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5449
            m disableAll:#(doTraceStep removeBreakpoint browseImplementingClass browseReceiversClass
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5450
                           browseClassHierarchy browseFullClassProtocol
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5451
                           browseImplementors browseSenders browseBlocksHome inspectContext skip doStepOut).
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5452
        ].
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5453
    ].
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5454
    self updateMenuItems.
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5455
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5456
    ^ m.
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  5457
13210
214639c7834e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13197
diff changeset
  5458
    "Modified: / 22-07-2013 / 15:30:05 / cg"
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5459
!
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  5460
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5461
notShowingSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5462
    ^ hideSupportCode == true.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5463
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5464
    "Created: / 10-06-2012 / 21:27:24 / cg"
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5465
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5466
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5467
openAboutThisApplication
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5468
    "opens an about box for this application."
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5469
7112
b1c931857a1e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7065
diff changeset
  5470
    Dialog aboutClass:self class.
b1c931857a1e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7065
diff changeset
  5471
b1c931857a1e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7065
diff changeset
  5472
    "Modified: / 12-09-2006 / 17:20:38 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5473
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5474
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5475
openSettingsDialog
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5476
    |settingsList settingsApp|
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5477
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5478
    settingsList :=
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5479
        #(
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5480
           #('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5481
           #('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5482
           #('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5483
           #('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5484
        ).
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5485
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5486
    settingsApp := SettingsDialog new.
9024
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  5487
    "/ settingsApp requestor:self.
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5488
    settingsApp installSettingsEntries:settingsList.
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5489
    settingsApp allButOpen.
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5490
    settingsApp window label:('Debugger Settings').
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5491
    settingsApp openWindow.
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5492
!
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  5493
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5494
processesApplication
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5495
    "if the debugged process is a GUI process,
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5496
     AND it has an applicaiton, return it.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5497
     Otherwise, return nil"
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5498
13553
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5499
    |p wgs app|
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5500
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5501
    p := inspectedProcess ? Processor activeProcess.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5502
    (p notNil and:[p isGUIProcess]) ifTrue:[
13553
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5503
        wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5504
        wgs do:[:wg |
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5505
            |wgi|
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5506
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5507
            wgi := wg.
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5508
            [wgi notNil] whileTrue:[
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5509
                (app := wgi application) notNil ifTrue:[^ app].
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5510
                wgi isModal ifTrue:[
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5511
                    wgi := wgi previousGroup
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5512
                ] ifFalse:[
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5513
                    wgi := nil.
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  5514
                ]
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5515
            ]
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5516
        ]
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5517
    ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5518
    ^ nil
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5519
!
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5520
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5521
quickTerminate
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5522
    "quick terminate - the process will get no chance for cleanup actions"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5523
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5524
    inspecting ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5525
        self processPerform:#terminateNoSignal.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5526
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5527
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5528
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  5529
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5530
    haveControl := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5531
    exitAction := #quickTerminate.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5532
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5533
    "exit private event-loop"
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5534
    catchBlock value.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5535
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5536
    "/ not reached (normally)
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5537
    inspecting ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5538
        'DebugView [warning]: quick terminate failed' errorPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5539
        (self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5540
            Debugger newDebugger.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5541
            Processor activeProcess terminateNoSignal.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5542
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5543
    ].
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5544
    terminateButton turnOff.
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5545
935
7c75379de9ec newStyle info & error messages
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
  5546
    "Modified: 10.1.1997 / 17:42:10 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5547
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5548
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5549
rememberCallchain
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5550
    "remember the callchain in a classvar.
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5551
     When entered the next time, highlight already entered contexts.
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5552
     This makes it possible to identitfy the caller as the first common context
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5553
     along the chain (i.e. the context which is responsible for the debugger to be entered)"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5554
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5555
    RememberedCallChain := contextArray copy
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5556
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5557
    "Created: / 07-03-2012 / 23:07:07 / cg"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5558
!
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  5559
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5560
selectContext:aContext
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5561
    |idx|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5562
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5563
    idx := contextArray identityIndexOf:aContext.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5564
    idx == 0 ifTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5565
        "/ some contexts hidden?
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5566
        (self showingDenseWalkback or:[self showingSupportCode not]) ifTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5567
            Dialog information:'Context is hidden - disabling the "hideSupportCode" option (see view menu)'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5568
            self showFullWalkback.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5569
            self showingDenseWalkback:false.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5570
            self showingSupportCode:true.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5571
        ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5572
        idx := contextArray identityIndexOf:aContext.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5573
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5574
    idx ~~ 0 ifTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5575
        self selectContextWithIndex:idx.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5576
        ^ true.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5577
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5578
    ^ false
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5579
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5580
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5581
selectedContext
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5582
    contextView selection notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5583
        (contextView selectionValue startsWith:'**') ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5584
            ^ (contextArray at:(contextView selection)).
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5585
        ]
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5586
    ].
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5587
    ^ nil
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5588
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5589
    "Created: / 17-07-2012 / 12:52:10 / cg"
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5590
!
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5591
11647
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5592
showFullWalkback
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5593
    "double the number of contexts shown"
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5594
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5595
    contextArray notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5596
        nChainShown := 9999.
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5597
        self redisplayBacktrace.
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5598
    ]
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5599
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5600
    "Created: / 23-07-2012 / 12:24:02 / cg"
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5601
!
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  5602
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5603
showMore
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5604
    "double the number of contexts shown"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5605
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5606
    contextArray notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5607
        nChainShown := nChainShown * 2.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5608
        self redisplayBacktrace.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5609
    ]
563
93633e3ff304 selection: / setSelection:
Claus Gittinger <cg@exept.de>
parents: 554
diff changeset
  5610
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5611
    "Modified: / 17.11.2001 / 20:14:31 / cg"
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  5612
!
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  5613
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5614
showSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5615
    hideSupportCode := false.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5616
    self redisplayBacktrace.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5617
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5618
    "Created: / 10-06-2012 / 21:27:53 / cg"
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5619
!
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5620
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5621
showingDenseWalkback
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5622
    ^ verboseBacktrace == false.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5623
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5624
    "Created: / 17.11.2001 / 20:13:53 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5625
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5626
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5627
showingDenseWalkback:aBoolean
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5628
    verboseBacktrace := aBoolean not.
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5629
    self redisplayBacktrace.
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5630
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5631
    "Created: / 27-07-2012 / 14:58:00 / cg"
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5632
!
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5633
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5634
showingSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5635
    ^ hideSupportCode == false.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5636
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5637
    "Created: / 10-06-2012 / 21:28:05 / cg"
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5638
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5639
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5640
showingSupportCode:aBoolean
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5641
    hideSupportCode := aBoolean not.
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5642
    self redisplayBacktrace.
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5643
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5644
    "Created: / 27-07-2012 / 14:58:00 / cg"
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5645
!
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  5646
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5647
showingVerboseWalkback
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5648
    ^ verboseBacktrace == true.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5649
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5650
    "Created: / 17.11.2001 / 20:13:46 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5651
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5652
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5653
sizeChanged:how
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5654
    super sizeChanged:how.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5655
    LastExtent := self extent.
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5656
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5657
    "Created: / 10-11-2010 / 09:08:41 / cg"
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5658
!
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5659
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5660
skip
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5661
    "skip for cursor line in selected method"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5662
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5663
    stepHow := #skip.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5664
    self doStep:codeView cursorLine.
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  5665
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5666
    "Modified: 3.3.1997 / 20:56:23 / cg"
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5667
!
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5668
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5669
skipForReturn
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5670
    "skip until the selected context is left."
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5671
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5672
    stepHow := #skipReturn.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5673
    self doStep:#return.
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5674
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5675
    "Modified: 3.3.1997 / 20:56:32 / cg"
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5676
!
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5677
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5678
skipUntilEntering
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5679
    "skip until some particular method is invoked."
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5680
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5681
    |selector|
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5682
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5683
    selector := Dialog
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5684
                request:'Skip until entering what (matchpattern):'
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  5685
                initialAnswer:self goodSkipUntilSelector.
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5686
    selector size == 0 ifTrue:[^ self].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5687
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5688
    stepUntilEntering := selector asSymbol.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5689
    stepHow := #send.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5690
    self doStep:-1.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5691
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  5692
    "Modified: 3.3.1997 / 20:56:32 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5693
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5694
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5695
toggleShowSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5696
    hideSupportCode ifTrue:[
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5697
        self showSupportCode
11645
4f39a925956d changed: #toggleShowSupportCode
Stefan Vogel <sv@exept.de>
parents: 11636
diff changeset
  5698
    ] ifFalse:[
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5699
        self hideSupportCode
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5700
    ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5701
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5702
    "Modified: / 17-11-2001 / 20:07:45 / cg"
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  5703
    "Created: / 10-06-2012 / 21:28:17 / cg"
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5704
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  5705
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5706
toggleVerboseWalkback
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5707
    self showingDenseWalkback:(self showingDenseWalkback not)
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5708
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  5709
    "Modified: / 27-07-2012 / 15:00:15 / cg"
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5710
!
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5711
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5712
updateMenuItems
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5713
    "enable/disable some menu items, depending on the current selected context"
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5714
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5715
    |m mthd cls mCls rCls|
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5716
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5717
    m := contextView middleButtonMenu.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5718
    m notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5719
        m disable:#removeBreakpoint.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5720
        m disable:#addBreakpoint.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5721
        canShowMore ifFalse:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5722
            m disable:#showMore
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5723
        ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5724
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5725
        selectedContext notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5726
            m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5727
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5728
            mthd := selectedContext method.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5729
            mthd notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5730
                cls := mCls := mthd containingClass.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5731
                mthd isBreakpointed ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5732
                    m enable:#removeBreakpoint.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5733
                ] ifFalse:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5734
                    m enable:#addBreakpoint.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5735
                ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5736
            ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5737
            (selectedContext isBlockContext and:[selectedContext home isNil]) ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5738
                "/ a cheap block's context
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5739
            ] ifFalse:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5740
                rCls := selectedContext receiver class.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5741
                cls isNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5742
                    cls := rCls
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5743
                ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5744
            ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5745
            cls notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5746
                m enableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5747
                rCls == mCls ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5748
                    m disable:#browseReceiversClass
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5749
                ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5750
                mCls isNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5751
                    m disable:#browseImplementingClass
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5752
                ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5753
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5754
            ] ifFalse:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5755
                m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5756
            ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5757
            mthd notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5758
                m enableAll:#(browseImplementingClass).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5759
            ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5760
            selectedContext isCheapBlockContext ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5761
                m disableAll:#(browseReceiversClass).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5762
            ].
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5763
            selectedContext receiver isBlock ifTrue:[
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5764
                m enableAll:#(browseBlocksHome).
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5765
            ] ifFalse:[
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5766
                m disableAll:#(browseBlocksHome).
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5767
            ].
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5768
        ] ifFalse:[
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5769
            m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy 
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  5770
                           browseBlocksHome browseFullClassProtocol).
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5771
        ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5772
    ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5773
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  5774
    "Modified: / 19-07-2012 / 11:53:30 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5775
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5776
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5777
!DebugView methodsFor:'menu & button actions-breakpoints'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5778
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5779
addBreakpoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5780
    "add a breakpoint on the selected contexts method - if any"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5781
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5782
    |implementorClass method|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5783
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5784
    selectedContext isNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5785
        ^ self showError:'** select a context first **'
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5786
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5787
    (MessageTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5788
        ^ self
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5789
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5790
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5791
    implementorClass := selectedContext methodClass.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5792
    implementorClass notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5793
        method := implementorClass compiledMethodAt:selectedContext selector.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5794
        (method notNil and:[method isBreakpointed not]) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5795
            method setBreakPoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5796
        ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5797
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5798
    contextView middleButtonMenu disable:#addBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5799
    contextView middleButtonMenu enable:#removeBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5800
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5801
    "Modified: / 13.1.1998 / 00:24:47 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5802
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5803
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5804
allowBreakPointsInDebugger
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5805
    ^ ignoreBreakpoints not
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5806
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5807
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5808
allowBreakPointsInDebugger:aBoolean
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5809
    ignoreBreakpoints := aBoolean not.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5810
    self initializeMiddleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5811
    self initializeContextViewsMiddleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5812
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5813
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5814
doIgnoreBreakpoints
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5815
    self allowBreakPointsInDebugger:false
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5816
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5817
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5818
doNotIgnoreBreakpoints
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5819
    self allowBreakPointsInDebugger:true
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5820
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5821
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5822
ignoreAllHaltsForever
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5823
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5824
        addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5825
        orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5826
        forAll:true.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5827
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5828
    "Created: / 08-05-2011 / 10:19:56 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5829
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5830
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5831
ignoreAllHaltsUntilShiftKeyIsPressed
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5832
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5833
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5834
        orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5835
        forAll:true.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5836
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5837
    "Created: / 27-01-2012 / 11:32:14 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5838
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5839
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5840
ignoreBreakpointsWithThisParameterForever
11370
4aed54a6a78a changed:
Claus Gittinger <cg@exept.de>
parents: 11367
diff changeset
  5841
    Object disableBreakPoint:breakPointParameter.
4aed54a6a78a changed:
Claus Gittinger <cg@exept.de>
parents: 11367
diff changeset
  5842
    "/ self addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false forAll:false.
4aed54a6a78a changed:
Claus Gittinger <cg@exept.de>
parents: 11367
diff changeset
  5843
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5844
    "Created: / 06-03-2012 / 12:35:48 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5845
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5846
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5847
ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5848
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5849
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5850
        orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5851
        forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5852
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5853
    "Created: / 06-03-2012 / 12:35:22 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5854
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5855
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5856
ignoreHaltForCurrentProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5857
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5858
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5859
        orThisReceiverClass:false orCurrentProcess:true 
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  5860
        forAll:false.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5861
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5862
    "Created: / 27-01-2012 / 11:32:14 / cg"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5863
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5864
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5865
ignoreHaltForThisReceiverClass
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5866
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5867
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5868
        orThisReceiverClass:true orCurrentProcess:false 
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  5869
        forAll:false.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5870
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5871
    "Created: / 27-01-2012 / 11:32:14 / cg"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5872
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5873
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5874
ignoreHaltForever
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5875
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5876
        addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5877
        orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5878
        forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5879
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5880
    "Modified: / 27-01-2012 / 11:31:37 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5881
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5882
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5883
ignoreHaltUntilShiftKeyIsPressed
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5884
    self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5885
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5886
        orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5887
        forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5888
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5889
    "Created: / 27-01-2012 / 11:36:54 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5890
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5891
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5892
openBreakPointBrowser
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5893
    Tools::BreakpointBrowser open
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5894
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5895
    "Created: / 27-10-2010 / 12:52:49 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5896
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5897
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5898
openIgnoreAllHaltsUntilTimeElapsedDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5899
    |answer dT|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5900
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5901
    [
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5902
        answer := Dialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5903
                    request:(resources string:'How long should all halts/breakpoints be ignored [smh] ?')
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5904
                    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5905
        answer isEmptyOrNil ifTrue:[^ self].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5906
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5907
        dT := TimeDuration readFrom:answer onError:[ nil ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5908
        dT notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5909
            LastIgnoreHaltDuration := dT.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5910
            self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5911
                addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5912
                orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5913
                forAll:true.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5914
            ^ self.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5915
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5916
    ] loop
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5917
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5918
    "Created: / 08-05-2011 / 10:19:20 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5919
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5920
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5921
openIgnoreBreakpointsWithThisParameterNTimesDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5922
    |answer n|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5923
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5924
    [
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5925
        answer := Dialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5926
                    request:(resources 
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5927
                                string:'How often should breakpoints with parameter "%1" be ignored ?'
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5928
                                with:breakPointParameter)
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5929
                    initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5930
        answer isEmptyOrNil ifTrue:[^ self].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5931
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5932
        n := Integer readFrom:answer onError:nil.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5933
        n notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5934
            LastIgnoreHaltNTimes := n.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5935
            self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5936
                addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5937
                orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5938
                forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5939
            ^ self.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5940
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5941
    ] loop.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5942
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5943
    "Modified: / 27-01-2012 / 11:31:44 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5944
    "Created: / 06-03-2012 / 12:28:51 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5945
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5946
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5947
openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5948
    |answer dT|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5949
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5950
    [
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5951
        answer := Dialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5952
                    request:(resources 
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5953
                                string:'How long should breakpoints with parameter "%1" be ignored (s/m/h) ?'
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5954
                                with:breakPointParameter)
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5955
                    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5956
        answer isEmptyOrNil ifTrue:[^ self].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5957
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5958
        dT := TimeDuration readFrom:answer onError:[ nil ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5959
        dT notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5960
            LastIgnoreHaltDuration := dT.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5961
            self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5962
                addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5963
                orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5964
                forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5965
            ^ self.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5966
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5967
    ] loop
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5968
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5969
    "Created: / 06-03-2012 / 12:03:36 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5970
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5971
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5972
openIgnoreHaltNTimesDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5973
    |answer n|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5974
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5975
    [
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5976
        answer := Dialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5977
                    request:(resources string:'How often should this halt be ignored ?')
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5978
                    initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5979
        answer isEmptyOrNil ifTrue:[^ self].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5980
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5981
        n := Integer readFrom:answer onError:nil.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5982
        n notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5983
            LastIgnoreHaltNTimes := n.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5984
            self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5985
                addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5986
                orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  5987
                forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5988
            ^ self.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5989
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5990
    ] loop.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5991
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5992
    "Modified: / 27-01-2012 / 11:31:44 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5993
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5994
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5995
openIgnoreHaltUntilTimeElapsedDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5996
    |answer dT|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5997
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5998
    [
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  5999
        answer := Dialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6000
                    request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?')
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6001
                    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6002
        answer isEmptyOrNil ifTrue:[^ self].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6003
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6004
        dT := TimeDuration readFrom:answer onError:[ nil ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6005
        dT notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6006
            LastIgnoreHaltDuration := dT.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6007
            self 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6008
                addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6009
                orThisReceiverClass:false orCurrentProcess:false 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6010
                forAll:false.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6011
            ^ self.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6012
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6013
    ] loop
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6014
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6015
    "Modified: / 27-01-2012 / 11:31:47 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6016
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6017
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6018
removeAllBreakpoints
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6019
    "remove all trace & breakpoints - if any"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6020
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6021
    (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6022
        self withExecuteCursorDo:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6023
            MessageTracer unwrapAllMethods
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6024
        ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6025
    ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6026
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6027
    "Modified: / 21.5.1998 / 01:44:43 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6028
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6029
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6030
removeBreakpoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6031
    "remove breakpoint on the selected contexts method - if any"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6032
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6033
    |implementorClass method|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6034
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6035
    selectedContext isNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6036
        ^ self showError:'** select a context first **'
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6037
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6038
    (MessageTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6039
        ^ self
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6040
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6041
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6042
    implementorClass := selectedContext methodClass.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6043
    implementorClass notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6044
        method := implementorClass compiledMethodAt:selectedContext selector.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6045
        (method notNil and:[method isBreakpointed]) ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6046
            method clearBreakPoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6047
        ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6048
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6049
    contextView middleButtonMenu disable:#removeBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6050
    contextView middleButtonMenu enable:#addBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6051
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6052
    "Modified: / 13.1.1998 / 00:24:47 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6053
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6054
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6055
stopIgnoringHalts
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6056
    self class stopIgnoringHalts
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6057
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6058
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6059
!DebugView methodsFor:'private'!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6060
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  6061
abortAllIsHandled
9750
1b2ef761d2d0 changed: #abortAllIsHandled
Claus Gittinger <cg@exept.de>
parents: 9688
diff changeset
  6062
    ^ AbortAllOperationWantedQuery query
1b2ef761d2d0 changed: #abortAllIsHandled
Claus Gittinger <cg@exept.de>
parents: 9688
diff changeset
  6063
1b2ef761d2d0 changed: #abortAllIsHandled
Claus Gittinger <cg@exept.de>
parents: 9688
diff changeset
  6064
    "Modified: / 09-02-2011 / 13:53:13 / cg"
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  6065
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  6066
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6067
busy
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6068
    ^ busy
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6069
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6070
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6071
exclusive:aBoolean
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6072
    exclusive := aBoolean
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6073
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6074
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6075
explainSelection
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6076
    |interval crsrPos|
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6077
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6078
    interval := self selectedInterval.
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6079
    interval isEmpty ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6080
        crsrPos := codeView characterPositionOfCursor.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6081
        codeView characterUnderCursor isSeparator ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6082
            crsrPos := (crsrPos - 1) max:1
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6083
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6084
        interval := crsrPos to:crsrPos.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6085
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6086
    self
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6087
        withNodeValueAtInterval:interval
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6088
        do:[:value :description |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6089
            self showValue:value
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6090
        ].
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6091
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6092
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6093
findNodeForInterval:interval
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6094
    |source|
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6095
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6096
    interval isEmpty ifTrue: [^ nil].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6097
8487
ddf59247960c slow runArray (text) operations
Claus Gittinger <cg@exept.de>
parents: 8432
diff changeset
  6098
    source := codeView contentsAsString string.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6099
"/    source := currentMethod notNil
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6100
"/                ifTrue:[ currentMethod source ]
8396
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  6101
"/                ifFalse:[ codeView contents asString ].
8257
106d3fecbca0 findNodeForInterval: care for nonexisting source
Claus Gittinger <cg@exept.de>
parents: 8225
diff changeset
  6102
    source isNil ifTrue:[^ nil].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6103
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6104
    ^ DoWhatIMeanSupport findNodeForInterval:interval in:(source string) allowErrors:true.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6105
"/    ^ DoWhatIMeanSupport findNodeForInterval:interval in:(source string).
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6106
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6107
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6108
findNodeIn:tree forInterval:interval
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6109
    <resource: #obsolete>
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6110
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6111
    |node|
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6112
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6113
self obsoleteMethodWarning.
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6114
    node := nil.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6115
    tree nodesDo:[:each |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6116
        (each intersectsInterval:interval) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6117
            (node isNil or:[node == each parent]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6118
                node := each
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6119
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6120
                (node parent notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6121
                    and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6122
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6123
        ]
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6124
    ].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6125
    ^ node
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6126
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6127
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6128
goodSkipUntilSelector
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6129
    |current|
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6130
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6131
    lastStepUntilEntering notNil ifTrue:[^ lastStepUntilEntering].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6132
    selectedContext isNil ifTrue:[^ nil].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6133
    current := selectedContext selector.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6134
    current isNil ifTrue:[^ nil].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6135
    ('change:*' match:current) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6136
        ^ 'update:*'
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6137
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6138
    ^ nil
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6139
!
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6140
8179
79462318090d ignoring for some time;
Claus Gittinger <cg@exept.de>
parents: 8171
diff changeset
  6141
haltSelectors
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6142
    ^ #( #'halt' #'halt:' #'breakPoint:' #'breakPoint:info:' #'break').
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6143
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6144
    "Modified (format): / 27-01-2012 / 11:10:00 / cg"
8179
79462318090d ignoring for some time;
Claus Gittinger <cg@exept.de>
parents: 8171
diff changeset
  6145
!
79462318090d ignoring for some time;
Claus Gittinger <cg@exept.de>
parents: 8171
diff changeset
  6146
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6147
inspectedProcess
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6148
    ^ inspectedProcess
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6149
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6150
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6151
interruptProcessWith:aBlock
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6152
    "let inspected process do something, then update the context list"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6153
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6154
    inspectedProcess isDead ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6155
        self showTerminated.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6156
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6157
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6158
    inspectedProcess interruptWith:aBlock.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6159
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6160
     give the process a chance to run, then update
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6161
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6162
    (Delay forSeconds:0.2) wait.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6163
    self setContext:(inspectedProcess suspendedContext).
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6164
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6165
2317
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6166
mayProceed:aBoolean
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6167
    mayProceed := aBoolean
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6168
!
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6169
8194
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6170
openHTMLDocument: anHTMLFilename
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6171
    "open a HTMLDocumentView on anHTMLFilename"
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6172
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6173
    HTMLDocumentView openFullOnDocumentationFile: anHTMLFilename
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6174
!
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6175
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6176
processPerform:aMessage
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6177
    "do something, then update the context list"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6178
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6179
    inspectedProcess isDead ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6180
        self showTerminated.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6181
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6182
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6183
    inspectedProcess perform:aMessage.
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  6184
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6185
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6186
     give the process a chance to run, then update
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6187
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6188
    (Delay forSeconds:0.2) wait.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6189
    self setContext:(inspectedProcess suspendedContext).
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6190
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6191
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6192
redisplayBacktrace
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6193
    "force redisplay of the walkBack list; invoked when the
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6194
     verbose-flag setting is changed"
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6195
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6196
    |oldSelection oldContext con idx|
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6197
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6198
    contextArray notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6199
        self withExecuteCursorDo:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6200
            oldSelection := contextView selection.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6201
            oldSelection notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6202
                oldContext := contextArray at:oldSelection ifAbsent:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6203
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6204
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6205
            con := firstContext.
950
f1df338e6a78 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 949
diff changeset
  6206
"/            con := contextArray at:1.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6207
            "/ force redeisplay, even if same by changing the first entry
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6208
            contextArray size > 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6209
                contextArray at:1 put:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6210
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6211
            self setContext:con.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6212
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6213
            oldContext isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6214
                idx := oldSelection
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6215
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6216
                idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6217
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6218
            contextView setSelection:idx.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6219
            idx notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6220
                self showSelection:idx
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6221
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6222
        ]
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6223
    ]
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6224
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6225
    "Created: / 10.1.1997 / 21:36:46 / cg"
1661
ba0ed1c5e137 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1646
diff changeset
  6226
    "Modified: / 21.5.1998 / 01:47:07 / cg"
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6227
!
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6228
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6229
selectedInterval
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6230
    ^ codeView selectedInterval
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6231
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6232
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6233
showError:message
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6234
    codeView contents:(resources string:message).
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6235
    shown ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6236
        exclusive ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6237
            "/ consider this a kludge:
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6238
            "/ if exclusive, cannot use flash, since it suspends
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6239
            "/ (but we cannot suspend here ...)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6240
            codeView redrawInverted. device flush.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6241
            OperatingSystem millisecondDelay:200.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6242
            codeView redraw
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6243
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6244
            codeView flash
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6245
        ]
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6246
    ]
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6247
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6248
    "Modified: / 18.11.2001 / 00:01:13 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6249
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6250
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6251
showTerminated
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6252
    self showError:'** the process has terminated **'
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6253
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6254
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6255
showValue:aValue
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6256
    "/ TODO: show value in info field
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6257
    "/ Transcript showCR:aValue printString
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6258
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6259
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6260
stepping
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6261
    ^ stepping
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6262
!
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6263
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6264
unstep
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6265
    stepping := false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6266
    bigStep := false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6267
    steppedContext := wrapperContext := nil.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6268
    exitAction := nil
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6269
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6270
    "Modified: 22.10.1996 / 11:59:57 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6271
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6272
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6273
updateButtonsAndMenuItemsForContext:aContext
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6274
    |m|
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6275
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6276
    m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6277
    m notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6278
        self updateMenuItems.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6279
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6280
        (inspecting or:[AbortOperationRequest isHandledIn:aContext]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6281
            abortButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6282
            m enable:#doAbort.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6283
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6284
            abortButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6285
            m disable:#doAbort.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6286
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6287
        exclusive ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6288
            terminateButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6289
            m disable:#doTerminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6290
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6291
            terminateButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6292
            m enable:#doTerminate.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6293
        ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6294
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6295
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6296
    mayProceed == false ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6297
        continueButton disable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6298
        m notNil ifTrue:[m disable:#doContinue].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6299
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6300
        continueButton enable.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6301
        m notNil ifTrue:[m enable:#doContinue]
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6302
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6303
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  6304
    isStoppedInModalDialog ifTrue:[
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  6305
        gotoDialogOpenerButton enable.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  6306
        gotoDialogOpenerButton beVisible.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  6307
    ] ifFalse:[
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  6308
        gotoDialogOpenerButton beInvisible.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  6309
    ].
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  6310
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6311
    "Created: / 06-07-2011 / 12:24:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6312
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  6313
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6314
updateContext
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6315
    |oldContext idx|
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6316
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6317
    inspectedProcess state == #dead ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6318
        self showTerminated.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6319
        ^ self
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6320
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6321
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6322
    oldContext := selectedContext.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6323
    [
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6324
        (self setContextSkippingInterruptContexts:inspectedProcess suspendedContext) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6325
            oldContext notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6326
                contextArray notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6327
                    idx := contextArray identityIndexOf:oldContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6328
                    idx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6329
                        self showSelection:idx
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6330
                    ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6331
                        codeView contents:('** context returned **')
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6332
                    ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6333
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6334
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6335
        ].
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6336
    ] valueUninterruptably.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6337
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6338
    "Modified: 20.10.1996 / 18:11:24 / cg"
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6339
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6340
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6341
withNodeValueAtInterval:interval do:aBlock
9294
e19553d7e864 changed: #withNodeValueAtInterval:do:
Stefan Vogel <sv@exept.de>
parents: 9292
diff changeset
  6342
    |node definingNode nm nmBold varIdx parentNode receiver con receiversNonMetaClass|
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6343
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6344
"/interval printCR.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6345
    Error
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6346
        handle:[:ex | ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6347
        do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6348
            [
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6349
                node := self findNodeForInterval:interval
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6350
            ] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6351
        ].
9314
e58b9abd145a comment/format in: #withNodeValueAtInterval:do:
Claus Gittinger <cg@exept.de>
parents: 9308
diff changeset
  6352
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6353
    node isNil ifTrue:[ ^ self ].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6354
    node isVariable ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6355
        "/ Transcript showCR:node.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6356
        ^ self
8592
6a544f86c279 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8580
diff changeset
  6357
    ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6358
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6359
    nm := node name.
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6360
    nmBold := nm allBold.
8600
7b68bafada1b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8595
diff changeset
  6361
    actualContext isNil ifTrue:[^ self ].
8636
fc9c77c184a8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8626
diff changeset
  6362
    actualContext methodHome isNil ifTrue:[^ self ].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6363
    receiver := actualContext methodHome receiver.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6364
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6365
    (nm = 'self') ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6366
        aBlock value:receiver value:'receiver' allBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6367
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6368
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6369
    (nm = 'super') ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6370
        aBlock value:receiver value:'receiver' allBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6371
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6372
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6373
    (nm = 'thisContext') ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6374
        aBlock value:actualContext value:'context' allBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6375
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6376
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6377
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6378
    definingNode := node whoDefines:nm.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6379
    definingNode isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6380
        (receiver class allInstVarNames includes:nm) ifTrue:[
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6381
"/aBlock value:'xIII' value:'instVar'.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6382
            receiver class isMetaclass ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6383
                aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6384
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6385
                aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6386
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6387
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6388
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6389
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6390
        receiversNonMetaClass := receiver class theNonMetaclass.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6391
        (receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6392
            aBlock value:'' value:'private class ',nmBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6393
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6394
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6395
        (receiversNonMetaClass classVarNames includes:nm) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6396
            aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6397
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6398
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6399
        receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6400
            |pool|
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6401
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6402
            pool := Smalltalk at:eachPoolName.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6403
            pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6404
            (pool classVarNames includes:nm) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6405
                aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6406
                ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6407
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6408
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6409
        (Smalltalk includesKey:nm asSymbol) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6410
            (Smalltalk at:nm asSymbol) isClass ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6411
                aBlock value:'class: ',nmBold value:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6412
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6413
                aBlock value:(Smalltalk at:nm asSymbol) value:'global ',nmBold.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6414
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6415
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6416
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6417
        aBlock value:'' value:'unknown'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6418
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6419
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6420
"/definingNode printCR.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6421
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6422
    definingNode isMethod ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6423
        varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6424
        varIdx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6425
            Error
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6426
                handle:[:ex | ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6427
                do:[ aBlock value:(actualContext methodHome argAt:varIdx) value:'methodArg ',nmBold ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6428
            ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6429
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6430
        varIdx := definingNode temporaries findFirst:[:var | var name = nm].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6431
        varIdx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6432
            actualContext methodHome numVars >= varIdx ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6433
                Error
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6434
                    handle:[:ex | ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6435
                    do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6436
                ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6437
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6438
        ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6439
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6440
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6441
    definingNode isBlock ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6442
        varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6443
        (definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6444
            varIdx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6445
                "/ am I in this block ?
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6446
                (actualContext lineNumber notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6447
                and:[ definingNode lastLineNumber notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6448
                and:[ (actualContext lineNumber
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6449
                            between:definingNode firstLineNumber
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6450
                            and:definingNode lastLineNumber)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6451
                and:[ varIdx <= actualContext numArgs ] ]])
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6452
                ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6453
                    aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6454
                    ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6455
                ].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6456
aBlock value:nmBold , ' is not in scope of selected context' value:nil.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6457
                ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6458
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6459
        ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6460
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6461
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6462
    parentNode := definingNode parent.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6463
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6464
    [parentNode notNil] whileTrue:[
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6465
"/'isMethod ' print. parentNode isMethod printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6466
        parentNode isMethod ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6467
            varIdx := parentNode temporaries findFirst:[:var | var name = nm].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6468
            varIdx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6469
                actualContext methodHome numVars >= varIdx ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6470
                    Error
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6471
                        handle:[:ex | ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6472
                        do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6473
                    ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6474
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6475
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6476
        ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6477
"/'isBlock ' print. parentNode isBlock printCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6478
        parentNode isBlock ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6479
            "/ we dont have any information on the inlineability
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6480
            "/ of this block here (RBParser does not know what
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6481
            "/ the compiler does.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6482
            "/ therefore, it is questionable if we can use the
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6483
            "/ contexts home context here.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6484
            "/ am I in this block ?
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6485
            con := actualContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6486
            [con notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6487
            and:[ parentNode lastLineNumber notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6488
            and:[ con lineNumber notNil
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6489
            and:[ con lineNumber
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6490
                    between:parentNode firstLineNumber
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6491
                    and:parentNode lastLineNumber ]]]] whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6492
                con := con sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6493
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6494
            con notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6495
                varIdx := parentNode arguments findFirst:[:arg | arg name = nm].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6496
                varIdx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6497
                    Error
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6498
                        handle:[:ex | ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6499
                        do:[ aBlock value:(con argAt:varIdx) value:'blockArg ',nmBold ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6500
                    ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6501
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6502
                varIdx := parentNode body temporaries findFirst:[:var | var name = nm].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6503
                varIdx ~~ 0 ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6504
                    Error
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6505
                        handle:[:ex | ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6506
                        do:[ aBlock value:(con varAt:varIdx) value:'blockVar ',nmBold ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6507
                    ^ self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6508
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6509
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6510
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6511
        parentNode := parentNode parent.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6512
    ].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6513
    aBlock value:nmBold , ' is not in scope of selected context' value:nil.
9446
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  6514
9688
805ea34ba3ef changed: #withNodeValueAtInterval:do:
Claus Gittinger <cg@exept.de>
parents: 9662
diff changeset
  6515
    "Modified: / 18-01-2011 / 17:57:34 / cg"
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6516
! !
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6517
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6518
!DebugView methodsFor:'private queries'!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6519
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6520
canBrowseClassHierarchy
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6521
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6522
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6523
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6524
    ^ m notNil and:[m isEnabled:#browseClassHierarchy]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6525
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6526
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6527
canBrowseFullClassProtocol
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6528
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6529
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6530
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6531
    ^ m notNil and:[m isEnabled:#browseFullClassProtocol]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6532
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6533
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6534
canBrowseImplementingClass
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6535
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6536
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6537
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6538
    ^ m notNil and:[m isEnabled:#browseImplementingClass]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6539
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6540
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6541
canBrowseProcessesApplication
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6542
    |p|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6543
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6544
    p := inspectedProcess ? Processor activeProcess.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6545
    p isNil ifTrue:[^ false].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6546
    ^ p isGUIProcess
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6547
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6548
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6549
canBrowseReceiversClass
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6550
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6551
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6552
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6553
    ^ m notNil and:[m isEnabled:#browseReceiversClass]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6554
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6555
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6556
canCloseAllDebuggers
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6557
    self class allInstancesDo:[:debugger | 
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6558
        debugger ~~ self ifTrue:[
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6559
            debugger busy ifTrue:[^ true].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6560
        ]
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6561
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6562
    ^ false
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6563
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6564
    "Created: / 23-03-2012 / 12:40:18 / cg"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6565
!
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  6566
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6567
canDefineMethod
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6568
    ^ defineButton isVisible
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6569
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6570
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6571
canInspectWidgetHierarchy
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6572
    |rcvr|
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6573
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6574
    ^ selectedContext notNil
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6575
    and:[ (rcvr := selectedContext receiver) isView
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6576
          or:[ rcvr isKindOf: ApplicationModel ]]
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6577
!
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6578
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6579
canRestart
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6580
    ^ restartButton isEnabled
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6581
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6582
    "Modified: / 17.11.2001 / 19:59:49 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6583
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6584
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6585
canReturn
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6586
    ^ returnButton isEnabled
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6587
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6588
    "Modified: / 17.11.2001 / 19:59:18 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6589
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6590
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6591
canSendEmail
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6592
    ^ SendMailTool notNil
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6593
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6594
    "Created: / 15-10-2010 / 11:51:23 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6595
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6596
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6597
canShowMore
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6598
    ^ canShowMore
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6599
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6600
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6601
hasContextSelected
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6602
    ^ contextView hasSelection
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6603
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6604
    "Created: / 17.11.2001 / 19:57:03 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6605
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6606
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6607
hasHaltsToIgnore
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6608
    ^ IgnoredHalts notEmptyOrNil
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6609
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6610
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6611
isAborting
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6612
    ^ exitAction == #abort
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6613
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6614
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6615
isStoppedAtBreakPointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6616
    ^ isStoppedAtBreakPointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6617
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6618
    "Created: / 06-03-2012 / 12:16:56 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6619
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6620
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6621
isStoppedAtHaltOrBreakPoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6622
    ^ isStoppedAtHaltOrBreakPoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6623
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6624
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6625
isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6626
    ^ isStoppedAtHaltOrBreakPoint or:[self selectedContextIsWrapped]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6627
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6628
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6629
selectedContextIsWrapped
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6630
    |con mthd|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6631
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6632
    (con := self selectedContext) notNil ifTrue:[
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6633
        mthd := con method.
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6634
        ^ mthd notNil and:[mthd isWrapped]
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6635
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6636
    ^ false.
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6637
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6638
    "Modified: / 19-07-2012 / 11:36:28 / cg"
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6639
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6640
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6641
setOfHiddenCallingSelectors
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6642
    ^ setOfHiddenCallingSelectors ? #( #'doIt' #'doIt:' )
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6643
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6644
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6645
setOfHiddenCallingSelectors:aCollectionOfSymbols
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6646
    setOfHiddenCallingSelectors := aCollectionOfSymbols
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6647
! !
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6648
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6649
!DebugView methodsFor:'private-breakpoints'!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6650
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6651
addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6652
                                  orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6653
                                  forAll:aBoolean
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6654
    |haltingContext haltingMethod lineNrOfHalt receiverClassOrNil processOrNil|
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6655
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6656
    aBoolean ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6657
        haltingMethod := #all
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6658
    ] ifFalse:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6659
        haltingContext := self findHaltingContext.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6660
        haltingContext isNil ifTrue:[ 
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6661
            Transcript showCR:'no halting context found'. 
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6662
            ^ self 
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6663
        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6664
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6665
        haltingMethod := haltingContext method.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6666
        lineNrOfHalt := haltingContext lineNumber.
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  6667
        (lineNrOfHalt isNil or:[lineNrOfHalt <= 0]) ifTrue:[ 
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  6668
            Transcript showCR:'no halt lineNr found'. 
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  6669
            ^ self 
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  6670
        ].
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6671
        forThisReceiverClass ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6672
            receiverClassOrNil := haltingContext receiver class
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6673
        ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6674
        forCurrentProcess ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6675
            processOrNil := Processor activeProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6676
        ].
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6677
    ].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6678
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6679
    self class
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6680
        ignoreHaltIn:haltingMethod at:lineNrOfHalt
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6681
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6682
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6683
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6684
    "Created: / 27-01-2012 / 11:31:12 / cg"
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6685
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6686
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6687
canAddBreakpoint
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6688
    |m|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6689
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6690
    m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6691
    ^ m notNil and:[m isEnabled:#addBreakpoint]
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6692
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6693
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6694
canRemoveBreakpoint
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6695
    |m|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6696
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6697
    m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6698
    ^ m notNil and:[m isEnabled:#removeBreakpoint]
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6699
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6700
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6701
findHaltingContext
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6702
    |haltSelectors|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6703
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6704
    haltSelectors := self haltSelectors.
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6705
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6706
    contextArray keysAndValuesDo:[:idx :con |
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6707
        |sel con2 sel2 method|
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6708
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6709
        sel := con selector.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6710
        (haltSelectors includes:sel) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6711
            (method := con method) notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6712
                method mclass == Object ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6713
                    con2 := contextArray at:idx+1.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6714
                    sel2 := con2 selector.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6715
                    (haltSelectors includes:sel2) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6716
                        con2 method mclass == Object ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6717
                            ^ contextArray at:idx+2.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6718
                        ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6719
                    ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6720
                    ^ contextArray at:idx+1
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6721
                ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6722
                method mclass == Breakpoint ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6723
(contextArray at:idx+1) infoPrintCR.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6724
                    ^ contextArray at:idx+1
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6725
                ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6726
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6727
        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6728
        con method isWrapped ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6729
            ^ con
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6730
        ].
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6731
    ].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6732
    ^ nil
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6733
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6734
    "Modified: / 27-01-2012 / 11:06:02 / cg"
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6735
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6736
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6737
ignoreBreakpoints
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6738
    ^ ignoreBreakpoints
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6739
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6740
    "Created: / 17.11.2001 / 18:20:16 / cg"
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6741
! !
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  6742
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6743
!DebugView methodsFor:'private-cache handling'!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6744
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6745
cacheMyself
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6746
    "remember myself for next debug session"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6747
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6748
    "caching the last debugger will make the next debugger appear
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6749
     faster, since no resources have to be allocated in the display.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6750
     We have to be careful to release all refs to the debuggee, though.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6751
     Otherwise, the GC will not be able to release it."
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6752
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6753
    windowGroup notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6754
        windowGroup setProcess:nil.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6755
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6756
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6757
    self releaseDebuggee.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6758
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6759
    cachable ~~ true ifTrue:[^ self].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6760
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6761
    "/
13764
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  6762
    "/ only cache if I am on the Display (i.e. the default screen)
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6763
    "/
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6764
    device == Display ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6765
        exclusive ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6766
            CachedExclusive := self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6767
        ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6768
            CachedDebugger := self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6769
        ].
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6770
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6771
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6772
    ObjectMemory stepInterruptHandler == self ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6773
        ObjectMemory stepInterruptHandler:nil
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6774
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6775
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6776
    "Modified: 10.7.1997 / 15:50:46 / stefan"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6777
    "Modified: 31.7.1997 / 21:20:14 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6778
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6779
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6780
isCached
13226
255f2f3a04f5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13218
diff changeset
  6781
    "tell whether we are a cached debugger"
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6782
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6783
    CachedExclusive == self ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6784
        ^ true.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6785
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6786
    CachedDebugger == self ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6787
        ^ true.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6788
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6789
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6790
    ^ false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6791
13226
255f2f3a04f5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13218
diff changeset
  6792
    "Created: / 10-07-1997 / 15:22:43 / stefan"
255f2f3a04f5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13218
diff changeset
  6793
    "Modified (comment): / 27-07-2013 / 15:38:47 / cg"
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6794
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6795
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6796
uncacheMyself
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6797
    "do not remember myself any longer for next debug session"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6798
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6799
    cachable := false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6800
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6801
    CachedExclusive == self ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6802
        CachedExclusive := nil.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6803
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6804
    CachedDebugger == self ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6805
        CachedDebugger := nil.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6806
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6807
    OpenDebuggers notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6808
        OpenDebuggers remove:self ifAbsent:[].
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6809
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6810
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6811
    "Modified: 31.7.1997 / 21:20:11 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6812
! !
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6813
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6814
!DebugView methodsFor:'private-code view'!
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6815
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6816
codeAspect
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  6817
    ^ SyntaxHighlighter codeAspectMethod
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6818
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6819
    "Created: / 27-07-2011 / 13:07:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  6820
    "Modified: / 27-07-2012 / 22:20:27 / cg"
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6821
! !
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  6822
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6823
!DebugView methodsFor:'private-context handling'!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6824
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6825
contextListEntryFor:aContext
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6826
    ^ Error
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6827
        handle:[:ex | '???' ]
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6828
        do:[
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6829
            |s|
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6830
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6831
            aContext selector == #doIt ifTrue:[
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6832
                aContext receiver isNil ifTrue:[
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6833
                    s := 'doIt' allBold
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6834
                ]
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6835
            ].
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6836
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6837
            s := Text streamContents:[:s | aContext printOn:s ].
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6838
            RememberedCallChain notNil ifTrue:[
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6839
                (RememberedCallChain includesIdentical:aContext) ifTrue:[
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6840
                    s := s colorizeAllWith:(Color red).
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6841
                ].
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6842
            ].
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6843
            s
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6844
        ].
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6845
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6846
    "Created: / 21-05-2007 / 13:30:24 / cg"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6847
!
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6848
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6849
is:aHomeContext inCallingChainOf:aContext
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6850
    |con|
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6851
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6852
    con := aContext.
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6853
    [con notNil and:[con ~~ aHomeContext]] whileTrue:[
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6854
        con := con sender
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6855
    ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6856
    ^ con notNil
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6857
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6858
    "Created: / 10-06-2012 / 18:46:29 / cg"
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6859
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6860
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6861
isEnteredDueToBreakpointOrHalt
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6862
    "see if we came here due to a step interrupt"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6863
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6864
    |c cReceiver|
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6865
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6866
    "/ look for a breakpoint-wrapper's context
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6867
    c := thisContext findNextContextWithSelector:#'raiseRequestWith:errorString:in:' or:nil or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6868
    c isNil ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6869
        ^ true.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6870
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6871
    cReceiver := c receiver.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6872
    ^ cReceiver == BreakPointInterrupt
13293
8a52b9f19f8b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13229
diff changeset
  6873
8a52b9f19f8b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13229
diff changeset
  6874
    "Modified: / 01-08-2013 / 23:34:01 / cg"
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6875
!
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6876
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6877
isHaltToBeIgnored
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6878
    "see if the current halt (if any) is in the ignore-list"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6879
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  6880
    |c cReceiver sender haltingMethod lineNrInHaltingMethod breakpointParameter
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  6881
     sReceiver|
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6882
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6883
    "/ should a halt be ignored ?
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6884
    IgnoredHalts isNil ifTrue:[^ false].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6885
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  6886
    "/ look for a method breakpoint-wrapper's context
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6887
    c := thisContext findNextContextWithSelector:#doRaise or:nil or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6888
    c notNil ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6889
        ((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6890
            c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6891
            cReceiver := c receiver.    
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6892
        ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6893
        (cReceiver isKindOf:BreakPointInterrupt) ifFalse:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6894
            c := nil
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6895
        ] ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6896
            [ 
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6897
                sender := c sender.
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  6898
                ((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  6899
                or:[ sReceiver == BreakPointInterrupt ]
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6900
            ] whileTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6901
                c := sender
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6902
            ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6903
            [ (sender := c sender) isBlockContext ] whileTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6904
                c := sender
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6905
            ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6906
            sender := nil. "/ avoid keeping a reference to this context
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6907
        ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6908
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6909
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6910
    c isNil ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6911
        "/ look for halts or explicit breakpoints
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6912
        c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6913
        c isNil ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6914
            c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6915
            c isNil ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6916
               ^ false
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6917
            ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6918
            breakpointParameter := c argAt:1.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6919
            (self class 
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6920
                    isBreakpointToBeIgnoredForParameter:breakpointParameter
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6921
                    context:(c sender)
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6922
                    modifyEntryCount:true
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6923
            ) ifTrue:[
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6924
                ^ true.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6925
            ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6926
        ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6927
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6928
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6929
    c := c sender.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6930
    "/ a code-breakpoint ?
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6931
    (c receiver isKindOf:Breakpoint) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6932
        c := c sender.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6933
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6934
    haltingMethod := c method.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6935
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6936
    haltingMethod isWrapped ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6937
        lineNrInHaltingMethod := 1.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6938
    ] ifFalse:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6939
        lineNrInHaltingMethod := c lineNumber.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6940
        "/ Transcript showCR:c.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6941
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6942
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  6943
    ^ self class
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6944
        isHaltToBeIgnoredIn:haltingMethod
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6945
        atLineNr:lineNrInHaltingMethod
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6946
        context:c
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6947
        modifyEntryCount:true.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6948
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6949
    "Created: / 22-10-2010 / 12:09:53 / cg"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6950
    "Modified: / 06-03-2012 / 12:54:09 / cg"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6951
!
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  6952
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6953
setContext:aContext
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6954
    "show calling chain from aContext in the walk-back listview"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6955
641
e02a521493ba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  6956
    ^ self setContext:aContext releaseInspectors:true
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  6957
641
e02a521493ba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  6958
    "Modified: 27.6.1996 / 17:21:59 / cg"
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  6959
!
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  6960
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  6961
setContext:aContext releaseInspectors:releaseInspectors
2720
a756bd875d02 more filtering of uninteresting contexts
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  6962
    "show calling chain from aContext in the walk-back listview.
a756bd875d02 more filtering of uninteresting contexts
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  6963
     Most complications here arise from filtering less-interesting contexts
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6964
     if not in verbose-context mode or when hiding implementation contexts."
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  6965
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6966
    |con text method caller caller2 called called2 m count c cc sndr
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6967
     suspendContext calledBySuspendContext nm h calledContext show2|
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6968
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6969
"/    (contextArray size > 0 and:[aContext == (contextArray at:1)]) ifTrue:[
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6970
"/        "no change"
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6971
"/        ^ false
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6972
"/    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6973
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  6974
    isStoppedAtHaltOrBreakPoint := isStoppedAtBreakPointWithParameter := isStoppedInModalDialog := false.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6975
    firstContext := aContext.
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6976
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6977
    m := contextView middleButtonMenu.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6978
    m notNil ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6979
        m disable:#showMore.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6980
    ].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  6981
    canShowMore := false.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6982
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6983
    aContext isNil ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6984
        text := Array with:'** no context **'.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6985
        contextArray := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6986
    ] ifFalse:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6987
        text := OrderedCollection new:nChainShown.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6988
        contextArray := OrderedCollection new:nChainShown.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6989
        con := aContext.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6990
        calledContext := nil.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6991
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6992
        verboseBacktrace ~~ true ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6993
            "/ with dense backtrace, hide the ProcessorScheduler
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6994
            "/ contexts at the top; look for a Process>>suspend*
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6995
            "/ context within the first 10 contexts
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6996
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6997
            suspendContext := nil.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6998
            c := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6999
            1 to:10 do:[:i |
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7000
                |sel|
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7001
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7002
                c notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7003
                    (sel := c selector) notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7004
                        ((sel isSymbol and:[sel startsWith:'suspend'])
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7005
                        and:[c receiver isMemberOf:Process]) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7006
                            suspendContext := c.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7007
                            calledBySuspendContext := cc.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7008
                        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7009
                    ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7010
                    cc := c.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7011
                    c := c sender.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7012
                ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7013
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7014
            suspendContext notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7015
                con := suspendContext.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7016
                calledContext := calledBySuspendContext.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7017
                suspendContext := nil
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7018
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7019
        ].
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  7020
"/ Transcript show:'1 '; showCR:con.
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7021
        con notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7022
            "/ hide the halt implementation
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7023
            (self haltSelectors includes:con selector) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7024
                (method := con method) notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7025
                    method mclass == Object ifTrue:[
13641
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  7026
                        (con selector isSymbol
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  7027
                        and:[ con selector startsWith:'breakPoint:']) ifTrue:[
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7028
                            isStoppedAtBreakPointWithParameter := true.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7029
                            breakPointParameter := con argAt:1.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7030
                        ].
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7031
                        isStoppedAtHaltOrBreakPoint := true.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7032
                        verboseBacktrace ~~ true ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7033
                            calledContext := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7034
                            con := con sender.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7035
                        ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7036
                    ] ifFalse:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7037
                        method mclass == Breakpoint ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7038
                            isStoppedAtHaltOrBreakPoint := true.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7039
                            verboseBacktrace ~~ true ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7040
                                calledContext := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7041
                                con := con sender.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7042
                            ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7043
                        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7044
                    ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7045
                ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7046
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7047
        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7048
        "
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7049
         get them all
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7050
        "
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7051
        count := 0.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7052
        [con notNil and:[count <= nChainShown]] whileTrue:[
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7053
            "/ remember any halt/breakpoint or openModal on the fly
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7054
            (self haltSelectors includes:con selector) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7055
                (method := con method) notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7056
                    method mclass == Object ifTrue:[
13641
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  7057
                        (con selector isSymbol
8b66149100f6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13589
diff changeset
  7058
                        and:[con selector startsWith:'breakPoint:']) ifTrue:[
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7059
                            isStoppedAtBreakPointWithParameter := true.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7060
                            breakPointParameter := con argAt:1.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7061
                        ].
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7062
                        isStoppedAtHaltOrBreakPoint := true.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7063
                    ] ifFalse:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7064
                        method mclass == Breakpoint ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7065
                            isStoppedAtHaltOrBreakPoint := true.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7066
                        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7067
                    ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7068
                ]
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7069
            ] ifFalse:[
13367
5c9b85ea7a77 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13363
diff changeset
  7070
                ((con selector == #openModal) or:[con selector == #openModal:]) ifTrue:[
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7071
                    isStoppedInModalDialog := true.
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7072
                ].
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7073
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7074
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7075
            [
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7076
                |show1|
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7077
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7078
                show1 := self showingContext1:con calling:calledContext.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  7079
                DebuggingDebugger3 == true ifTrue:[
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7080
                    'showingContext1: (' print. con print. ') --> ' print. show1 printCR.
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7081
                ].
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7082
                show1
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7083
            ] whileFalse:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7084
                calledContext := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7085
                con := con sender.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7086
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7087
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7088
            show2 := self showingContext2:con nesting:count.
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  7089
            DebuggingDebugger3 == true ifTrue:[
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7090
                'showingContext2: (' print. con print. ') --> ' print. show2 printCR.
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7091
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7092
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7093
            show2 ifTrue:[
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7094
                (self showingContext3:con nesting:count) ifTrue:[
13462
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7095
                    contextArray add:con.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7096
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7097
                    (MoreDebuggingDetail == true) ifTrue:[
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7098
                        nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7099
                    ] ifFalse:[
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7100
                        nm := self contextListEntryFor:con.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7101
                    ].
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7102
                    text add:nm.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7103
                    count := count + 1.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7104
                ] ifFalse:[
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7105
                    DebuggingDebugger3 == true ifTrue:[
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7106
                        'showingContext3: (' print. con print. ') --> false' printCR.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7107
                    ].
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7108
                ]
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7109
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7110
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7111
            "/ with hidden support code, skip over internals of exceptions
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7112
            hideSupportCode == true ifTrue:[
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7113
                (con isBlockContext
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7114
                and:[ (h := con home) notNil
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7115
                and:[ (self is:h inCallingChainOf:con) ]]) ifTrue:[
11887
dffcf2e6e4fa changed: #setContext:releaseInspectors:
Claus Gittinger <cg@exept.de>
parents: 11857
diff changeset
  7116
                    |blocksReceiver|
dffcf2e6e4fa changed: #setContext:releaseInspectors:
Claus Gittinger <cg@exept.de>
parents: 11857
diff changeset
  7117
                    blocksReceiver := con receiver.
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7118
                    c := con sender.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7119
                    [ 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7120
                        c notNil 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7121
                        and:[ 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7122
                            sndr := c sender.
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7123
                            (sndr ~= h) 
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7124
                            and:[ 
11887
dffcf2e6e4fa changed: #setContext:releaseInspectors:
Claus Gittinger <cg@exept.de>
parents: 11857
diff changeset
  7125
                                blocksReceiver isCollection         "/ skip collection implementations
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7126
                                or:[ ( #( #'handle:do:'         "/ skip exception implementations
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7127
                                          #'handleDo:' 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7128
                                          #'answer:do:' 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7129
                                          #'ensure:' ) includes: c selector ) 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7130
                                or:[ #'perform:*'               "/ skip perform implementations
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7131
                                         match: c selector ]] 
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7132
                            ]
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  7133
                        ] 
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7134
                    ] whileTrue:[ 
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7135
                        c := sndr 
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7136
                    ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7137
                    c notNil ifTrue:[
11887
dffcf2e6e4fa changed: #setContext:releaseInspectors:
Claus Gittinger <cg@exept.de>
parents: 11857
diff changeset
  7138
                        con := c "sender".
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7139
                    ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7140
                ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7141
            ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7142
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7143
            "/
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7144
            "/ kludge: if its a wrapped method, then hide the wrap-call
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7145
            "/
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7146
            method := con method.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7147
            method notNil ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7148
                called := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7149
                caller := con sender.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7150
                (caller notNil and:[caller receiver == method]) ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7151
                    called2 := caller.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7152
                    caller2 := caller sender.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7153
                    caller2 notNil ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7154
                        (caller2 method isWrapped
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7155
                        and:[ caller2 method originalMethod == method ]) ifTrue:[
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7156
                            calledContext := called2.
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7157
                            con := caller2
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7158
                        ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7159
                    ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  7160
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7161
                ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7162
                caller := caller2 := nil
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7163
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7164
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7165
            "/ with dense backtrace, skip the doIt methods context
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7166
            "/ (its dummy anyway) and fake that contexts name
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7167
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7168
            verboseBacktrace ~~ true ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7169
                (con isBlockContext
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7170
                 and:[(h := con home) == con sender
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7171
                 and:[h notNil
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7172
                 and:[(self setOfHiddenCallingSelectors includes:h selector)
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7173
                 and:[h method who isNil]]]]) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7174
                    calledContext := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7175
                    con := con sender.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7176
                    text removeLast.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7177
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7178
                    text add:(self contextListEntryFor:con methodHome).
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7179
                ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7180
                h := nil.  "/ never keep refs to contexts unless you really need them ...
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7181
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7182
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7183
            "/ with dense backtrace, dont show below the doIt
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7184
            ( verboseBacktrace ~~ true
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7185
            and:[ (self setOfHiddenCallingSelectors includes:con selector) ]) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7186
                con := nil.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7187
            ] ifFalse:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7188
                calledContext := con.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7189
                con := con sender
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7190
            ].
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7191
        ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7192
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7193
        "
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7194
         did we reach the end ?
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7195
        "
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7196
        (con isNil or:[con sender isNil]) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7197
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7198
            "/ the very last one is the startup context
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7199
            "/ (in main) - it has nil as receiver and nil as selector
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7200
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7201
            (contextArray notEmpty
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7202
            and:[contextArray last selector isNil]) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7203
                contextArray removeLast.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7204
                text removeLast
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7205
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7206
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7207
            verboseBacktrace ~~ true ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7208
                "/ in dense mode, remove the process startup
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7209
                "/ contexts (if any)
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7210
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7211
                (contextArray size > 0
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7212
                and:[(con := contextArray last) methodClass == Process]) ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7213
                    con selector == #start ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7214
                        contextArray removeLast.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7215
                        text removeLast.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7216
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7217
                        [contextArray size > 0
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7218
                         and:[contextArray last methodHome == con]] whileTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7219
                            contextArray removeLast.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7220
                            text removeLast.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7221
                        ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7222
                    ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7223
                ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7224
            ]
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7225
        ] ifFalse:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7226
            m notNil ifTrue:[
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7227
                m enable:#showMore.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7228
            ].
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7229
            canShowMore := true.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7230
            text add:(resources string:'*** more walkback follows - click here to see them ***')
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7231
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7232
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7233
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7234
    contextView setList:text.
944
680cc407240d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 942
diff changeset
  7235
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  7236
    releaseInspectors ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7237
        receiverInspector release.
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7238
        contextInspector release.
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  7239
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7240
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7241
    m notNil ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7242
        m disableAll:#(addBreakpoint removeBreakpoint browseImplementors browseSenders browseReceiversClass).
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7243
    ].
3511
1a050d6e639e menu fixes
Claus Gittinger <cg@exept.de>
parents: 3510
diff changeset
  7244
    self updateMenuItems.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7245
    ^ true
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  7246
7797
b0bbe7932d47 nicer context presentation
Claus Gittinger <cg@exept.de>
parents: 7796
diff changeset
  7247
    "Created: / 14-12-1995 / 19:10:31 / cg"
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  7248
    "Modified: / 27-07-2012 / 15:10:53 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7249
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7250
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7251
setContextSkippingInterruptContexts:aContext
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7252
    "show calling chain from aContext in the walk-back listview.
1213
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  7253
     Ignore any non-interesting interrupt-context."
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7254
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7255
    |con|
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7256
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  7257
    con := aContext.
1409
2ea39caf7f00 handle process termination gracefully
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  7258
    verboseBacktrace ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7259
        (con notNil and:[con selector == #threadSwitch:]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7260
            con := con sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7261
            (con notNil and:[con selector == #timerInterrupt]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7262
                con := con sender.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7263
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7264
        ].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7265
    ].
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7266
    ^ self setContext:con releaseInspectors:true
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7267
1409
2ea39caf7f00 handle process termination gracefully
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  7268
    "Created: / 20.10.1996 / 18:10:21 / cg"
2ea39caf7f00 handle process termination gracefully
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  7269
    "Modified: / 17.1.1998 / 12:43:19 / cg"
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7270
!
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  7271
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7272
showingContext1:aContext calling:calledContext
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7273
    "return false, if this (top) context is to be skipped.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7274
     Here, we hide some well known methods, which are usually not too interesting;
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7275
     the set of methods which are suppressed is my (claus's) own choice."
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7276
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  7277
    |recIsException sel rec senderRec mthd mthdClass calledSel calledRec|
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7278
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7279
    verboseBacktrace == true ifTrue:[ ^true ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7280
    aContext isNil ifTrue:[ ^true ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7281
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7282
    sel := aContext selector.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7283
    rec := aContext receiver.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7284
    mthd := aContext method.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7285
    mthd notNil ifTrue:[ mthdClass := mthd mclass ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7286
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  7287
    "/ to avoid firing/waiting the lazy or future
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7288
    recIsException := (rec isLazyValue not) and:[rec isException].
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  7289
    aContext sender notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7290
        senderRec := aContext sender receiver
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  7291
    ].
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  7292
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  7293
    DebuggingDebugger3 == true ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7294
        'showingContext1: (' print. aContext print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7295
        ') calling: (' print. calledContext print.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7296
        ')' printCR.
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7297
    ].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7298
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  7299
    (#(doCallHandler: doRaise
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7300
    ) includes:sel)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7301
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7302
            recIsException ifTrue:[ ^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7303
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7304
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  7305
    (#(raise raiseRequest
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7306
    ) includes:sel)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7307
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7308
            recIsException ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7309
                (senderRec isLazyValue not
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7310
                and:[ senderRec isExceptionCreator]) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7311
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7312
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7313
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  7314
    (#(doWhile:
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7315
    ) includes:sel)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7316
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7317
            rec isBlock ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7318
                true "aContext sender isBlockContext" ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7319
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7320
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7321
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  7322
    calledContext notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7323
        calledSel := calledContext selector.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7324
        calledRec := calledContext receiver.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7325
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7326
        calledRec isBlock ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7327
            (calledSel == #ensure:) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7328
            (calledSel == #ifCurtailed:) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7329
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7330
        (calledSel == #handle:do:) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7331
        (calledSel == #answer:do:) ifTrue:[^ false].
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  7332
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7333
"/        calledRec isLazyValue ifFalse:[
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7334
"/            ((calledSel == #doWhile:)
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7335
"/            and:[calledRec isBlock])
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7336
"/                ifTrue:[^ false].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7337
"/
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7338
"/            ((#(ensure: ifCurtailed: valueNowOrOnUnwindDo: valueOnUnwindDo:
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7339
"/                ) includes:calledSel)
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7340
"/             and:[calledRec isBlock])
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7341
"/                ifTrue:[^ false].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7342
"/
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7343
"/            ((calledSel == #handle:do:)
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7344
"/             and:[calledRec isExceptionHandler])
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7345
"/                ifTrue:[^ false].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  7346
"/        ].
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  7347
    ].
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  7348
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  7349
    (#(handleDo:) includes:sel)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7350
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7351
            (calledRec isLazyValue not and:[calledRec isExceptionHandler]) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7352
        ].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7353
    (#(
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7354
        withCursor:do:
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7355
        withWaitCursorDo:
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7356
        withReadCursorDo:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7357
        withWriteCursorDo:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7358
        withSearchCursorDo:
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7359
      ) includes:sel)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7360
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7361
            (mthdClass == TopView) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7362
            (mthdClass == ApplicationModel) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7363
            (mthdClass == WindowGroup) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7364
        ].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7365
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7366
    (#(
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7367
        wait
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7368
        waitWithTimeout:
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7369
        waitWithTimeoutMs:
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7370
      ) includes:sel)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7371
        ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7372
            (mthdClass == Semaphore) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7373
            (mthdClass == SemaphoreSet) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7374
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7375
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7376
    ^ true
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7377
9662
d6150bfe9f1b changed:
Claus Gittinger <cg@exept.de>
parents: 9626
diff changeset
  7378
    "Created: / 17-11-2001 / 22:24:06 / cg"
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7379
    "Modified: / 27-07-2012 / 17:30:18 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7380
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7381
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7382
showingContext2:aContext nesting:nesting
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7383
    "return false, if this (intermediate) context is to be skipped.
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7384
     Here, we hide some well known methods, which are usually not too interesting;
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7385
     the set of methods which are suppressed is my (claus's) own choice."
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7386
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7387
    |sel rec mClass
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7388
     sender senderReceiver senderSelector senderReceiverClass|
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7389
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7390
    verboseBacktrace ifTrue:[^ true].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  7391
    aContext isNil ifTrue:[^ true].
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7392
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7393
    rec := aContext receiver.
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7394
    sel := aContext selector.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7395
    mClass := aContext methodClass.
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7396
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7397
    sender := aContext sender.
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7398
    sender notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7399
        senderSelector := sender selector.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7400
        senderReceiver := sender receiver.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7401
        senderReceiverClass := senderReceiver class.
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7402
    ].
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7403
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7404
    sel == #withCursor:do: ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7405
        (mClass == WindowGroup) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7406
        (mClass == TopView) ifTrue:[^ false].
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7407
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7408
    (sel == #withExecuteCursorDo:
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7409
    or:[sel == #withWaitCursorDo:]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7410
        (mClass == DisplaySurface) ifTrue:[^ false].
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7411
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7412
1484
1e1e56b84b11 in compact-stack-mode, also hide from:to:do: contexts.
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  7413
    (sel == #do:
6600
985a13c5e7b1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6579
diff changeset
  7414
    or:[sel == #from:to:do:
6601
b347199a06cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6600
diff changeset
  7415
    or:[sel == #keysAndValuesDo:
b347199a06cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6600
diff changeset
  7416
    or:[sel == #doWithIndex:]]]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7417
        mClass == Array ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7418
        mClass == OrderedCollection ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7419
        mClass == Set ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7420
        mClass == Dictionary ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7421
        mClass == Interval ifTrue:[^ false].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7422
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7423
    (sel == #perform:
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7424
    or:[sel == #perform:with:
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7425
    or:[sel == #perform:with:with:
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7426
    or:[sel == #perform:with:with:with:
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7427
    or:[sel == #perform:with:with:with:with:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7428
    or:[sel == #perform:withArguments:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7429
    or:[sel == #perform:with:ifNotUnderstood:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7430
    or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]])
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7431
    ifTrue:[
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7432
        hideSupportCode == true ifTrue:[
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7433
            "/ 'x' printCR.
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7434
            mClass == Object ifTrue:[^ false]
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7435
        ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7436
        nesting == 0 ifTrue:[^ true].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7437
        mClass == Array ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7438
        mClass == OrderedCollection ifTrue:[^ false].
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7439
    ].
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7440
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7441
    sel == #valueWithReceiver:arguments:selector:search:sender: ifTrue:[^ false].
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7442
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7443
    (mClass == Object) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7444
        (sel startsWith:'perform:') ifTrue:[^ false]
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7445
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7446
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7447
    (mClass == Method) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7448
        (sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7449
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7450
952
9f203aab32a4 skip intermediate lazyMethod loading contexts
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  7451
    (mClass == SmallInteger) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7452
        (sel == #to:do:) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7453
        (sel == #to:by:do:) ifTrue:[^ false].
952
9f203aab32a4 skip intermediate lazyMethod loading contexts
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  7454
    ].
9f203aab32a4 skip intermediate lazyMethod loading contexts
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  7455
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7456
    (mClass == Block) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7457
        sel == #ensure: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7458
        sel == #ifCurtailed: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7459
        sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7460
        sel == #valueOnUnwindDo: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7461
        sel == #on:do: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7462
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7463
        sel == #value ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7464
        sel == #value: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7465
        sel == #value:value: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7466
        sel == #value:value:value: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7467
        sel == #value:value:value:value: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7468
        sel == #value:value:value:value:Value: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7469
        sel == #value:value:value:value:value:value: ifTrue:[^ false].
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7470
    ].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7471
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7472
    aContext isBlockContext ifTrue:[
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7473
"/        sel == #value ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7474
"/        sel == #value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7475
"/        sel == #value:value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7476
"/        sel == #value:value:value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7477
"/        sel == #value:value:value:value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7478
"/        sel == #value:value:value:value:Value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7479
"/        sel == #value:value:value:value:value:value: ifTrue:[^ false].
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7480
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7481
"/        (senderSelector == #answer:do:) ifTrue:[
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7482
"/            senderReceiverClass == QuerySignal ifTrue:[
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7483
"/                ^ false
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7484
"/            ]
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7485
"/        ]
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7486
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7487
        aContext home notNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7488
            aContext home receiver isLazyValue ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7489
                (aContext home receiver isMemberOf:Semaphore) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7490
                    (aContext home selector == #wait) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7491
                    (aContext home selector == #waitWithTimeoutMs:) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7492
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7493
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7494
        ]
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7495
    ].
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7496
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  7497
    (rec isExceptionHandler) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7498
        sel == #handle:do: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7499
        sel == #handleDo: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7500
        (sel startsWith:#raise) ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7501
        sel == #answer:do: ifTrue:[^ false].
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  7502
    ].
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  7503
    (rec isLazyValue not and:[ rec isException] ) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7504
        sel == #doRaise ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7505
        sel == #doCallHandler: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7506
        (sel == #raise or:[sel == #raiseRequest]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7507
            senderReceiverClass == Signal ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7508
        ]
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7509
    ].
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7510
    (mClass == Context) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7511
        sel == #unwind ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7512
        sel == #unwind: ifTrue:[^ false].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7513
    ].
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7514
    (mClass == ProcessorScheduler) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7515
        sel == #interruptActive ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7516
        sel == #threadSwitch: ifTrue:[^ false].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7517
        sel == #suspend: ifTrue:[^ false].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7518
    ].
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7519
    mClass == Process ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7520
        sel == #suspendWithState: ifTrue:[^ false].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  7521
    ].
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7522
    ^ true.
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  7523
9662
d6150bfe9f1b changed:
Claus Gittinger <cg@exept.de>
parents: 9626
diff changeset
  7524
    "Created: / 17-11-2001 / 19:34:20 / cg"
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  7525
    "Modified: / 27-07-2012 / 17:26:54 / cg"
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7526
!
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7527
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7528
showingContext3:aContext nesting:nesting
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7529
    "return false, if this (intermediate) context is to be skipped.
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7530
     Here, we hide some well known methods, which are usually not too interesting;
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7531
     the set of methods which are suppressed is my (claus's) own choice."
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7532
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7533
    |sel rec mClass
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7534
     sender senderReceiver senderSelector senderReceiverClass|
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7535
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7536
    hideSupportCode ifFalse:[^ true].
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7537
    aContext isNil ifTrue:[^ true].
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7538
13462
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7539
^ true.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7540
"/ mhmh - what was this useful for?
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7541
"/    rec := aContext receiver.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7542
"/    sel := aContext selector.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7543
"/    mClass := aContext methodClass.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7544
"/
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7545
"/    sender := aContext sender.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7546
"/    sender notNil ifTrue:[
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7547
"/        senderSelector := sender selector.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7548
"/        senderReceiver := sender receiver.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7549
"/        senderReceiverClass := senderReceiver class.
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7550
"/    ].
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7551
"/
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7552
"/    (sel == #perform:
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7553
"/    or:[sel == #perform:with:
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7554
"/    or:[sel == #perform:with:with:
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7555
"/    or:[sel == #perform:with:with:with:
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7556
"/    or:[sel == #perform:with:with:with:with:
13464
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  7557
"/    or:[sel == #perform:with:with:with:with:with:
13462
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7558
"/    or:[sel == #perform:withArguments:
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7559
"/    or:[sel == #perform:with:ifNotUnderstood:
13464
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  7560
"/    or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]]])
13462
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7561
"/    ifTrue:[
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7562
"/        mClass == Object ifTrue:[^ false]
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7563
"/    ].
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7564
"/
e90dca80cfc2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13455
diff changeset
  7565
"/    ^ true.
11837
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7566
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7567
    "Created: / 17-11-2001 / 19:34:20 / cg"
d3c4bfa00b18 added: #showingContext3:nesting:
Claus Gittinger <cg@exept.de>
parents: 11836
diff changeset
  7568
    "Modified: / 27-07-2012 / 17:26:54 / cg"
1240
ff3fdaa72df6 In #destroy CodeView>>contents: has been called and caused a
Stefan Vogel <sv@exept.de>
parents: 1213
diff changeset
  7569
! !
ff3fdaa72df6 In #destroy CodeView>>contents: has been called and caused a
Stefan Vogel <sv@exept.de>
parents: 1213
diff changeset
  7570
4859
462e871755e0 method category rename
Claus Gittinger <cg@exept.de>
parents: 4816
diff changeset
  7571
!DebugView methodsFor:'private-control loop'!
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7572
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7573
controlLoop
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7574
    "this is a kludge:
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7575
        start a dispatchloop which exits when
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7576
        either continue, return or step is pressed
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7577
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7578
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7579
    haveControl := true.
664
f5e2b3767ea8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 657
diff changeset
  7580
    [
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7581
        [haveControl] whileTrue:[
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7582
AbortOperationRequest handle:[:ex |
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7583
] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7584
            self controlLoopCatchingErrors
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7585
]
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7586
        ].
3597
2e7fc0ae28c9 #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 3593
diff changeset
  7587
    ] ensure:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7588
        catchBlock := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7589
        haveControl := false
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7590
    ].
664
f5e2b3767ea8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 657
diff changeset
  7591
f5e2b3767ea8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 657
diff changeset
  7592
    "Modified: 9.7.1996 / 18:29:09 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7593
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7594
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7595
controlLoopCatchingErrors
328
bdfe5bbd376d ignore recursive BreakPoint invocations
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  7596
    "this is the debuggers own private event handling loop;
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  7597
     errors are caught, to prevent recursive debugger-invocations."
328
bdfe5bbd376d ignore recursive BreakPoint invocations
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  7598
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7599
    "setup a self removing catch-block"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7600
    catchBlock := [catchBlock := nil. ^ nil].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7601
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7602
    (exclusive or:[windowGroup isNil]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7603
        "if we do not have multiple processes or its a system process
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7604
         we start another dispatch loop, which exits when
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7605
         either continue, return or step is pressed
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7606
         or (via the catchBlock) if an error occurs.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7607
         Since our display is an extra exclusive one,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7608
         all processing for normal views stops here ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7609
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7610
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7611
        WindowGroup setActiveGroup:windowGroup.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7612
        SignalSet anySignal handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7613
            |signal|
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7614
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  7615
            signal := ex creator.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7616
            (UserNotification accepts:signal) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7617
Transcript showCR:'UserNotification'.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7618
                (signal ~~ ActivityNotificationSignal) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7619
                    self showError:ex description.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7620
                ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7621
                ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7622
            ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7623
            (HaltInterrupt accepts:signal) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7624
Transcript showCR:'HaltInterrupt'.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7625
                Transcript showCR:'Halt/Break in debugger ignored'.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7626
                ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7627
            ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7628
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7629
            self showError:'*** Error in modal debugger:
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7630
334
00d06ac75a99 handle notifications without err'ing
ah
parents: 333
diff changeset
  7631
>>>> Signal:  ' , signal printString , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7632
>>>> In:      ' , ex suspendedContext printString , '
1016
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7633
>>>> From:    ' , ex suspendedContext sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7634
>>>>     :    ' , ex suspendedContext sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7635
>>>>     :    ' , ex suspendedContext sender sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7636
>>>>     :    ' , ex suspendedContext sender sender sender sender printString , '
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7637
>>>>     :    ' , ex suspendedContext sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7638
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7639
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7640
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7641
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7642
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7643
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7644
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7645
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  7646
>>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
4816
08695fc6e1e9 #errorSignal -> #description
Stefan Vogel <sv@exept.de>
parents: 4676
diff changeset
  7647
>>>> Message: ' , ex description , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7648
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  7649
caught & ignored.'.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7650
            ex return.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7651
        ] do:[
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7652
"/            UserNotification handle:[:ex |
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7653
"/                (ex signal == ActivityNotificationSignal) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7654
"/                    ex proceed
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7655
"/                ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7656
"/                self showError:ex description.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7657
"/                ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7658
"/            ] do:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7659
                device 
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7660
                    dispatchModalWhile:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7661
                        Processor activeProcess state:#debug.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7662
                        haveControl].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7663
"/            ]
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7664
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7665
        WindowGroup setActiveGroup:nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7666
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7667
        "we do have multiple processes -
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7668
         simply enter the DebugViews-Windowgroup event loop.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7669
         effectively suspending event processing for the currently
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7670
         active group.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7671
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7672
        SignalSet anySignal handle:[:ex |
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7673
            |answer signal eMsg|
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7674
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  7675
            signal := ex creator.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7676
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7677
            DebuggingDebugger ~~ true ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7678
                (signal == ActivityNotification) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7679
                    ex proceed
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7680
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7681
                "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7682
                "/ ignore exceptions which say they explicitly have to be ignored
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7683
                "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7684
                ex catchInDebugger ifTrue:[
12333
a2387c6089f4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12106
diff changeset
  7685
                    'DebugView [info]: ',signal printString,'-signal in debugger caught for close' infoPrintCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7686
                    self destroy.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7687
                    ex reject
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7688
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7689
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7690
                "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7691
                "/ ignore recursive breakpoints
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7692
                "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7693
                (signal isControlInterrupt) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7694
                    ignoreBreakpoints == true ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7695
                        'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7696
                        ('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7697
                        ex proceed
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7698
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7699
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7700
                (signal == TerminateProcessRequest) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7701
                    "/ mhm - someone wants to shoot me down while debugging ...
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7702
                    answer := Dialog
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7703
                                choose:('Process termination signal arrived while debugging\\close debugger ?') withCRs
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7704
                                labels:#( 'Ignore' 'Close & terminate' )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7705
                                values:#( #proceed #close )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7706
                                default:#close.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7707
                    answer == #close ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7708
                        self destroy.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7709
                        ex reject
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7710
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7711
                    ex return.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7712
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7713
                signal == RecursiveExceptionError ifTrue:[
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  7714
                    (ex exception creator == BreakPointInterrupt)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7715
                    ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7716
                        'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7717
                        ex proceed.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7718
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7719
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7720
                    self showError:'*** Recursive error in debugger:
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7721
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  7722
>>>> Signal:  ' , ex creator printString , '
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  7723
>>>>          ' , ex parameter creator printString , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7724
>>>> In:      ' , ex suspendedContext printString , '
1016
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7725
>>>> From:    ' , ex suspendedContext sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7726
>>>>     :    ' , ex suspendedContext sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7727
>>>>     :    ' , ex suspendedContext sender sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  7728
>>>>     :    ' , ex suspendedContext sender sender sender sender printString , '
4816
08695fc6e1e9 #errorSignal -> #description
Stefan Vogel <sv@exept.de>
parents: 4676
diff changeset
  7729
>>>> Message: ' , ex description , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7730
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  7731
caught & ignored.'.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7732
                    ex return
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7733
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7734
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7735
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7736
            self topView raiseDeiconified.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7737
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7738
            eMsg := ex description.
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  7739
            (signal isControlInterrupt) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7740
                eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7741
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7742
            Dialog aboutToOpenBoxNotificationSignal
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7743
                handle:[:ex | ex proceed ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7744
                do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7745
                    answer := Dialog
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7746
                        choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7747
                        labels:#( 'Proceed' 'Cancel' 'Debug' )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7748
                        values:#( #proceed #cancel #debug )
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7749
                        default:#cancel.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7750
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7751
            answer == #debug ifTrue:[
12333
a2387c6089f4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12106
diff changeset
  7752
                'DebugView [info]: caught exception - debugging' infoPrintCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7753
                Debugger
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7754
                    enterUnconditional:(ex suspendedContext)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7755
                    withMessage:'Error in debugger: ' , eMsg
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7756
                    mayProceed:true.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7757
                ex proceed.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7758
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7759
            answer == #proceed ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7760
                'DebugView [info]: ignored exception - proceeding' infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7761
                ex proceed.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7762
            ].
12333
a2387c6089f4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12106
diff changeset
  7763
            'DebugView [info]: caught exception - returning' infoPrintCR.
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7764
            ex return.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7765
        ] do:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7766
            "/ make certain that sub-debuggers, inspectors etc.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7767
            "/ come up on my device.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7768
            Screen currentScreenQuerySignal answer:device
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7769
            do:[
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7770
                Dialog aboutToOpenBoxNotificationSignal
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7771
                    handle:[:ex | ex proceed ]
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7772
                    do:[
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7773
                        windowGroup
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7774
                            eventLoopWhile:[Processor activeProcess state:#debug.
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7775
                                              true]
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7776
                            onLeave:[]
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7777
                    ]
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7778
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7779
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7780
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7781
    catchBlock := nil.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7782
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  7783
    "Created: / 24-11-1995 / 20:33:45 / cg"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  7784
    "Modified: / 26-09-2012 / 15:03:39 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7785
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7786
13416
42dde7fc4713 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13415
diff changeset
  7787
!DebugView methodsFor:'queries'!
42dde7fc4713 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13415
diff changeset
  7788
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7789
canDefineForCallee:callee
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7790
    "again, pure heuristics here"
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7791
13489
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7792
    |mthd app heuristic selector|
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7793
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7794
    classToDefineIn := selectorToDefine := nil.    "/ sorry - left as info to define action
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7795
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7796
    callee notNil ifTrue:[
13489
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7797
        "/ clicked on an unimplemented method ?
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7798
        callee sender notNil ifTrue:[
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7799
            mthd := callee sender method.
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7800
            mthd isNil ifTrue:[
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7801
                callee sender isBlockContext ifFalse:[
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7802
                    "/ an unimplemented method
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7803
                    selector := callee sender selector.
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7804
                    (callee sender receiver class canUnderstand:selector) ifFalse:[
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7805
                        classToDefineIn := callee sender receiver class.
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7806
                        selectorToDefine := selector.
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7807
                        ^ true
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7808
                    ]
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7809
                ]
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7810
            ].
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7811
        ].
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7812
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7813
        mthd := callee method.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7814
        mthd notNil ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7815
            (mthd selector == #subclassResponsibility) ifTrue:[
13589
92a1d2b4e1db class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13562
diff changeset
  7816
                classToDefineIn := callee sender receiver class.
92a1d2b4e1db class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13562
diff changeset
  7817
                selectorToDefine := callee sender selector.
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7818
                ^ true.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7819
            ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7820
13553
728eae2b6327 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13544
diff changeset
  7821
            "/ that's a big hack, but I am tired of navigating to find the missing menu message...
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7822
            "/ you will thank me!!
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7823
            mthd selector == #error:mayProceed: ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7824
                (callee receiver isKindOf:MenuPanel) ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7825
                    callee sender home notNil ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7826
                        (callee sender home selector startsWith:'accept:') ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7827
                            (inspectedProcess notNil and:[inspectedProcess isGUIProcess]) ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7828
                                (app := self processesApplication) notNil ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7829
                                    heuristic := callee sender home argsAndVars select:[:o | o isSymbol].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7830
                                    heuristic size == 1 ifTrue:[
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7831
                                        classToDefineIn := app class.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7832
                                        selectorToDefine := heuristic first.    
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7833
                                        ^ true
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7834
                                    ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7835
                                ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7836
                            ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7837
                        ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7838
                    ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7839
                ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7840
            ]
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7841
        ]
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7842
    ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7843
    ^ false
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7844
!
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  7845
13489
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7846
showingAlreadyModifiedCode
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7847
    ^ methodCodeToggle isVisible
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7848
    and:[ methodCodeToggleSelectionHolder value = 2 ]
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7849
! !
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7850
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7851
!DebugView methodsFor:'user interaction'!
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  7852
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7853
checkIfCodeIsReallyModified
6616
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  7854
    |source|
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  7855
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7856
    codeView modified ifFalse:[^ false].
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7857
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7858
    currentMethod isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7859
        ^ false
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7860
    ].
6616
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  7861
    source := currentMethod source.
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  7862
    source notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7863
        source string = codeView contents string ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7864
            ^ false
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7865
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7866
        (source string withTabsExpanded:8) = (codeView contents string withTabsExpanded:8) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7867
            ^ false
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7868
        ].
6616
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  7869
    ].
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7870
    ^ true
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7871
!
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7872
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  7873
checkSelectionChangeAllowed
2678
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  7874
    ^ self checkSelectionChangeAllowed:nil
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  7875
!
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  7876
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  7877
checkSelectionChangeAllowed:newSelection
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7878
    |answer v|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7879
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7880
    self checkIfCodeIsReallyModified ifFalse:[^ true].
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7881
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7882
    (newSelection notNil
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7883
    and:[newSelection = contextView selection]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7884
        ^ true
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  7885
    ].
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  7886
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7887
    answer := Dialog 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7888
                confirmWithCancel:('Code modified - change selection anyway ?')
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7889
                labels:#('No' 'No, Show Diffs' 'Yes').
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7890
    answer isNil ifTrue:[^ false].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7891
    answer == false ifTrue:[
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7892
        v := DiffCodeView
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7893
                openOn:codeView contents
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7894
                label:(resources string:'Changed code (to be accepted ?)')
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7895
                and:currentMethod source
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7896
                label:(resources string:'Method''s actual (maybe original) code').
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7897
        v label:(resources string:'Comparing method''s code').
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7898
        v waitUntilVisible.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7899
        ^ false 
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7900
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  7901
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  7902
    codeView modified:false.
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  7903
    ^ true
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  7904
!
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  7905
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7906
codeAccept:someCode
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7907
    "user wants some code to be recompiled"
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7908
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7909
    ^ self codeAccept:someCode unwind:false category:nil onCancel:nil
7553
83cbd8707d1e do not unwind after an accept.
Claus Gittinger <cg@exept.de>
parents: 7481
diff changeset
  7910
83cbd8707d1e do not unwind after an accept.
Claus Gittinger <cg@exept.de>
parents: 7481
diff changeset
  7911
    "Modified: / 28-11-2006 / 19:49:04 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7912
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7913
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  7914
codeAccept:someCode inClass:aClass unwind:doUnwind category:category onCancel:cancelAction
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7915
    "user wants some code to be recompiled.
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7916
     Optionally unwind stack to right above the changed method.
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7917
     This undwind option is a leftover from times, when the debugger had no chance to
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7918
     show the original code. 
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7919
     Now, it can, and got a choice-field to select between original and changed code. 
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7920
     So the undwind option is not longer used and probably completely obsolete now 
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7921
     (aka: this method is always called with doUnwind==false, these days)"
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  7922
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7923
    |con newMethod|
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  7924
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  7925
    codeView withWaitCursorDo:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7926
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7927
         find the method-home context for this one
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7928
        "
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7929
        doUnwind ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7930
            con := selectedContext.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7931
            top := con.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7932
            [con notNil] whileTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7933
                (con methodHome == selectedContext) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7934
                    top := con
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7935
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7936
                con := con sender
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7937
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7938
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7939
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7940
        "/
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7941
        "/ provide the classes nameSpace and changefile-update answers;
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7942
        "/ in case we accept while in another context, to not capture these settings again
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7943
        "/
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7944
        (Class updateChangeFileQuerySignal,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7945
         Class updateChangeListQuerySignal,
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7946
         Class updateHistoryLineQuerySignal) answer:true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7947
        do:[
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7948
            Class nameSpaceQuerySignal answer:(aClass nameSpace)
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7949
            do:[
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7950
                "/ the compiler nowadays already cares for the package...
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7951
                "/ no, actually, it does not in case we are in the middle of a fileIn,
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7952
                "/ and packageQuery is already answered by someone else.
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7953
                "/ Better make it unpackaged, in case the user makes changes to other
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7954
                "/ classes here (actually, I often change compiler, debugger, inspector here)
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7955
                Class packageQuerySignal
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7956
                answer:nil
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7957
                do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7958
                    codeView contents:someCode.
12555
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7959
                    Class methodRedefinitionNotification 
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7960
                        answer:#keep    
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7961
                        do:[
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7962
                            "/ Use original method's programming language instead of class's one.
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7963
                            "/ In most cases it's the same, but it may be that the method edited
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7964
                            "/ and accepted was an extension method written in another languages
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7965
                            "/ (such as Smalltalk extension to Java class or Ruby extension to
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7966
                            "/ Smalltalk class.
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  7967
                            newMethod := selectedContext programmingLanguage compilerClass
12555
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7968
                                             compile:someCode
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7969
                                             forClass:aClass
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7970
                                             inCategory:category
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7971
                                             notifying:codeView.
cbfa9ef3e906 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12552
diff changeset
  7972
                        ].
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  7973
                ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7974
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7975
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7976
12540
a55d080604a2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12534
diff changeset
  7977
        methodCodeToggleSelectionHolder value:2.    "/ showing current code
a55d080604a2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12534
diff changeset
  7978
        methodCodeToggle beVisible.
a55d080604a2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12534
diff changeset
  7979
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7980
        inspecting ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7981
            (newMethod notNil and:[newMethod ~~ #Error]) ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7982
                codeView modified:false.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7983
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7984
                doUnwind ifTrue:[
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7985
                    "/ if it worked, and doUnwind is true,
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7986
                    "/ remove everything up to and including top
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7987
                    "/ from the context chain
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  7988
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7989
                    selectedContext canReturn ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7990
                        self setContext:(top "sender").
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7991
                        exitAction := #restart.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7992
                        selectedContext setLineNumber:1.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7993
                        self doRestart.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7994
                    ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7995
                        self setContext:(top sender).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7996
                        exitAction := #return.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7997
                    ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7998
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7999
            ] ifFalse:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8000
                ^ cancelAction value
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8001
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8002
        ].
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8003
    ].
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8004
7065
a6e34a47f7fb accept in the debugger always assignes the classes'
Claus Gittinger <cg@exept.de>
parents: 7000
diff changeset
  8005
    "Created: / 17-11-2001 / 21:50:55 / cg"
a6e34a47f7fb accept in the debugger always assignes the classes'
Claus Gittinger <cg@exept.de>
parents: 7000
diff changeset
  8006
    "Modified: / 29-08-2006 / 14:22:22 / cg"
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  8007
    "Modified: / 28-11-2013 / 22:58:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8008
!
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8009
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8010
codeAccept:someCode unwind:doUnwind category:givenCategoryOrNil onCancel:cancelAction
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8011
    "user wants some code to be recompiled"
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8012
12812
52bef38f9017 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12809
diff changeset
  8013
    |sel implementorClass receiverClass method category|
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8014
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8015
    codeView withWaitCursorDo:[
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8016
"/        "
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8017
"/         find the method-home context for this one
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8018
"/        "
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8019
"/        con := selectedContext.
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8020
"/        top := con.
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8021
"/        [con notNil] whileTrue:[
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8022
"/            (con methodHome == selectedContext) ifTrue:[
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8023
"/                top := con
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8024
"/            ].
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8025
"/            con := con sender
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8026
"/        ].
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8027
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8028
        "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8029
         use class&selector to find the method for the compilation
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8030
         and compile.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8031
        "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8032
        category := givenCategoryOrNil.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8033
        sel := selectedContext selector.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8034
        implementorClass := selectedContext methodClass.
11898
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8035
        implementorClass isNil ifTrue:[
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8036
            method := selectedContext method.
11943
10e162265c0e changed: #codeAccept:unwind:category:onCancel:
Claus Gittinger <cg@exept.de>
parents: 11912
diff changeset
  8037
            (method notNil and:[method mclass isNil]) ifTrue:[
11898
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8038
                method := method wrapper.
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8039
            ].
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8040
            method notNil ifTrue:[
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8041
                implementorClass := method mclass
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8042
            ].
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8043
        ] ifFalse:[
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8044
            method := selectedContext method.
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8045
        ].
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8046
        implementorClass notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8047
            category isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8048
                method isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8049
                    method := implementorClass compiledMethodAt:sel.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8050
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8051
                category := method category
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8052
            ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8053
        ] ifFalse:[
12812
52bef38f9017 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12809
diff changeset
  8054
            receiverClass := selectedContext receiver class.
52bef38f9017 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12809
diff changeset
  8055
            implementorClass := receiverClass whichClassImplements:sel.
52bef38f9017 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12809
diff changeset
  8056
            implementorClass := implementorClass ? receiverClass.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8057
            implementorClass ~~ Object ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8058
                implementorClass := Dialog
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8059
                                        request:('Define ''%1'' in class:' bindWith:sel allBold)
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8060
                                        initialAnswer:implementorClass name
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8061
                                        list:(implementorClass withAllSuperclasses collect:[:each| each name]).
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8062
                implementorClass size == 0 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8063
                    ^ cancelAction value "/ cancelled
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8064
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8065
                implementorClass := Smalltalk classNamed:implementorClass.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8066
                implementorClass isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8067
                    Dialog warn:'No such class'.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8068
                    ^ cancelAction value "/ cancelled
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8069
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8070
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8071
        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8072
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8073
        self
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8074
            codeAccept:someCode
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8075
            inClass:implementorClass
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8076
            unwind:doUnwind
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8077
            category:category
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8078
            onCancel:cancelAction.
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8079
    ].
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8080
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8081
    "Created: / 17-11-2001 / 21:50:55 / cg"
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8082
    "Modified: / 29-08-2006 / 14:22:22 / cg"
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8083
!
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8084
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8085
codeCompletion
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8086
    |cls|
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8087
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8088
    currentMethod isNil ifTrue:[ ^ self ].
8338
2a8df762ed0b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8327
diff changeset
  8089
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8090
    cls := currentMethod mclass.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8091
    cls isNil ifTrue:[ ^ self ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8092
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8093
    UserInformation handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8094
        ex proceed.
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8095
    ] do:[
13562
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8096
        DoWhatIMeanSupport codeCompletionForLanguage: cls programmingLanguage class:cls context:selectedContext codeView:codeView.
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8097
    ].
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8098
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8099
    "Modified: / 18-09-2013 / 14:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8100
!
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8101
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8102
confirm:aString
6971
ef52630187a5 comment
Claus Gittinger <cg@exept.de>
parents: 6849
diff changeset
  8103
    "open a modal yes-no dialog.
ef52630187a5 comment
Claus Gittinger <cg@exept.de>
parents: 6849
diff changeset
  8104
     Redefined here, to answer true, if exclusice Debugger, which cannot handle popup boxes"
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8105
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8106
    (exclusive or:[windowGroup isNil]) ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8107
        ^ true
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8108
    ].
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8109
    ^ super confirm:aString.
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8110
!
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8111
1284
091454814297 try to catch more errors when showing sourceCode
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
  8112
doShowSelection:lineNr
301
cd15cb77e4b6 show wait cursor while accessing sources (may take long with CVS)
Claus Gittinger <cg@exept.de>
parents: 300
diff changeset
  8113
    "user clicked on a header line - show selected code in textView.
303
1d94813f1977 interest is written with one 'r' (shame on me)
Claus Gittinger <cg@exept.de>
parents: 301
diff changeset
  8114
     Also sent to autoselect an interesting context on entry."
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  8115
9235
fdcf1d96cdfe changed:
Stefan Vogel <sv@exept.de>
parents: 9155
diff changeset
  8116
    HaltInterrupt handle:[:ex |
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8117
        ignoreBreakpoints ifFalse:[ex reject].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8118
        ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8119
        ex proceed
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8120
    ] do:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8121
        self updateForContext:lineNr
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  8122
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  8123
    self updateMenuItems
3432
087493c18c74 class based exceptions - no longer need to send #breakPointSígnal
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
  8124
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8125
    "Modified: / 17.11.2001 / 22:12:16 / cg"
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8126
!
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8127
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8128
hideStackInspector
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8129
    stackInspector notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8130
        stackInspector destroy.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8131
        stackInspector := nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8132
        receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8133
        contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8134
    ]
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8135
!
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8136
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8137
methodCodeToggleChanged
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8138
    |sel|
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8139
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8140
    sel := contextView selection.
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8141
    sel notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8142
        self showSelection:sel
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8143
    ]
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8144
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8145
    "Created: / 18-06-2010 / 12:29:21 / cg"
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8146
!
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  8147
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8148
processEvent:anEvent
6129
4203bef24b27 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6046
diff changeset
  8149
    "filter keyboard events for popUp variable value display.
4203bef24b27 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6046
diff changeset
  8150
     Return true, if I have eaten the event"
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8151
12106
0dd284890b62 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12080
diff changeset
  8152
    <resource: #keyboard (#CodeCompletion )>
0dd284890b62 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12080
diff changeset
  8153
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8154
    |evView focusView key rawKey inCodeView|
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8155
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8156
    evView := anEvent view.
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8157
    evView notNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8158
        focusView := evView windowGroup focusView.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8159
        focusView isNil ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8160
            focusView := evView.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8161
        ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8162
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8163
        anEvent isKeyPressEvent ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8164
            key := anEvent key.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8165
            rawKey := anEvent rawKey.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8166
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8167
            inCodeView := (focusView == codeView
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8168
                          or:[focusView isComponentOf:codeView]).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8169
            inCodeView ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8170
                key == #CodeCompletion ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8171
                    "/ complete the word before/under the cursor.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8172
                    self sensor
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8173
                        pushUserEvent:#codeCompletion
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8174
                        for:self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8175
                        withArguments:#().
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8176
                    ^ true
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8177
                ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8178
            ].
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8179
        ].
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8180
3602
2ba741dd596b avoid autoloading RBstuff
Claus Gittinger <cg@exept.de>
parents: 3597
diff changeset
  8181
false ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8182
        anEvent isButtonReleaseEvent ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8183
            anEvent view == codeView ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8184
                (RBParser notNil and:[RBParser isLoaded])
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8185
                ifTrue:[
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8186
                    self sensor
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8187
                        pushEvent:anEvent.  "/ must be first in queue
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8188
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8189
                    self sensor
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8190
                      pushUserEvent:#explainSelection
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8191
                      for:self
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8192
                      withArguments:nil.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8193
                    ^ true  "/ eaten
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8194
                ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8195
            ]
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8196
        ].
3602
2ba741dd596b avoid autoloading RBstuff
Claus Gittinger <cg@exept.de>
parents: 3597
diff changeset
  8197
].
2ba741dd596b avoid autoloading RBstuff
Claus Gittinger <cg@exept.de>
parents: 3597
diff changeset
  8198
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8199
    ].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8200
    ^ false
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8201
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  8202
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8203
setCurrentMethod:aMethodOrNil
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8204
    currentMethod := aMethodOrNil.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8205
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8206
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8207
showSelection:lineNr 
1327
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  8208
    "user clicked on a header line - show selected code in textView.
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  8209
     Also sent to autoselect an interesting context on entry."
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8210
    
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  8211
    UserNotification 
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8212
        handle:[:ex | 
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8213
            "/ ex suspendedContext fullPrintAll.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8214
            Transcript showCR:ex description.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8215
            "/ Transcript showCR:ex parameter.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8216
            ex proceed
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8217
        ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8218
        do:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8219
            Error 
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8220
                handle:[:ex | 
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8221
                    |s con|
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8222
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  8223
                    ex creator isControlInterrupt ifTrue:[
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8224
                        'DebugView [info]: halt/break ignored - while showing selection in debugger' 
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8225
                            infoPrintCR.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8226
                        ex proceed
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8227
                    ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8228
                    ('DebugView [info]: error at %1 when showing selection in debugger ignored' 
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8229
                        bindWith:ex suspendedContext) infoPrintCR.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8230
                    s := '' writeStream.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8231
                    s nextPutLine:'**** error in debugger, while extracting source'.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8232
                    s nextPutLine:'****'.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8233
                    s nextPutLine:'**** ',(ex description).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8234
                    s nextPutLine:'****'.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8235
                    con := ex suspendedContext.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8236
                    s nextPutLine:'**** ',(con printString).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8237
                    con := con sender.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8238
                    HaltInterrupt ignoreIn:[ con fullPrintAllOn:s. ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8239
                    
5842
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8240
"/                            [con notNil] whileTrue:[
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8241
"/                                Error catch:[:ex |
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8242
"/                                    s nextPutAll: '**** '; nextPutLine:(con printString).
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8243
"/                                ].
4947
c600f7430132 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4932
diff changeset
  8244
"/
5842
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8245
"/                                (con receiver == self and:[con selector == #'enter:select:']) ifTrue:[
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8246
"/                                    con := nil
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8247
"/                                ] ifFalse:[
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8248
"/                                    con := con sender.
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8249
"/                                ]
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  8250
"/                            ].
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8251
                    
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8252
                    codeView contents:(s contents).
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8253
                    ex return.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8254
                ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8255
                do:[ self doShowSelection:lineNr ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8256
        ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8257
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8258
    "Modified: / 19-07-2012 / 10:56:58 / cg"
1327
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  8259
!
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  8260
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8261
showStackInspectorFor:con
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8262
    stackInspector isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8263
        receiverInspector origin:(0.0 @ 0.0) corner:0.3 @ 1.0.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8264
        contextInspector origin:(0.3 @ 0.0) corner:(0.6 @ 1.0).
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8265
        stackInspector := InspectorView
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8266
                    origin:(0.6 @ 0.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8267
                    corner:(1.0 @ 1.0)
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8268
                    in:contextInspector superView.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8269
        stackInspector realize.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8270
        stackInspector fieldListLabel:'Stack'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8271
        stackInspector hideReceiver:true
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8272
    ].
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8273
    stackInspector inspect:(con stackFrame asArray).
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8274
    stackInspector showLast
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8275
!
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  8276
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8277
updateContextInfoFor:aContext
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8278
    "additional info as-per selected context;
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8279
     for now:
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8280
        update:with:from: - show who was responsible
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8281
    "
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8282
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8283
    |whatChanged changedObject receiver|
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8284
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8285
    aContext selector == #'update:with:from:' ifTrue:[
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8286
        receiver := aContext receiver.
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8287
        whatChanged := aContext argAt:1.
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8288
        changedObject := aContext argAt:3.
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8289
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8290
        changedObject isBehavior ifTrue:[
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8291
            contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject name allBold).
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8292
            ^ self
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8293
        ].
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8294
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8295
        receiver class allInstanceVariableNames keysAndValuesDo:[:i :nm |
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8296
            (receiver instVarAt:i) == changedObject ifTrue:[
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8297
                contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',nm allBold).
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8298
                ^ self
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8299
            ]
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8300
        ].
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8301
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8302
        (receiver isKindOf:ApplicationModel) ifTrue:[
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8303
            receiver builder notNil ifTrue:[
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8304
                (receiver builder bindings ? #()) keysAndValuesDo:[:eachAspect :eachValue |
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8305
                    eachValue == changedObject ifTrue:[
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8306
                        contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by aspect ',eachAspect allBold).
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8307
                        ^ self
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8308
                    ]
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8309
                ]
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8310
            ]
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8311
        ].
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8312
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8313
        contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject classNameWithArticle allBold).
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  8314
        ^self.
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8315
    ].
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8316
    contextInfoLabel label:nil.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8317
!
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8318
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8319
updateForContext:lineNr
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8320
    "show selected code for lineNr in contextList in textView.
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8321
     Also used to autoselect an interesting context on entry."
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8322
56
d0cb937cbcaa *** empty log message ***
claus
parents: 55
diff changeset
  8323
    |con homeContext sel method code canAccept
105
claus
parents: 101
diff changeset
  8324
     implementorClass lineNrInMethod rec m line
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8325
     sender selSender tryVars possibleBlocks errMsg
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  8326
     codeSet highlighter evaluatorClass
11912
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8327
     canDefine callee searchClass originalMethod cannotAcceptDueToOutdatedClass|
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8328
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8329
    canDefine := cannotAcceptDueToOutdatedClass := false.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8330
    self setCurrentMethod:nil.
1804
dcb4f893ce7d remember current method - only ask for modification
Claus Gittinger <cg@exept.de>
parents: 1776
diff changeset
  8331
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  8332
    contextArray notNil ifTrue:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8333
        lineNr <= contextArray size ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8334
            con := contextArray at:lineNr.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8335
            callee := contextArray at:lineNr-1 ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8336
        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8337
        "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8338
         clicking on the '** ...'-line shows more ...
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8339
        "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8340
        con isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8341
            line := contextView list at:lineNr.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8342
            (line startsWith:'**') ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8343
                self showMore.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8344
                lineNr >= contextArray size ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8345
                    contextView setSelection:lineNr.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8346
                    con := contextArray at:lineNr ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8347
                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8348
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8349
            con isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8350
                codeView contents:nil.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8351
                ^ self
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8352
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8353
        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8354
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8355
        selectedContext := con.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8356
        m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8357
        (m notNil and:[selectedContext notNil]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8358
            m enableAll:#(browseImplementors browseSenders inspectContext)
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8359
        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8360
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8361
        self withExecuteCursorDo:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8362
            codeSet := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8363
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8364
            "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8365
             give it to the (lower right) inspector
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8366
            "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8367
            Error handle:[:ex |
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  8368
                'DebugView [warning]: error while accessing context: ' errorPrint.
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  8369
                ex description errorPrintCR.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8370
                contextInspector inspect:nil.
12809
24d2a31e458b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12743
diff changeset
  8371
                contextInspector fieldListLabel:('Context').
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  8372
                ex suspendedContext fullPrintAllOn: Transcript.
9479
7364779433be changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 9446
diff changeset
  8373
"/ ex reject.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8374
            ] do:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8375
                contextInspector inspect:con.
12809
24d2a31e458b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12743
diff changeset
  8376
                "/ contextInspector fieldListLabel:('Context: ',con method whoString).
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8377
                contextInspector tryToSelectKeyNamed:lastSelectionInContextInspector.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8378
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8379
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8380
            "/ show a stack inspector sometimes
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8381
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8382
            con hasStackToShow ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8383
                self showStackInspectorFor:con
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8384
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8385
                self hideStackInspector
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8386
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8387
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8388
            homeContext := con methodHome.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8389
            con canReturn ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8390
                returnButton enable. restartButton enable.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8391
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8392
                returnButton disable. restartButton disable.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8393
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8394
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8395
            lineNrInMethod := con lineNumber.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8396
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8397
            canAccept := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8398
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8399
            homeContext isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8400
                "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8401
                 mhmh - an optimized block
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8402
                 should get the block here, and get the method from
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8403
                 that one ...
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8404
                 But in the current version, there is no easy way to get to the block
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8405
                 since that one is not in the context.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8406
                 A future new block calling scheme will fix this
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8407
                 (passing the block instead of the home as block argument).
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8408
                "
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8409
                (method := con method) isNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8410
                    "temporary kludge - peek into the sender context.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8411
                     If its a do-like method and there is a single block variable
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8412
                     in the args or temporaries, that must be the one.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8413
                     This helps in some cases.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8414
                    "
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8415
                    (sender := con sender) notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8416
                        tryVars := false.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8417
                        (selSender := sender selector) notNil ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8418
                            ((selSender endsWith:'do:') or:[selSender endsWith:'Do:']) ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8419
                                tryVars := true.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8420
                            ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8421
                        ].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8422
                        tryVars ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8423
                            possibleBlocks := sender argsAndVars select:[:v | v isBlock].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8424
                            possibleBlocks := possibleBlocks select:[:b | b home isNil].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8425
                            possibleBlocks size == 1 ifTrue:[
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8426
                                method := possibleBlocks first method.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8427
                            ].
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8428
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8429
                    ].
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8430
                ]
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8431
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8432
                "fetch rec here - so we won't need context in doItAction"
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8433
                rec := homeContext receiver.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8434
                sel := homeContext selector.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8435
                sel notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8436
                    canAccept := true.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8437
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8438
                    implementorClass := homeContext methodClass.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8439
                    implementorClass isNil ifTrue:[
11898
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8440
                        homeContext method notNil ifTrue:[
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8441
                            WrappedMethod allInstancesDo:[:wrapped | 
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8442
                                wrapped originalMethod == homeContext method ifTrue:[
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8443
                                    implementorClass := wrapped mclass
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8444
                                ]
11912
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8445
                            ].
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8446
                            implementorClass isNil ifTrue:[
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8447
                                (homeContext searchClass notNil
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8448
                                and:[homeContext searchClass isObsolete]) ifTrue:[
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8449
                                    cannotAcceptDueToOutdatedClass := true.
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8450
                                ]
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8451
                            ].
11898
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8452
                        ].
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8453
                    ].
970fade2f840 changed:
Claus Gittinger <cg@exept.de>
parents: 11892
diff changeset
  8454
                    implementorClass isNil ifTrue:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8455
                        Error handle:[:ex |
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8456
"/ not covered by Error, anyway
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8457
"/                            ex signal == BreakPointInterrupt ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8458
"/                                ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8459
"/                            ].
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8460
                            code := 'error while asking method for its source'.
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  8461
                            code := code , Character cr , ex creator printString.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8462
                            code := code , Character cr , 'in: ' , ex suspendedContext printString.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8463
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8464
                            canAccept := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8465
                            ex return.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8466
                        ] do:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8467
                            "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8468
                             special: look if this context was created by
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8469
                             valueWithReceiver kind of method invocation;
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8470
                             if so, grab the method from the sender and show it
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8471
                            "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8472
                            ((sender := homeContext sender) notNil
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8473
                            and:[((sender selector ? '') startsWith:'valueWithReceiver:')
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8474
                            and:[sender receiver isMethod]]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8475
                                method := sender receiver.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8476
                                canAccept := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8477
                            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8478
                                (method := con method) notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8479
                                    canAccept := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8480
                                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8481
                            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8482
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8483
                    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8484
                        method := implementorClass compiledMethodAt:sel.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8485
                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8486
                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8487
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8488
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8489
            homeContext notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8490
                searchClass := homeContext searchClass ? rec class.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8491
                currentMethod := searchClass lookupMethodFor:sel.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8492
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8493
            originalMethod := currentMethod.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  8494
            (currentMethod notNil 
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  8495
            and:[currentMethod ~~ method
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  8496
            and:[ (currentMethod isWrapped and:[ method == currentMethod originalMethod]) not ]]) ifTrue:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8497
                originalMethod := method.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8498
                methodCodeToggleSelectionHolder value = 1 ifTrue:[
13416
42dde7fc4713 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13415
diff changeset
  8499
                    method := originalMethod.   "/ the one which is suspended / was executing
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8500
                ] ifFalse:[
13416
42dde7fc4713 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13415
diff changeset
  8501
                    method := currentMethod.    "/ the one which has already been accepted/modified.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8502
                    lineNrInMethod := nil.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8503
                    canAccept := true.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8504
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8505
                methodCodeToggle beVisible.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8506
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8507
                methodCodeToggle beInvisible.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8508
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8509
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8510
            code isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8511
                errMsg := nil.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8512
                method isNil ifTrue:[
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8513
                    "/ fall back heuristics (see how this was called, fetch block from caller)
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8514
                    sender := con sender.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8515
                    con isBlockContext ifTrue:[
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8516
                        (sender notNil
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8517
                        and:[((sender selector ? '') startsWith:'value')
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8518
                        and:[sender receiver isBlock]]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8519
                            code := sender receiver source.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8520
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8521
                    ] ifFalse:[
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8522
                        (sender notNil
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8523
                        and:[((sender selector ? '') startsWith:'valueWith')
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8524
                        and:[sender receiver isMethod]]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8525
                            method := sender receiver.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8526
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8527
                    ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8528
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8529
                method notNil ifTrue:[
13350
ef1d308f50df class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13339
diff changeset
  8530
                    contextInspector fieldListLabel:(method selector "whoString").
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8531
                    Error handle:[:ex |
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8532
"/ not covered by Error, anyway
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8533
"/                        ex signal isControlInterrupt ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8534
"/                            ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8535
"/                        ].
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8536
                        code := 'error while asking method for its source'.
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  8537
                        code := code , Character cr , ex creator printString.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8538
                        code := code , Character cr , 'in: ' , ex suspendedContext printString.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8539
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8540
                        canAccept := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8541
                        ex return.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8542
                    ] do:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8543
                        self sensor shiftDown ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8544
                            code := method decompiledSource
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8545
                        ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8546
                            code := method source.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8547
                        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8548
                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8549
                    code isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8550
                        method sourceFilename notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8551
                            codeView contents:(resources
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8552
                                                       string:'** no sourcefile: %1 **'
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8553
                                                       with:method sourceFilename).
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8554
                            codeView flash.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8555
                            codeSet := true.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8556
                        ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8557
                            [
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8558
                                |src|
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8559
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8560
                                src := String streamContents:[:s | Decompiler decompile:method to:s].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8561
                                codeView contents:src.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8562
                                codeSet := true.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8563
                            ] on: Error do:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8564
                                errMsg := '** no source **'
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8565
                            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8566
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8567
                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8568
                ] ifFalse:[
12862
86e6e1dd9874 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12840
diff changeset
  8569
                    contextInspector fieldListLabel:'Context'.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8570
                    homeContext isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8571
                        errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8572
                    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8573
                        errMsg := '** no method - no source **'.
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8574
                        canDefine := false. "/ true.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8575
                    ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8576
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8577
                errMsg notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8578
                   self showError:errMsg.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8579
                   codeSet := true.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8580
                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8581
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8582
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8583
            code isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8584
                "/ canAccept := false.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8585
                codeSet ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8586
                    codeView contents:nil.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8587
                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8588
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8589
                lineNrInMethod notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8590
                    lineNrInMethod == 0 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8591
                        (method notNil and:[method isJavaMethod]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8592
                            lineNrInMethod := method lineNumber
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8593
                        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8594
                        "/ guess lineNumber from sent-messages selector
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8595
                        "/ kludge to fix lineNr-display of shared subclassResponsibility methods.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8596
                        lineNrInMethod == 0 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8597
                            |conIdx sentContext messages|
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8598
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8599
                            conIdx := contextArray identityIndexOf:con.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8600
                            conIdx > 1 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8601
                                sentContext := contextArray at:conIdx-1.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8602
                                sentContext isBlockContext ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8603
                                    (method notNil and:[code notNil]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8604
                                        messages := method messagesSent.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8605
                                        messages size == 1 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8606
                                            sentContext selector == messages first ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8607
                                                lineNrInMethod := code asStringCollection findFirst:[:l | l includesString:sentContext selector].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8608
                                            ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8609
                                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8610
                                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8611
                                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8612
                            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8613
                        ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8614
                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8615
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8616
                codeView isCodeView2 ifTrue:[
10649
3f480fd28a48 changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 10628
diff changeset
  8617
                    codeView model setValue: code.
3f480fd28a48 changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 10628
diff changeset
  8618
                    codeView model changed.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8619
                    codeView methodHolder value: method.
10752
77650773a9ea Fixed class holder for CodeView2
vrany
parents: 10649
diff changeset
  8620
                    codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class])
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8621
                ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8622
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8623
                UserPreferences current syntaxColoring ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8624
                    implementorClass isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8625
                        (con isBlockContext
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8626
                        and:[con home isNil
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8627
                        and:[con guessedHome notNil]])
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8628
                        ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8629
                            implementorClass := con guessedHome mclass
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8630
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8631
                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8632
                    implementorClass notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8633
                        (highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8634
                            code size < 100000 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8635
                                Error handle:[:ex |
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8636
                                ] do:[
12929
89567fa780c5 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12915
diff changeset
  8637
                                    code := highlighter formatMethodSource:code in:implementorClass.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8638
                                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8639
                            ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8640
                        ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8641
                    ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8642
                ].
1555
756ab2711237 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1537
diff changeset
  8643
6178
2944e95c6eda faster updateFromContext (avoid Text)
Claus Gittinger <cg@exept.de>
parents: 6172
diff changeset
  8644
"/                code ~= (codeView contents) ifTrue:[
11912
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8645
                cannotAcceptDueToOutdatedClass ifTrue:[
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8646
                    codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' colorizeAllWith:Color red),Character cr,Character cr,code asString).
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8647
                ] ifFalse:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8648
                    codeView setContents:code.
11912
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  8649
                ].
6178
2944e95c6eda faster updateFromContext (avoid Text)
Claus Gittinger <cg@exept.de>
parents: 6172
diff changeset
  8650
"/                ].
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8651
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8652
                (lineNrInMethod notNil
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8653
                and:[lineNrInMethod ~~ 0
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8654
                and:[lineNrInMethod <= codeView list size]]) ifTrue:[
7000
3302ab5a819e cleanup
Claus Gittinger <cg@exept.de>
parents: 6971
diff changeset
  8655
lineNrInMethod == 255 ifFalse:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8656
                    (lineNrInMethod == 255
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8657
                    and:[method notNil
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8658
                    and:[method hasCode not]]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8659
                        "/ means: do not really know in interpreted methods
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8660
                        codeView selectFromLine:255 col:1 toLine:codeView list size + 1 col:0.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8661
                    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8662
                        codeView selectLine:lineNrInMethod.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8663
                    ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8664
                    codeView makeSelectionVisible
7000
3302ab5a819e cleanup
Claus Gittinger <cg@exept.de>
parents: 6971
diff changeset
  8665
].
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8666
                ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8667
                    codeView unselect.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8668
                    codeView scrollToTop
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8669
                ]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8670
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8671
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8672
            codeView acceptEnabled:canAccept.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8673
            canAccept ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8674
                codeView acceptAction:[:code | self codeAccept:code asString]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8675
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8676
                codeView acceptAction:[:code | self beep]
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8677
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8678
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8679
            receiverInspector inspect:rec.
13350
ef1d308f50df class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13339
diff changeset
  8680
            receiverInspector fieldListLabel:("'Receiver: ',"rec classNameWithArticle).
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8681
            receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8682
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8683
            "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8684
             the one below is wrong: currently, the
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8685
             evaluator cannot handle passed contexts.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8686
             Once it does, pass con as in:-arg
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8687
            "
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8688
            (rec isJavaObject
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8689
            and:[method isNil or:[method isJavaMethod not]]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8690
                "/ although a java object, use the smalltalk parser here for doIts.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8691
                evaluatorClass := Parser
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8692
            ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8693
                (method notNil and:[method mclass notNil]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8694
                    evaluatorClass := method mclass evaluatorClass.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8695
                ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8696
                    evaluatorClass := rec class evaluatorClass.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8697
                ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8698
            ].
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8699
12915
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8700
            codeView 
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8701
                doItAction:
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8702
                    [:theCode |
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8703
                         evaluatorClass
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8704
                             evaluate:theCode
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8705
                             in:actualContext "/ (selectedContext ? actualContext)
12915
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8706
                             receiver:rec
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8707
                             notifying:codeView
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8708
                             logged:true
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8709
                             ifFail:nil
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8710
                    ];
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8711
                editedMethodOrClass:(method ? rec class).
8c1d79091fa4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12899
diff changeset
  8712
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8713
            self setCurrentMethod:method.
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8714
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  8715
            selectedContext := homeContext ? con.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8716
            actualContext := con
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8717
        ].
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8718
    ] ifFalse:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8719
        codeView contents:nil.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8720
    ].
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8721
    codeView modified:false.
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8722
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8723
    con isContext ifFalse:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8724
        sendButton disable.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8725
    ] ifTrue:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8726
        sendButton enable.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8727
    ].
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8728
    self updateContextInfoFor:con.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8729
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8730
    "clear out locals to prevent keeping around unneeded contexts
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8731
     (due to the block held in codeView).
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8732
     (not really needed, since stuff gets collected away sooner or later ...
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8733
      ... but this makes it a bit sooner)
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8734
    "
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8735
    con := nil.
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8736
    homeContext := nil.
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8737
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8738
    (canDefine or:[self canDefineForCallee:callee]) ifTrue:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8739
        defineButton beVisible.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8740
    ] ifFalse:[
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  8741
        defineButton beInvisible.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8742
    ].
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8743
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  8744
    "/ enable/disable some menu items
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8745
    self updateMenuItems
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8746
6849
e95621a873be try to decompile if no source
Claus Gittinger <cg@exept.de>
parents: 6821
diff changeset
  8747
    "Created: / 14-08-1997 / 20:15:00 / cg"
10752
77650773a9ea Fixed class holder for CodeView2
vrany
parents: 10649
diff changeset
  8748
    "Modified: / 05-10-2011 / 11:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8749
    "Modified: / 28-08-2013 / 15:13:02 / cg"
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8750
! !
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  8751
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8752
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'accessing'!
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8753
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8754
ignoreCount:something
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8755
    ignoreCount := something.
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8756
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8757
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8758
ignoreEndTime:something
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8759
    ignoreEndTime := something.
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8760
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8761
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8762
ignoreForProcess:aProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8763
    ignoredProcesses isNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8764
        ignoredProcesses := WeakIdentitySet new.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8765
    ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8766
    ignoredProcesses add:aProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8767
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8768
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8769
ignoreForReceiverClass:aClass
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8770
    ignoredReceiverClasses isNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8771
        ignoredReceiverClasses := WeakIdentitySet new.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8772
    ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8773
    ignoredReceiverClasses add:aClass
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8774
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8775
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8776
ignoreUntilShiftKeyPressed:aBoolean
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8777
    ignoreUntilShiftKeyPressed := aBoolean.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8778
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8779
    "Created: / 27-01-2012 / 11:35:23 / cg"
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8780
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8781
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8782
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8783
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8784
decrementIgnoreCount
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8785
    ignoreCount notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8786
        ignoreCount > 0 ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8787
            ignoreCount := ignoreCount - 1
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8788
        ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8789
    ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8790
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8791
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8792
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8793
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8794
printConditionOn:aStream
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8795
    ignoredProcesses notEmptyOrNil ifTrue:[
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8796
        aStream nextPutAll:(' in %1 processes (%2)'
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8797
                                bindWith:ignoredProcesses size
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8798
                                with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8799
    ] ifFalse:[
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8800
        ignoredReceiverClasses notNil ifTrue:[
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8801
            aStream nextPutAll:(' for %1 classes (%2)'
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8802
                                bindWith:ignoredReceiverClasses size
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8803
                                with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', '))
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8804
        ] ifFalse:[
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8805
            ignoreUntilShiftKeyPressed == true ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8806
                aStream nextPutAll:' until shiftKey pressed'.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8807
            ] ifFalse:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8808
                ignoreEndTime notNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8809
                    aStream nextPutAll:' until '.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8810
                    ignoreEndTime printOn:aStream.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8811
                ] ifFalse:[
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8812
                    (ignoreCount notNil) ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8813
                        (ignoreCount > 0) ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8814
                            aStream nextPutAll:' for '.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8815
                            ignoreCount printOn:aStream.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8816
                        ] ifFalse:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8817
                            (ignoreCount < 0) ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8818
                                aStream nextPutAll:' forEver'.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8819
                            ] ifFalse:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8820
                                aStream nextPutAll:' no longer'.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8821
                            ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8822
                        ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8823
                    ]
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8824
                ].
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  8825
            ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8826
        ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8827
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8828
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8829
    "Modified: / 27-01-2012 / 11:43:10 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8830
    "Created: / 06-03-2012 / 12:41:10 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8831
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8832
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8833
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8834
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8835
haltIgnoredInfoString
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8836
    "some string describing why and how this halt is ignored;
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8837
     nil if not ignored"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8838
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8839
    ^ String streamContents:[:s |
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8840
        s nextPutAll:'ignored '.
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8841
        self printConditionOn:s
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8842
    ].
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8843
13764
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8844
"/    ignoreCount notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8845
"/        ignoreCount > 0 ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8846
"/            ^ '%1 more calls ignored' bindWith:ignoreCount
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8847
"/        ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8848
"/        ^ nil
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8849
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8850
"/    ignoreEndTime notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8851
"/        (ignoreEndTime > Timestamp now) ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8852
"/            ^ 'ignored until %1' bindWith:ignoreEndTime
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8853
"/        ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8854
"/        ^ nil
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8855
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8856
"/    ignoreUntilShiftKeyPressed == true ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8857
"/        Screen current shiftDown ifFalse:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8858
"/            ^ 'ignored until shiftKey is pressed'
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8859
"/        ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8860
"/        ^ nil
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8861
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8862
"/    ignoredProcesses notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8863
"/        ^ 'ignored in some processes'
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8864
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8865
"/    ignoredReceiverClasses notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8866
"/        ^ 'ignored for some receiver classes'
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8867
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8868
"/
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8869
"/    ^ 'ignored until reenabled'
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8870
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8871
    "Modified: / 27-01-2012 / 11:35:48 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8872
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8873
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8874
isActive
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8875
    "true if this ignore-entry is still active"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8876
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8877
    ignoreEndTime notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8878
        ^ ignoreEndTime > Timestamp now
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8879
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8880
    ignoreCount notNil ifTrue:[
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  8881
        ^ ignoreCount == -1 or:[ ignoreCount > 0 ]
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  8882
    ].
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8883
    ignoredProcesses notNil ifTrue:[
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8884
        ignoredProcesses := ignoredProcesses reject:[:p | p notNil and:[p isDead]].
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8885
        ignoredProcesses isEmpty ifTrue:[
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8886
            ignoredProcesses := nil.
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8887
            ^ false
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8888
        ].
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8889
    ].
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  8890
    ^ true
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8891
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8892
    "Created: / 06-03-2012 / 12:39:46 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8893
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8894
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8895
isForBreakpointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8896
    ^ false
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8897
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8898
    "Modified: / 27-01-2012 / 11:36:01 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8899
    "Created: / 06-03-2012 / 12:47:02 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8900
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8901
11367
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8902
isForBreakpointWithParameter:paramArg
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8903
    ^ false
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8904
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8905
    "Modified: / 27-01-2012 / 11:36:01 / cg"
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8906
    "Created: / 06-03-2012 / 14:36:28 / cg"
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8907
!
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  8908
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8909
isHaltIgnored
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8910
    "true if this halt should be ignored (sometimes)"
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8911
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8912
    ignoreUntilShiftKeyPressed == true ifTrue:[
13764
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  8913
        ^ Screen current shiftDown not
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8914
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8915
    ignoreCount notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8916
        ^ ignoreCount > 0
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8917
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8918
    ignoreEndTime notNil ifTrue:[
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8919
        ^ ignoreEndTime > Timestamp now
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8920
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8921
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8922
    ^ true
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8923
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8924
    "Modified: / 27-01-2012 / 11:36:01 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8925
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8926
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8927
!DebugView::IgnoredHalt methodsFor:'accessing'!
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8928
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8929
method
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8930
    |m|
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8931
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8932
    weakMethodHolder == #all ifTrue:[^ weakMethodHolder ].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8933
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8934
    m := weakMethodHolder at:1.
9796
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8935
"/ wait until really gone (it could still be on the call stack
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8936
"/
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8937
"/    m notNil ifTrue:[
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8938
"/        m mclass isNil ifTrue:[
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8939
"/            "/ no longer valid
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8940
"/            weakMethodHolder at:1 put:nil.
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8941
"/            ^ nil
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8942
"/        ].
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  8943
"/    ].
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  8944
    ^ m
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  8945
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8946
    "Modified: / 08-05-2011 / 10:28:10 / cg"
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8947
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8948
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8949
method:methodArg lineNumber:lineNumberArg
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  8950
    "/ self assert:(methodArg mclass notNil).
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8951
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8952
    methodArg == #all ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8953
        weakMethodHolder := methodArg
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8954
    ] ifFalse:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8955
        weakMethodHolder := WeakArray with:methodArg.
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8956
    ].
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8957
    lineNumber := lineNumberArg.
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  8958
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8959
    "Modified: / 08-05-2011 / 10:28:41 / cg"
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8960
! !
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8961
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8962
!DebugView::IgnoredHalt methodsFor:'printing'!
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8963
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8964
printOn:aStream
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8965
    |method|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8966
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8967
    (method := self method) isNil ifTrue:[
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8968
        aStream nextPutAll:'an obsolete IgnoredHalt'.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  8969
        ^ self
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8970
    ].
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  8971
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8972
    aStream nextPutAll:'Ignore '.
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  8973
    method isSymbol ifTrue:[
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  8974
        method printOn:aStream.
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  8975
    ] ifFalse:[
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  8976
        method whoString printOn:aStream.
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  8977
    ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8978
    self printConditionOn:aStream.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8979
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  8980
    "Modified: / 27-07-2012 / 23:04:42 / cg"
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8981
! !
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  8982
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8983
!DebugView::IgnoredHalt methodsFor:'queries'!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8984
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8985
isActive
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8986
    "true if this ignore-entry is still active"
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8987
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  8988
    self method isNil ifTrue:[self breakPoint:#cg. ^ false ].    "/ method no longer valid
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8989
    ^ super isActive
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8990
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  8991
    "Modified: / 06-03-2012 / 12:40:20 / cg"
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8992
!
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8993
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  8994
isForMethod:aMethod line:line
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8995
    "/ check in this order - method has a flushing side-effect, which is useful here...
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8996
    weakMethodHolder == #all ifTrue:[^ true].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8997
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  8998
    ^ (aMethod = self method) and:[ line = lineNumber ].
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  8999
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9000
    "Modified: / 08-05-2011 / 10:27:31 / cg"
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9001
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9002
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9003
isHaltIgnoredInMethod:aMethod line:line
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9004
    ^ self isHaltIgnoredInMethod:aMethod line:line context:nil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9005
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9006
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9007
isHaltIgnoredInMethod:aMethod line:line context:context
9095
68d06ebf349b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9094
diff changeset
  9008
    "/ Transcript show:'?same as ign '; show:(weakMethodHolder at:1); show:' at '; showCR:lineNumber.
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9009
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9010
"/    Transcript showCR:'-----------------------------'.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9011
"/    Transcript showCR:aMethod.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9012
"/    Transcript showCR:line.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9013
"/    Transcript showCR:context.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9014
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9015
    (self isForMethod:aMethod line:line) ifFalse:[^ false].
9095
68d06ebf349b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9094
diff changeset
  9016
    "/ Transcript show:'is same; ignored: '; showCR:self isHaltIgnored.
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9017
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9018
    context notNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9019
        ignoredReceiverClasses notNil ifTrue:[
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9020
            ^ ignoredReceiverClasses includes:(context receiver class)
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9021
        ].
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9022
    ].
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9023
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9024
"/    Transcript showCR:ignoredProcesses.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9025
"/    Transcript showCR:Processor activeProcess.
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9026
    ignoredProcesses notNil ifTrue:[
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9027
        ^ ignoredProcesses includes:(Processor activeProcess)
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9028
    ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9029
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9030
    ^ self isHaltIgnored
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9031
! !
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9032
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9033
!DebugView::IgnoredBreakpoint methodsFor:'accessing'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9034
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9035
parameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9036
    ^ parameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9037
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9038
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9039
parameter:something
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9040
    parameter := something.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9041
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9042
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9043
!DebugView::IgnoredBreakpoint methodsFor:'printing'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9044
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9045
printOn:aStream
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9046
    aStream nextPutAll:'Ignore breakpoint:#', parameter.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9047
    self printConditionOn:aStream.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9048
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9049
    "Created: / 06-03-2012 / 12:42:10 / cg"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9050
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9051
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9052
!DebugView::IgnoredBreakpoint methodsFor:'queries'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9053
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9054
isForBreakpointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9055
    ^ true
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9056
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9057
    "Created: / 06-03-2012 / 12:54:35 / cg"
11367
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9058
!
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9059
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9060
isForBreakpointWithParameter:paramArg
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9061
    ^ paramArg = parameter
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9062
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9063
    "Created: / 06-03-2012 / 14:36:21 / cg"
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9064
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9065
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9066
!DebugView class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9067
11304
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  9068
version
13904
fa0f2004dfd9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13842
diff changeset
  9069
    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
11304
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  9070
!
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  9071
8952
7742c63ff6f5 catch halts in: #showSelection:
Claus Gittinger <cg@exept.de>
parents: 8745
diff changeset
  9072
version_CVS
13904
fa0f2004dfd9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13842
diff changeset
  9073
    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  9074
!
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  9075
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  9076
version_SVN
13904
fa0f2004dfd9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13842
diff changeset
  9077
    ^ '$Id: DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9078
! !
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9079
12106
0dd284890b62 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12080
diff changeset
  9080
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9081
DebugView initialize!