DebugView.st
author Patrik Svestka <patrik.svestka@gmail.com>
Fri, 19 Nov 2021 14:35:04 +0100
branchjv
changeset 19620 8d670b9a4937
parent 19616 f6fcf7a95cc5
child 19624 9c69c506ba92
permissions -rw-r--r--
Minor refinements of Jan's Monokai code view theme tweaks This patch changes the following: - self displayed italic with the OrangePro color used - red (underwave) hopefully less strainful for the eyes
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
18226
346376844040 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17726
diff changeset
     3
 COPYRIGHT (c) 2015-2017 Jan Vrany
346376844040 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17726
diff changeset
     4
 COPYRIGHT (c) 2017 Patrik Svestka
19605
623b8047f9ad Use `#hasVerticalLayout:` instead of `#verticalLayout:`
Jan Vrany <jan.vrany@labware.com>
parents: 18446
diff changeset
     5
 COPYRIGHT (c) 2021 LabWare
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
     6
              All Rights Reserved
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
     7
571fd5eee315 Initial revision
claus
parents:
diff changeset
     8
 This software is furnished under a license and may be used
571fd5eee315 Initial revision
claus
parents:
diff changeset
     9
 only in accordance with the terms of that license and with the
571fd5eee315 Initial revision
claus
parents:
diff changeset
    10
 inclusion of the above copyright notice.   This software may not
571fd5eee315 Initial revision
claus
parents:
diff changeset
    11
 be provided or otherwise made available to, or used by, any
571fd5eee315 Initial revision
claus
parents:
diff changeset
    12
 other person.  No title to or ownership of the software is
571fd5eee315 Initial revision
claus
parents:
diff changeset
    13
 hereby transferred.
571fd5eee315 Initial revision
claus
parents:
diff changeset
    14
"
2678
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
    15
"{ Package: 'stx:libtool' }"
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
    16
15084
838deef0918f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15027
diff changeset
    17
"{ NameSpace: Smalltalk }"
838deef0918f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15027
diff changeset
    18
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
    19
StandardSystemView subclass:#DebugView
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    20
	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    21
		receiverInspector contextInspector contextArray selectedContext
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    22
		catchBlock grabber mayProceed traceView tracing bigStep
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    23
		skipLineNr abortButton terminateButton continueButton stepButton
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    24
		nextButton nextOverButton nextOutButton sendButton returnButton
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    25
		restartButton exclusive inspecting nChainShown inspectedProcess
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    26
		updateProcess updateButton defineButton monitorToggle stepping
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    27
		steppedContextLineno actualContext inWrap stackInspector
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    28
		steppedContext wrapperContext firstContext stepHow cachable
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    29
		currentMethod ignoreBreakpoints stepUntilEntering
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    30
		lastStepUntilEntering lastSelectionInReceiverInspector
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    31
		lastSelectionInContextInspector canShowMore reportButton
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    32
		setOfHiddenCallingSelectors isStoppedAtHaltOrBreakPoint
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    33
		exceptionInfoLabel methodCodeToggle
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    34
		methodCodeToggleSelectionHolder
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    35
		isStoppedAtBreakPointWithParameter breakPointParameter
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    36
		hideSupportCode contextInfoLabel resendButton
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    37
		gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    38
		classToDefineIn gotoApplicationActionMethodButton
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    39
		isStoppedInApplicationAction isStoppedAtStatementBreakpoint
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    40
		verboseBacktraceHolder keyboardMap'
19616
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
    41
	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
    42
		DebuggingDebugger DebuggingDebugger2 DebuggingContextWalk
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
    43
		DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
    44
		ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
    45
		LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
    46
		NumberOfDebuggers DebuggerOnMainDisplayOnly'
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    47
	poolDictionaries:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    48
	category:'Interface-Debugger'
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
    49
!
571fd5eee315 Initial revision
claus
parents:
diff changeset
    50
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    51
DebugView class instanceVariableNames:'defaultKeyboardMap'
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    52
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    53
"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    54
 The following class instance variables are inherited by this class:
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    55
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    56
	StandardSystemView - 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    57
	TopView - 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    58
	View - 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    59
	SimpleView - ClassResources DefaultFont
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    60
	DisplaySurface - 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    61
	GraphicsMedium - 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    62
	Object - 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    63
"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    64
!
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
    65
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    66
Object subclass:#IgnoredHaltOrBreakpoint
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    67
	instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    68
		ignoredReceiverClasses ignoredProcesses
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    69
		ignoredSendingClassAndSelectors'
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    70
	classVariableNames:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    71
	poolDictionaries:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    72
	privateIn:DebugView
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    73
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    74
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    75
DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredHalt
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    76
	instanceVariableNames:'weakMethodHolder lineNumber'
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    77
	classVariableNames:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    78
	poolDictionaries:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    79
	privateIn:DebugView
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    80
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    81
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
    82
DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredBreakpoint
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    83
	instanceVariableNames:'parameter'
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    84
	classVariableNames:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    85
	poolDictionaries:''
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
    86
	privateIn:DebugView
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
    87
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
    88
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
    89
!DebugView class methodsFor:'documentation'!
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    90
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    91
copyright
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    92
"
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    93
 COPYRIGHT (c) 1989 by Claus Gittinger
18226
346376844040 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17726
diff changeset
    94
 COPYRIGHT (c) 2015-2017 Jan Vrany
346376844040 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17726
diff changeset
    95
 COPYRIGHT (c) 2017 Patrik Svestka
19605
623b8047f9ad Use `#hasVerticalLayout:` instead of `#verticalLayout:`
Jan Vrany <jan.vrany@labware.com>
parents: 18446
diff changeset
    96
 COPYRIGHT (c) 2021 LabWare
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
    97
              All Rights Reserved
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    98
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
    99
 This software is furnished under a license and may be used
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   100
 only in accordance with the terms of that license and with the
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   101
 inclusion of the above copyright notice.   This software may not
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   102
 be provided or otherwise made available to, or used by, any
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   103
 other person.  No title to or ownership of the software is
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   104
 hereby transferred.
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   105
"
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   106
!
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   107
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   108
documentation
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   109
"
1240
ff3fdaa72df6 In #destroy CodeView>>contents: has been called and caused a
Stefan Vogel <sv@exept.de>
parents: 1213
diff changeset
   110
    This class implements a graphical debugger interface.
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   111
    The debugger usually sits on top of the faulting process,
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   112
    taking over its event processing.
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   113
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   114
    (this is different from other Smalltalk debuggers, which control
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   115
     the debuggee as a separate process. Consider this an historic
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
   116
     leftover - the debugger was one of the first applications written for ST/X.
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
   117
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   118
     The whole setup might be changed, once the required process primitives
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   119
     are available, which allow control of another processes execution
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   120
     (i.e. single-step, restart & return). The setup will be changed then,
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
   121
     to have the debugger control the debuggee (i.e. two processes).
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   122
     However, as it works as it is, and is reliable enough,
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
   123
     why should we change it without a particular need...).
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   124
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   125
    Only the 'stopped' debugged process is affected;
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   126
    other processes continue to respond to events.
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
   127
    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
   128
    or in one of the eventhandler processes. In this case, the debugger
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   129
    will sit on an exclusive display connection.
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   130
35
cd5cb075fd6a *** empty log message ***
claus
parents: 29
diff changeset
   131
    See additional information in 'doc/misc/debugger.doc'.
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   132
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
   133
    Notice & Warning (attention when changing thingslike menus, window spec etc. here):
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   134
        the DebugView class caches the last used debugger in a class variable,
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   135
        and hides/shows this window without recreating one from scratch. This is done to make
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   136
        the debugger come up faster when single stepping, or hopping from breakpoint to breakpoint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   137
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   138
        It may happen, that a malfunctioning debugger (for example, a halfway created/destroyed one)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   139
        is kept there. You will notice this, if a debugger comes up without showing any contents.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   140
        In this case, close (or destroy) the broken debugView, and execute
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   141
            Debugger newDebugger
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   142
        which removes the cached debugger and forces creation of a new one the next time.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   143
        This is a temporary workaround - the debugger should be fixed to avoid this situation.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   144
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   145
        You must also flush the cached debugger, if you change the debugger's
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   146
        initialization code (buttons, menu, etc.) or the debugger's class layout,
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   147
        and you want the new code to become effective.
508
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   148
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   149
    [author:]
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   150
        Claus Gittinger
508
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   151
8d2ab732fca5 documentation
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
   152
    [see also:]
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   153
        Exception Signal
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   154
        Process
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   155
"
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   156
! !
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   157
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
   158
!DebugView class methodsFor:'initialization'!
243
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   159
1092
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   160
initialize
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
   161
    DebuggingDebugger := DebuggingDebugger2 := MoreDebuggingDetail := false.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
   162
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
   163
    InitialNChainShown := 50.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
   164
    "/ DefaultDebuggerBackgroundColor := nil.
3387
4cbed052fbbe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3350
diff changeset
   165
    "/ DefaultDebuggerBackgroundColor := Color red lightened.
4cbed052fbbe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3350
diff changeset
   166
    "/ DefaultDebuggerBackgroundColor := Color blue lightened lightened.
1092
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   167
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   168
    "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
   169
    "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
   170
!
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
   171
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   172
initializeDefaultKeyboardMap
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   173
    defaultKeyboardMap := KeyboardMap new.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   174
    defaultKeyboardMap 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   175
        bindValue: #DebuggerContinue to: #F9;
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   176
        bindValue: #DebuggerNext to: #F8;
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   177
        bindValue: #DebuggerSend to: #F7.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   178
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   179
      "/Other possibilities actions, not bound by default...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   180
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   181
      "/bindValue: #DebuggerAbort to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   182
      "/bindValue: #DebuggerDefine to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   183
      "/bindValue: #DebuggerGotoResponsibleApplicationMethod to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   184
      "/bindValue: #DebuggerGoToDialogOpener to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   185
      "/bindValue: #DebuggerNext to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   186
      "/bindValue: #DebuggerResend to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   187
      "/bindValue: #DebuggerRestart to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   188
      "/bindValue: #DebuggerTerminate to: ...
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   189
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   190
    "Ceated: / 04-02-2017 / 22:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   191
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   192
    "Created: / 04-02-2017 / 22:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
   193
    "Modified: / 13-10-2017 / 22:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   194
!
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   195
243
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   196
reinitialize
7822
3438bb87dda0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7797
diff changeset
   197
    "reinitialize after an image-restart"
3438bb87dda0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7797
diff changeset
   198
243
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   199
    self newDebugger
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   200
! !
4cdc71d87dd4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 212
diff changeset
   201
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   202
!DebugView class methodsFor:'accessing'!
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   203
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   204
defaultKeyboardMap
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   205
    defaultKeyboardMap isNil ifTrue:[
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   206
        self initializeDefaultKeyboardMap.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   207
    ].
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   208
    ^ defaultKeyboardMap
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   209
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   210
    "Created: / 04-02-2017 / 22:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   211
! !
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
   212
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   213
!DebugView class methodsFor:'cleanup'!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   214
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   215
lowSpaceCleanup
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   216
    "in low memory situations, give up cached debuggers"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   217
16750
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   218
    CachedDebugger notNil ifTrue:[
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   219
        CachedDebugger destroy.
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   220
        CachedDebugger := nil.
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   221
    ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   222
    CachedExclusive := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   223
    OpenDebuggers := nil.
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
   224
    RememberedCallChain := nil.
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   225
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   226
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   227
     DebugView lowSpaceCleanup
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   228
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   229
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
   230
    "Modified: / 08-03-2012 / 01:30:21 / cg"
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   231
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   232
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   233
newDebugger
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
   234
    "force creation of a new debugger (give up cached debuggers).
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
   235
     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
   236
     that an old, cached debugger gets reused when the next error comes around."
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   237
16750
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   238
    CachedDebugger notNil ifTrue:[
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   239
        CachedDebugger destroy.
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   240
        CachedDebugger := nil.
1cb2908253d2 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16730
diff changeset
   241
    ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   242
    CachedExclusive := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   243
    OpenDebuggers := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   244
16262
1b719dfc2813 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16253
diff changeset
   245
    "/ only assign to the global debugger, if it has not been redefined
1b719dfc2813 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16253
diff changeset
   246
    "/ to another class.
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   247
    (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[
16262
1b719dfc2813 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16253
diff changeset
   248
        Smalltalk at:#Debugger put:self
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   249
    ].
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
     DebugView newDebugger
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   253
    "
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   254
! !
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   255
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   256
!DebugView class methodsFor:'defaults'!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   257
14695
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   258
debuggerOnMainDisplayOnly
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   259
    ^ DebuggerOnMainDisplayOnly ? true
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   260
!
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   261
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   262
defaultIcon
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   263
    "return the browsers default window icon"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   264
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   265
    <resource: #programImage>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   266
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   267
    ^ ToolbarIconLibrary debug22x22Icon
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   268
    "/ ^ ToolbarIconLibrary debugIt20x20Icon
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   269
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   270
    "Modified: / 11-02-2007 / 11:47:20 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   271
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   272
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   273
defaultIconForAboutBox
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   274
    <resource: #programImage>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   275
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   276
    ^ ToolbarIconLibrary debug22x22IconForBlackBackgound
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   277
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   278
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   279
defaultVerboseBacktrace
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   280
    <resource: #obsolete>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   281
    self obsoleteMethodWarning.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   282
    ^ UserPreferences current verboseBacktraceInDebugger
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   283
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   284
    "Created: 11.1.1997 / 12:14:35 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   285
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   286
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   287
defaultVerboseBacktrace:aBoolean
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   288
    <resource: #obsolete>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   289
    self obsoleteMethodWarning.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   290
    UserPreferences current verboseBacktraceInDebugger:aBoolean
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   291
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   292
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   293
maxNumberOfDebuggers
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   294
    "to prevent debuggers from flooding the screen,
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   295
     in case of an error in an ever-forked background process
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   296
     (such as tooltip process)"
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   297
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   298
    ^ 20
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   299
!
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   300
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   301
updateStyleCache
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   302
    "extract values from the styleSheet and cache them in class variables"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   303
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   304
    <resource: #style (#'debugView.viewBackgroundColor')>
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   305
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   306
    DefaultDebuggerBackgroundColor := StyleSheet at:#'debugView.viewBackgroundColor'
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   307
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   308
    "Modified: / 17.11.2001 / 17:31:42 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   309
! !
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   310
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   311
!DebugView class methodsFor:'ignoring halts'!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   312
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   313
haltIgnoreInformationFor:haltingMethod atLineNr:lineNrInHaltingMethod
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   314
    "the information (if any) about the ignore-state of a halt"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   315
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   316
    IgnoredHalts isNil ifTrue:[^ nil].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   317
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   318
    IgnoredHalts do:[:ign |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   319
        (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   320
        "/ (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   321
        ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   322
            ^ ign
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   323
        ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   324
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   325
    ^ nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   326
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   327
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   328
hasIgnoredHalts
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   329
    self removeInactiveIgnores.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   330
    ^ IgnoredHalts notEmptyOrNil
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   331
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   332
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   333
ignoreBreakpointWithParameter:parameterOrNil
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   334
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   335
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   336
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   337
    "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
   338
     or until some time has elapsed.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   339
     With nil count and time arguments, such an ignored breakpoint is reactivated"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   340
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   341
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   342
        ignoreHaltOrBreakpoint:#halt
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   343
        method:nil line:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   344
        parameter:parameterOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   345
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   346
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   347
        orIfCalledFromMethod:nil
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   348
!
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   349
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   350
ignoreHaltIn:haltingMethod at:lineNrOfHalt
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   351
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   352
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   353
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   354
    "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
   355
     or until some time has elapsed.
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   356
     With nil count and time arguments, such an ignored halt is reactivated"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   357
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   358
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   359
        ignoreHaltOrBreakpoint:#halt
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   360
        method:haltingMethod line:lineNrOfHalt
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   361
        parameter:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   362
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   363
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   364
        orIfCalledFromMethod:nil
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   365
!
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   366
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   367
ignoreHaltIn:haltingMethod at:lineNrOfHalt
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   368
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   369
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   370
        orIfCalledFromMethod:ifCalledForMethodOrNil
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   371
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   372
    "remember to ignore a halt in some method for some number of invocations
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   373
     or until some time has elapsed. 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   374
     With a count of -1, it is ignored forever (i.e. until reenabled via the
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   375
     settings).
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   376
     With nil count and time arguments, such an ignored halt is reactivated"
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   377
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   378
    self
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   379
        ignoreHaltOrBreakpoint:#halt
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   380
        method:haltingMethod line:lineNrOfHalt
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   381
        parameter:nil
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   382
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   383
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   384
        orIfCalledFromMethod:ifCalledForMethodOrNil
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   385
!
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   386
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   387
ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   388
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   389
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   390
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   391
    "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
   392
     or until some time has elapsed.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   393
     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
   394
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   395
    ^ self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   396
        ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   397
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   398
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   399
        orIfCalledFromMethod:nil
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   400
!
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   401
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   402
ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   403
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   404
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   405
        orIfCalledFromMethod:ifCalledFromMethodOrNil
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   406
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   407
    "remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   408
     or until some time has elapsed.
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   409
     With nil count and time arguments, such an ignored breakpoint is reactivated"
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   410
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   411
    |oldEntry ign|
12947
46051d026ba5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12941
diff changeset
   412
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   413
    IgnoredHalts notNil ifTrue:[
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   414
        self removeInactiveIgnores.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   415
        type == #halt ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   416
            oldEntry := IgnoredHalts
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   417
                            detect:[:ign | ign isForMethod:methodOrNil line:lineNrOfHaltOrNil]
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   418
                            ifNone:nil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   419
        ] ifFalse:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   420
            oldEntry := IgnoredHalts
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   421
                            detect:[:ign | ign isForBreakpointWithParameter:parameterOrNil]
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   422
                            ifNone:nil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   423
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   424
        oldEntry notNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   425
            (processOrNil notNil or:[receiverClassOrNil notNil]) ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   426
                receiverClassOrNil notNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   427
                    oldEntry ignoreForReceiverClass:receiverClassOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   428
                ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   429
                processOrNil notNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   430
                    oldEntry ignoreForProcess:processOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   431
                ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   432
                ^ self.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   433
            ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   434
            IgnoredHalts remove:oldEntry ifAbsent:[].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   435
        ]
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   436
    ].
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   437
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   438
    (countOrNil notNil
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   439
      or:[dTOrNil notNil
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   440
      or:[untilShiftKey == true
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   441
      or:[receiverClassOrNil notNil
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   442
      or:[processOrNil notNil
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
   443
      or:[ifCalledFromMethodOrNil notNil]]]]]
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   444
    ) ifTrue:[
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   445
        IgnoredHalts isNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   446
            IgnoredHalts := OrderedCollection new.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   447
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   448
        type == #halt ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   449
            ign := IgnoredHalt new method:methodOrNil lineNumber:lineNrOfHaltOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   450
        ] ifFalse:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   451
            ign := IgnoredHalt new breakpointWithParameter:parameterOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   452
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   453
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   454
        (countOrNil notNil and:[countOrNil > 0]) ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   455
            ign ignoreCount:countOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   456
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   457
        (dTOrNil notNil) ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   458
            ign ignoreEndTime:(Timestamp now + dTOrNil).
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   459
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   460
        untilShiftKey == true ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   461
            ign ignoreUntilShiftKeyPressed:true.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   462
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   463
        receiverClassOrNil notNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   464
            ign ignoreForReceiverClass:receiverClassOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   465
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   466
        processOrNil notNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   467
            ign ignoreForProcess:processOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   468
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   469
        ifCalledFromMethodOrNil notNil ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   470
            ign ignoreIfCalledFromMethod:ifCalledFromMethodOrNil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   471
        ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
   472
        IgnoredHalts add:ign.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   473
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   474
    Smalltalk changed:#ignoredHalts.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   475
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   476
    "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
   477
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   478
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   479
isBreakpointToBeIgnoredForParameter:parameter context:aContext modifyEntryCount:modifyCount
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   480
    "/ should a breakpoint be ignored ?
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   481
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   482
    IgnoredHalts isNil ifTrue:[^ false].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   483
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   484
    "/ 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
   485
    IgnoredHalts do:[:ign |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   486
        (ign isForBreakpointWithParameter:parameter) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   487
            Transcript show:'Debugger [info]: break ignored for ', parameter.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   488
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   489
            modifyCount ifTrue:[ ign decrementIgnoreCount ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   490
            ign isHaltIgnored ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   491
                Transcript showCR:'Debugger [info]: no longer ignore breakpoint for ', parameter.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   492
                IgnoredHalts remove:ign ifAbsent:[].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   493
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   494
            ^ true.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   495
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   496
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   497
13162
e19746a3bf73 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13111
diff changeset
   498
    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
   499
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   500
    ^ false.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   501
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   502
    "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
   503
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
   504
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
   505
isHaltToBeIgnoredIn:haltingMethod atLineNr:lineNrInHaltingMethod context:aContext modifyEntryCount:modifyCount
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   506
    "should a halt be ignored ?"
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   507
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   508
    IgnoredHalts isNil ifTrue:[^ false].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   509
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   510
    "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   511
    IgnoredHalts do:[:ign |
16376
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   512
        (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod context:aContext) ifTrue:[
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   513
            Transcript showCR:'Debugger [info]: halt/break ignored: %1' with:ign.
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   514
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   515
            modifyCount ifTrue:[ ign decrementIgnoreCount ].
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   516
            ign isHaltIgnored ifFalse:[
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   517
                Transcript showCR:'Debugger [info]: no longer ignored (rest count=0)'.
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   518
                IgnoredHalts remove:ign ifAbsent:[].
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   519
            ].
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   520
            ^ true.
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
   521
        ].
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   522
    ].
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   523
13162
e19746a3bf73 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13111
diff changeset
   524
    IgnoredHalts := (IgnoredHalts reject:[:ign | ign isActive not]) asNilIfEmpty.
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   525
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   526
    ^ false.
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   527
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   528
    "Modified (comment): / 06-03-2012 / 12:51:43 / cg"
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   529
!
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
   530
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   531
removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   532
    IgnoredHalts notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   533
        IgnoredHalts := IgnoredHalts select:[:i | i isActive].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   534
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   535
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   536
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   537
stopIgnoringHalts
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   538
    "forget about all ignored halts"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   539
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   540
    IgnoredHalts := nil.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   541
    Smalltalk changed:#ignoredHalts.
15302
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   542
!
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   543
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   544
stopIgnoringHaltsFor:haltingMethod atLineNr:lineNrInHaltingMethod
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   545
    "remove the information (if any) about the ignore-state of a halt;
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   546
     effectively reenables the breakpoint/halt"
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   547
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   548
    IgnoredHalts isNil ifTrue:[^ self].
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   549
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   550
    IgnoredHalts := IgnoredHalts reject:[:ign |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   551
        (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
15302
7d996ab57223 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15260
diff changeset
   552
    ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   553
! !
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   554
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
   555
!DebugView class methodsFor:'instance creation / entering'!
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   556
2421
9b166a3ce3cd checkin from browser
ca
parents: 2404
diff changeset
   557
enter
9b166a3ce3cd checkin from browser
ca
parents: 2404
diff changeset
   558
    "enter a debugger"
9b166a3ce3cd checkin from browser
ca
parents: 2404
diff changeset
   559
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   560
    <context: #return>
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   561
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   562
    ^ self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   563
        enter:thisContext sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   564
        withMessage:'Debugger Entered'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   565
        mayProceed:true.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   566
!
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   567
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   568
enter:aContext withMessage:aString
2355
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   569
    "enter a debugger"
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   570
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   571
    <context: #return>
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   572
2355
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   573
    ^ self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   574
        enter:aContext
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   575
        withMessage:aString
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   576
        mayProceed:true
2355
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   577
!
5c881cb45539 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2352
diff changeset
   578
2317
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
   579
enter:aContext withMessage:aString mayProceed:mayProceed
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   580
    "enter a debugger; if this is a recursive invocation, enter
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   581
     a MiniDebugger instead.
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   582
     This is the standard way of entering the debugger;
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   583
     sent from error- and halt messages."
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   584
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   585
    <context: #return>
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   586
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   587
    |nDebuggers display|
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   588
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   589
    nDebuggers := (NumberOfDebuggers ? 0).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   590
    (nDebuggers < 0 or:[nDebuggers > self maxNumberOfDebuggers]) ifTrue:[
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   591
        "/ ouch - we lost track of some...
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   592
        nDebuggers := NumberOfDebuggers := self allSubInstances count:[:d | d isOpen].
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   593
    ].
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   594
    nDebuggers > self maxNumberOfDebuggers ifTrue:[
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   595
        MiniDebugger enter:aContext withMessage:'too many debuggers - looping?' mayProceed:true.
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   596
    ].
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   597
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   598
    DebuggingDebugger == true ifTrue:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   599
        '==> enter1: (' print. aContext print. ')' printCR.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   600
    ].
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
   601
14695
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   602
    display := (self debuggerOnMainDisplayOnly)
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   603
                ifTrue:[ Display ]
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   604
                ifFalse:[ Screen current ].
14695
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   605
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   606
    Screen currentScreenQuerySignal answer:display
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   607
    do:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   608
        StepInterruptPending := nil.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   609
        ControlInterrupt handle:[:ex |
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   610
            'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   611
            ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   612
            ex proceed
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   613
        ] do:[
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   614
            |debugger|
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   615
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   616
            "
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   617
             well, it could be a stepping or sending debugger up there;
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   618
             in this case, return to it. This happens, when a stepping process
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   619
             runs into an error (for example, a halt). In this case, we want the
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   620
             stepping debugger to come up again instead of a new one.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   621
            "
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   622
            (debugger := self openDebuggerForActiveProcess) notNil ifTrue:[
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   623
                debugger unstep.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   624
                debugger setLabelFor:aString in:Processor activeProcess.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   625
                debugger mayProceed:mayProceed.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   626
                ^ debugger enter:aContext select:nil.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   627
            ].
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   628
        ].
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
   629
        ^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
14695
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   630
    ].
526
8be290d825d6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   631
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   632
    "Modified: / 06-11-2013 / 20:58:54 / cg"
53
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   633
!
2fc78a0165e7 *** empty log message ***
claus
parents: 52
diff changeset
   634
8347
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   635
enterException:ex
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   636
    "enter a debugger; if this is a recursive invocation, enter
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   637
     a MiniDebugger instead.
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   638
     This is the standard way of entering the debugger;
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   639
     sent from error- and halt messages."
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   640
15730
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   641
    "/ a quick check for ignored breakpoints here,
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   642
    "/ to shortcut the expensive debugger setup.
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   643
    "/ big speedup when many ignored breakpoints are reached.
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   644
    IgnoredHalts notNil ifTrue:[
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   645
        ((ex creator == NoHandlerError)
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   646
        and:[ ex exception creator == BreakPointInterrupt ])  ifTrue:[
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   647
            (self 
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   648
                isHaltToBeIgnoredIn:(ex suspendedContext method)
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   649
                atLineNr:1
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   650
                context:(ex suspendedContext)
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   651
                modifyEntryCount:true
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   652
            ) ifTrue:[
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   653
                "/ Transcript showCR:'quick ignored'.
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   654
                ^ true.
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   655
            ].
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   656
        ].
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   657
    ].
8347
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   658
    ^ self
15730
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   659
        enter:ex returnableSuspendedContext
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   660
        withMessage:('[',ex originalSignal class name,']: ',ex descriptionForDebugger)
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
   661
        mayProceed:(ex mayProceed).
8347
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   662
!
724f40cfdbc6 +enterException
Claus Gittinger <cg@exept.de>
parents: 8338
diff changeset
   663
2317
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
   664
enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   665
    "enter a debugger - do not check for recursive invocation"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   666
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   667
    <context: #return>
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
   668
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   669
    |aDebugger|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   670
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   671
    StepInterruptPending := nil.
13111
62e4e27bd560 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13059
diff changeset
   672
    NumberOfDebuggers := (NumberOfDebuggers ? 0) + 1.
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
   673
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
   674
    "/ ignore halts & breakpoints while setting up the debugger
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
   675
    "/ to avoid recursive debugging ...
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   676
    ControlInterrupt handle:[:ex |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   677
        'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   678
        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   679
        ex proceed
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
   680
    ] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   681
        aDebugger := self new.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   682
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   683
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   684
    aDebugger isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   685
        'DebugView [error]: cannot open debugger' errorPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   686
        'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   687
        mayProceed ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   688
            (Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   689
                   yesLabel:'Continue' noLabel:'Abort')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   690
            ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   691
                ^ nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   692
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   693
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   694
            self information:'Error caught.\\Press OK to abort the operation.' withCRs.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   695
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   696
        AbortOperationRequest raise.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   697
        "not reached"
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
   698
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   699
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   700
    aDebugger mayProceed:mayProceed.
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   701
    aDebugger setLabelFor:aString in:Processor activeProcess.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   702
    aDebugger enter:aContext select:nil.
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   703
    ^ nil.
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   704
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   705
    "
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   706
        nil halt
5911
a1444e8c5061 #enter:... returns the value for proceed
Stefan Vogel <sv@exept.de>
parents: 5904
diff changeset
   707
    "
1244
413709b30fd2 more care for breakpoints in debugger
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
   708
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
   709
    "Modified: / 18.11.2001 / 00:29:23 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   710
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   711
6430
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   712
enterWithMessage:message
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   713
    "enter a debugger"
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   714
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   715
    <context: #return>
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   716
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   717
    ^ self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   718
        enter:(thisContext sender)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   719
        withMessage:message
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   720
        mayProceed:true.
6430
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   721
!
7673388c3254 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6366
diff changeset
   722
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   723
new
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   724
    "return a new DebugView.
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   725
     - return a cached debugger if it already exists.
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   726
     Also, care for remote displays on which no debugger is wanted
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   727
     (ask with mayOpenDebugger) - if so, open on the default screen."
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   728
14695
cecbcb8523d9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14680
diff changeset
   729
    |debugger currentScreen debuggerScreen|
2358
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   730
81472caab073 comment
Claus Gittinger <cg@exept.de>
parents: 2355
diff changeset
   731
    currentScreen := Screen current.
14
e07eee5d93ca *** empty log message ***
claus
parents: 13
diff changeset
   732
3030
5adb33d5111d fixed devices mayOpenDebugger / suppressDebugger handling.
Michael Beyl <mb@exept.de>
parents: 2963
diff changeset
   733
    currentScreen notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   734
        (currentScreen suppressDebugger) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   735
            "/ no debuggers with that device - show an alertBox which aborts...
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   736
            ^ nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   737
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   738
        (currentScreen mayOpenDebugger) ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   739
            "/ no debugger on that device - but on the main screen
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   740
            currentScreen := Display ? Screen default.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   741
        ].
3030
5adb33d5111d fixed devices mayOpenDebugger / suppressDebugger handling.
Michael Beyl <mb@exept.de>
parents: 2963
diff changeset
   742
    ].
5adb33d5111d fixed devices mayOpenDebugger / suppressDebugger handling.
Michael Beyl <mb@exept.de>
parents: 2963
diff changeset
   743
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   744
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   745
     need a blocking debugger if no processes or
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
   746
     or if its a timing/interrupt process
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   747
     (because otherwise we would not get any events here ...
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   748
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   749
    Processor activeProcessIsSystemProcess ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   750
        ((debugger := CachedExclusive) isNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   751
        or:[debugger device ~~ currentScreen
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   752
        or:[currentScreen isNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   753
        or:[currentScreen isOpen not]]]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   754
            debugger := self newExclusive
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   755
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   756
        CachedExclusive := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   757
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   758
        CachedDebugger notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   759
            (CachedDebugger device ~~ currentScreen
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   760
            or:[currentScreen isNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   761
            or:[currentScreen isOpen not
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   762
            or:[CachedDebugger class ~~ self]]]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   763
                CachedDebugger := nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   764
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   765
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   766
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   767
        (debugger := CachedDebugger) notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   768
            CachedDebugger := nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   769
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   770
            debuggerScreen := currentScreen.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   771
            debuggerScreen isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   772
                "/ use the default display
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   773
                debuggerScreen := Screen default.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   774
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   775
            (debuggerScreen isNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   776
            or:[debuggerScreen isOpen not
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   777
            "/ or:[debuggerDevice mayOpenDebugger not]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   778
            ]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   779
                "/ no debugger
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   780
                ^ nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   781
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   782
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   783
            Screen currentScreenQuerySignal answer:debuggerScreen
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   784
            do:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   785
                debugger := super new.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   786
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   787
            debugger label:'Debugger'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   788
            debugger icon:self defaultIcon.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   789
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   790
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
   791
    ^ debugger
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   792
1265
3db375412f5d avoid caching a debugger which got destroyed
Claus Gittinger <cg@exept.de>
parents: 1263
diff changeset
   793
    "Modified: 31.7.1997 / 21:20:27 / cg"
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
   794
!
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
   795
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   796
newExclusive
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   797
    "return a debugger for exclusive display access"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   798
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   799
    |debugger|
105
claus
parents: 101
diff changeset
   800
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   801
    debugger := super new.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   802
    debugger label:'Debugger'.
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   803
    debugger icon:self defaultIcon.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   804
    debugger exclusive:true.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   805
    ^ debugger
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   806
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   807
    "Modified: 1.1.1970 / 23:27:06 / cg"
105
claus
parents: 101
diff changeset
   808
!
claus
parents: 101
diff changeset
   809
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   810
openDebuggerForActiveProcess
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   811
    "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
   812
     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
   813
     is reached, to avoid too much flickering and redrawing on the screen"
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   814
17188
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   815
    "
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   816
     well, it could be a stepping or sending debugger up there;
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   817
     in this case, return to it. This happens, when a stepping process
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   818
     runs into an error (for example, a halt). In this case, we want the
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   819
     stepping debugger to come up again instead of a new one.
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   820
    "
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   821
    OpenDebuggers notNil ifTrue:[
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   822
        ^ self openDebuggerForProcess:(Processor activeProcess)
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   823
    ].    
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   824
    ^ nil
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   825
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   826
    "Created: / 06-11-2013 / 20:57:49 / cg"
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   827
!
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   828
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   829
openDebuggerForProcess:aProcess
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   830
    "if aProcess is being debugged and has an open debugger on it, 
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   831
     then return it, or nil, if there is none.
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   832
     Open debuggers also exist as unmapped windows when single-stepping"
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   833
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   834
    "
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   835
     well, it could be a stepping or sending debugger up there;
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   836
     in this case, return to it. This happens, when a stepping process
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   837
     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
   838
     stepping debugger to come up again instead of a new one.
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   839
    "
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   840
    OpenDebuggers notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   841
        OpenDebuggers do:[:aDebugger |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   842
            |debuggersProcess|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   843
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   844
            (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   845
                debuggersProcess := aDebugger inspectedProcess.
17188
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   846
                debuggersProcess == aProcess ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   847
                    aDebugger device isOpen ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   848
                        DebuggingDebugger == true ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   849
                            'reusing cached debugger' errorPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   850
                        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   851
                        aDebugger unstep.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   852
                        ^ aDebugger.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   853
                    ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   854
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   855
                (debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   856
                    aDebugger destroy.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   857
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   858
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   859
        ]
13666
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   860
    ].
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   861
    ^ nil
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   862
!
72c4ba297f65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13641
diff changeset
   863
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   864
openOn:aProcess
17188
8f420441108e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17185
diff changeset
   865
    "start a debugger on aProcess
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   866
     (actually not more than a good-looking inspector)"
15
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   867
52
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
   868
    |aDebugger label nm|
15
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   869
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   870
    aDebugger := super new.
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   871
    aDebugger icon:self defaultIcon.
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   872
    aProcess notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   873
        nm := aProcess name.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   874
        nm notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   875
            nm := (nm contractTo:17) , '-' , aProcess id printString
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   876
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   877
            nm := aProcess id printString
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   878
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   879
        label := 'Debugger [' , nm , ']'.
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   880
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   881
        label := 'no process'
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
   882
    ].
1114
c663a9b0a1dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1101
diff changeset
   883
    aDebugger label:label iconLabel:'Debugger'.
15
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   884
    aDebugger openOn:aProcess.
7fc8fcef7bc6 *** empty log message ***
claus
parents: 14
diff changeset
   885
    ^ nil
875
f8ee393ca634 use Image instead of Form
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   886
1114
c663a9b0a1dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1101
diff changeset
   887
    "Modified: 4.4.1997 / 16:22:36 / cg"
126
claus
parents: 124
diff changeset
   888
! !
claus
parents: 124
diff changeset
   889
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   890
!DebugView class methodsFor:'menu specs'!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   891
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   892
breakPointMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   893
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   894
     by the MenuEditor of ST/X."
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
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   897
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   898
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   899
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
     MenuEditor new openOnClass:DebugView andSelector:#breakPointMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   902
     (Menu new fromLiteralArrayEncoding:(DebugView breakPointMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   903
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   904
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   905
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   906
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
   907
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
   908
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   909
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   910
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   911
            enabled: canRemoveBreakpoint
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   912
            label: 'Remove Breakpoint'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   913
            itemValue: removeBreakpoint
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   914
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   915
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   916
            label: 'Remove all Breakpoints'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   917
            itemValue: removeAllBreakpoints
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   918
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   919
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   920
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   921
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   922
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   923
            label: 'Ignore this Halt/BreakPoint'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   924
            submenu:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   925
           (Menu
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   926
              (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   927
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   928
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   929
                  label: 'Forever (Until Ignoring is Stopped)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   930
                  itemValue: ignoreHaltForever
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   931
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   932
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   933
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   934
                  label: 'For Some Time...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   935
                  itemValue: openIgnoreHaltUntilTimeElapsedDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   936
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   937
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   938
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   939
                  label: 'For the Next N Times...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   940
                  itemValue: openIgnoreHaltNTimesDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   941
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   942
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   943
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   944
                  label: 'Until Shift-Key is Pressed'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   945
                  itemValue: ignoreHaltUntilShiftKeyIsPressed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   946
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   947
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   948
                  label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   949
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   950
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   951
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   952
                  label: 'In Current Process'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   953
                  itemValue: ignoreHaltForCurrentProcess
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   954
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   955
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   956
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   957
                  label: 'For this Receiver Class'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   958
                  itemValue: ignoreHaltForThisReceiverClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   959
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   960
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   961
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   962
                  label: 'If Called from Any Of'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   963
                  submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   964
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   965
               )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   966
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   967
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   968
            )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   969
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   970
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   971
            enabled: isStoppedAtBreakPointWithParameter
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   972
            label: 'Ignore all BreakPoints with this Parameter'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   973
            submenu:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   974
           (Menu
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   975
              (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   976
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   977
                  enabled: isStoppedAtBreakPointWithParameter
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   978
                  label: 'Forever (Reenable in BreakPoint-Browser)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   979
                  itemValue: ignoreBreakpointsWithThisParameterForever
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   980
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   981
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   982
                  enabled: isStoppedAtBreakPointWithParameter
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   983
                  label: 'For Some Time...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   984
                  itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   985
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   986
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   987
                  enabled: isStoppedAtBreakPointWithParameter
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   988
                  label: 'For the Next N Times...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   989
                  itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   990
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   991
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   992
                  enabled: isStoppedAtBreakPointWithParameter
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   993
                  label: 'Until Shift-Key is Pressed'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   994
                  itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   995
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   996
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   997
                  label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   998
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
   999
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1000
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1001
                  label: 'In Current Process'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1002
                  itemValue: ignoreAllHaltsForCurrentProcess
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1003
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1004
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1005
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1006
                  label: 'For this Receiver Class'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1007
                  itemValue: ignoreAllHaltsForThisReceiverClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1008
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1009
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1010
                  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1011
                  label: 'If Called from Any Of'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1012
                  submenuChannel: menuForIgnoreAllBreakpointsIfCalledFromAnyOf
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1013
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1014
               )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1015
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1016
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1017
            )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1018
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1019
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1020
            label: 'Ignore all Halts/BreakPoints'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1021
            submenu:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1022
           (Menu
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1023
              (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1024
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1025
                  label: 'Forever (Until Ignoring is Stopped)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1026
                  itemValue: ignoreAllHaltsForever
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1027
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1028
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1029
                  label: 'For Some Time...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1030
                  itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1031
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1032
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1033
                  label: 'Until Shift-Key is Pressed'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1034
                  itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1035
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1036
               )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1037
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1038
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1039
            )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1040
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1041
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1042
            enabled: hasHaltsToIgnore
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1043
            label: 'Stop Ignoring'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1044
            itemValue: stopIgnoringHalts
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1045
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1046
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1047
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1048
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1049
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1050
            enabled: canAddBreakpoint
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1051
            label: 'Add Breakpoint'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1052
            itemValue: addBreakpoint
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1053
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1054
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1055
            label: 'Manage Breakpoints'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1056
            itemValue: openBreakPointBrowser
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1057
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1058
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1059
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1060
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1061
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1062
            label: 'Allow Halt in Debugger'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1063
            itemValue: allowBreakPointsInDebugger:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1064
            indication: allowBreakPointsInDebugger
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1065
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1066
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1067
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1068
        nil
12437
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
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1071
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1072
classMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1073
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1074
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1075
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1076
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1077
     the MenuEditor may not be able to read the specification."
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
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1080
    "
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1081
     MenuEditor new openOnClass:DebugView andSelector:#receiverMenuSpec
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  1082
     (Menu new fromLiteralArrayEncoding:(DebugView receiverMenuSpec)) startUp
12437
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
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1085
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1086
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1087
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1088
     #(Menu
17106
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1089
        (
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1090
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1091
            enabled: canBrowseImplementingClass
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1092
            label: 'Browse Implementing Class'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1093
            itemValue: browseImplementingClass
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1094
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1095
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1096
            enabled: canBrowseReceiversClass
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1097
            label: 'Browse Receiver''s Class'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1098
            itemValue: browseReceiversClass
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1099
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1100
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1101
            enabled: canBrowseProcessesApplication
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1102
            label: 'Browse Application Class'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1103
            itemValue: browseProcessesApplication
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1104
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1105
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1106
            label: '-'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1107
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1108
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1109
            enabled: canBrowseClassHierarchy
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1110
            label: 'Browse Receiver''s Class Hierarchy'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1111
            itemValue: browseClassHierarchy
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1112
            isVisible: false
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1113
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1114
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1115
            enabled: canBrowseFullClassProtocol
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1116
            label: 'Browse Receiver''s Full Protocol'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1117
            itemValue: browseFullClassProtocol
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1118
            isVisible: false
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1119
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1120
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1121
            label: '-'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1122
            isVisible: false
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1123
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1124
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1125
            enabled: canBrowseProcessesApplication
17107
102e5825228a #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17106
diff changeset
  1126
            label: 'Inspect Application'
17106
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1127
            itemValue: inspectProcessesApplication
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1128
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1129
         (MenuItem
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1130
            enabled: canInspectWidgetHierarchy
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1131
            label: 'Inspect Widget Hierarchy'
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1132
            itemValue: inspectWidgetHierarchy
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1133
          )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1134
         )
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1135
        nil
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  1136
        nil
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1137
      )
17107
102e5825228a #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17106
diff changeset
  1138
102e5825228a #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17106
diff changeset
  1139
    "Modified: / 25-11-2016 / 13:14:28 / cg"
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1140
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1141
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1142
contextMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1143
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1144
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1145
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1146
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1147
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1148
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1149
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1150
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1151
     MenuEditor new openOnClass:DebugView andSelector:#contextMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1152
     (Menu new fromLiteralArrayEncoding:(DebugView contextMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1153
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1154
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1155
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1156
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1157
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1158
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1159
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1160
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1161
            enabled: canReturn
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1162
            label: 'Return'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1163
            itemValue: doReturn
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  1164
            shortcutKey: DebuggerReturn
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1165
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1166
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1167
            enabled: canRestart
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1168
            label: 'Restart'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1169
            itemValue: doRestart
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1170
            shortcutKey: DebuggerRestart
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1171
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1172
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1173
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1174
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1175
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1176
            enabled: hasContextSelected
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1177
            label: 'Inspect'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1178
            itemValue: inspectContext
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1179
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1180
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1181
            label: 'Copy WalkBack Text'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1182
            itemValue: copyWalkbackText
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1183
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1184
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1185
            label: 'Inspect Method'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1186
            itemValue: inspectContextsMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1187
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1188
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1189
            label: 'Bookmark Method in SystemBrowser'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1190
            itemValue: addBrowserBookmark
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1191
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1192
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1193
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1194
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1195
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1196
            enabled: hasBlockContextSelected
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1197
            label: 'Find Home Context in Caller Chain...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1198
            itemValue: findHomeContext
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1199
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1200
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1201
            enabled: hasContextSelected
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1202
            label: 'Find Context with String in Source...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1203
            itemValue: findContextWithStringInSource
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1204
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1205
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1206
            enabled: hasContextSelected
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1207
            label: 'Find Context with Value in Variable...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1208
            itemValue: findContextWithValueInVariable
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1209
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1210
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1211
            enabled: hasContextSelected
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1212
            label: 'Find Next Exception Handler'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1213
            itemValue: findNextExceptionHandlerContext
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1214
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1215
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1216
            enabled: hasContextSelected
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1217
            label: 'Find Handler For...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1218
            itemValue: findHandlerFor
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1219
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1220
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1221
            label: 'Find Dialog Opener...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1222
            itemValue: doGotoDialogOpener
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1223
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1224
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1225
            label: 'Find Application Action Method...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1226
            itemValue: doGotoApplicationActionMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1227
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1228
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1229
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1230
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1231
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1232
            label: 'Remember Callchain && Highlight on Next Entry'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1233
            itemValue: rememberCallchain
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1234
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1235
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1236
            label: 'Clear Remembered Callchain'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1237
            itemValue: clearRememberedCallchain
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1238
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1239
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1240
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1241
        nil
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1242
      )
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1243
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1244
    "Modified: / 13-10-2017 / 22:57:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1245
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1246
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1247
fileMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1248
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1249
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1250
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1251
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1252
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1253
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1254
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1255
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1256
     MenuEditor new openOnClass:DebugView andSelector:#fileMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1257
     (Menu new fromLiteralArrayEncoding:(DebugView fileMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1258
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1259
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1260
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1261
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1262
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1263
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1264
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1265
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1266
            enabled: canSendEmail
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1267
            label: 'Report a Bug via eMail...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1268
            itemValue: doOpenReportMailApp
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1269
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1270
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1271
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1272
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1273
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1274
            enabled: canCloseAllDebuggers
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1275
            label: 'Close all Debuggers...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1276
            itemValue: closeAllDebuggers
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1277
            isVisible: isNotInspecting
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1278
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1279
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1280
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1281
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1282
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1283
            label: 'Exit'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1284
            itemValue: closeRequest
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1285
            isVisible: isInspecting
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1286
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1287
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1288
            label: 'Close Debugger and Abort'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1289
            itemValue: closeRequest
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1290
            isVisible: isNotInspecting
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1291
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1292
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1293
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1294
        nil
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1295
      )
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
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1298
helpMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1299
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1300
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1301
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1302
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1303
     the MenuEditor may not be able to read the specification."
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
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1306
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1307
     MenuEditor new openOnClass:DebugView andSelector:#helpMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1308
     (Menu new fromLiteralArrayEncoding:(DebugView helpMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1309
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1310
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1311
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1312
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1313
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1314
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1315
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1316
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1317
            label: 'Debugger''s Documentation'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1318
            itemValue: openHTMLDocument:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1319
            argument: 'tools/debugger/TOP.html'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1320
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1321
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1322
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1323
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1324
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1325
            label: 'About DebugView...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1326
            itemValue: openAboutThisApplication
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1327
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1328
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1329
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1330
        nil
12437
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
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1333
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1334
menuSpec
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1335
    "This resource specification was automatically generated
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1336
     by the MenuEditor of ST/X."
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1337
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1338
    "Do not manually edit this!! If it is corrupted,
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1339
     the MenuEditor may not be able to read the specification."
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1340
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  1341
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1342
    "
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1343
     MenuEditor new openOnClass:DebugView andSelector:#menuSpec
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1344
     (Menu new fromLiteralArrayEncoding:(DebugView menuSpec)) startUp
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1345
    "
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1346
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1347
    <resource: #menu>
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1348
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1349
    ^
5875
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  1350
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1351
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1352
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1353
            label: 'File'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1354
            submenuChannel: fileMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1355
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1356
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1357
            label: 'View'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1358
            submenuChannel: viewMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1359
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1360
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1361
            label: 'Process'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1362
            submenuChannel: processMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1363
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1364
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1365
            label: 'Context'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1366
            submenuChannel: contextMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1367
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1368
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1369
            label: 'Receiver'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1370
            submenuChannel: classMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1371
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1372
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1373
            label: 'Selector'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1374
            submenuChannel: selectorMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1375
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1376
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1377
            label: 'Breakpoint'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1378
            submenuChannel: breakPointMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1379
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1380
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1381
            label: 'MENU_Help'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1382
            startGroup: conditionalRight
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1383
            submenuChannel: helpMenuSpec
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1384
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1385
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1386
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1387
        nil
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1388
      )
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1389
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1390
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1391
processMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1392
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1393
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1394
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1395
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1396
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1397
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1398
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1399
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1400
     MenuEditor new openOnClass:DebugView andSelector:#processMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1401
     (Menu new fromLiteralArrayEncoding:(DebugView processMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1402
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1403
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1404
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1405
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1406
    ^ 
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1407
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1408
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1409
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1410
            label: 'Continue'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1411
            itemValue: doContinue
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1412
            nameKey: Continue
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1413
            shortcutKey: DebuggerContinue
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1414
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1415
         (MenuItem
17520
34af9a65c309 Debugger: Renamed operations "Next" and "Send" tp "Step Over" and "Step Into"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17519
diff changeset
  1416
            label: 'Debug_Next'
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1417
            itemValue: doNext
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1418
            shortcutKey: DebuggerNext
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1419
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1420
         (MenuItem
17520
34af9a65c309 Debugger: Renamed operations "Next" and "Send" tp "Step Over" and "Step Into"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17519
diff changeset
  1421
            label: 'Debug_Step'
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1422
            itemValue: doStep
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1423
            shortcutKey: DebuggerStep
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1424
          )
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1425
         (MenuItem
17520
34af9a65c309 Debugger: Renamed operations "Next" and "Send" tp "Step Over" and "Step Into"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17519
diff changeset
  1426
            label: 'Debug_Send'
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1427
            itemValue: doSend
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1428
            shortcutKey: DebuggerSend
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1429
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1430
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1431
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1432
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1433
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1434
            label: 'After 5 Seconds'
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  1435
            submenu: 
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1436
           (Menu
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1437
              (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1438
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1439
                  label: 'Continue'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1440
                  itemValue: doContinueAfterDelay
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1441
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1442
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1443
                  label: 'Next (Line-Step)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1444
                  itemValue: doNextAfterDelay
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1445
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1446
               (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1447
                  label: 'Step'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1448
                  itemValue: doStepAfterDelay
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1449
                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1450
               )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1451
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1452
              nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1453
            )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1454
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1455
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1456
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1457
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1458
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1459
            label: 'Skip to Cursor Line'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1460
            itemValue: skip
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1461
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1462
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1463
            label: 'Step Out (Skip until Return)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1464
            itemValue: skipForReturn
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1465
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1466
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1467
            label: 'Skip until Entering...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1468
            itemValue: skipUntilEntering
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1469
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1470
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1471
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1472
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1473
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1474
            label: 'Abort'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1475
            itemValue: doAbort
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1476
            shortcutKey: DebuggerAbort
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1477
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1478
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1479
            enabled: abortAllIsHandled
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1480
            label: 'Abort All'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1481
            itemValue: doAbortAll
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1482
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1483
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1484
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1485
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1486
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1487
            label: 'Inspect'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1488
            itemValue: doInspectProcess
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1489
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1490
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1491
            label: 'Change Priority...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1492
            itemValue: doChangeProcessPriority
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1493
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1494
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1495
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1496
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1497
         (MenuItem
17520
34af9a65c309 Debugger: Renamed operations "Next" and "Send" tp "Step Over" and "Step Into"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17519
diff changeset
  1498
            label: 'Debug_Terminate'
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1499
            itemValue: doTerminate
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1500
            shortcutKey: DebuggerTerminate
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1501
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1502
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1503
            label: 'Hard Terminate (Danger)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1504
            itemValue: quickTerminate
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1505
            isVisible: false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1506
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1507
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1508
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1509
        nil
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1510
      )
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1511
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1512
    "Modified: / 13-10-2017 / 22:57:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1513
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1514
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1515
selectorMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1516
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1517
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1518
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1519
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1520
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1521
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1522
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1523
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1524
     MenuEditor new openOnClass:DebugView andSelector:#selectorMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1525
     (Menu new fromLiteralArrayEncoding:(DebugView selectorMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1526
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1527
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1528
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1529
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1530
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1531
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1532
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1533
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1534
            label: 'Browse Implementors...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1535
            itemValue: browseImplementorsOf
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1536
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1537
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1538
            label: 'Browse Senders...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1539
            itemValue: browseSendersOf
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1540
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1541
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1542
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1543
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1544
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1545
            enabled: canDefineMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1546
            label: 'Define Missing Method'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1547
            itemValue: doDefineMethod
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1548
            shortcutKey: DebuggerDefine
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1549
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1550
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1551
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1552
        nil
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1553
      )
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1554
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  1555
    "Modified: / 13-10-2017 / 22:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1556
!
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1557
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1558
viewMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1559
    "This resource specification was automatically generated
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1560
     by the MenuEditor of ST/X."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1561
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1562
    "Do not manually edit this!! If it is corrupted,
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1563
     the MenuEditor may not be able to read the specification."
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1564
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1565
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1566
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1567
     MenuEditor new openOnClass:DebugView andSelector:#viewMenuSpec
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1568
     (Menu new fromLiteralArrayEncoding:(DebugView viewMenuSpec)) startUp
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1569
    "
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1570
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1571
    <resource: #menu>
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1572
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  1573
    ^
12437
7f9093a67e5f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12333
diff changeset
  1574
     #(Menu
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1575
        (
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1576
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1577
            enabled: canShowMore
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1578
            label: 'Show More WalkBack'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1579
            itemValue: showMoreWalkback
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1580
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1581
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1582
            enabled: canShowMore
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1583
            label: 'Show Full WalkBack'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1584
            itemValue: showFullWalkback
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1585
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1586
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1587
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1588
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1589
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1590
            label: 'Show Dense WalkBack'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1591
            itemValue: showingDenseWalkback:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1592
            hideMenuOnActivated: false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1593
            indication: showingDenseWalkback
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1594
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1595
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1596
            enabled: notShowingDenseWalkbackHolder
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1597
            label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1598
            itemValue: showingSupportCode:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1599
            hideMenuOnActivated: false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1600
            indication: showingSupportCode
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1601
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1602
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1603
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1604
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1605
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1606
            label: 'Raise Debugger when Entering'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1607
            itemValue: autoRaiseView:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1608
            hideMenuOnActivated: false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1609
            indication: autoRaiseView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1610
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1611
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1612
            label: '-'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1613
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1614
         (MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1615
            label: 'Settings...'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1616
            itemValue: openSettingsDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1617
          )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1618
         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1619
        nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  1620
        nil
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1621
      )
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1622
! !
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  1623
913
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1624
!DebugView class methodsFor:'misc'!
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1625
4121
Claus Gittinger <cg@exept.de>
parents: 4120
diff changeset
  1626
interestingContextFrom:aContext
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1627
    "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
  1628
     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
  1629
     and Exception contexts, to present the context in which the error
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  1630
     actually occurred.
913
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1631
     Just for your convenience :-)"
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1632
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1633
    |someContexts con idx|
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1634
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1635
    "/ fetch some contexts...
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1636
    someContexts := Array new:25.
2042
ccbf16071e41 code cleanup
Claus Gittinger <cg@exept.de>
parents: 2033
diff changeset
  1637
    con := aContext.
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1638
    idx := 1.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1639
    [(idx <= someContexts size) and:[con notNil]] whileTrue:[
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  1640
        someContexts at:idx put:con.
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  1641
        con := con sender.
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  1642
        idx := idx + 1.
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1643
    ].
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1644
    "/ search...
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1645
    idx := self interestingContextIndexIn:someContexts.
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1646
    ^ someContexts at:idx.
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1647
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1648
    "Modified: / 28-08-2013 / 20:12:47 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1649
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1650
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1651
interestingContextIndexIn:aContextArray
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1652
    "return an interesting context's index, or nil.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1653
     This is the context initially shown (selected) in the walkback.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1654
     We move up the calling chain, skipping all intermediate Signal
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  1655
     and Exception contexts, to present the context in which the error actually occurred.
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1656
     Just for your (my) convenience :-)"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1657
13309
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1658
    |con found offset sel prev rcvr nMax idx methodHome method|
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1659
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1660
"/ Transcript showCR:'x'.
7713
11282af806b0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7648
diff changeset
  1661
"/ Transcript showCR:aContextArray.
7648
acfbc051149f *** empty log message ***
ca
parents: 7647
diff changeset
  1662
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1663
    nMax := aContextArray size.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1664
    nMax <= 1 ifTrue:[^ 1].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1665
    con := aContextArray at:1.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1666
    con isBlockContext ifTrue:[^ 1].
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1667
    (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
  1668
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1669
    "/ somewhere, at the bottom, there must be a raise ...
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1670
    "/ find the exception
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1671
    1 to:5 do:[:i |
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1672
        found isNil ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1673
            con := aContextArray at:i ifAbsent:nil.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1674
            con notNil ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1675
                sel := con selector ? ''.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1676
                (sel isSymbol
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1677
                and:[ (sel startsWith:'raise')
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  1678
                and:[ ((rcvr := con receiver) isProtoObject not)
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1679
                and:[ rcvr isExceptionCreator]]]) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1680
                    offset := i.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1681
                    found := con.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1682
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1683
                    "/ if this is a noHandler exception,
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1684
                    "/ skip forward to the erroneous context
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1685
                    (rcvr isException) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1686
                        rcvr creator == Signal noHandlerSignal ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1687
                            found := rcvr suspendedContext.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1688
                            offset := aContextArray identityIndexOf:found.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1689
                        ]
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1690
                    ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1691
                ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1692
            ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1693
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1694
    ].
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  1695
"/ Transcript showCR:con.
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1696
"/ Transcript show:'1 '; showCR:found.
12839
b932ddfbdeb7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12812
diff changeset
  1697
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1698
    found isNil ifTrue:[
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1699
        "/ this is a kludge, but convenient.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1700
        "/ show the place where the error (divisionByZero...) happend,
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1701
        "/ not where the signal was raised.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1702
        con := (aContextArray at:1).
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1703
        sel := con methodHome selector.
10289
cb1f8bda978e changed: #interestingContextIndexIn:
Claus Gittinger <cg@exept.de>
parents: 10205
diff changeset
  1704
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1705
"/ Transcript show:'2 '; showCR:con.
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1706
        "/ typically a DivisionByZero - show caller of division
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1707
        (sel == #//
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1708
        or:[sel == #/
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1709
        or:[sel == #\\]]) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1710
            ^ 2
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1711
        ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1712
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1713
        "/ show the place of the bad message; not where the Signal was raised...
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1714
        (sel == #doesNotUnderstand:) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1715
            idx := 3.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1716
            nMax > 2 ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1717
                sel := (aContextArray at:idx) selector ? ''.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1718
                sel == #doesNotUnderstand: ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1719
                    idx := 4
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1720
                ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1721
                nMax > idx ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1722
                    sel := (aContextArray at:idx) selector ? ''.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1723
                    "/ show the place of the perfor-send; not where the Signal was raised...
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1724
                    ((sel == #perform:)
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1725
                    or:[sel startsWith:'perform:with']) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1726
                        idx := idx + 1
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1727
                    ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1728
                ]
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1729
            ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1730
            ^ idx min:nMax
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1731
        ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1732
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1733
        "/ show the bad method; not where the Signal was raised...
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1734
        (sel == #noByteCode) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1735
            ^ 2
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1736
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1737
8143
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1738
"/        "/ 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
  1739
"/        ((sel == #halt) or:[sel == #halt:]) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1740
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1741
"/        ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1742
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1743
"/        "/ 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
  1744
"/        (sel == #shouldImplement) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1745
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1746
"/        ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1747
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1748
"/        "/ 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
  1749
"/        ((sel == #error:mayProceed:)
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1750
"/        or:[ sel == #signalFailure:resumable:]) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1751
"/            nMax > 2 ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1752
"/                sel := (aContextArray at:2) selector.
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1753
"/                sel == #mustBeBoolean ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1754
"/                    ^ 3
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1755
"/                ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1756
"/            ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1757
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1758
"/        ].
7862
8aaae35e340f interesting context
Claus Gittinger <cg@exept.de>
parents: 7844
diff changeset
  1759
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1760
        "/ show the place of signalInterrupt-call; not where the Signal was raised...
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1761
        (sel == #signalInterrupt:) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1762
            ^ 2
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1763
        ].
5117
038af0448624 interrestingContextFrom - duplicated code removed
Claus Gittinger <cg@exept.de>
parents: 5114
diff changeset
  1764
8143
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1765
"/        "/ 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
  1766
"/        ((sel == #error) or:[sel == #error:]) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1767
"/            con method mclass == Object ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1768
"/                ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1769
"/            ]
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1770
"/        ].
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1771
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1772
"/        "/ 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
  1773
"/        (sel == #subclassResponsibility) ifTrue:[
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1774
"/            ^ 2
539df8f4f32e interresting context search generalized
Claus Gittinger <cg@exept.de>
parents: 8142
diff changeset
  1775
"/        ].
6132
ca1f04f5232b lineNumber display of shared subclassResponsibilityMethods
Claus Gittinger <cg@exept.de>
parents: 6129
diff changeset
  1776
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1777
        "/ show the place of the bad index; not where the Signal was raised...
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1778
        ( #(#notIndexed
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1779
            #indexNotIntegerOrOutOfBounds:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1780
            #subscriptBoundsError:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1781
            #elementBoundsError:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1782
            "/ #subclassResponsibility
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1783
        ) includes:sel) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1784
            idx := 2.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1785
            [ idx <= 3
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1786
                and:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1787
                    sel := (aContextArray at:idx) selector.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1788
                    #(#notIndexed
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1789
                      #indexNotIntegerOrOutOfBounds:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1790
                      #subscriptBoundsError:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1791
                      #elementBoundsError: ) includes:sel
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1792
                ]
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1793
            ] whileTrue:[ idx := idx + 1 ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1794
            sel := (aContextArray at:idx) selector.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1795
            (nMax > idx and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1796
            ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1797
                sel := (aContextArray at:idx+1) selector.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1798
                (nMax > (idx+1) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1799
                ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1800
                    sel := (aContextArray at:idx+2) selector.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1801
                    (nMax > (idx+2) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1802
                    ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1803
                        ^ idx+3
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1804
                    ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1805
                    ^ idx+2
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1806
                ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1807
                ^ idx+1
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1808
            ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1809
            ^ idx
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1810
        ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1811
        offset := 1.
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1812
    ].
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1813
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1814
    "/ the above is all too hard-coded;
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1815
    "/ 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
  1816
    "/ as more methods get flagged, remove code from above.
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1817
    con := aContextArray at:offset ifAbsent:nil.
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1818
"/ Transcript show:'2 '; showCR:con.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1819
    [
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1820
        con notNil
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1821
        and:[ (methodHome := con methodHome) notNil
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1822
        and:[ (method := methodHome method) notNil
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1823
        and:[ method shouldBeSkippedInDebuggersWalkBack ]]]
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1824
    ] whileTrue:[
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1825
"/ Transcript showCR:con methodHome method.
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1826
        offset := offset + 1.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1827
        con := aContextArray at:offset ifAbsent:nil.
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  1828
    ].
13309
b1581c095cb9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13293
diff changeset
  1829
    methodHome := nil. "/ help GC
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1830
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1831
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1832
     got it; move up, skipping all intermediate Signal and
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1833
     Exception contexts
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1834
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1835
    prev := nil.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1836
    rcvr := con receiver.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1837
    [
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  1838
        rcvr isProtoObject not and:[(rcvr isExceptionHandler) or:[(rcvr isException)]]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1839
    ] whileTrue:[
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1840
        prev := con.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1841
        nMax > offset ifFalse:[^ offset].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1842
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1843
        offset := offset + 1.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1844
        con := aContextArray at:offset.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1845
        rcvr := con receiver.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1846
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1847
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1848
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1849
     now, we are one above the raising context
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1850
    "
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1851
"/ Transcript show:'3 '; showCR:con.
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1852
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1853
    (con selector == #retry:coercing:) ifTrue:[
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1854
        "/ show the operation which failed to coerce, not the coerce
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1855
        ^ offset + 1
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1856
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1857
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1858
    "
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1859
     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
  1860
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  1861
    ( #( halt halt:
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1862
         error error:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1863
         doesNotUnderstand:
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1864
         subclassResponsibility
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1865
         primitiveFailed) includes:con selector)
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1866
    ifTrue:[
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1867
        con selector == #doesNotUnderstand: ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1868
            "
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1869
             one more up, to get to the originating context
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1870
            "
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1871
            con := aContextArray at:(offset + 1).
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1872
            con isNil ifTrue:[^ offset].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1873
            offset := offset + 1.
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1874
        ].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1875
        con := aContextArray at:(offset + 1).
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1876
        con isNil ifTrue:[^ offset].
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1877
        offset := offset + 1.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1878
    ] ifFalse:[
16730
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1879
        "
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1880
         ok, got the raise - if its a BreakPoint, look for the sender
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1881
        "
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1882
        (prev notNil and:[prev receiver == BreakPointInterrupt]) ifTrue:[
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1883
            offset := offset + 1
d3a953901bf1 #OTHER by mawalch
mawalch
parents: 16623
diff changeset
  1884
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1885
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1886
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1887
    ^ offset
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  1888
7713
11282af806b0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7648
diff changeset
  1889
    "Created: / 17-11-2001 / 20:37:49 / cg"
13398
8d20abbafdb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13394
diff changeset
  1890
    "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
  1891
! !
6460993f73a3 made interestingContextFrom: public - its useful in
Claus Gittinger <cg@exept.de>
parents: 875
diff changeset
  1892
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1893
!DebugView class methodsFor:'utilities'!
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1894
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1895
withOptionToIgnoreException:exceptionOrHandlerSet do:aBlock
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1896
    "execute aBlock; 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1897
     if any from exceptionOrHandlerSet is raised during the execution,
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1898
     open a confitmation dialog, asking if the debugger should be entered.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1899
     For halts/breakpoints, honors the ignored halt/break list;
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1900
     also, two checkboxes are added, to also ignore them in the future"
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1901
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1902
    ^ exceptionOrHandlerSet 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1903
        handle:[:ex |     
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1904
            |msg descr where whatError showIgnoreOptions 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1905
             ignoreForSomeTimeHolder ignoreForEverHolder 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1906
             lineNrOfHalt haltingMethod resources|
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1907
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1908
            showIgnoreOptions := false.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1909
            ignoreForSomeTimeHolder := false asValue.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1910
            ignoreForEverHolder := false asValue.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1911
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1912
            (ControlInterrupt accepts:ex creator) ifTrue:[
16994
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1913
                |suspendedContext sender|
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1914
                
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1915
                "/ also deal with ignored breakpoints here;
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1916
                "/ otherwise, it is almost impossible to place a breakpoint into
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1917
                "/ RB-code, and ignoring it...
16994
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1918
                suspendedContext := ex suspendedContext.
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1919
                sender := suspendedContext sender.
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1920
                "/ suspendedContext selector == #break ifTrue:[
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1921
                "/     lineNrOfHalt := sender lineNumber.
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1922
                "/     haltingMethod := sender method.
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1923
                "/  ] ifFalse:[
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1924
                    lineNrOfHalt := sender lineNumber.
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1925
                    haltingMethod := sender method.
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1926
                "/ ]. 
488f269b2cf0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16985
diff changeset
  1927
                suspendedContext := sender := nil.
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1928
                "/ Transcript showCR:haltingMethod.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1929
                "/ Transcript showCR:lineNrOfHalt.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1930
                (self 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1931
                    isHaltToBeIgnoredIn:haltingMethod
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1932
                    atLineNr:lineNrOfHalt
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1933
                    context:nil
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1934
                    modifyEntryCount:false
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1935
                ) ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1936
                    Transcript showCR:'breakpoint ignored in background processing'.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1937
                    ^ ex proceed.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1938
                ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1939
                showIgnoreOptions := true.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1940
                whatError := 'Halt/Breakpoint:'
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1941
            ] ifFalse:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1942
                whatError := 'Error encountered:'
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1943
            ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1944
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1945
            resources := self resources.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1946
            descr := ex description allBold.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1947
            where := ex suspendedContext printString.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1948
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1949
            Dialog modifyingBoxWith:[:box |
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1950
                showIgnoreOptions ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1951
                    box verticalPanel 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1952
                        add:(View new height:20);
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1953
                        add:(CheckBox
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1954
                                    label:(resources string:'Ignore this Halt/Break for some time (30s)')
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1955
                                    model:ignoreForSomeTimeHolder);
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1956
                        add:(CheckBox
16580
46f802d45b1a #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16535
diff changeset
  1957
                                    label:(resources string:'Ignore this Halt/Break forever')
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1958
                                    model:ignoreForEverHolder).
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1959
                ].    
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1960
            ] do:[
16611
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1961
                |answer canRemove labels actions|
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1962
16811
770081e56e09 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 16801
diff changeset
  1963
                "/ cannot remove halts or coded breakpoints.                
770081e56e09 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 16801
diff changeset
  1964
                canRemove := haltingMethod notNil and:[haltingMethod isMethodWithBreakpoints or:[ haltingMethod isBreakpointed ]].
16611
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1965
                labels := #('Ignore' 'Remove Breakpoint' 'Debug' ).
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1966
                actions := #(ignore remove debug).
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1967
                canRemove ifFalse:[
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1968
                    labels := #('Ignore' 'Debug' ).
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1969
                    actions := #(ignore debug).
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1970
                ].    
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1971
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1972
                answer := OptionBox
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1973
                            choose:(self resources 
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1974
                                        stringWithCRs:'%1\%2\\%3'
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1975
                                        with:whatError
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1976
                                        with:descr
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1977
                                        with:where)
16611
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1978
                            label:whatError 
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1979
                            image:nil 
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1980
                            labels:(resources array:labels)
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1981
                            values:actions 
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1982
                            default:#ignore 
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1983
                            onCancel:#ignore.
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1984
"/                answer := Dialog
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1985
"/                            confirm:(self resources 
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1986
"/                                        stringWithCRs:'%1\%2\\%3'
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1987
"/                                        with:whatError
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1988
"/                                        with:descr
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1989
"/                                        with:where)
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1990
"/                            yesLabel:(resources string:'Debug')
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  1991
"/                            noLabel:(resources string:'Ignore').
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1992
                
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1993
                (ignoreForSomeTimeHolder value or:[ignoreForEverHolder value]) ifTrue:[
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1994
                    self
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1995
                        ignoreHaltIn:haltingMethod at:lineNrOfHalt
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1996
                        forCount:(ignoreForEverHolder value ifTrue:[-1] ifFalse:[nil]) 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1997
                        orTimeDuration:(ignoreForSomeTimeHolder value ifTrue:[30 seconds] ifFalse:[nil]) 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1998
                        orUntilShiftKey:false
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  1999
                        orReceiverClass:nil orProcess:nil
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2000
                        orIfCalledFromMethod:nil.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2001
                ].
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2002
16611
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2003
                answer == #remove ifTrue:[
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2004
                    haltingMethod isMethodWithBreakpoints ifTrue:[
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2005
                        haltingMethod disableBreakpointInLine:lineNrOfHalt
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2006
                    ] ifFalse:[
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2007
                        haltingMethod isBreakpointed ifTrue:[
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2008
                            haltingMethod clearBreakPoint
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2009
                        ].    
16623
0e857d5919f4 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16611
diff changeset
  2010
                    ].
0e857d5919f4 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16611
diff changeset
  2011
                    ex proceed
16611
961f3a9075f8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16580
diff changeset
  2012
                ].
16623
0e857d5919f4 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16611
diff changeset
  2013
                answer == #debug ifTrue:[
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2014
                    ex reject.
16623
0e857d5919f4 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16611
diff changeset
  2015
                ].
0e857d5919f4 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16611
diff changeset
  2016
                ex proceed
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2017
            ]
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2018
        ] 
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2019
        do:aBlock.
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2020
    
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2021
    "
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2022
     HaltInterrupt withOptionToIgnoreDo:[self halt]   -- catches this
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2023
     HaltInterrupt withOptionToIgnoreDo:[self error]  -- but not this  
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2024
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2025
     -- catches both, but disable buttons are only shown for halt/breaks
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2026
     ControlInterrupt withOptionToIgnore:(HaltInterrupt,Error) do:[self halt]
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2027
     ControlInterrupt withOptionToIgnore:(HaltInterrupt,Error) do:[self error]
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2028
    "
16765
589cf9d699fe Fix in DebugView>>withOptionToIgnoreException:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16753
diff changeset
  2029
589cf9d699fe Fix in DebugView>>withOptionToIgnoreException:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16753
diff changeset
  2030
    "Modified: / 25-07-2016 / 19:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16434
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2031
! !
f816729c21ac #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16430
diff changeset
  2032
14662
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2033
!DebugView methodsFor:'accessing'!
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2034
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2035
contextInspector
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2036
    ^ contextInspector
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2037
!
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2038
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2039
inspectedProcess
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2040
    ^ inspectedProcess
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2041
!
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2042
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2043
keyboardMap
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2044
    keyboardMap isNil ifTrue:[ 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2045
        self initializeKeyboardMap.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2046
    ].
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2047
    ^keyboardMap
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2048
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2049
    "
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2050
    WorkspaceApplication new open; yourself
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2051
    "
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2052
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2053
    "Created: / 02-02-2017 / 00:16:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2054
    "Modified: / 04-02-2017 / 00:25:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2055
! !
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2056
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2057
!DebugView methodsFor:'accessing-keyboard mappings'!
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2058
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2059
shortKeyStringForAction: aSymbol
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2060
    | shortcut |
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2061
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2062
    shortcut := self shortKeyStringFor: aSymbol.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2063
    ^ shortcut isNil 
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2064
        ifTrue:[ '' ]
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2065
        ifFalse:[ '  -  ' , shortcut].
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2066
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  2067
    "Created: / 11-05-2017 / 21:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14662
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2068
! !
4fcc2440b6a4 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14640
diff changeset
  2069
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2070
!DebugView methodsFor:'aspects'!
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2071
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2072
verboseBacktraceHolder
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2073
    verboseBacktraceHolder isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2074
        verboseBacktraceHolder := ValueHolder with:false
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2075
    ].
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2076
    ^ verboseBacktraceHolder
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2077
! !
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2078
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2079
!DebugView methodsFor:'basic'!
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2080
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2081
enableDisableActions
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2082
    |m|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2083
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2084
    m := contextView middleButtonMenu.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2085
    m notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2086
        self updateMenuItems.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2087
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2088
        (inspecting or:[AbortOperationRequest isHandled]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2089
            abortButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2090
            m enable:#doAbort.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2091
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2092
            abortButton disable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2093
            m disable:#doAbort.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2094
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2095
        exclusive ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2096
            terminateButton disable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2097
            m disable:#doTerminate.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2098
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2099
            terminateButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2100
            m enable:#doTerminate.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2101
        ]
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2102
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2103
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2104
    mayProceed == false ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2105
        continueButton disable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2106
        m notNil ifTrue:[m disable:#doContinue].
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2107
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2108
        continueButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2109
        m notNil ifTrue:[m enable:#doContinue]
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2110
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2111
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2112
    "Created: / 16.11.2001 / 17:40:51 / cg"
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
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2115
enter
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2116
    "enter a debugger"
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2117
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2118
    <context: #return>
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2119
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2120
    ^ self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2121
        enter:thisContext sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2122
        select: nil.
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2123
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2124
    "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
  2125
!
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  2126
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  2127
enter:aContext select:initialSelectionOrNil
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2128
    "enter the debugger - get and display the context, then start an
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2129
     exclusive event loop on top of eveything else"
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2130
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2131
    <context: #return>
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2132
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2133
    |con m enteredByInterrupt sel iAmNew foundNoByteCodeContext foundExitContext c 
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2134
     userprefs logFile|
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2135
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  2136
    DebuggingDebugger == true ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2137
        '==> enter2: (' print. aContext print.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2138
        ') select: ' print. initialSelectionOrNil printCR.
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  2139
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2140
    thisContext isRecursive ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2141
        "/ care for the special case, were the Debugger was autoloaded.
16860
ad053a633260 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16811
diff changeset
  2142
        "/ in this case, thisContext IS recursive, but that's no error condition.
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2143
        foundNoByteCodeContext := false.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2144
        foundExitContext := false.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2145
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2146
        c := thisContext findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2147
        [
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2148
         foundNoByteCodeContext not
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2149
         and:[ foundExitContext not
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2150
         and:[c notNil
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2151
         and:[c selector ~~ #enter:withMessage:mayProceed:
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2152
        ]]]]
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2153
        whileTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2154
            c selector == #exit_unwindThenDo: ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2155
                foundExitContext := true
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2156
            ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2157
            c selector == #noByteCode ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2158
                foundNoByteCodeContext := true
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2159
            ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2160
            c := c findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2161
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2162
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2163
        (foundNoByteCodeContext not
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2164
        and:[ foundExitContext not]) ifFalse:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2165
            ('DebugView [warning]: reentered') errorPrintCR.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2166
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2167
            ^ MiniDebugger
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2168
                enter:aContext
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2169
                withMessage:'DebugView [error]: recursive error (in debugger)'
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2170
                mayProceed:mayProceed.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2171
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2172
        foundExitContext ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2173
            'DebugView [error]: recursive error (in debugger) ignored' printCR.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2174
            ^ self.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2175
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2176
    ].
2360
cef61dce4358 avoid empty debugger if some subcomponent forces creation
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
  2177
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  2178
    "/'entering: ' print. aContext printCR.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  2179
    "/'initial: ' print. initialSelectionOrNil printCR.
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  2180
    thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s)
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  2181
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  2182
    (self isHaltToBeIgnored) ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2183
        ^ self.
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  2184
    ].
11892
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  2185
"/    "/ 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
  2186
"/    (stepping and:[steppedContext notNil]) ifTrue:[
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  2187
"/        self isEnteredDueToBreakpointOrHalt ifTrue:[
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  2188
"/            'DebugView [info]: ignored other interrupt while stepping' infoPrintCR.
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  2189
"/            ^ self
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  2190
"/        ].
d43bf1e174b5 step skipping code removed
Claus Gittinger <cg@exept.de>
parents: 11890
diff changeset
  2191
"/    ].
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2192
    userprefs := UserPreferences current.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2193
    "/ optionally log this debugger entry
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2194
    (logFile := userprefs debuggerLogFile) notNil ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2195
        logFile asFilename appendingFileDo:[:s |
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2196
            s cr.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2197
            s nextPutLine:'-----------------------'.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2198
            Timestamp now printOn:s. 
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2199
            s nextPutAll:' ['; nextPutAll:Processor activeProcess name; nextPutAll:']'; cr.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2200
            s cr.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2201
            aContext fullPrintAllOn:s
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2202
        ].    
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2203
    ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2204
    
13965
6213444511ae class: DebugView
Stefan Vogel <sv@exept.de>
parents: 13934
diff changeset
  2205
    iAmNew := self drawableId isNil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2206
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2207
    self verboseBacktraceHolder value:(userprefs verboseBacktraceInDebugger).
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  2208
1265
3db375412f5d avoid caching a debugger which got destroyed
Claus Gittinger <cg@exept.de>
parents: 1263
diff changeset
  2209
    busy := cachable := true.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2210
    inspecting := false.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2211
    inspectedProcess := Processor activeProcess.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2212
    stepping := false.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2213
    bigStep := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  2214
    stepHow := nil.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  2215
    nChainShown := InitialNChainShown.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2216
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2217
    "/ if debugger is entered while a box has grabbed the
9076
Claus Gittinger <cg@exept.de>
parents: 9034
diff changeset
  2218
    "/ 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
  2219
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2220
    "/ On a multiUser system, ungrab all of them ...
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2221
    "/ 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
  2222
    "/    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
  2223
    "/    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
  2224
    Screen allScreens do:[:aScreen |
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2225
        aScreen ungrabPointer.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2226
        aScreen ungrabKeyboard.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2227
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2228
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2229
    ("inspectedProcess suspendedContext isNil
1179
e927f0c09298 Move #isSystemProcess from ProcessorScheduler to Process.
Stefan Vogel <sv@exept.de>
parents: 1148
diff changeset
  2230
    or:["inspectedProcess isSystemProcess"]") ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2231
        terminateButton disable.
316
7d529dfe8a99 disable abort & terminate for system processes
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
  2232
    ] ifFalse:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2233
        terminateButton enable.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2234
        abortButton enable.
316
7d529dfe8a99 disable abort & terminate for system processes
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
  2235
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2236
2360
cef61dce4358 avoid empty debugger if some subcomponent forces creation
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
  2237
    iAmNew ifFalse:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2238
        "/ not the first time - disable buttons & menus
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2239
        "/ from the previous life
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2240
        self turnOffAllButtons.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2241
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2242
        m := contextView middleButtonMenu.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2243
        m notNil ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2244
            m disableAll:#(showMore "skip skipForReturn" inspectContext).
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2245
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2246
        self showingDenseWalkback:(self verboseBacktraceHolder value not).
132
claus
parents: 127
diff changeset
  2247
    ].
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2248
    self iconLabel:'Debugger'.
132
claus
parents: 127
diff changeset
  2249
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2250
    windowGroup isNil ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2251
        self windowGroup: WindowGroup new.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2252
        windowGroup addTopView:self.
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2253
    ].
132
claus
parents: 127
diff changeset
  2254
    exclusive ifFalse:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2255
        "/ create a (modal) windowGroup for myself
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2256
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2257
        windowGroup setModal:true.
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2258
    ] ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2259
        "/ create a windowGroup with a synchronous sensor for me
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2260
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2261
        windowGroup beSynchronous.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2262
    ].
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2263
    windowGroup setProcess:Processor activeProcess.
15027
43fb0cbcbfd9 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 14993
diff changeset
  2264
    IsDebuggingQuery answer:true do:[
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  2265
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2266
        "
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2267
         get the walkback list; clear inspectors if we did not come here by single stepping)
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2268
        "
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2269
"/Transcript show:'0 '; showCR:aContext.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2270
"/Transcript show:'0 '; showCR:thisContext sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2271
"/Transcript show:'0 '; showCR:thisContext sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2272
"/Transcript show:'0 '; showCR:thisContext sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2273
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2274
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2275
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2276
"/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2277
"/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
  2278
"/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
  2279
"/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
  2280
"/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
  2281
"/Transcript showCR:initialSelectionOrNil.
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2282
        self setContext:aContext releaseInspectors:(exitAction ~~ #step).
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2283
        "/'after setContext; first is ' print.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2284
        "/(contextArray at:1 ifAbsent:nil) printCR.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2285
        self setInitialSelectionOnEntry:initialSelectionOrNil context:aContext.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2286
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2287
        self updateButtonsAndMenuItemsForContext:aContext.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2288
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2289
        "
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2290
         If this is a new debugger, do a realize.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2291
         Otherwise, its probably better to do a map, which shows the
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2292
         view at the previous position, without a need for the user to set the
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2293
         position again
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2294
        "
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2295
        iAmNew ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2296
            self realize.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2297
        ] ifFalse:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2298
            self remap.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2299
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2300
        self setForegroundWindow.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2301
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2302
        exclusive ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2303
            self showError:'
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2304
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
  2305
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2306
This is a modal debugger - all event processing is stopped..
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2307
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
  2308
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
  2309
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2310
Also, there is no event processing (redraw) for other views.'
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2311
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2312
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2313
        self autoRaiseView ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2314
            "/ self raise.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2315
            self raiseDeiconified.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2316
            self topView activate; setForegroundWindow; activate.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2317
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2318
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2319
        canContinue := true.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2320
        exitAction := nil.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2321
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2322
        "/ enter private event handling loop. This is left (and we come back here again)
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2323
        "/ when any button was pressed which requires continuation of the debuggee or
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2324
        "/ closedown of the debugger.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2325
        [self controlLoop] ifCurtailed:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2326
            windowGroup notNil ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2327
                windowGroup setProcess:nil.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2328
            ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2329
            NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2330
            self destroy
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2331
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2332
        NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
11857
e561b4e978d0 Answer IsDebuggingQuery (with true).
Stefan Vogel <sv@exept.de>
parents: 11837
diff changeset
  2333
    ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  2334
    "/ here after my own control loop is finished.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  2335
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2336
    "/ release all context stuff.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2337
    "/ 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
  2338
    "/ 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
  2339
    contextView contents:nil.
25d4f244abbe checkin from browser
Claus Gittinger <cg@exept.de>
parents: 941
diff changeset
  2340
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2341
    codeView acceptAction:nil.
942
25d4f244abbe checkin from browser
Claus Gittinger <cg@exept.de>
parents: 941
diff changeset
  2342
    codeView doItAction:nil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2343
4892
f7b6afd8cec9 release StepInterruptHandler
penk
parents: 4871
diff changeset
  2344
    ObjectMemory stepInterruptHandler == self ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2345
        ObjectMemory stepInterruptHandler:nil.
4892
f7b6afd8cec9 release StepInterruptHandler
penk
parents: 4871
diff changeset
  2346
    ].
f7b6afd8cec9 release StepInterruptHandler
penk
parents: 4871
diff changeset
  2347
11911
aa49a8d724b8 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11898
diff changeset
  2348
    lastSelectionInReceiverInspector := receiverInspector selectedKeyName.
aa49a8d724b8 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11898
diff changeset
  2349
    lastSelectionInContextInspector := contextInspector selectedKeyName.
aa49a8d724b8 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11898
diff changeset
  2350
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2351
    (exitAction ~~ #step) ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2352
        "/ not stepping or continue - close window
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2353
        self cacheMyself.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2354
        receiverInspector release.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2355
        contextInspector release.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2356
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2357
        self unmap.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2358
        self flush.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2359
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2360
        (exitAction == #abort) ifTrue:[ self exit_abort. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2361
        (exitAction == #abortAll) ifTrue:[ self exit_abortAll. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2362
        (exitAction == #return) ifTrue:[ self exit_return. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2363
        (exitAction == #restart) ifTrue:[ self exit_restart. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2364
        (exitAction == #resend) ifTrue:[ self exit_resend. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2365
        (exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2366
        (exitAction == #terminate) ifTrue:[ self exit_terminate. "does not return" ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2367
        exitAction isBlock ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2368
            self exit_unwindThenDo:exitAction.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2369
            "does not return"
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2370
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2371
        "not reached"
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2372
        ^ self
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2373
    ].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2374
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2375
    "/ stepping - window stays open
940
b27a64095304 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 939
diff changeset
  2376
    selectedContext := actualContext := firstContext := nil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2377
2472
03b50188ac9b checkin from browser
ca
parents: 2470
diff changeset
  2378
    "/ restore the previous pointer grab
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2379
    grabber notNil ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2380
        device grabPointerInView:grabber.
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2381
        grabber := nil.
61
cb5e3560bd82 *** empty log message ***
claus
parents: 58
diff changeset
  2382
    ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2383
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2384
    (exitAction == #step) ifTrue:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2385
        "
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2386
         schedule another stepInterrupt
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2387
         - must enter myself into the collection of open debuggers,
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2388
           in case the stepping process comes back again via a halt or signal
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2389
           before the step is finished. In this case, the stepping debugger should
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2390
           come up (instead of a new one)
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2391
         - must flush caches since optimized methods not always
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2392
           look for pending interrupts
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2393
        "
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2394
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2395
        "/
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2396
        "/ also must care for stepping into a return
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2397
        "/
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2398
        steppedContext notNil ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2399
            Processor activeProcess forceInterruptOnReturnOf:steppedContext.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2400
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2401
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2402
        OpenDebuggers isNil ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2403
            OpenDebuggers := WeakIdentitySet new.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2404
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2405
        OpenDebuggers add:self.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2406
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2407
        self label:'single stepping - please wait ...'.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2408
        stepping := true.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2409
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2410
        ObjectMemory stepInterruptHandler:self.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2411
        Processor activeProcess stepInterruptHandler:self.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2412
        ObjectMemory flushCaches.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2413
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2414
        Context singleStepInterruptRequest isHandled ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2415
            Context singleStepInterruptRequest
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2416
                raiseWith:
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2417
                    (("bigStep" steppedContextLineno notNil)
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2418
                        ifTrue:[#next]
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2419
                        ifFalse:[#step])
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2420
        ] ifFalse:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2421
            "/ see if we came here through an interrupt-action
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2422
            "/ (i.e. aProcess interruptWith:...)
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2423
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2424
            enteredByInterrupt := false.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2425
            con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2426
            [enteredByInterrupt not
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2427
             and:[con notNil
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2428
             and:[con ~~ aContext]]] whileTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2429
                ((sel := con selector) == #timerInterrupt
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2430
                or:[sel == #ioInterrupt]) ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2431
                    enteredByInterrupt := true.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2432
                ] ifFalse:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2433
                    con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2434
                ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2435
            ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2436
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2437
            ObjectMemory flushInlineCaches.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2438
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2439
            DebuggingDebugger == true ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2440
                enteredByInterrupt printCR.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2441
            ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2442
            enteredByInterrupt ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2443
                "/ don't want to step through all intermediate
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2444
                "/ (scheduler-) contexts; place a return-trap on the
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2445
                "/ one right below the interesting one
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2446
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2447
"/                'special unwind return' printCR.
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2448
                con unwindThenDo:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2449
                                  Processor activeProcess stepInterruptHandler:self.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2450
                                  ObjectMemory stepInterruptHandler:self.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2451
                                  InStepInterrupt := nil.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2452
                                  StepInterruptPending := 1.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2453
                                  InterruptPending := 1].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2454
            ] ifFalse:[
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2455
"/                'normal step return' printCR.
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2456
                skipLineNr ~~ #return ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2457
                    StepInterruptPending := 1.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2458
                    InterruptPending := 1.
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2459
                ] ifFalse:[
778
e0f6238c9dd5 better stepping of an interrupted context.
Claus Gittinger <cg@exept.de>
parents: 775
diff changeset
  2460
"/                    'step for return' printCR.
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2461
                ]
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2462
            ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2463
            InStepInterrupt := nil
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2464
        ]
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2465
    ] ifFalse:[
16058
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2466
        OpenDebuggers notNil ifTrue:[
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2467
            OpenDebuggers remove:self ifAbsent:[].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2468
        ].
d07dc4e285bc #FEATURE
Claus Gittinger <cg@exept.de>
parents: 15960
diff changeset
  2469
        self cacheMyself.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2470
    ]
210
947f9a23b06a better error handling in modal debugger - use new SynchronousWindowSensor
Claus Gittinger <cg@exept.de>
parents: 193
diff changeset
  2471
7796
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  2472
    "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
  2473
    "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
  2474
    "Modified: / 13-10-1998 / 19:56:59 / ps"
11697
e776722de7b5 changed: #enter:select:
Claus Gittinger <cg@exept.de>
parents: 11696
diff changeset
  2475
    "Modified: / 27-07-2012 / 17:35:56 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2476
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2477
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2478
exit_abort
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2479
    "/ 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
  2480
    "/ 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
  2481
    "/ 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
  2482
    "/ 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
  2483
    "/ 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
  2484
    "/ done in the #enter:select method.
5455
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2485
    "/ You are not expected to understand this.
05d522683185 fix to allow halt in an exception handler to work
penk
parents: 5454
diff changeset
  2486
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2487
    self exit_unwindThenDo:[ AbortOperationRequest raise ]
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2488
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2489
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2490
exit_abortAll
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2491
    "/ 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
  2492
    "/ that one would run on top of this context.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2493
    "/ 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
  2494
    "/ would be interpreted as a recursive invocation (in #enter:select).
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2495
    "/ 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
  2496
    "/ done in the #enter:select method.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2497
    "/ You are not expected to understand this.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2498
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2499
    self exit_unwindThenDo:[ AbortAllOperationRequest raise ]
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2500
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2501
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2502
exit_quickTerminate
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2503
    self cacheMyself.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2504
    Processor activeProcess terminateNoSignal
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2505
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2506
    "Created: / 16.11.2001 / 17:23:51 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2507
    "Modified: / 17.11.2001 / 23:20:07 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2508
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2509
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2510
exit_resend
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2511
    |con|
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2512
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2513
    selectedContext notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2514
        con := selectedContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2515
        self cacheMyself.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2516
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2517
         have to catch errors occuring in unwind-blocks
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2518
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2519
        Error handle:[:ex |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2520
            'DebugView [info]: ignored error while unwinding: ' infoPrint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2521
            ex description infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2522
            ex proceed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2523
        ] do:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2524
            ^ con unwindThenResend.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2525
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2526
        'DebugView [warning]: cannot resend selected context''s message' errorPrintCR
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2527
    ]
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2528
!
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  2529
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2530
exit_restart
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2531
    |con|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2532
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2533
    selectedContext notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2534
        con := selectedContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2535
        self cacheMyself.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2536
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2537
         have to catch errors occuring in unwind-blocks
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2538
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2539
        Error handle:[:ex |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2540
            'DebugView [info]: ignored error while unwinding: ' infoPrint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2541
            ex description infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2542
            ex proceed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2543
        ] do:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2544
            con unwindAndRestart.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2545
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2546
        'DebugView [warning]: cannot restart selected context' errorPrintCR
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2547
    ]
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2548
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  2549
    "Created: / 16-11-2001 / 17:23:17 / cg"
11819
0829ba326853 changed: #exit_restart
Claus Gittinger <cg@exept.de>
parents: 11818
diff changeset
  2550
    "Modified: / 26-09-2012 / 15:09:52 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2551
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2552
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2553
exit_return
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2554
    |con retVal|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2555
14902
8839c1bf35fb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14880
diff changeset
  2556
    retVal := nil.
8839c1bf35fb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14880
diff changeset
  2557
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2558
    selectedContext notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2559
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2560
         if there is a selection in the codeView,
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2561
         evaluate it and use the result as return value
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2562
        "
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2563
"/ 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
  2564
"/ and that is syntactically incorrect ...
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2565
"/ ... leading to a popup warning from the codeView
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2566
"/
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2567
"/                codeView hasSelection ifTrue:[
4644
e6dd5c21b9c0 Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 4356
diff changeset
  2568
"/                    Error handle:[:ex |
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2569
"/                        'DebugView [warning]: error - returning nil' errorPrintCR.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2570
"/                        retVal := nil.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2571
"/                        ex return
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2572
"/                    ] do:[
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2573
"/                        |s|
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2574
"/
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2575
"/                        s := codeView selection asString.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2576
"/                        retVal := codeView doItAction value:s.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2577
"/                    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2578
"/                ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2579
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2580
        con := selectedContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2581
        self cacheMyself.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2582
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2583
         have to catch errors occuring in unwind-blocks
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2584
        "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2585
        Error handle:[:ex |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2586
            'DebugView [info]: ignored error while unwinding: ' infoPrint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2587
            ex description infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2588
            ex proceed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2589
        ] do:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2590
            con unwind:retVal.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2591
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2592
        'DebugView [warning]: cannot return from selected context' errorPrintCR
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2593
    ]
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2594
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2595
    "Created: / 16.11.2001 / 17:22:24 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2596
    "Modified: / 17.11.2001 / 23:20:21 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2597
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2598
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2599
exit_terminate
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2600
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2601
    "
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2602
     have to catch errors occuring in unwind-blocks
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2603
    "
4644
e6dd5c21b9c0 Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 4356
diff changeset
  2604
    Error handle:[:ex |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2605
        'DebugView [info]: ignored error while unwinding: ' infoPrint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2606
        ex description infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2607
        ex proceed
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2608
    ] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2609
        self cacheMyself.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2610
        Processor activeProcess terminate.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2611
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2612
    'DebugView [warning]: cannot terminate process' errorPrintCR
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2613
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2614
    "Created: / 16.11.2001 / 17:24:20 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2615
    "Modified: / 17.11.2001 / 23:20:27 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2616
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2617
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2618
exit_unwindThenDo:aBlock
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2619
    |con|
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2620
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2621
    "/ 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
  2622
    "/ that one would run on top of this context.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2623
    "/ 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
  2624
    "/ would be interpreted as a recursive invocation (in #enter:select).
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2625
    "/ 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
  2626
    "/ done in the #enter:select method.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2627
    "/ You are not expected to understand this.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2628
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2629
    "
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2630
     have to catch errors occuring in unwind-blocks
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2631
    "
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2632
    self cacheMyself.
12743
43616af3d027 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12716
diff changeset
  2633
    con := thisContext sender.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2634
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2635
    Error handle:[:ex |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2636
        'DebugView [info]: ignored error while unwinding: ' infoPrint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2637
        ex description infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2638
        ex proceed
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2639
    ] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2640
        "/ find the enter:select context.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2641
        [(con selector ~~ #enter:select:) or:[con receiver ~~ self]] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2642
            con := con sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2643
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2644
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2645
        "/ must skip over its caller (because this one has a ControlInterrupt handler too)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2646
        con sender receiver == self class ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2647
            con := con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2648
            con sender receiver == self class ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2649
                con := con sender methodHome.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2650
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2651
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2652
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2653
        con unwindThenDo:aBlock.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2654
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2655
    'DebugView [warning]: abort failed' errorPrintCR
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2656
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2657
    "Created: / 16.11.2001 / 17:20:45 / cg"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2658
    "Modified: / 18.11.2001 / 00:58:14 / cg"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2659
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  2660
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2661
initialSelectionOnEntry:initialSelectionOrNil context:aContext
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2662
    |selection con1 con2 h|
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2663
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2664
    initialSelectionOrNil notNil ifTrue:[
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2665
        ^ initialSelectionOrNil
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2666
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2667
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2668
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2669
     and find the one context to show initially
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2670
     - 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
  2671
     - 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
  2672
       (for ifs and whiles) or the sender (for regular sends).
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2673
     - otherwise, we came here by some signal raise, and we are interested
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2674
       in the context where the raise actually occurred.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2675
    "
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2676
    con1 := (contextArray at:1 ifAbsent:nil).
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2677
    con2 := (contextArray at:2 ifAbsent:nil).
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2678
"/ Transcript show:'x '; showCR:exitAction.
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2679
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2680
    "/ came here via a step?
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2681
    exitAction == #step ifTrue:[
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2682
        selection := 1.
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2683
        steppedContext notNil ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2684
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2685
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2686
             if we came here by a big-step, show the method where we are
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2687
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2688
            con1 == steppedContext ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2689
                selection := 1
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2690
            ] ifFalse:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2691
                con2 == steppedContext ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2692
                    selection := 2
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2693
                ]
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2694
            ].
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2695
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2696
             for bigStep, we could also be in a block below the actual method ...
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2697
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2698
            ((h := con1 home) notNil
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2699
             and:[h == steppedContext]) ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2700
                selection := 1
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2701
            ] ifFalse:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2702
                (con2 notNil
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2703
                and:[(h := con2 home) notNil
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2704
                and:[h == steppedContext]]) ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2705
                    selection := 2
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2706
                ]
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2707
            ].
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2708
            h := nil.
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2709
        ]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2710
    ] ifFalse:[
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2711
        steppedContext isNil ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2712
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2713
             preselect a more interesting context, (where halt/raise was ...)
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2714
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2715
            "/ selection := self class interestingContextIndexFrom:aContext.
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2716
            selection := self class interestingContextIndexIn:contextArray.
12039
23a6414c2eef class: DebugView
Claus Gittinger <cg@exept.de>
parents: 11943
diff changeset
  2717
"/ Transcript show:'x '; showCR:selection.
16801
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2718
            selection := selection min:(contextArray size).
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2719
        ] ifFalse:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2720
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2721
             if we came here by a big-step, show the method where we are
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2722
            "
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2723
            con1 == steppedContext ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2724
                selection := 1
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2725
            ] ifFalse:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2726
                con2 == steppedContext ifTrue:[
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2727
                    selection := 2.
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2728
                ]
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2729
            ]
dd3b6d987482 #OTHER by mawalch
mawalch
parents: 16800
diff changeset
  2730
        ]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2731
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2732
    ^ selection
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2733
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2734
    "Created: / 17.11.2001 / 20:26:26 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2735
    "Modified: / 17.11.2001 / 22:51:46 / cg"
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2736
!
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2737
5110
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2738
isInspecting
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2739
    ^ inspecting
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2740
!
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2741
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2742
isNotInspecting
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2743
    ^ inspecting not
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2744
!
Claus Gittinger <cg@exept.de>
parents: 5088
diff changeset
  2745
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2746
openOn:aProcess
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  2747
    "enter the debugger on a process -
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2748
     in this case, we are just inspecting the context chain of the process,
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2749
     not running on top of the debugged process, but as a separate
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2750
     one. (think of it as an inspector showing more detail, and offering
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2751
     some more control operations)"
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2752
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2753
    |bpanel dummy w|
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2754
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  2755
    self verboseBacktraceHolder value:( UserPreferences current verboseBacktraceInDebugger ).
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  2756
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2757
    busy := true.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2758
    bigStep := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  2759
    stepHow := nil.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2760
    inspecting := true.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2761
    inspectedProcess := aProcess.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  2762
    nChainShown := InitialNChainShown.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2763
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2764
    bpanel := abortButton superView.
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2765
    bpanel ignoreInvisibleComponents:true.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2766
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2767
    "/ get the max size & freeze button
6647
89560e789618 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6622
diff changeset
  2768
    continueButton label:(resources string:'Continue').
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2769
    w := continueButton preferredWidth.
6647
89560e789618 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6622
diff changeset
  2770
    continueButton label:(resources string:'Stop').
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2771
    w := w max:(continueButton preferredWidth).
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2772
    continueButton preferredExtent:(w @ continueButton preferredHeight).
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2773
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2774
    aProcess state == #run ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2775
        device hasColors ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2776
            continueButton foregroundColor:Color red darkened.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2777
        ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2778
        continueButton label:(resources string:'Stop').
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2779
        continueButton action:[self doStop].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2780
    ] ifFalse:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2781
        device hasColors ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2782
            continueButton foregroundColor:Color green darkened darkened.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2783
        ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2784
        continueButton label:(resources string:'Continue').
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2785
        continueButton action:[self doContinue].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  2786
    ].
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  2787
    continueButton preferredExtent:(w @ continueButton preferredHeight).
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2788
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2789
    returnButton disable.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2790
    restartButton disable.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2791
92
claus
parents: 90
diff changeset
  2792
    dummy := View extent:(10 @ 5) in:bpanel.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2793
    dummy borderWidth:0; level:0.
61
cb5e3560bd82 *** empty log message ***
claus
parents: 58
diff changeset
  2794
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2795
"/    stepButton destroy.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2796
"/    sendButton destroy.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2797
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2798
    updateButton := Button
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2799
                        label:(resources string:'Update')
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2800
                        action:[self updateContext]
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2801
                        in:bpanel.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2802
    monitorToggle := Toggle in:bpanel.
6647
89560e789618 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6622
diff changeset
  2803
    monitorToggle label:(resources string:'Monitor').
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2804
    monitorToggle pressAction:[self autoUpdateOn].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2805
    monitorToggle releaseAction:[self autoUpdateOff].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2806
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2807
    "can only look into process - context chain is not active"
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2808
    canContinue := true.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2809
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2810
    terminateButton enable.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2811
    abortButton enable.
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2812
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2813
    sendButton disable; beInvisible.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2814
    stepButton disable; beInvisible.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2815
    nextButton disable; beInvisible.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2816
    nextOverButton notNil ifTrue:[nextOverButton disable; beInvisible].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  2817
    nextOutButton notNil ifTrue:[nextOutButton disable; beInvisible].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2818
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2819
    aProcess isNil ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2820
        terminateButton disable.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2821
        abortButton disable.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2822
        continueButton disable.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2823
        returnButton disable.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2824
        restartButton disable.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2825
    ] ifFalse:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2826
        (aProcess suspendedContext isNil
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2827
        or:[aProcess isSystemProcess]) ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2828
            terminateButton disable.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2829
        ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2830
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2831
        self setContextSkippingInterruptContexts:aProcess suspendedContext.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2832
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2833
        catchBlock := [
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2834
            catchBlock := nil.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2835
            contextArray := nil.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2836
            selectedContext := actualContext := firstContext := nil.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2837
            steppedContext := wrapperContext := nil.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2838
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2839
            (exitAction == #terminate) ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2840
                aProcess terminate.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2841
            ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2842
            (exitAction == #quickTerminate) ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2843
                aProcess terminateNoSignal.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2844
            ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2845
            super destroy
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2846
        ].
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2847
    ].
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  2848
    self open
316
7d529dfe8a99 disable abort & terminate for system processes
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
  2849
1092
059c29fac604 made the number of frames shown initially a
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2850
    "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
  2851
    "Modified: 17.4.1997 / 13:01:57 / stefan"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2852
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2853
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  2854
selectContextWithIndex:index
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2855
    self showSelection:index.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2856
    contextView setSelection:index.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2857
    index > 1 ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2858
        contextView scrollToLine:(index - 1)
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2859
    ].
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2860
!
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  2861
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2862
setInitialSelectionOnEntry:initialSelectionOrNil context:aContext
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2863
    |selection|
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2864
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2865
    selection := self initialSelectionOnEntry:initialSelectionOrNil context:aContext.
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2866
    selection notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  2867
        self selectContextWithIndex:selection
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2868
    ].
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2869
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2870
    "Created: / 16.11.2001 / 17:28:07 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  2871
    "Modified: / 17.11.2001 / 20:27:21 / cg"
3434
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2872
!
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2873
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2874
turnOffAllButtons
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2875
    terminateButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2876
    continueButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2877
    returnButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2878
    restartButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2879
    abortButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2880
    nextButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2881
    stepButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2882
    sendButton turnOffWithoutRedraw.
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2883
05bfb9406e06 class based exceptions - abortSignal;
Claus Gittinger <cg@exept.de>
parents: 3432
diff changeset
  2884
    "Created: / 16.11.2001 / 17:36:18 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2885
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2886
15950
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15859
diff changeset
  2887
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2888
!DebugView methodsFor:'help'!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  2889
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2890
flyByHelpDependsOnPositionIn:aView
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2891
    "subclasses where the help-text depends upon the pointer position might
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2892
     want to redefine this"
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2893
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2894
    ^ aView == codeView
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2895
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2896
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2897
flyByHelpTextFor:aComponent
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2898
    |s|
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2899
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2900
    aComponent == codeView ifTrue:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2901
        |point localPoint|
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2902
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2903
        point := device pointerPosition.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  2904
        localPoint := device translatePointFromRoot:point toView:codeView.
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2905
        ((localPoint x between:0 and:codeView width)
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2906
        and:[localPoint y between:0 and:codeView height])
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2907
        ifTrue:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2908
            ^ self flyByHelpTextFor:codeView at:localPoint
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2909
        ].
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2910
        ^ nil
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2911
    ].
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2912
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2913
    aComponent == abortButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2914
        s := 'Abort (unwind to eventLoop)'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2915
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2916
    aComponent == terminateButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2917
        Processor activeProcess isGUIProcess ifTrue:[
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  2918
            s := 'Terminate the process.\Attention: closes view and shuts down application.'
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2919
        ] ifFalse:[
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  2920
            s := 'Terminate the process.\Attention: do not kill a system thread'
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2921
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2922
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2923
    aComponent == continueButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2924
        continueButton label = (resources string:'Stop') ifTrue:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2925
            s := 'Stop'
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2926
        ] ifFalse:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2927
            s := 'Continue execution'
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2928
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2929
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2930
    aComponent == stepButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2931
        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
  2932
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2933
    aComponent == nextButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2934
        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
  2935
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2936
    aComponent == nextOverButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2937
        s := 'Step over to cursor-line'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2938
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2939
    aComponent == nextOutButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2940
        s := 'Step out to caller'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2941
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2942
    aComponent == sendButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2943
        s := 'Send next message (enter into called methods)'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2944
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2945
    aComponent == returnButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2946
        restartButton enabled ifTrue:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2947
            s := 'Return from the selected method'
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2948
        ] ifFalse:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2949
            s := 'Return from the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2950
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2951
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2952
    aComponent == restartButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2953
        restartButton enabled ifTrue:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2954
            s := 'Restart the selected method.\If the code was changed in the meanwhile, the original method will be executed again'
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2955
        ] ifFalse:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2956
            s := 'Restart the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2957
        ]
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2958
    ].
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2959
    aComponent == resendButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2960
        resendButton enabled ifTrue:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2961
            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.'
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2962
        ] ifFalse:[
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2963
            s := 'Resend the selected method''s message.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2964
        ]
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  2965
    ].
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2966
    aComponent == monitorToggle ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2967
        s := 'Toggle monitoring'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2968
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2969
    aComponent == updateButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2970
        s := 'Update'
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2971
    ].
13464
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  2972
    aComponent == defineButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2973
        s := 'Define the missing method (as halting) and proceed into it.\A debugger will reopen there, so you can add the code then'
13464
931d28c589b7 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13462
diff changeset
  2974
    ].
8656
6c92a022f929 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8636
diff changeset
  2975
    aComponent == reportButton ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2976
        s := 'Send a defect report via eMail'
8656
6c92a022f929 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8636
diff changeset
  2977
    ].
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2978
    s notNil ifTrue:[
15774
84b61629a062 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15757
diff changeset
  2979
        ^ resources stringWithCRs:s
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2980
    ].
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2981
    ^ nil
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2982
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  2983
    "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
  2984
    "Modified: / 18-06-2010 / 11:34:51 / cg"
3510
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2985
!
850a051a8235 flyBy help
Claus Gittinger <cg@exept.de>
parents: 3503
diff changeset
  2986
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2987
flyByHelpTextFor:aComponent at:aPointOrNil
8396
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2988
    |s vline line col pos interval|
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2989
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2990
    aComponent == codeView ifFalse:[^ nil].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2991
    aPointOrNil isNil ifTrue:[^ nil].
9446
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  2992
    self sensor motionEventPending ifTrue:[^ nil].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2993
8396
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2994
    vline := codeView visibleLineOfY:aPointOrNil y.
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2995
    col := codeView colOfX:aPointOrNil x inVisibleLine:vline.
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  2996
    line := codeView visibleLineToAbsoluteLine:vline.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2997
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2998
    pos := codeView characterPositionOfLine:line col:col.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  2999
    interval := pos to:pos.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  3000
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3001
    self
17126
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3002
        withNodeValueAtInterval:interval
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3003
        do:[:value :description |
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3004
            |valueClassOrSizeString valueString|
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3005
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3006
            valueClassOrSizeString := valueString := ''.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3007
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3008
            "/ some heuristics as when to show the class name (a purely subjective preference)
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3009
            value isString ifTrue:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3010
                value isText ifTrue:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3011
                    valueString := '"',(value contractTo:80),'"'.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3012
                ] ifFalse:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3013
                    valueString := value storeString contractTo:80.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3014
                ].
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3015
            ] ifFalse:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3016
                (value isBoolean
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3017
                or:[ value isInteger
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3018
                or:[ value isSymbol ]]) ifTrue:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3019
                    valueString := value printString.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3020
                ] ifFalse:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3021
                    valueClassOrSizeString := ' (',value class name,')'.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3022
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3023
                    (value isArray
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3024
                    or:[ value isOrderedCollection ]) ifTrue:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3025
                        valueClassOrSizeString := ' (size=',value size printString,')'.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3026
                    ].
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3027
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3028
                    Error handle:[:ex |
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3029
                        valueString := '??? (',ex description,')'
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3030
                    ] do:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3031
                        [
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3032
                            valueString := value printString contractTo:80.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3033
                        ] valueWithWatchDog:[ valueString := value class nameWithArticle ] afterMilliseconds:30.
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3034
                        "do not use classNameWithArticle - it is missing in ProtoObject!!"
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3035
                    ]
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3036
                ]
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3037
            ].
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3038
            description isEmptyOrNil ifTrue:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3039
                s := valueString , valueClassOrSizeString
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3040
            ] ifFalse:[
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3041
                s := description , ': ', valueString, valueClassOrSizeString
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3042
            ].
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  3043
        ].
8592
6a544f86c279 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8580
diff changeset
  3044
    "/ Transcript showCR:s.
6a544f86c279 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8580
diff changeset
  3045
    ^ s
9446
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  3046
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  3047
    "Modified: / 27-04-2010 / 17:51:53 / cg"
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  3048
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  3049
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3050
helpTextFor:aComponent
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3051
    |s|
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3052
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3053
    aComponent == abortButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3054
        s := 'HELP_ABORT'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3055
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3056
    aComponent == terminateButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3057
        s := 'HELP_TERMINATE'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3058
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3059
    aComponent == continueButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3060
        continueButton label = (resources string:'Stop') ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3061
            s := 'HELP_STOP'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3062
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3063
            s := 'HELP_CONTINUE'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3064
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3065
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3066
    aComponent == stepButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3067
        s := 'HELP_STEP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3068
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3069
    aComponent == nextButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3070
        s := 'HELP_NEXT'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3071
    ].
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  3072
    aComponent == nextOverButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3073
        s := 'HELP_NEXTOVER'
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  3074
    ].
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  3075
    aComponent == nextOutButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3076
        s := 'HELP_NEXTOUT'
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  3077
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3078
    aComponent == stepButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3079
        s := 'HELP_STEP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3080
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3081
    aComponent == sendButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3082
        s := 'HELP_SEND'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3083
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3084
    aComponent == returnButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3085
        returnButton enabled ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3086
            s := 'HELP_RETURN'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3087
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3088
            s := 'HELP_RETURN_DISABLED'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3089
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3090
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3091
    aComponent == restartButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3092
        restartButton enabled ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3093
            s := 'HELP_RESTART'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3094
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3095
            s := 'HELP_RESTART_DISABLED'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3096
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3097
    ].
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  3098
    aComponent == resendButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3099
        resendButton enabled ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3100
            s := 'HELP_RESEND'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3101
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3102
            s := 'HELP_RESEND_DISABLED'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3103
        ].
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  3104
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3105
    aComponent == contextView ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3106
        s := 'HELP_WALKBACK'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3107
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3108
    aComponent == codeView ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3109
        s := 'HELP_CODEVIEW'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3110
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3111
    aComponent == monitorToggle ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3112
        s := 'HELP_MONITOR'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3113
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3114
    aComponent == updateButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3115
        s := 'HELP_UPDATE'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3116
    ].
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3117
    aComponent == gotoDialogOpenerButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3118
        s := 'HELP_GOTO_DIALOG_OPENER'
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3119
    ].
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3120
    aComponent == gotoApplicationActionMethodButton ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3121
        s := 'HELP_GOTO_APPLICATION_ACTION'
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3122
    ].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  3123
"/    aComponent == stopButton ifTrue:[
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  3124
"/        s := 'HELP_STOP'
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  3125
"/    ].
612
986e371232a2 isSubViewOf: -> isComponentOf:
Claus Gittinger <cg@exept.de>
parents: 583
diff changeset
  3126
    (aComponent isComponentOf:receiverInspector) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3127
        s := 'HELP_REC_INSP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3128
    ].
612
986e371232a2 isSubViewOf: -> isComponentOf:
Claus Gittinger <cg@exept.de>
parents: 583
diff changeset
  3129
    (aComponent isComponentOf:contextInspector) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3130
        s := 'HELP_CON_INSP'
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3131
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3132
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3133
    s notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3134
        ^ resources stringWithCRs:s
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3135
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3136
    ^ nil
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3137
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3138
    "Modified: 29.8.1995 / 23:38:54 / claus"
1065
feacf3883438 active help messages
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  3139
    "Modified: 4.3.1997 / 01:54:03 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3140
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3141
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3142
!DebugView methodsFor:'initialization'!
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3143
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3144
initializeKeyboardMap
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3145
    keyboardMap := self class defaultKeyboardMap copy.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3146
    device notNil ifTrue:[
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3147
        keyboardMap parent: device keyboardMap.
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3148
    ].
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3149
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3150
    "Created: / 02-02-2017 / 23:47:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3151
    "Modified: / 04-02-2017 / 22:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3152
! !
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3153
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  3154
!DebugView methodsFor:'initialization & release'!
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3155
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3156
addToCurrentProject
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3157
    "ignored here"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3158
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3159
    ^ self
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3160
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3161
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3162
destroy
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3163
    "closing the debugger implies an abort or continue"
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3164
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3165
    self destroyWithConfirmation:true
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3166
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3167
    "Modified: / 10-07-1997 / 17:15:41 / stefan"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3168
    "Modified: / 23-03-2012 / 12:50:01 / cg"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3169
!
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3170
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3171
destroyWithConfirmation:withConfirmation
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3172
    "closing the debugger implies an abort or continue"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3173
2404
5d0d2c826eff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
  3174
    |m|
5d0d2c826eff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
  3175
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3176
    withConfirmation ifTrue:[
16960
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3177
        self checkIfCodeIsReallyModified ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3178
            (self confirm:('Code was modified.\\Exit anyway ?'))
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3179
            ifFalse:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3180
                ^ self
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3181
            ]
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3182
        ]
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3183
    ].
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3184
2172
dc9b1ed43f64 turn off autoUpdate when destroyed
Claus Gittinger <cg@exept.de>
parents: 2150
diff changeset
  3185
    self autoUpdateOff.
dc9b1ed43f64 turn off autoUpdate when destroyed
Claus Gittinger <cg@exept.de>
parents: 2150
diff changeset
  3186
2404
5d0d2c826eff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
  3187
    (m := contextView middleButtonMenu) notNil ifTrue:[m hide].
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3188
    inspecting ifFalse:[
16960
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3189
        "I am running on top of a process, abort or continue it"
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3190
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3191
        windowGroup notNil ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3192
            windowGroup setProcess:nil.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3193
        ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3194
        self uncacheMyself.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3195
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3196
        "/
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3197
        "/ catch invalid return;
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3198
        "/ this happens, when my process has somehow died (quickterminate)
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3199
        "/ and I am a leftOver view, which gets terminated via the launchers
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3200
        "/ #destroy-window function.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3201
        "/
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3202
        Context cannotReturnSignal handle:[:ex |
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3203
            'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3204
            self uncacheMyself.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3205
            Debugger newDebugger.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3206
            ex return.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3207
        ] do:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3208
            AbortOperationRequest isHandled ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3209
                self doAbort.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3210
            ] ifFalse:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3211
                self doContinue
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3212
            ]
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3213
        ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3214
        "/ We don't reach this point normally
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  3215
        'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3216
    ].
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3217
2299
3cadf0ee9d2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2258
diff changeset
  3218
    Debugger newDebugger.
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3219
    "/ since I am going to be destroyed, remove me from the cache
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3220
    self uncacheMyself.
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3221
    super destroy.
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3222
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3223
    "Modified: / 10-07-1997 / 17:15:41 / stefan"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  3224
    "Created: / 23-03-2012 / 12:49:50 / cg"
2115
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3225
!
c134aa00bc7b category change
Claus Gittinger <cg@exept.de>
parents: 2060
diff changeset
  3226
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3227
initialize
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3228
    |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel
17181
90ef84ba3a5a #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17177
diff changeset
  3229
     newLayout v exceptionAndTogglePanel codeToggleLabels|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3230
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3231
    super initialize.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3232
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3233
    self initializeFlags.
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  3234
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3235
    busy := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3236
    exclusive := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3237
    inspecting := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3238
    exitAction := nil.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3239
    bigStep := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  3240
    stepHow := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3241
    canContinue := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3242
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3243
    mH := 0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3244
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3245
    menuPanel := MenuPanel in:self.
8131
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  3246
    menuPanel receiver:self.
19605
623b8047f9ad Use `#hasVerticalLayout:` instead of `#verticalLayout:`
Jan Vrany <jan.vrany@labware.com>
parents: 18446
diff changeset
  3247
    menuPanel hasVerticalLayout:false.
8131
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  3248
    menu := self class menuSpec decodeAsLiteralArray.
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  3249
    menu findGuiResourcesIn:self.
3c3539ab8681 menu also nationalized
Claus Gittinger <cg@exept.de>
parents: 7999
diff changeset
  3250
    menuPanel menu:menu.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3251
8161
c3a91c963a35 added preferredWidth & preferredHeight
Claus Gittinger <cg@exept.de>
parents: 8154
diff changeset
  3252
    mH := menuPanel preferredHeight.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3253
    menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3254
17181
90ef84ba3a5a #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17177
diff changeset
  3255
    newLayout := UserPreferences current useNewLayoutInDebugger.
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  3256
    newLayout ifFalse:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3257
        bpanel := HorizontalPanelView in:self.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3258
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3259
        self initializeButtonsIn:bpanel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3260
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3261
        bH := bpanel preferredHeight + 5.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3262
        bpanel origin:(0.0 @ mH)
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3263
               extent:(1.0 @ bH).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3264
        panel := VariableVerticalPanel
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3265
                            origin:(0.0 @ (mH + bH))
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3266
                            corner:(1.0 @ 1.0)
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3267
                            in:self.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3268
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3269
        v := self initializeContextListViewIn:panel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3270
        v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3271
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3272
        codePanel := View in:panel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3273
        v := self initializeCodeViewIn:codePanel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3274
        v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3275
        codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3276
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3277
        v := self initializeInspectorViewsIn:panel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3278
        v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3279
8148
21180715dbe9 new layout
Claus Gittinger <cg@exept.de>
parents: 8143
diff changeset
  3280
    ] ifTrue:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3281
        bpanel1 := HorizontalPanelView in:self.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3282
        self initializeButtons1In:bpanel1.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3283
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3284
        contextInfoLabel := Label label:''.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3285
        contextInfoLabel adjust:#left.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3286
        bpanel1 add:contextInfoLabel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3287
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3288
        bH1 := bpanel1 preferredHeight + 5.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3289
        bpanel1 origin:(0.0 @ mH)
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3290
                extent:(1.0 @ bH1).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3291
        panel := VariableVerticalPanel
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3292
                            origin:(0.0 @ (mH + bH1))
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3293
                            corner:(1.0 @ 1.0)
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3294
                                in:self.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3295
        "/ panel showHandle:true.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3296
        "/ panel handlePosition:#left.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3297
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3298
        v := self initializeContextListViewIn:panel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3299
        v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3300
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3301
        codePanel := View in:panel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3302
        bpanel2 := HorizontalPanelView in:codePanel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3303
        self initializeButtons2In:bpanel2.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3304
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3305
        bH2 := bpanel2 preferredHeight + 5.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3306
        bpanel2 origin:(0.0 @ 0.0)
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3307
                extent:(1.0 @ bH2).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3308
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3309
        exceptionInfoLabel := Label label:''.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3310
        exceptionInfoLabel adjust:#left.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3311
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3312
        exceptionAndTogglePanel := HorizontalPanelView in:codePanel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3313
        exceptionAndTogglePanel horizontalLayout:#left.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3314
        exceptionAndTogglePanel
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3315
            geometryLayout:
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3316
                ((LayoutFrame
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3317
                    origin:(0.0 @ 0.0)
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3318
                    corner:(1.0 @ 0.0))
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3319
                        topOffset:bH2;
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3320
                        bottomOffset:(bH2 + exceptionInfoLabel preferredHeight + 6);
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3321
                        rightOffset:-2).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3322
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3323
        methodCodeToggleSelectionHolder := 1 asValue.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3324
        methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3325
        codeToggleLabels := resources array:{
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3326
                    'Showing Original Code (being executed, but obsolete)' asText backgroundColorizeAllWith:Color red lightened .
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3327
                    'Showing Current Code'                                 asText backgroundColorizeAllWith:Color green lightened .
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3328
                  }.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3329
        methodCodeToggle := PopUpList label:codeToggleLabels first in:exceptionAndTogglePanel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3330
        methodCodeToggle list:codeToggleLabels.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3331
        methodCodeToggle useIndex:true.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3332
        methodCodeToggle model:methodCodeToggleSelectionHolder.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3333
        methodCodeToggle beInvisible.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3334
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3335
        exceptionAndTogglePanel add:exceptionInfoLabel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3336
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3337
        v := self initializeCodeViewIn:codePanel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3338
        v origin:(0.0 @ (bH2+exceptionInfoLabel preferredHeight+6)) corner:(1.0 @ 1.0).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3339
        codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3340
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3341
        v := self initializeInspectorViewsIn:panel.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3342
        v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3343
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3344
3387
4cbed052fbbe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3350
diff changeset
  3345
    DefaultDebuggerBackgroundColor notNil ifTrue:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3346
        self allViewBackground:DefaultDebuggerBackgroundColor.
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  3347
    ].
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  3348
    LastExtent notNil ifTrue:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3349
        self extent:LastExtent.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  3350
    ].
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  3351
    LastOrigin notNil ifTrue:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3352
        self origin:LastOrigin.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  3353
    ].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3354
    "
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3355
     Debugger newDebugger
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3356
    "
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3357
11693
367eaa0e1ead changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 11661
diff changeset
  3358
    "Modified: / 27-07-2012 / 14:46:07 / cg"
19605
623b8047f9ad Use `#hasVerticalLayout:` instead of `#verticalLayout:`
Jan Vrany <jan.vrany@labware.com>
parents: 18446
diff changeset
  3359
    "Modified: / 06-09-2021 / 15:50:37 / Jan Vrany <jan.vrany@labware.com>"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3360
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3361
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3362
initializeAbortButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3363
    abortButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3364
                label:(resources string:'Abort'), (self shortKeyStringForAction: #DebuggerAbort)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3365
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3366
                    abortButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3367
                    self doAbort
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3368
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3369
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3370
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3371
    abortButton name:'abortButton'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3372
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3373
    "Created: / 17-11-2001 / 20:56:47 / cg"
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3374
    "Modified: / 16-08-2017 / 08:48:50 / Patrik Svestka <patrik.svestka@gmail.com>"
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3375
    "Modified: / 13-10-2017 / 22:52:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3376
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3377
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3378
initializeButtons1In:bpanel
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  3379
    "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
  3380
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3381
    |separator buttonWidth|
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3382
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3383
    buttonWidth := 170.
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3384
    
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3385
    bpanel horizontalLayout:#left.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3386
    bpanel verticalLayout:#centerMax.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3387
    bpanel verticalSpace:ViewSpacing // 2.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3388
8194
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  3389
    self initializeContinueButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3390
    continueButton width:buttonWidth.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3391
9131
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  3392
    "/ separator := View extent:(10 @ 5) in:bpanel.
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  3393
    "/ separator borderWidth:0; level:0.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3394
    self initializeAbortButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3395
    abortButton width:buttonWidth.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3396
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3397
    separator := View extent:(100 @ 5) in:bpanel.
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  3398
    separator borderWidth:0; level:0.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3399
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3400
    self initializeTerminateButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3401
9131
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  3402
    separator := View extent:(50 @ 5) in:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3403
    separator borderWidth:0; level:0.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3404
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3405
    self initializeGotoDialogOpenerButtonIn:bpanel.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3406
    self initializeGotoApplicationActionMethodButtonIn:bpanel.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3407
    self initializeDefineButtonIn:bpanel.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3408
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3409
    (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3410
        separator := View extent:(10 @ 5) in:bpanel.
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3411
        separator borderWidth:0; level:0.
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3412
        self initializeReportButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3413
    ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3414
    "Modified: / 17.11.2001 / 21:02:59 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3415
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3416
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3417
initializeButtons2In:bpanel
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  3418
    "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
  3419
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3420
    |separator buttonWidth|
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3421
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3422
    buttonWidth := 130.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3423
9131
3787cb7519e8 changed:
Claus Gittinger <cg@exept.de>
parents: 9120
diff changeset
  3424
    bpanel horizontalLayout:#left.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3425
    bpanel verticalLayout:#centerMax.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3426
    bpanel verticalSpace:ViewSpacing // 2.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3427
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3428
    self initializeNextButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3429
    nextButton width:buttonWidth.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3430
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3431
    self initializeStepButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3432
    stepButton width:buttonWidth.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3433
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3434
"/ cg:
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3435
"/ 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
  3436
"/ 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
  3437
"/
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3438
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3439
2305
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3440
"/    img := Image fromFile:'bitmaps/stepIn.xpm'.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3441
"/    img isNil ifTrue:[
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3442
"/        img := (resources at:'next')
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3443
"/    ].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3444
"/    nextButton := Button
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3445
"/                        label:img
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3446
"/                        action:[stepButton turnOff. self doNext]
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3447
"/                        in:bpanel.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3448
"/
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3449
"/    img := Image fromFile:'bitmaps/stepOver.xpm'.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3450
"/    img isNil ifTrue:[
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3451
"/        img := (resources at:'over')
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3452
"/    ].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3453
"/    nextOverButton := Button
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3454
"/                        label:img
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3455
"/                        action:[stepButton turnOff. self doNextOver]
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3456
"/                        in:bpanel.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3457
"/
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3458
"/    img := Image fromFile:'bitmaps/stepOut.xpm'.
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3459
"/    img isNil ifTrue:[
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3460
"/        img := (resources at:'out')
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3461
"/    ].
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3462
"/    nextOutButton := Button
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3463
"/                        label:img
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3464
"/                        action:[stepButton turnOff. self doNextOut]
4df4dcd30c13 disabled the stepIn / stepOut buttons - for now
Claus Gittinger <cg@exept.de>
parents: 2299
diff changeset
  3465
"/                        in:bpanel.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  3466
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3467
    self initializeSendButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3468
    sendButton width:buttonWidth.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3469
1398
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  3470
    separator := View extent:(30 @ 5) in:bpanel.
d3f02207f847 rearranged buttons (terminate was too exposed);
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  3471
    separator borderWidth:0; level:0.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3472
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3473
    self initializeReturnButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3474
    returnButton width:buttonWidth.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3475
    self initializeRestartButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3476
    restartButton width:buttonWidth.
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3477
    self initializeResendButtonIn:bpanel.
16958
aad23f6aa046 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16933
diff changeset
  3478
    resendButton width:buttonWidth.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3479
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  3480
    "Modified: / 18-06-2010 / 08:32:05 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3481
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3482
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3483
initializeButtonsIn:bpanel
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3484
    |separator|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3485
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3486
    bpanel horizontalLayout:#left.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3487
    bpanel verticalLayout:#centerMax.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3488
    bpanel verticalSpace:ViewSpacing // 2.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3489
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3490
    self initializeAbortButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3491
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3492
    separator := View extent:(10 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3493
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3494
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3495
    self initializeContinueButtonIn:bpanel.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3496
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3497
    separator := View extent:(10 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3498
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3499
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3500
    self initializeReturnButtonIn:bpanel.
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3501
    self initializeRestartButtonIn:bpanel.
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3502
    self initializeResendButtonIn:bpanel.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3503
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3504
    separator := View extent:(10 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3505
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3506
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3507
    self initializeNextButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3508
    self initializeStepButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3509
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3510
"/ cg:
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3511
"/ I disabled the stepIn / stepOut buttons - for now.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3512
"/ they do not work relyable with inlined blocks yet.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3513
"/
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3514
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3515
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3516
"/    img := Image fromFile:'bitmaps/stepIn.xpm'.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3517
"/    img isNil ifTrue:[
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3518
"/        img := (resources at:'next')
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3519
"/    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3520
"/    nextButton := Button
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3521
"/                        label:img
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3522
"/                        action:[stepButton turnOff. self doNext]
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3523
"/                        in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3524
"/
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3525
"/    img := Image fromFile:'bitmaps/stepOver.xpm'.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3526
"/    img isNil ifTrue:[
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3527
"/        img := (resources at:'over')
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3528
"/    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3529
"/    nextOverButton := Button
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3530
"/                        label:img
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3531
"/                        action:[stepButton turnOff. self doNextOver]
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3532
"/                        in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3533
"/
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3534
"/    img := Image fromFile:'bitmaps/stepOut.xpm'.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3535
"/    img isNil ifTrue:[
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3536
"/        img := (resources at:'out')
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3537
"/    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3538
"/    nextOutButton := Button
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3539
"/                        label:img
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3540
"/                        action:[stepButton turnOff. self doNextOut]
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3541
"/                        in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3542
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3543
    self initializeSendButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3544
3187
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  3545
    separator := View extent:(30 @ 5) in:bpanel.
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  3546
    separator borderWidth:0; level:0.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3547
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3548
    self initializeTerminateButtonIn:bpanel.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3549
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3550
    separator := View extent:(30 @ 5) in:bpanel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3551
    separator borderWidth:0; level:0.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3552
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3553
    self initializeDefineButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3554
    (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3555
        self initializeReportButtonIn:bpanel.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3556
    ].
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3557
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3558
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3559
    "Created: / 17.11.2001 / 20:56:20 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3560
    "Modified: / 17.11.2001 / 21:03:18 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3561
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3562
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3563
initializeCodeViewIn:panel
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3564
    |scrollableCodeView|
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3565
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3566
    (UserPreferences current useCodeView2In: #Debugger) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3567
        scrollableCodeView := codeView := Tools::CodeView2 new.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3568
        codeView model: ValueHolder new.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3569
        codeView methodHolder: ValueHolder new.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3570
        codeView classHolder: ValueHolder new.
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3571
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3572
        scrollableCodeView := HVScrollableView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3573
                    for:CodeView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3574
                    miniScrollerH:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3575
                    miniScrollerV:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3576
                    in:panel.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3577
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3578
        codeView := scrollableCodeView scrolledView.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3579
        codeView enableMotionEvents. "/ for active help
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  3580
    ].
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  3581
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  3582
     (UserPreferences current showAcceptCancelBarInBrowser
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3583
        and:[codeView isCodeView2 not or:[UserPreferences current codeView2ShowAcceptCancel not]]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3584
        ViewWithAcceptAndCancelBar notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3585
            |v|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3586
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3587
            v := ViewWithAcceptAndCancelBar new.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3588
            v slaveView:scrollableCodeView.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3589
            v reallyModifiedHolder:(codeView isCodeView2
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3590
                                        ifTrue:[ codeView reallyModifiedChannel ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3591
                                        ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3592
                                            BlockValue
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3593
                                                with:[:m |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3594
                                                    |same|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3595
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3596
                                                    same := (codeView contentsAsString string = currentMethod source string).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3597
                                                    codeView modifiedChannel setValue:false.  "/ so it triggers again
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3598
                                                    same not.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3599
                                                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3600
                                                argument:codeView modifiedChannel
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3601
                                        ]).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3602
            v cancelAction:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3603
                [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3604
                    "/ codeView setClipboardText:(codeView contents).   "/ for undo
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3605
                    codeView device rememberInCopyBufferHistory:(codeView contents).  "/ for undo
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3606
                    codeView contents:(currentMethod source).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3607
                    codeView modifiedChannel setValue:false; changed.   "/ trigger
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3608
                    codeView requestFocus.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3609
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3610
            v compareAction:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3611
                [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3612
                    v := DiffCodeView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3613
                            openOn:codeView contentsAsString
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3614
                            label:(resources string:'Changed definition (to be accepted ?)')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3615
                            and:currentMethod source
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3616
                            label:(resources string:'Method''s Original Code').
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3617
                    v label:(resources string:'Changed Code in Debugger').
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3618
                    v waitUntilVisible.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3619
                    "/ codeView requestFocus
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3620
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3621
            scrollableCodeView := v.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3622
        ]
13519
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3623
    ].
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3624
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3625
    panel add:scrollableCodeView.
97e23cf8edbb class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13490
diff changeset
  3626
    ^ scrollableCodeView
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  3627
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  3628
    "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
  3629
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3630
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3631
initializeContextListViewIn:panel
19616
f6fcf7a95cc5 Backed out changeset 84498b441bc0
Jan Vrany <jan.vrany@labware.com>
parents: 19605
diff changeset
  3632
    |v|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3633
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3634
    v := HVScrollableView
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3635
                for:SelectionInListView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3636
                miniScrollerH:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3637
                miniScrollerV:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3638
                in:panel.
3034
fad21a9a02bd context-list is horizontal scrollable
Claus Gittinger <cg@exept.de>
parents: 3033
diff changeset
  3639
    v autoHideHorizontalScrollBar:true.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3640
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3641
    contextView := v scrolledView.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3642
    contextView action:[:lineNr | self showSelection:lineNr].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3643
    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
  3644
    contextView selectConditionBlock:[:line | self checkSelectionChangeAllowed:line].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3645
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3646
    contextView middleButtonMenu:(self middleButtonMenu).
5453
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3647
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3648
    ^ v
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3649
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3650
5453
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3651
initializeContextViewsMiddleButtonMenu
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3652
    <resource: #programMenu >
4211f29ea931 contextViews menu
Claus Gittinger <cg@exept.de>
parents: 5451
diff changeset
  3653
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3654
    contextView middleButtonMenu:(self middleButtonMenu).
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3655
!
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3656
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3657
initializeContinueButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3658
    continueButton := Button
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3659
                label:(resources string:'Continue') , (self shortKeyStringForAction: #DebuggerContinue)    
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3660
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3661
                    continueButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3662
                    self doContinue
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3663
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3664
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3665
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3666
    continueButton name:'continueButton'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3667
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3668
    "Created: / 17-11-2001 / 20:57:34 / cg"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3669
    "Modified: / 17-05-2017 / 16:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3670
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3671
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3672
initializeDefineButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3673
    defineButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3674
                label:(resources string:'Define') , (self shortKeyStringForAction: #DebuggerDefine)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3675
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3676
                    defineButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3677
                    self doDefine
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3678
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3679
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3680
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3681
    defineButton name:'defineButton'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3682
    defineButton beInvisible
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3683
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3684
    "Created: / 17-11-2001 / 21:02:48 / cg"
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3685
    "Modified: / 13-10-2017 / 22:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3686
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3687
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3688
initializeFlags
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3689
    |userPrefs|
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3690
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3691
    userPrefs := UserPreferences current.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3692
    self verboseBacktraceHolder value:(userPrefs verboseBacktraceInDebugger).
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3693
    hideSupportCode := userPrefs hideSupportCodeInDebugger ? false.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3694
    ignoreBreakpoints := true.    "/ ignore halts/breakpoints in doIts of
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3695
                                  "/ the debugger
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3696
!
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  3697
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3698
initializeGotoApplicationActionMethodButtonIn:bpanel
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3699
    gotoApplicationActionMethodButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3700
                label:(resources string:'Goto Responsible Application Method') , (self shortKeyStringForAction: #DebuggerGotoResponsibleApplicationMethod)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3701
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3702
                    gotoApplicationActionMethodButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3703
                    self doGotoApplicationActionMethod
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3704
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3705
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3706
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3707
    gotoApplicationActionMethodButton name:'gotoAppMethodButton'.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3708
    gotoApplicationActionMethodButton beInvisible
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3709
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3710
    "Modified: / 16-08-2017 / 09:07:00 / Patrik Svestka <patrik.svestka@gmail.com>"
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3711
    "Modified: / 13-10-2017 / 22:50:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3712
!
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  3713
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3714
initializeGotoDialogOpenerButtonIn:bpanel
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3715
    gotoDialogOpenerButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3716
                label:(resources string:'Goto Dialog Opener') , (self shortKeyStringForAction: #DebuggerGoToDialogOpener)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3717
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3718
                    gotoDialogOpenerButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3719
                    self doGotoDialogOpener
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3720
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3721
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3722
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3723
    gotoDialogOpenerButton name:'gotoDialogOpenerButton'.
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3724
    gotoDialogOpenerButton beInvisible
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3725
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3726
    "Modified: / 13-10-2017 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3727
!
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  3728
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3729
initializeInspectorViewsIn:panel
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3730
    |hpanel|
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3731
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3732
    hpanel := VariableHorizontalPanel in:panel.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3733
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3734
    receiverInspector := InspectorView
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3735
                                origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3736
                                    in:hpanel.
4103
6c0eb2985cee label: -> fieldListLabel: in inspector
Claus Gittinger <cg@exept.de>
parents: 3998
diff changeset
  3737
    receiverInspector fieldListLabel:'Receiver'.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3738
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3739
    contextInspector := ContextInspectorView
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3740
                                origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3741
                                    in:hpanel.
4103
6c0eb2985cee label: -> fieldListLabel: in inspector
Claus Gittinger <cg@exept.de>
parents: 3998
diff changeset
  3742
    contextInspector fieldListLabel:'Context'.
646
04dafb2560bf added labels 'receiver' & 'context';
Claus Gittinger <cg@exept.de>
parents: 642
diff changeset
  3743
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  3744
    ^ hpanel
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3745
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3746
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3747
initializeNextButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3748
    nextButton := Button
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3749
                label:(resources string:'Debug_Next') , (self shortKeyStringForAction: #DebuggerNext)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3750
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3751
                    stepButton turnOff.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3752
                    self doNext
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3753
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3754
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3755
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3756
    nextButton name:'nextButton'.
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3757
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3758
    "Created: / 17-11-2001 / 20:59:38 / cg"
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3759
    "Modified: / 11-05-2017 / 21:05:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3760
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3761
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3762
initializeReportButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3763
    reportButton := Button
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3764
                label:(resources string:'Report by Mail...')
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3765
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3766
                    reportButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3767
                    self doOpenReportMailApp.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3768
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3769
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3770
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3771
    reportButton name:'reportButton'.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3772
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3773
    "Created: / 17.11.2001 / 21:02:20 / cg"
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3774
!
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  3775
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3776
initializeResendButtonIn:bpanel
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3777
    resendButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3778
                label:(resources string:'Resend') , (self shortKeyStringForAction: #DebuggerResend)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3779
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3780
                    resendButton turnOff.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3781
                    self doResend
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3782
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3783
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3784
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3785
    resendButton name:'resendButton'.
13490
5dbbc9379782 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13489
diff changeset
  3786
5dbbc9379782 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13489
diff changeset
  3787
    "/ if we have this, we do not need the restart button
5dbbc9379782 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13489
diff changeset
  3788
    restartButton beInvisible.
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3789
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3790
    "Modified: / 16-08-2017 / 09:05:00 / Patrik Svestka <patrik.svestka@gmail.com>"
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3791
    "Modified: / 13-10-2017 / 22:50:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3792
!
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  3793
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3794
initializeRestartButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3795
    restartButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3796
                label:(resources string:'Restart'), (self shortKeyStringForAction: #DebuggerRestart)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3797
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3798
                    restartButton turnOff.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3799
                    self doRestart
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3800
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3801
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3802
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3803
    restartButton name:'restartButton'
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3804
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3805
    "Created: / 17-11-2001 / 20:58:52 / cg"
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3806
    "Modified: / 13-10-2017 / 22:51:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3807
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3808
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3809
initializeReturnButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3810
    returnButton := Button
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3811
                label:(resources string:'Return') , (self shortKeyStringForAction: #DebuggerReturn)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3812
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3813
                    returnButton turnOff.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3814
                    self doReturn
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3815
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3816
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3817
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3818
    returnButton name:'returnButton'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3819
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3820
    "Created: / 17.11.2001 / 20:58:22 / cg"
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3821
    "Modified: / 16-08-2017 / 09:11:20 / Patrik Svestka <patrik.svestka@gmail.com>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3822
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3823
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3824
initializeSendButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3825
    sendButton := Button
17520
34af9a65c309 Debugger: Renamed operations "Next" and "Send" tp "Step Over" and "Step Into"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17519
diff changeset
  3826
                label:(resources string:'Debug_Send') , (self shortKeyStringForAction: #DebuggerSend)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3827
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3828
                    sendButton turnOff.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3829
                    self doSend
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3830
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3831
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3832
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3833
    sendButton name:'sendButton'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3834
17519
94661347fc81 Issue #103: Added shortcuts for common debugging operations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17379
diff changeset
  3835
    "Created: / 17-11-2001 / 21:01:20 / cg"
17520
34af9a65c309 Debugger: Renamed operations "Next" and "Send" tp "Step Over" and "Step Into"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17519
diff changeset
  3836
    "Modified: / 25-05-2017 / 23:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3837
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3838
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3839
initializeStepButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3840
    stepButton := Button
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3841
                label:(resources string:'Debug_Step') , (self shortKeyStringForAction: #DebuggerStep)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3842
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3843
                    stepButton turnOff.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3844
                    self doStep
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3845
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3846
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3847
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3848
    stepButton name:'stepButton'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3849
    "Created: / 17.11.2001 / 21:00:13 / cg"
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3850
    "Modified: / 02-08-2017 / 10:16:38 / Patrik Svestka <patrik.svestka@gmail.com>"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3851
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  3852
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3853
initializeTerminateButtonIn:bpanel
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3854
    terminateButton := Button
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3855
                label:(resources string:'Debug_Terminate') , (self shortKeyStringForAction: #DebuggerTerminate)
16134
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3856
                action:[
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3857
                    terminateButton turnOffWithoutRedraw.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3858
                    self doTerminate
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3859
                ]
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3860
                in:bpanel.
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3861
dcd6ff036dcd #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16072
diff changeset
  3862
    terminateButton name:'terminateButton'.
9135
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3863
    terminateButton backgroundColor:Color red lightened.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3864
    "/ terminateButton foregroundColor:Color red.
b686c004104c comment/format in: #initializeStepButtonIn:
Claus Gittinger <cg@exept.de>
parents: 9133
diff changeset
  3865
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3866
    "Created: / 17-11-2001 / 21:02:20 / cg"
17725
702e431dd043 #169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut
Patrik Svestka <patrik.svestka@gmail.com>
parents: 17520
diff changeset
  3867
    "Modified: / 16-08-2017 / 09:17:10 / Patrik Svestka <patrik.svestka@gmail.com>"
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  3868
    "Modified: / 13-10-2017 / 22:51:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3869
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3870
1249
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3871
postRealize
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3872
    super postRealize.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3873
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3874
    inspecting ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3875
        inspectedProcess notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3876
            "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3877
             set prio somewhat higher (by 2, to allow walkBack-update process
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3878
             to run between mine and the debugged processes prio)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3879
            "
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3880
            Processor activeProcess
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3881
                priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3882
        ]
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  3883
    ].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  3884
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  3885
    self sensor addEventListener:self.
1249
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3886
9a0070d01218 #realize -> #postRealize
Claus Gittinger <cg@exept.de>
parents: 1244
diff changeset
  3887
    "Created: 24.7.1997 / 18:17:44 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3888
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3889
2150
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3890
reinitialize
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3891
    "/ 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
  3892
    "/ 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
  3893
13965
6213444511ae class: DebugView
Stefan Vogel <sv@exept.de>
parents: 13934
diff changeset
  3894
    self drawableId notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3895
        ^ self
2150
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3896
    ].
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3897
    "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
  3898
    self recreate.
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3899
!
a3148483962e do not re-realize a debugView after a snapshot-restart
Claus Gittinger <cg@exept.de>
parents: 2115
diff changeset
  3900
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3901
releaseDebuggee
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3902
    "We have to be careful to release all refs to the debuggee,
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3903
     because we may be in the cache.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3904
     Otherwise, the GC will not be able to release it"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3905
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3906
    busy := false.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3907
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3908
    codeView acceptAction:nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3909
    codeView doItAction:nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3910
    codeView contents:nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3911
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3912
    receiverInspector release.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3913
    contextInspector release.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3914
    inspectedProcess := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3915
    contextArray := nil.
13361
7eb8692dbc1b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13360
diff changeset
  3916
    ((exitAction == #restart) or:[exitAction == #return or:[exitAction == #resend]]) ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3917
        selectedContext := nil.
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3918
    ].
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3919
    actualContext := firstContext := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3920
    steppedContext := wrapperContext := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3921
    catchBlock := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3922
    grabber := nil.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3923
    self autoUpdateOff.
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3924
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3925
    "Created: / 10-07-1997 / 14:57:51 / stefan"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3926
    "Modified: / 26-09-2012 / 15:08:21 / cg"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3927
!
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  3928
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3929
setLabelFor:aMessage in:aProcess
16984
2333af91763e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16961
diff changeset
  3930
    |l lines processNameOrNil pidOrNil osPidString colorUsed|
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3931
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3932
    lines := aMessage asStringCollection.
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3933
    lines size > 1 ifTrue:[
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3934
        l := lines first
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3935
    ] ifFalse:[
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3936
        l := aMessage.
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3937
    ].
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3938
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3939
    l := l , ' ('.
4644
e6dd5c21b9c0 Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 4356
diff changeset
  3940
    Error handle:[:ex |
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3941
        l := l , '???'
1030
1a1ee0356c1b catch errors while extracting processes name
ca
parents: 1019
diff changeset
  3942
    ] do:[
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3943
        processNameOrNil := aProcess name.
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3944
        processNameOrNil notNil ifTrue:[
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3945
            l := l , (processNameOrNil contractTo:20) , ''.
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3946
        ].
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3947
        pidOrNil := aProcess id printString.
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3948
        l := l , '[' , pidOrNil , ']'.
73
e332d9c71624 *** empty log message ***
claus
parents: 69
diff changeset
  3949
    ].
1030
1a1ee0356c1b catch errors while extracting processes name
ca
parents: 1019
diff changeset
  3950
    l := l , ')'.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  3951
    self label:l.
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3952
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  3953
    ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3954
        osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
9403
ba9cafeaecd7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9348
diff changeset
  3955
    ].
ba9cafeaecd7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9348
diff changeset
  3956
8305
9d6337aa3ab8 exception info
Claus Gittinger <cg@exept.de>
parents: 8257
diff changeset
  3957
    exceptionInfoLabel notNil ifTrue:[
16984
2333af91763e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16961
diff changeset
  3958
        colorUsed := isStoppedAtHaltOrBreakPoint 
2333af91763e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16961
diff changeset
  3959
                        ifTrue:[ Color orange ]
2333af91763e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16961
diff changeset
  3960
                        ifFalse:[ Color red ].
16985
ce79de6db243 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16984
diff changeset
  3961
        colorUsed := colorUsed contrastingColorFor:exceptionInfoLabel backgroundColor.                
16984
2333af91763e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16961
diff changeset
  3962
        
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3963
        exceptionInfoLabel
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3964
            label:(resources
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3965
                    string:'%1 in process %2 [%3]%4'
16984
2333af91763e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16961
diff changeset
  3966
                    with:(lines first withColor:colorUsed)
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3967
                    with:(processNameOrNil ? '')
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3968
                    with:(pidOrNil ? '')
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  3969
                    with:(osPidString ? ''))
8305
9d6337aa3ab8 exception info
Claus Gittinger <cg@exept.de>
parents: 8257
diff changeset
  3970
    ].
9d6337aa3ab8 exception info
Claus Gittinger <cg@exept.de>
parents: 8257
diff changeset
  3971
6821
a6c4d3cd072c care for multiline label
Claus Gittinger <cg@exept.de>
parents: 6818
diff changeset
  3972
    "Modified: / 06-07-2006 / 12:43:19 / cg"
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3973
! !
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3974
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3975
!DebugView methodsFor:'interrupt handling'!
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3976
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3977
contextInterrupt
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3978
    DebuggingDebugger == true ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3979
        'contextIRQ' printCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3980
        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
  3981
    ].
5340
8e2526806312 return value of stepInterrupt, contextInterrupt and stepOrNext
Claus Gittinger <cg@exept.de>
parents: 5271
diff changeset
  3982
    self stepOrNext
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3983
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  3984
    "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
  3985
!
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3986
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  3987
stepInterrupt
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3988
    DebuggingDebugger == true ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3989
        'stepIRQ' print.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3990
        "/ ' in ' print. thisContext sender fullPrint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  3991
        '' printCR.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3992
    ].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  3993
    Processor yield.
5340
8e2526806312 return value of stepInterrupt, contextInterrupt and stepOrNext
Claus Gittinger <cg@exept.de>
parents: 5271
diff changeset
  3994
    self stepOrNext
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3995
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  3996
    "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
  3997
!
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3998
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  3999
stepOrNext
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  4000
    |where here con s isWrap method wrappedMethod
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4001
     originalMethodOfWrappedMethod originalMethodsContext
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4002
     inBlock subBlockLeft ignore contextBelow wrapContext
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4003
     leftWrap enteredWrap anyStepBlocks
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4004
     oneMore initiallyShown inBlockBelow receiver processName
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4005
     inBreakPointHandlingCode bpntReceiver|
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4006
789
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  4007
    "/ DebuggingDebugger := true
1049
3223853742a4 fixed initial selection after stepping with non-verbose
Claus Gittinger <cg@exept.de>
parents: 1030
diff changeset
  4008
    "/ DebuggingDebugger := false
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4009
    "/ DebuggingDebugger2 := true
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4010
    "/ DebuggingDebugger2 := false
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4011
    "/ DebuggingDebugger3 := false
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4012
    "/ '' printCR
789
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  4013
9024
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  4014
    processName := (Processor activeProcess nameOrId),' [',Processor activeProcess id printString,']'.
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  4015
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4016
    skipLineNr == #return ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4017
        self label:('stepping context returned ' , ' (process: ' , processName , ')').
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4018
        here := thisContext sender sender.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4019
        here setLineNumber:nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4020
        here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4021
        con := thisContext sender sender sender.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4022
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4023
        HaltInterrupt handle:[:ex |
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4024
            ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4025
            ex proceed
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4026
        ] do:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4027
            self enter:con select:nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4028
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4029
        con := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4030
        ^ self
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  4031
    ].
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  4032
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4033
"/    "/
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4034
"/    "/ 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
  4035
"/    "/
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4036
"/    stepForReturn == true ifTrue:[
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4037
"/"/'stepForreturn' printCR.
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4038
"/        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
  4039
"/        ^ self
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4040
"/    ].
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4041
52
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
  4042
    Processor activeProcess ~~ inspectedProcess ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4043
        'DebugView [info]: stray step interrupt' infoPrintCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4044
        ^ self
52
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
  4045
    ].
7b48409ae088 *** empty log message ***
claus
parents: 48
diff changeset
  4046
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4047
    here := thisContext.        "stepInterrupt"
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4048
    here := here sender.        "the caller; step- or contextIRQ"
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4049
    here := here sender.        "the interrupted context"
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4050
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4051
    DebuggingDebugger2 == true ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4052
        '***************************' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4053
        'here in ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4054
        inWrap ifTrue:['(wrap) ' print.].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4055
        ((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4056
        here selector printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4057
        'stepping in ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4058
        steppedContext notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4059
            ((ObjectMemory addressOf:steppedContext) printStringRadix:16) print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4060
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4061
        steppedContext printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4062
    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4063
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4064
    (inBreakPointHandlingCode := (here selector == #break)) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4065
        bpntReceiver := here receiver.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4066
    ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4067
        (inBreakPointHandlingCode := (here sender selector == #break)) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4068
            bpntReceiver := here sender receiver.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4069
        ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4070
    ].
17058
76200a67176c #DOCUMENTATION by mawalch
mawalch
parents: 16994
diff changeset
  4071
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4072
    "/ when single stepping, ignore breakpoints
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4073
    inBreakPointHandlingCode ifTrue:[
16376
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
  4074
        (bpntReceiver notNil and:[ bpntReceiver isKindOf:Breakpoint ]) ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4075
            false "here receiver isEnabled" ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4076
                con := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4077
                where := nil. here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4078
                StepInterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4079
                InterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4080
                InStepInterrupt := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4081
                ^ self
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4082
            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4083
        ].
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4084
    ].
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4085
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4086
    "/ kludge: a bug-workaround;
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4087
    "/ I should not see those...
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4088
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4089
    here selector == #ioInterrupt ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4090
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4091
            'oops - should not get that one' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4092
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4093
        Processor ioInterrupt.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4094
        StepInterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4095
        InterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4096
        where := nil. here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4097
        InStepInterrupt := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4098
        ^ self
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4099
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4100
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4101
    stepUntilEntering notNil ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4102
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4103
            'check if entering ' print. stepUntilEntering printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4104
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4105
        (stepUntilEntering match:here selector) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4106
            DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4107
                'entering...' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4108
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4109
            self label:('arrived at ' , stepUntilEntering , ' (process: ' , processName , ')').
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4110
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4111
            lastStepUntilEntering := stepUntilEntering.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4112
            stepUntilEntering := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4113
            self enter:here select:nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4114
            con := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4115
            ^ self
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4116
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4117
        "/ see if stepping context is still active ...
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4118
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4119
        con := here.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4120
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4121
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4122
            'start searching at: ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4123
            con fullPrint.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4124
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4125
        [con notNil and:[con ~~ steppedContext]] whileTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4126
            con := con sender
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4127
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4128
        con notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4129
            DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4130
                'steppingContext still active - continue stepping' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4131
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4132
            con := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4133
            where := nil. here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4134
            StepInterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4135
            InterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4136
            InStepInterrupt := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4137
            ^ self
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4138
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4139
        stepUntilEntering := nil.
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4140
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4141
781
33e4d40fddbe better stepping (stepping in methods blockContext)
Claus Gittinger <cg@exept.de>
parents: 779
diff changeset
  4142
    "
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4143
     kludge to hide breakpoint wrappers in the context list and when single stepping:
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4144
         check if we are in a wrapper method's hidden setup-sequence
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4145
         if so, ignore the interrupt and continue single sending.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4146
         Assume we are in a wrappers setup code, if there is another context above,
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4147
         which is for the wrapper method (i.e. if there is context with an originalmethod
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4148
         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
  4149
    "
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4150
    isWrap := false.
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4151
    subBlockLeft := false.
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4152
    leftWrap := enteredWrap := false.
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4153
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4154
    inWrap ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4155
        "/ situation1:
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4156
        "/   valueWithReceiver or other
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4157
        "/   foo (wrapped)                 <- wrapContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4158
        "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4159
        "/ situation2:
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4160
        "/   foo (original)                <- originalMethodsContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4161
        "/   valueWithReceiver
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4162
        "/   foo (wrapped)                 <- wrapContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4163
        "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4164
        "/ situation3:
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4165
        "/   other
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4166
        "/   foo (original)                <- originalMethodsContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4167
        "/   valueWithReceiver
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4168
        "/   foo (wrapped)                 <- wrapContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4169
        "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4170
        "/ situation4:
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4171
        "/   ... many-contexts ... (more than 8)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4172
        "/   possibly foo (original)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4173
        "/   valueWithReceiver or other
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4174
        "/   foo (wrapped)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4175
        "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4176
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4177
        "/ search for the wrapped method's context and extract the original method
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4178
        where := here.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4179
        8 timesRepeat:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4180
            wrapContext isNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4181
                where notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4182
                    DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4183
                        ((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4184
                        where printCR
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4185
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4186
                    where isBlockContext ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4187
                        method := where method.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4188
                        (method notNil and:[method isWrapped]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4189
                            originalMethodOfWrappedMethod := method originalMethod.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4190
                            wrappedMethod := method.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4191
                            wrapContext := where.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4192
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4193
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4194
                    where := where sender
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4195
                ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4196
            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4197
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4198
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4199
            'wrap-context is: ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4200
            wrapContext notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4201
                ((ObjectMemory addressOf:wrapContext) printStringRadix:16) print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4202
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4203
            wrapContext printCR
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4204
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4205
        originalMethodOfWrappedMethod isNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4206
            'oops no wrap?' errorPrintCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4207
        ].
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4208
    ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4209
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4210
    (inWrap and:[ originalMethodOfWrappedMethod notNil ]) ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4211
        isWrap := false.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4212
        "/ DebuggingDebugger2 ifTrue:[ '----------->' print. originalMethodOfWrappedMethod printCR ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4213
        where := here.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4214
        8 timesRepeat:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4215
            originalMethodsContext isNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4216
                where notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4217
                    DebuggingDebugger2 ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4218
                        ((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4219
                        where printCR
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4220
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4221
                    where isBlockContext ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4222
                        method := where method.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4223
                        method == originalMethodOfWrappedMethod ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4224
                            originalMethodsContext := here.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4225
                            where == here ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4226
                                "/ situation2
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4227
                                DebuggingDebugger2 ifTrue:[ 's2' printCR ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4228
                                isWrap := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4229
                                "/ here setSender:(wrapContext sender). --- leads to a crash
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4230
                            ] ifFalse: [
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4231
                                "/ situation3
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4232
                                DebuggingDebugger2 ifTrue:[ 's3' printCR ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4233
                                inWrap := false.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4234
                                isWrap := false.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4235
                            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4236
                            steppedContext := where
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4237
"/                        ] ifFalse:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4238
"/                            where selector == wrapContext selector ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4239
"/                                where receiver == wrapContext receiver ifTrue:[
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4240
"/                                    '!!!!!!!!!!!!!!!!!!!!!!!!' printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4241
"/                                    method printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4242
"/                                    method originalMethod printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4243
"/                                    originalMethodOfWrappedMethod printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4244
"/                                    '!!!!!!!!!!!!!!!!!!!!!!!!' printCR.
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4245
"/                                ].
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  4246
"/                            ].
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4247
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4248
                        where := where sender
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4249
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4250
                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4251
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4252
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4253
        DebuggingDebugger2 ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4254
            'original method-context is: ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4255
            originalMethodsContext notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4256
                ((ObjectMemory addressOf:originalMethodsContext) printStringRadix:16) print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4257
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4258
            originalMethodsContext printCR
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4259
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4260
        originalMethodsContext isNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4261
            originalMethodOfWrappedMethod isNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4262
                "/ situation4
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4263
                DebuggingDebugger2 ifTrue:[ 's4' printCR ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4264
                DebuggingDebugger2 ifTrue:[ steppedContext printCR ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4265
                isWrap := false.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4266
            ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4267
                "/ situation1
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4268
                DebuggingDebugger2 ifTrue:[ 's1' printCR ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4269
                isWrap := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4270
                "/ steppedContext := wrapContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4271
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4272
        ].
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4273
    ].
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4274
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4275
    isWrap ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4276
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4277
            'ignore wrap' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4278
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4279
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4280
        "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4281
        "/ ignore, while in wrappers hidden setup
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4282
        "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4283
        where := nil. here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4284
        ObjectMemory flushInlineCaches.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4285
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4286
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4287
            skipLineNr == #return ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4288
                'skipRet in wrap' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4289
            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4290
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4291
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4292
        StepInterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4293
        InterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4294
        InStepInterrupt := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4295
        ^ self
29
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4296
    ].
8a72e10043f6 *** empty log message ***
claus
parents: 22
diff changeset
  4297
3593
eb71fcdf0cfa single stepping in blocks of a method (fixed - I hope)
Claus Gittinger <cg@exept.de>
parents: 3591
diff changeset
  4298
    inBlock := inBlockBelow := anyStepBlocks := false.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4299
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4300
    DebuggingDebugger2 == true ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4301
        'bigStep is: ' print. bigStep printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4302
        'steppedContext is: ' print. steppedContext printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4303
    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4304
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4305
    s := 'Debugger: after step'.
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  4306
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4307
    "/
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4308
    "/ 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
  4309
    "/
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4310
    (bigStep and:[steppedContext notNil]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4311
        "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4312
         a step or next - ignore all contexts below the interesting one
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4313
        "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4314
        where := here.      "the interrupted context"
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4315
        contextBelow := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4316
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4317
        where home notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4318
            "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4319
            "/ in a block called by 'our' context ?
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4320
            "/
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4321
            where home == steppedContext ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4322
                "/ '*block*' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4323
                inBlock := true
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4324
            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4325
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4326
        (where == steppedContext) ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4327
            where := where sender.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4328
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4329
            where notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4330
                where home == steppedContext ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4331
                    "/ '*block*' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4332
                    inBlock := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4333
                ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4334
            ].
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4335
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4336
"/ 'looking for ' print.
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4337
"/  (steppedContextAddress printStringRadix:16)print. '' printCR.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4338
786
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  4339
"/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
  4340
"/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
  4341
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4342
            where == steppedContext ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4343
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4344
                "/ check if we are in a context below steppedContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4345
                "/ (i.e. if steppedContext can be reached from
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4346
                "/  interrupted context. Not using context-ref but its
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4347
                "/  address to avoid creation of many useless contexts.)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4348
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4349
                (inBlock) ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4350
                    [where notNil] whileTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4351
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4352
                        "/ if either the receiver or any arg of this context
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4353
                        "/ is a block of the steppedContext, we must really
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4354
                        "/ do a single step. Otherwise, stepping through a
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4355
                        "/ do:-loop would be very difficult.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4356
                        receiver := where receiver.
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4357
where selector == #critical: ifTrue:[
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4358
anyStepBlocks := true.
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4359
] ifFalse:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4360
                        (receiver isBlock
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4361
                        and:[(receiver isKindOf:Block)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4362
                        and:[receiver homeMethod == steppedContext method
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4363
                             "receiver home == steppedContext"]])
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4364
                        ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4365
                            anyStepBlocks := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4366
                        ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4367
                            where args do:[:arg |
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4368
                                (arg isBlock
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4369
                                and:[(arg isKindOf:Block)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4370
                                and:[arg homeMethod == steppedContext method
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4371
                                     "arg home == steppedContext"]])
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4372
                                ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4373
                                    anyStepBlocks := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4374
                                ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4375
                                    (where methodHome notNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4376
                                    and:[where methodHome receiver isBlock
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4377
                                    and:[(where methodHome receiver isKindOf:Block)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4378
                                    and:[where methodHome receiver homeMethod == steppedContext method
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4379
                                         "where methodHome receiver home == steppedContext"]]])
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4380
                                    ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4381
                                        anyStepBlocks := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4382
                                    ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4383
                                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4384
                            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4385
                        ].
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  4386
].
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4387
                        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4388
                            ((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4389
                            where selector printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4390
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4391
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4392
                        where == steppedContext ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4393
"/ 'found it - below; ignore' printCR.
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4394
                            "
17058
76200a67176c #DOCUMENTATION by mawalch
mawalch
parents: 16994
diff changeset
  4395
                             found the interesting context somewhere up in the
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4396
                             chain. We seem to be still below the interesting one ...
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4397
                            "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4398
                            tracing == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4399
                                here printString printCR
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4400
                            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4401
                            "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4402
                              yes, a context below
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4403
                              - continue and schedule another stepInterrupt.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4404
                              Must flush caches since optimized methods not always
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4405
                              look for pending interrupts
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4406
                            "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4407
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4408
                            contextBelow notNil ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4409
"/ '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
  4410
"/ 'con= ' print. contextBelow printCR.
1613
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  4411
"/                                contextBelow selector notNil ifTrue:[
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  4412
"/                                    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
  4413
"/                                ].
1399
35674d7ac5bc handle contextVars in codeViews doIt.
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  4414
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4415
                                DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4416
                                    'below stepCon; continue until unwind of: ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4417
                                    contextBelow printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4418
                                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4419
                                Processor activeProcess forceInterruptOnReturnOf:contextBelow.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4420
                                StepInterruptPending := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4421
                            ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4422
                                ObjectMemory flushInlineCaches.
1399
35674d7ac5bc handle contextVars in codeViews doIt.
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  4423
1613
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  4424
"/                                here selector notNil ifTrue:[
3590eeac968f dont change the windowTitle while stepping (its too slow)
Claus Gittinger <cg@exept.de>
parents: 1598
diff changeset
  4425
"/                                    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
  4426
"/                                ].
1399
35674d7ac5bc handle contextVars in codeViews doIt.
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  4427
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4428
                                DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4429
                                    'in stepCon; continue single stepping' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4430
                                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4431
                                StepInterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4432
                                InterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4433
                            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4434
                            where := nil. here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4435
                            InStepInterrupt := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4436
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4437
                            ^ self
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4438
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4439
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4440
                        (steppedContext notNil and:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4441
                         where methodHome == steppedContext methodHome]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4442
                            inBlockBelow := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4443
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4444
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4445
                        anyStepBlocks ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4446
                            inBlock ifFalse:[
2633
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  4447
"/ workaround a VM bug,
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  4448
"/ 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
  4449
"/ sigh
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  4450
where isBlockContext ifFalse:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4451
                                contextBelow := where
2633
41bd35e18e4e line-stepping into blocks fixed.
Claus Gittinger <cg@exept.de>
parents: 2591
diff changeset
  4452
].
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4453
                            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4454
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4455
                        where := where sender
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4456
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4457
                    s := 'Debugger: context returned'.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4458
                    subBlockLeft := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4459
                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4460
            ] ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4461
"/ 'found it right in sender' printCR.
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4462
                s := 'Debugger: after step'
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4463
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4464
        ] ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4465
"/ 'found it right away' printCR.
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4466
            s := 'Debugger: after step'
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4467
        ].
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4468
    ] ifFalse:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4469
"/ ' send' printCR.
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4470
        "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4471
         a send
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4472
        "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4473
        DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4474
            'clear steppedContext' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4475
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4476
        steppedContext := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4477
        s := 'Debugger: after send'
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4478
    ].
7
92b82578c88c *** empty log message ***
claus
parents: 4
diff changeset
  4479
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4480
    ignore := false.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4481
    (inBlock and:[stepHow == #nextOver or:[stepHow == #nextOut]]) ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4482
        ignore := true.
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  4483
    ].
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4484
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  4485
    "/ handle the case, when a subBlock leaves;
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  4486
    "/ continue stepping in the home context.
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  4487
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4488
    subBlockLeft ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4489
        steppedContext home notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4490
            steppedContext := steppedContext home.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4491
            s := 'Debugger: after step'.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4492
            subBlockLeft := false.
803
f8371812c789 fast next in subcontext of subblock
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
  4493
"/ DebugView enterUnconditional:thisContext withMessage:'debug'.
f8371812c789 fast next in subcontext of subblock
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
  4494
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4495
        ]
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  4496
    ].
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  4497
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4498
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4499
     kludge to hide breakpoint wrappers in the context list:
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4500
         check if we are in a wrapper methods hidden exit-sequence
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4501
         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
  4502
    "
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4503
    (where isNil
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4504
    and:[wrapperContext notNil])
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4505
    ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4506
        "/ did not find our steppedContext along the chain;
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4507
        "/ could be in a wrappedMethods exitBlock ...
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4508
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4509
        leftWrap ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4510
            where := here.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4511
            wrappedMethod := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4512
            5 timesRepeat:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4513
                where notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4514
                    where isBlockContext ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4515
                        method := where method.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4516
                        (method notNil and:[method isWrapped]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4517
                            where == wrapperContext ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4518
                                DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4519
                                    'change stepCon fromWrapped: ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4520
                                    steppedContext print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4521
                                    ' to: ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4522
                                    wrapperContext printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4523
                                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4524
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4525
                                inWrap := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4526
                                enteredWrap := true.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4527
                                steppedContext := wrapperContext.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4528
                                wrapperContext := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4529
                            ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4530
                        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4531
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4532
                    where := where sender
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4533
                ]
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4534
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4535
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4536
        enteredWrap ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4537
            ignore := true
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4538
        ]
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4539
    ].
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4540
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4541
    "/
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4542
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4543
    subBlockLeft ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4544
        "/ special care for stepInterrupt in send,
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4545
        "/ when created a dummy context (lineNr == 1)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4546
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4547
        steppedContext lineNumber isNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4548
            steppedContext selector == here sender selector ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4549
                subBlockLeft := false.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4550
                s := 'Debugger: after step'.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4551
                steppedContext := here sender.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4552
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4553
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4554
        oneMore := true
786
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  4555
    ].
429c3146c03d better stepping over stepped send (dummy context in send.c)
Claus Gittinger <cg@exept.de>
parents: 781
diff changeset
  4556
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4557
    inBlock ifTrue:[
16376
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
  4558
        DebuggingDebugger2 == true ifTrue:[ 'inBlock' printCR ].
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4559
        s := 'Debugger: in block'.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4560
    ].
3593
eb71fcdf0cfa single stepping in blocks of a method (fixed - I hope)
Claus Gittinger <cg@exept.de>
parents: 3591
diff changeset
  4561
    inBlockBelow ifTrue:[
16376
28914ad442f9 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16373
diff changeset
  4562
        DebuggingDebugger2 == true ifTrue:[ 'inBlockBelow' printCR ].
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4563
        ignore := true
3593
eb71fcdf0cfa single stepping in blocks of a method (fixed - I hope)
Claus Gittinger <cg@exept.de>
parents: 3591
diff changeset
  4564
    ].
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4565
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4566
    DebuggingDebugger2 == true ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4567
        where notNil ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4568
            '(' print. steppedContextLineno print. ') ' print.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4569
            where printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4570
        ].
654
dac2634ce5ec better support for alien context single stepping
Claus Gittinger <cg@exept.de>
parents: 651
diff changeset
  4571
    ].
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4572
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4573
    ignore ifFalse:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4574
        (bigStep
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4575
        and:[steppedContextLineno notNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4576
        and:[where notNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4577
        and:[where lineNumber == steppedContextLineno]]]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4578
            (here isBlockContext
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4579
            and:[(here methodHome == steppedContext)
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4580
                 or:[here home == steppedContext]]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4581
                DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4582
                    'same line but in block' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4583
                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4584
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4585
                steppedContext := actualContext := here.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4586
                steppedContextLineno := here lineNumber.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4587
            ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4588
                "/ kludge - I only have the info for up to 255 lines
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4589
                steppedContextLineno ~~ 255 ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4590
                    DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4591
                        'same line - ignored' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4592
                    ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4593
                    ignore := true
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4594
                ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4595
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4596
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4597
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4598
        (subBlockLeft not
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4599
        and:[skipLineNr notNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4600
        and:[where notNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4601
        and:[where lineNumber notNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4602
        and:[where lineNumber < skipLineNr]]]]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4603
            DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4604
                'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4605
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4606
            ignore := true
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4607
        ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4608
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4609
        (steppedContextLineno isNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4610
        and:[skipLineNr isNil
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4611
        and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4612
            DebuggingDebugger2 == true ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4613
                'same line2 (after conIRQ) - ignored' printCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4614
            ].
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4615
            ignore := true
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4616
        ].
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4617
    ].
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  4618
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4619
    ignore ifTrue:[
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4620
"/' ' printCR.
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4621
        where := nil. here := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4622
        "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4623
         yes, a context below
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4624
          - continue and schedule another stepInterrupt.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4625
          Must flush caches since optimized methods not always
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4626
          look for pending interrupts
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4627
        "
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4628
        ObjectMemory flushInlineCaches.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4629
        StepInterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4630
        InterruptPending := 1.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4631
        InStepInterrupt := nil.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4632
        ^ self
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4633
    ].
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4634
3055
a84f555bb673 printNL -> printCR
Stefan Vogel <sv@exept.de>
parents: 3034
diff changeset
  4635
"/ ' ' printCR.
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4636
9024
fb4eebb44e21 comment/format in: #initialize
Claus Gittinger <cg@exept.de>
parents: 8967
diff changeset
  4637
    self label:(s , ' (process: ' , processName , ')').
7
92b82578c88c *** empty log message ***
claus
parents: 4
diff changeset
  4638
57
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4639
    tracing := false.
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4640
    bigStep := false.
36e13831b62d *** empty log message ***
claus
parents: 56
diff changeset
  4641
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4642
    "release refs to context"
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4643
    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
  4644
"/'enter' printCR.
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  4645
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4646
    DebuggingDebugger2 == true ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4647
        '==> 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
  4648
    ].
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4649
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4650
    initiallyShown := nil.
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4651
    (oneMore == true) ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4652
        (thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4653
            initiallyShown := 2
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4654
        ] ifFalse:[
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4655
            initiallyShown := 1
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4656
        ]
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4657
    ].
2060
0b1b4269aa75 care for breakPoints while entering debugger
Claus Gittinger <cg@exept.de>
parents: 2042
diff changeset
  4658
    con := thisContext sender sender.
3435
2f45c629f115 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3434
diff changeset
  4659
9235
fdcf1d96cdfe changed:
Stefan Vogel <sv@exept.de>
parents: 9155
diff changeset
  4660
    HaltInterrupt handle:[:ex |
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4661
        'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4662
        ex proceed
3435
2f45c629f115 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3434
diff changeset
  4663
    ] do:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4664
        self enter:con select:initiallyShown
2060
0b1b4269aa75 care for breakPoints while entering debugger
Claus Gittinger <cg@exept.de>
parents: 2042
diff changeset
  4665
    ].
0b1b4269aa75 care for breakPoints while entering debugger
Claus Gittinger <cg@exept.de>
parents: 2042
diff changeset
  4666
    con := nil
1364
15b36b5c9480 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
  4667
11602
b04d5d5e02c7 single stepping in wrapped methods
Claus Gittinger <cg@exept.de>
parents: 11595
diff changeset
  4668
    "Created: / 14-10-1996 / 12:53:39 / cg"
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4669
    "Modified: / 30-04-2016 / 11:47:01 / cg"
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4670
! !
571fd5eee315 Initial revision
claus
parents:
diff changeset
  4671
4867
269d62a1ed27 method category rename
Claus Gittinger <cg@exept.de>
parents: 4859
diff changeset
  4672
!DebugView methodsFor:'menu & button actions'!
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4673
5875
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4674
addBrowserBookmark
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4675
    "add a browser-bookmark for the selected contexts method"
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4676
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4677
    |cls sel|
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4678
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4679
    selectedContext isNil ifTrue:[^ self].
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4680
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4681
    cls := selectedContext receiver class.
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4682
    sel := selectedContext selector.
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4683
    (cls includesSelector:sel) ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4684
        sel := nil
5875
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4685
    ].
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4686
    Tools::NewSystemBrowser addToBookMarks:cls selector:sel
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4687
!
c85e7a5cb5dd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5842
diff changeset
  4688
7796
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4689
autoRaiseView
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4690
    ^ UserPreferences current autoRaiseDebugger
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4691
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4692
    "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
  4693
!
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4694
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4695
autoRaiseView:aBoolean
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4696
    UserPreferences current autoRaiseDebugger:aBoolean
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4697
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4698
    "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
  4699
!
fe6f3d31c52a autoRaise (above) other views (an option in the view-menu)
Claus Gittinger <cg@exept.de>
parents: 7713
diff changeset
  4700
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4701
autoUpdateOff
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4702
    "stop the update process"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4703
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4704
    updateProcess notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4705
        monitorToggle lampColor:(Color yellow).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4706
        updateProcess terminate.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4707
        updateProcess := nil
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4708
    ]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4709
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4710
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4711
autoUpdateOn
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4712
    "fork a subprocess which updates the contextList in regular intervals"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4713
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4714
    updateProcess isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4715
        updateProcess :=
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4716
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4717
                [true] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4718
                    monitorToggle showLamp ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4719
                        monitorToggle lampColor:(Color yellow).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4720
                    ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4721
                        monitorToggle activeForegroundColor:Color black.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4722
                    ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4723
                    (Delay forSeconds:0.25) wait.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4724
                    self updateContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4725
                    monitorToggle showLamp ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4726
                        monitorToggle lampColor:(Color red).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4727
                    ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4728
                        monitorToggle activeForegroundColor:Color red.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4729
                    ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4730
                    (Delay forSeconds:0.25) wait.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4731
                    self updateContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4732
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4733
            ] forkAt:(Processor activePriority - 1)
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4734
    ]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4735
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4736
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4737
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4738
browseBlocksHome
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4739
    "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
  4740
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4741
    |cls sel block mthd|
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4742
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4743
    selectedContext isNil ifTrue:[^ self].
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4744
    (block := selectedContext receiver) isBlock ifFalse:[ ^ self ].
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4745
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4746
    mthd := block method.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4747
    cls := mthd mclass.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4748
    sel := mthd selector.
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4749
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4750
    (cls notNil and:[(cls includesSelector:sel)]) ifTrue:[
15835
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4751
        cls browserClass openInClass:cls selector:sel.
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4752
        ^ self
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4753
    ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4754
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4755
    mthd source notEmptyOrNil ifTrue:[
15835
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4756
        (Dialog confirm:'Block''s home method is (no longer) present in any class.\Do you want to see the method anyway?' withCRs)
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4757
        ifTrue:[
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4758
            SystemBrowser default browseMethods:{ mthd } title:'Unbound Method' sort:false
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4759
            "/ TextView openWith:mthd source title:'Unbound Method''s Source'.
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4760
        ].
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4761
        ^ self
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4762
    ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4763
    cls notNil ifTrue:[
15835
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4764
        (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)
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4765
        ifTrue:[
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4766
            cls browserClass openInClass:cls selector:nil.
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4767
        ].
13df5b55f4cf class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15774
diff changeset
  4768
        ^ self
13414
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4769
    ].
91c34e5eaf4e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13412
diff changeset
  4770
    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
  4771
!
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  4772
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4773
browseClass
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4774
    "browse the receiver's class (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4775
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4776
    |cls sel|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4777
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4778
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4779
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4780
    cls := selectedContext receiver class.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4781
    sel := selectedContext selector.
3591
754970803c0f #implements: -> #includesSelector:
Claus Gittinger <cg@exept.de>
parents: 3580
diff changeset
  4782
    (cls includesSelector:sel) ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4783
        sel := nil
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4784
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4785
    cls browserClass openInClass:cls selector:sel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4786
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4787
    "Modified: / 3.2.1998 / 20:23:36 / cg"
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4788
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4789
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4790
browseClassHierarchy
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4791
    "browse the receiver's classHierarchy (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4792
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4793
    |cls mthd|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4794
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4795
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4796
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4797
    mthd := selectedContext method.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4798
    mthd notNil ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4799
        cls := mthd containingClass.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4800
        "/ still nil if unbound - then use receiver's class
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4801
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4802
    cls isNil ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4803
        cls := selectedContext receiver class
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4804
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4805
    cls browserClass browseClassHierarchy:cls.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4806
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4807
    "Modified: / 17-11-2001 / 19:43:06 / cg"
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4808
    "Modified (comment): / 30-04-2016 / 15:51:28 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4809
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4810
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4811
browseFullClassProtocol
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4812
    "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
  4813
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4814
    |cls mthd|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4815
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4816
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4817
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4818
    mthd := selectedContext method.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4819
    mthd notNil ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4820
        cls := mthd containingClass.
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4821
        "/ still nil if unbound - then use receiver's class
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4822
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  4823
    cls isNil ifTrue:[
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4824
        cls := selectedContext receiver class
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4825
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4826
    cls browserClass browseFullClassProtocol:cls.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4827
16373
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4828
    "Modified: / 17-11-2001 / 19:43:43 / cg"
378ee9342601 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16262
diff changeset
  4829
    "Modified (comment): / 30-04-2016 / 15:51:32 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4830
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4831
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4832
browseImplementingClass
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4833
    "browse the implementing class (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4834
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4835
    |con mthd who sel cls home|
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4836
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4837
    con := selectedContext ? actualContext.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4838
    con isNil ifTrue:[^ self].
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4839
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4840
    mthd := con method.
651
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4841
    mthd notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4842
        who := mthd who.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4843
        who notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4844
            cls := who methodClass.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4845
            sel := who methodSelector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4846
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4847
            "might have been re-accepted"
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4848
            (home := con methodHome) notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4849
                (sel := home selector) notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4850
                    cls := home receiver class
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4851
                            whichClassImplements:selectedContext selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4852
                    cls notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4853
                        Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4854
                    ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4855
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4856
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4857
        ].
651
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4858
    ].
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4859
    cls isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4860
        "/ class not found - try receiver
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4861
        cls := con receiver class
651
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4862
    ].
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4863
b8a14e281c24 fixed browse, if there is nothing to browse
Claus Gittinger <cg@exept.de>
parents: 646
diff changeset
  4864
    cls browserClass openInClass:cls selector:sel.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4865
11303
28e758994349 changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11210
diff changeset
  4866
    "Created: / 22-11-1995 / 21:27:01 / cg"
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4867
    "Modified: / 19-07-2012 / 11:27:32 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4868
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  4869
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4870
browseImplementors
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4871
    "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
  4872
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4873
    selectedContext isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4874
        ^ self showError:'** select a context first **'
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4875
    ].
4153
603173e5f84e ask userPrefs
Claus Gittinger <cg@exept.de>
parents: 4122
diff changeset
  4876
    "/ selectedContext receiver class browserClass
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4877
    self withWaitCursorDo:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4878
        UserPreferences systemBrowserClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4879
             browseImplementorsOf:selectedContext selector.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4880
    ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4881
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4882
    "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
  4883
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4884
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4885
browseImplementorsOf
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4886
    "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
  4887
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4888
    |initial selector sel|
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4889
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4890
    (sel := codeView selection) notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4891
        initial := SystemBrowser extractSelectorFrom:sel
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4892
    ].
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4893
    initial isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4894
        initial := selectedContext isNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4895
                            ifTrue:[nil]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4896
                            ifFalse:[selectedContext selector].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4897
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4898
    selector := Dialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4899
                    requestSelector:'Selector to browse implementors of:'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4900
                    initialAnswer:initial.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4901
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4902
    selector notEmptyOrNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4903
        self withWaitCursorDo:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4904
            UserPreferences systemBrowserClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4905
                browseImplementorsMatching:selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4906
        ]
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4907
    ]
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4908
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4909
    "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
  4910
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4911
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4912
browseProcessesApplication
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4913
    "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
  4914
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4915
    |app appClass|
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4916
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  4917
    (app := self processesApplication) notNil ifTrue:[
17106
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  4918
        appClass := app class.
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  4919
        appClass browserClass openInClass:appClass selector:nil.
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4920
    ].
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4921
!
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4922
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4923
browseReceiversClass
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4924
    "browse the receiver's class (of the selected context's message)"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4925
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4926
    |cls sel|
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4927
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4928
    selectedContext isNil ifTrue:[^ self].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4929
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4930
    selectedContext isCheapBlockContext ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4931
        cls := selectedContext method mclass.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4932
        sel := selectedContext method selector.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4933
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4934
        cls := selectedContext receiver class.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4935
        sel := selectedContext selector.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4936
    ].
3591
754970803c0f #implements: -> #includesSelector:
Claus Gittinger <cg@exept.de>
parents: 3580
diff changeset
  4937
    (cls includesSelector:sel) ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4938
        sel := nil
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4939
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4940
    cls browserClass openInClass:cls selector:sel.
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4941
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4942
    "Modified: / 19-07-2012 / 11:29:48 / cg"
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4943
!
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  4944
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4945
browseSenders
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  4946
    "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
  4947
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4948
    selectedContext isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4949
        ^ self showError:'** select a context first **'
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4950
    ].
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4951
    self withWaitCursorDo:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4952
        UserPreferences systemBrowserClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4953
            browseAllCallsOn:selectedContext selector.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4954
    ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4955
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4956
    "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
  4957
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4958
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4959
browseSendersOf
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4960
    "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
  4961
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4962
    |initial selector sel|
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4963
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4964
    (sel := codeView selection) notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4965
        initial := SystemBrowser extractSelectorFrom:sel
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4966
    ].
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4967
    initial isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4968
        initial := selectedContext isNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4969
                            ifTrue:[nil]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4970
                            ifFalse:[selectedContext selector].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4971
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  4972
    selector := Dialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4973
                    requestSelector:'Selector to browse senders of:'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4974
                    initialAnswer:initial.
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4975
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4976
    selector notEmptyOrNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4977
        self withWaitCursorDo:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4978
            UserPreferences systemBrowserClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4979
                browseAllCallsOn:selector asSymbol.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4980
        ]
2577
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4981
    ]
2589
2342403139a7 extract selector from selection (as in browser)
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
  4982
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  4983
    "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
  4984
!
14b7cc070a6b added implementorsOf and sendersOf menu functions
Claus Gittinger <cg@exept.de>
parents: 2554
diff changeset
  4985
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4986
clearRememberedCallchain
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4987
    "clear the remembered callchain."
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4988
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4989
    RememberedCallChain := nil
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4990
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4991
    "Created: / 08-03-2012 / 01:29:46 / cg"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4992
!
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  4993
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4994
closeAllDebuggers
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4995
    (Dialog confirm:'Close all Debuggers (without confirmation if code was changed)?')
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  4996
    ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  4997
        ^ self
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  4998
    ].
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  4999
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5000
    self class allInstancesDo:[:debugger |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5001
        debugger ~~ self ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5002
            debugger busy ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5003
                debugger destroyWithConfirmation:true.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5004
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5005
        ].
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5006
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5007
    self closeRequest.
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5008
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5009
    "Created: / 23-03-2012 / 12:40:22 / cg"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5010
!
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5011
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5012
configureX:x y:y width:newWidth height:newHeight
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5013
    super configureX:x y:y width:newWidth height:newHeight.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5014
    LastExtent := self extent.
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5015
    LastOrigin := self origin.
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5016
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5017
    "Created: / 10-11-2010 / 10:09:11 / cg"
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5018
!
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  5019
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5020
copyWalkbackText
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5021
    "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
  5022
     This allows pasting it into some other view for printing.
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  5023
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  5024
     Show the full verbose context without filtering."
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5025
10760
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  5026
    |infoText|
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  5027
12884
399d8af76101 class: DebugView
Stefan Vogel <sv@exept.de>
parents: 12862
diff changeset
  5028
    firstContext isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5029
        infoText := 'No context, no walkback'.
10760
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  5030
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5031
        exceptionInfoLabel notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5032
            infoText := exceptionInfoLabel label , '\\' withCRs.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5033
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5034
            infoText := ''
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5035
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5036
        infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
10760
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  5037
    ].
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  5038
364875d0d64f changed: #copyWalkbackText
Stefan Vogel <sv@exept.de>
parents: 10752
diff changeset
  5039
    self setClipboardText:infoText
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5040
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5041
    "Modified: 28.8.1995 / 15:31:59 / claus"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5042
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5043
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5044
doAbort
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  5045
    "abort - send Object>>abortSignal, which is usually caught
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5046
     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
  5047
     from whatever the process is doing, but does not terminate it."
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5048
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5049
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Abort anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5050
    ifFalse:[ ^ self ].
16960
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5051
    ^ self doAbortWithoutConfirmation
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5052
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5053
    "Modified: / 25-11-2016 / 13:37:05 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5054
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5055
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5056
doAbortAll
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5057
    "abortAll - send Object>>abortAllSignal, which is usually caught
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5058
     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
  5059
     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
  5060
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5061
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Abort anyway ?') 
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5062
    ifFalse:[ ^ self ].
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5063
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5064
    inspecting ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5065
        inspectedProcess isDead ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5066
            self showTerminated.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5067
            ^ self
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5068
        ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5069
        (AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5070
            self showError:'** the process does not handle the abort signal **'
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5071
        ] ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5072
            self interruptProcessWith:[AbortAllOperationRequest raise].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5073
        ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5074
        ^ self
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5075
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5076
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5077
    steppedContext := wrapperContext := nil.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5078
    haveControl := false.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5079
    exitAction := #abortAll.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5080
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5081
    "exit private event-loop"
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5082
    catchBlock notNil ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5083
        abortButton turnOff.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5084
        catchBlock value.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5085
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5086
        "/ not reached
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5087
        'DebugView [warning]: abort failed' errorPrintCR.
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5088
    ].
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5089
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5090
    ^ self.
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5091
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5092
    "Modified: / 25-11-2016 / 13:36:15 / cg"
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5093
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  5094
16960
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5095
doAbortWithoutConfirmation
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5096
    "abort - send Object>>abortSignal, which is usually caught
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5097
     at save places (for example: in the event loop) and returns back
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5098
     from whatever the process is doing, but does not terminate it."
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5099
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5100
    inspecting ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5101
        inspectedProcess isDead ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5102
            self showTerminated.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5103
            ^ self
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5104
        ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5105
        (AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5106
            self showError:'** the process does not handle the abort signal **'
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5107
        ] ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5108
            self interruptProcessWith:[AbortOperationRequest raise].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5109
        ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5110
        ^ self
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5111
    ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5112
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5113
    steppedContext := wrapperContext := nil.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5114
    haveControl := false.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5115
    exitAction := #abort.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5116
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5117
    "exit private event-loop"
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5118
    catchBlock notNil ifTrue:[
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5119
        abortButton turnOff.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5120
        catchBlock value.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5121
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5122
        "/ not reached
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5123
        'DebugView [warning]: abort failed' errorPrintCR.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5124
    ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5125
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5126
    ^ self.
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5127
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5128
    "Modified: / 17.11.2001 / 22:53:22 / cg"
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5129
!
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  5130
11378
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5131
doChangeProcessPriority
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5132
    "ask for and change the process's priority"
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5133
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5134
    |oldPrio newPrio s|
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5135
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5136
    oldPrio := (inspectedProcess ? Processor activeProcess) priority.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5137
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5138
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5139
        s := Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5140
                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)\')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5141
                initialAnswer:oldPrio printString.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5142
        s isEmptyOrNil ifTrue:[^ self].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5143
        newPrio := Integer readFrom:s onError:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5144
        newPrio isNil
11378
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5145
    ] whileTrue.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5146
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5147
    newPrio := newPrio max:(Processor lowestPriority).
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5148
    newPrio := newPrio min:(Processor highestPriority).
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5149
    newPrio >= Processor highIOPriority ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5150
        (Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5151
                confirm:(resources
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5152
                            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?'))
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5153
        ifFalse:[^ self].
11378
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5154
    ].
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5155
    (inspectedProcess ? Processor activeProcess) priority:newPrio.
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5156
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5157
    "Created: / 07-03-2012 / 14:15:09 / cg"
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5158
!
d7e8d0227a78 added: #doChangeProcessPriority
Claus Gittinger <cg@exept.de>
parents: 11372
diff changeset
  5159
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5160
doContinue
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5161
    "continue from menu"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5162
1719
4f99e8100bb5 when continuing after a stack-overflow,
Claus Gittinger <cg@exept.de>
parents: 1699
diff changeset
  5163
    |proc exContext ex answer|
4f99e8100bb5 when continuing after a stack-overflow,
Claus Gittinger <cg@exept.de>
parents: 1699
diff changeset
  5164
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5165
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Continue anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5166
    ifFalse:[ ^ self ].
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5167
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5168
    inspecting ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5169
        device hasColors ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5170
            continueButton foregroundColor:Color red darkened.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5171
        ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5172
        continueButton label:(resources string:'Stop').
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5173
        continueButton action:[self doStop].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5174
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5175
        self processPerform:#resume.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5176
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5177
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5178
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5179
    canContinue ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5180
        exContext := thisContext findSpecialHandle:false raise:true.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5181
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5182
        (exContext notNil
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  5183
        and:[ (ex := exContext receiver) isProtoObject not
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5184
        and:[ ex isException
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5185
        and:[ ex creator == NoHandlerError
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5186
        and:[ ex exception creator == RecursionError]]]])
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5187
        ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5188
            "/ debug due to unhandled recursionInterrupt.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5189
            "/ ask if we should proceed with more stack.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5190
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5191
            answer := self confirm:'Debugger entered due to a stack overflow.\\Continue with more stack ?' withCRs.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5192
            answer == true ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5193
                proc := Processor activeProcess.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5194
                proc setMaximumStackSize:(proc maximumStackSize * 2).
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5195
            ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5196
        ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5197
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5198
        steppedContext := wrapperContext := nil.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5199
        tracing := false.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5200
        haveControl := false.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5201
        exitAction := #continue.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5202
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5203
        "exit private event-loop"
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5204
        catchBlock value.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5205
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5206
        "/ not reached.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5207
        'DebugView [warning]: continue failed' errorPrintCR.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5208
        continueButton turnOff.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5209
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5210
    ] ifFalse:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5211
        inspecting ifFalse:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5212
            'DebugView [info]: resuming top context' infoPrintCR.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5213
            self showSelection:1.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5214
            self doReturn
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5215
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5216
    ]
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5217
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5218
    "Modified: / 26-07-1999 / 15:38:45 / stefan"
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5219
    "Modified: / 25-11-2016 / 13:37:20 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5220
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5221
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5222
doContinueAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5223
    Delay waitForSeconds:5.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5224
    self doContinue.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5225
!
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5226
3187
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  5227
doDefine
5955
8704599a5d2f nice argument names in define-method
ca
parents: 5911
diff changeset
  5228
    |selectionIndex selector argNames receiversClass proto haltStmtDef haltStmtFix code cat
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5229
     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
  5230
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  5231
    selectionIndex := contextView selection.
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  5232
    restart := true.
3270
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  5233
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5234
    selectorToDefine notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5235
        selector := selectorToDefine.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5236
        receiversClass := classToDefineIn.
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5237
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5238
        selector := actualContext selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5239
        receiversClass := actualContext receiver class.
13538
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5240
    ].
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5241
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5242
    implClass := actualContext receiver class whichClassIncludesSelector:selector.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5243
    implClass notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5244
        "/ must be a subclassResponsibility
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5245
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5246
        idx := contextArray identityIndexOf:actualContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5247
        idx > 1 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5248
            callee := contextArray at:idx-1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5249
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5250
            callee selector == #subclassResponsibility ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5251
                restart := false.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5252
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5253
        ].
13538
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5254
    ].
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5255
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5256
    "generate nice argument names"
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5257
    bagOfClassNames := (actualContext args collect:[:eachArg | eachArg class name]) asBag.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5258
    bagOfUsedClassNames := Bag new.
bd35b9f1813a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13519
diff changeset
  5259
    argNames := actualContext args
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5260
                    collect:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5261
                        [:eachArg |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5262
                            |nm|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5263
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5264
                            nm := eachArg class nameWithoutPrefix.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5265
                            (bagOfClassNames occurrencesOf:nm) == 1 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5266
                                nm article , nm
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5267
                            ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5268
                                bagOfUsedClassNames add:nm.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5269
                                nm asLowercaseFirst , (bagOfUsedClassNames occurrencesOf:nm) printString
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5270
                            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5271
                        ].
5955
8704599a5d2f nice argument names in define-method
ca
parents: 5911
diff changeset
  5272
8704599a5d2f nice argument names in define-method
ca
parents: 5911
diff changeset
  5273
    proto := Method methodDefinitionTemplateForSelector:selector andArgumentNames:argNames.
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  5274
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5275
    haltStmtDef := '    self halt:''please define %2 here''.'.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5276
    haltStmtFix := '    self halt:''please change %2 as required''.'.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5277
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5278
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  5279
    ( { UndefinedObject . True . False } includes:receiversClass ) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5280
        (self confirm:'Are you sure you want to add this method (to ',receiversClass name,') ?')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5281
        ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5282
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5283
        ]
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5284
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5285
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5286
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5287
    "/ code for a getter
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5288
    (receiversClass instVarNames includes:selector) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5289
        code := '%1\' , haltStmtFix , '\    ^ %2'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5290
        cat := 'accessing'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5291
    ].
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5292
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5293
    "/ code for a setter
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5294
    (selector numArgs == 1
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5295
    and:[(selector endsWith:':')
12716
062e27d32904 Changed usage of deprecated #copyWithoutLast: to #copyButLast:
Stefan Vogel <sv@exept.de>
parents: 12687
diff changeset
  5296
    and:[receiversClass instVarNames includes:(selector copyButLast:1)]])
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5297
    ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5298
        varName := selector copyButLast:1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5299
        argName := argNames first.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5300
        code := '%1\' , haltStmtFix , '\    %3 := %4.'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5301
        cat := 'accessing'.
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5302
    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5303
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5304
    "/ code for a tester
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5305
    (selector numArgs == 0
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5306
    and:[(selector startsWith:'is')
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5307
    and:[(Smalltalk classNamed:(selector copyFrom:3)) notNil ]])
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5308
    ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5309
        (receiversClass nameWithoutPrefix = (selector copyFrom:3)) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5310
            code := '%1\' , haltStmtFix , '\    ^ true.'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5311
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5312
            code := '%1\' , haltStmtFix , '\    ^ false.'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5313
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5314
        cat := 'testing'.
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5315
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5316
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5317
"/    actualContext receiver isClass ifTrue:[
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5318
"/        selector == #new ifTrue:[
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5319
"/            code := '%1\' , haltStmt , '\    ^ self basicNew initialize'
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5320
"/        ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5321
"/        selector == #'new:' ifTrue:[
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5322
"/            code := '%1\' , haltStmt , '\    ^ (self basicNew:arg) initialize'
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5323
"/        ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5324
"/    ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  5325
    code isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5326
        code := '%1\' , haltStmtDef
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5327
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5328
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5329
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5330
        codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5331
        inClass:receiversClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5332
        unwind:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5333
        category:cat
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5334
        onCancel:[^ self].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  5335
3270
cd3562cffc61 fixed define-method for numArgs>0
Claus Gittinger <cg@exept.de>
parents: 3269
diff changeset
  5336
    self doShowSelection:selectionIndex.
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  5337
    restart ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5338
        self doRestart
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  5339
    ]
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  5340
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  5341
    "Modified: / 23-03-2012 / 09:49:31 / cg"
3187
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  5342
!
3d8f1bbf585b added define-Button
Claus Gittinger <cg@exept.de>
parents: 3165
diff changeset
  5343
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5344
doGotoApplicationActionMethod
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5345
    "select the first application-model context.
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5346
     This is another great helper, when you hit an exception,
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5347
     to quickly navigate to the responsible code of you application"
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5348
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5349
    contextArray keysAndValuesDo:[:i :c |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5350
        |nextCon nextRcvr dialog|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5351
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5352
        "/ find the first appModel context
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5353
        nextCon := contextArray at:i+1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5354
        "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5355
        "/ while not in the appModel
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5356
        "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5357
        [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5358
            nextRcvr := nextCon receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5359
            (nextRcvr isKindOf:ApplicationModel)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5360
        ] whileFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5361
            nextCon := nextCon sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5362
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5363
        self selectContext:nextCon.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5364
        ^ self.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5365
    ].
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5366
    "/ not found
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5367
    gotoApplicationActionMethodButton disable.
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5368
!
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5369
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5370
doGotoDialogOpener
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5371
    "select the context where the dialog was opened.
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5372
     This is a great helper, when you press interrupt while a modal dialog
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5373
     is open, to quickly navigate to the corresponding opening code of you application"
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5374
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5375
    contextArray keysAndValuesDo:[:i :c |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5376
        |nextCon nextRcvr dialog|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5377
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5378
        "/ find the openModal, then walk upward
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5379
        ((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5380
            dialog := c receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5381
            nextCon := contextArray at:i+1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5382
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5383
            "/ while still in dialog code
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5384
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5385
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5386
                nextRcvr := nextCon receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5387
                (nextRcvr == dialog)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5388
                or:[ nextRcvr == dialog class
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5389
                or:[ nextRcvr == DialogBox ]]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5390
            ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5391
                (nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5392
                    nextCon := nextCon methodHome
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5393
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5394
                nextCon := nextCon sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5395
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5396
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5397
            "/ while still in a Notification
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5398
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5399
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5400
                nextRcvr := nextCon receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5401
                (nextRcvr isKindOf:UserInformation)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5402
                or:[ nextRcvr isBehavior
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5403
                     and:[nextRcvr includesBehavior:UserInformation]]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5404
            ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5405
                nextCon := nextCon sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5406
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5407
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5408
            "/ while still in UIBuilder
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5409
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5410
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5411
                nextRcvr := nextCon receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5412
                (nextRcvr isKindOf:WindowBuilder)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5413
            ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5414
                nextCon := nextCon sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5415
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5416
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5417
            "/ while still in SimpleDialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5418
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5419
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5420
                nextRcvr := nextCon receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5421
                (nextRcvr class == SimpleDialog)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5422
            ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5423
                nextCon := nextCon sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5424
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5425
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5426
            "/ while still in applicationModel support code
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5427
            "/
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5428
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5429
                (nextCon selector startsWith:'openDialogSpec').
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5430
            ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5431
                nextCon := nextCon sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5432
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5433
            self selectContext:nextCon.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5434
            ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5435
        ]
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5436
    ].
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5437
    "/ not found
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5438
    gotoDialogOpenerButton disable.
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5439
!
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  5440
12671
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  5441
doInspectProcess
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  5442
    (inspectedProcess ? Processor activeProcess) inspect.
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  5443
!
9124b4453947 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12633
diff changeset
  5444
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5445
doMicroSend
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5446
    "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
  5447
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5448
    inspecting ifTrue:[^ self].
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5449
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5450
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Step anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5451
    ifFalse:[ ^ self ].
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5452
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5453
    canContinue ifTrue:[
16961
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5454
        steppedContext := wrapperContext := nil.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5455
        haveControl := false.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5456
        exitAction := #step.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5457
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5458
        "exit private event-loop"
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5459
        catchBlock value.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5460
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5461
        "/ not reached
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5462
        'DebugView [warning]: send failed' errorPrintCR.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5463
        sendButton turnOff.
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5464
    ]
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5465
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5466
    "Created: / 06-03-1997 / 21:09:36 / cg"
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5467
    "Modified: / 25-11-2016 / 13:37:34 / cg"
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5468
!
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5469
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5470
doNext
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5471
    "skip for next source-code line; entering blocks"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5472
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5473
    stepHow := #nextIn.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5474
    self doStep:nil
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  5475
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5476
    "Modified: 7.3.1997 / 18:38:41 / cg"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5477
!
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5478
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5479
doNextAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5480
    Delay waitForSeconds:5.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5481
    self doNext.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5482
!
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5483
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5484
doNextOut
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5485
    "skip for next source-code line; leaving blocks"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5486
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5487
    stepHow := #nextOut.
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5488
    self doStep:nil
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5489
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5490
    "Created: 3.3.1997 / 21:31:22 / cg"
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5491
    "Modified: 7.3.1997 / 18:38:49 / cg"
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5492
!
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5493
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5494
doNextOver
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5495
    "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
  5496
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5497
    stepHow := #nextOver.
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5498
    self doStep:nil
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5499
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5500
    "Created: 3.3.1997 / 20:50:38 / cg"
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5501
    "Modified: 7.3.1997 / 18:39:00 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5502
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5503
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5504
doNoTrace
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5505
    traceView notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5506
        traceView topView destroy.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5507
        traceView := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5508
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5509
    tracing := false
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5510
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5511
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5512
doOpenReportMailApp
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5513
    "open a mail report tool"
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5514
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5515
    | str |
7844
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  5516
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5517
    str := '' writeStream.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5518
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5519
    str nextPutLine:('Error notification from '
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5520
                    , OperatingSystem getLoginName
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5521
                    , '@'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5522
                    , OperatingSystem getHostName).
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5523
    str cr.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5524
5779
f2f987342b81 Use Timestamp/#asTimestamp instead of AbsoluteTime/#asAbsoluteTime
Stefan Vogel <sv@exept.de>
parents: 5664
diff changeset
  5525
    str nextPutLine:('Time: ' , Timestamp now printString).
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5526
    str nextPutLine:('STX Version: ' , Smalltalk versionString).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5527
    str nextPutLine:('Description: ' , self label).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5528
"/    str nextPutLine:('Error: ', printedException description).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5529
"/    str nextPutLine:('Signal: ', printedException signal printString).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5530
"/    str nextPutLine:('Parameter: ', printedException parameter printString).
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5531
    str nextPutLine:'Backtrace:'.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5532
    str cr.
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5533
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5534
    firstContext notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5535
        firstContext fullPrintAllOn:str.
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5536
    ].
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5537
    str cr;cr.
7844
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  5538
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5539
    SendMailTool
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5540
        openForMessage:(str contents)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5541
        withSubject:('STX Error:[', self label, ']')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5542
        preOpenBlock:[:inst|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5543
            inst recipientEntryField value:'error@exept.de'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5544
        ].
7844
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  5545
cf6ca4e657fb changed #doOpenReportMailApp
Claus Gittinger <cg@exept.de>
parents: 7843
diff changeset
  5546
    "Modified: / 20-09-2007 / 12:40:40 / cg"
4356
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5547
!
d953f8e8a4fe can send mail to SMTP Server now
penk
parents: 4153
diff changeset
  5548
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5549
doResend
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5550
    "resend - the selected context is unwound and its message resent.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5551
     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
  5552
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5553
    inspecting ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5554
        ^ self showError:'** not avail in inspecting debugger **'
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5555
    ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5556
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5557
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Resend anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5558
    ifFalse:[ ^ self ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5559
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5560
    steppedContext := wrapperContext := nil.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5561
    haveControl := false.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5562
    exitAction := #resend. "exit private event-loop"
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5563
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5564
    catchBlock value.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5565
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5566
    "/ normally not reached
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5567
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5568
    'DebugView [warning]: resend failed' errorPrintCR.
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5569
    resendButton turnOff.
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5570
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5571
    "Modified: / 25-11-2016 / 13:37:56 / cg"
13360
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5572
!
f87b54dfc58a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13351
diff changeset
  5573
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5574
doRestart
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5575
    "restart - the selected context will be restarted"
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5576
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5577
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Restart anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5578
    ifFalse:[ ^ self ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5579
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5580
    inspecting ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5581
        selectedContext isNil ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5582
            ^ self showError:'** select a context first **'
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5583
        ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5584
        self interruptProcessWith:[ selectedContext unwindAndRestart ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5585
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5586
    ].
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  5587
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5588
    haveControl := false.
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5589
    exitAction := #restart. "exit private event-loop"
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5590
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5591
    catchBlock value.
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5592
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5593
    "/ normally not reached
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5594
935
7c75379de9ec newStyle info & error messages
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
  5595
    'DebugView [warning]: restart failed' errorPrintCR.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5596
    restartButton turnOff.
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5597
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5598
    "Modified: / 25-11-2016 / 13:38:14 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5599
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5600
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5601
doReturn
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5602
    "return - the selected context will do a ^nil"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5603
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5604
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Return anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5605
    ifFalse:[ ^ self ].
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5606
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5607
    inspecting ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5608
        selectedContext isNil ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5609
            ^ self showError:'** select a context first **'
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5610
        ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5611
        self interruptProcessWith:[selectedContext unwind:nil].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5612
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5613
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5614
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  5615
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5616
    haveControl := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5617
    exitAction := #return.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5618
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5619
    "exit private event-loop"
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5620
    catchBlock value.
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5621
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5622
    "/ not reached
935
7c75379de9ec newStyle info & error messages
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
  5623
    'DebugView [warning]: return failed' errorPrintCR.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5624
    returnButton turnOff.
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5625
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5626
    "Modified: / 25-11-2016 / 13:38:27 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5627
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5628
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5629
doSend
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5630
    "single send; reenter with next message send"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5631
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5632
    stepHow := #send.
1067
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5633
    self doStep:-1
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5634
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5635
"/    inspecting ifTrue:[^ self].
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5636
"/
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5637
"/    canContinue ifTrue:[
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5638
"/        steppedContext := wrapperContext := nil.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5639
"/        haveControl := false.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5640
"/        exitAction := #step.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5641
"/
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5642
"/        "exit private event-loop"
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5643
"/        catchBlock notNil ifTrue:[catchBlock value].
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5644
"/
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5645
"/        "/ not reached
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5646
"/        'DebugView [warning]: send failed' errorPrintCR.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5647
"/        sendButton turnOff.
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5648
"/    ]
e6d52091b3af old: SEND executed debuggee up to the next send
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  5649
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5650
    "Modified: 7.3.1997 / 18:41:26 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5651
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5652
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5653
doStep
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5654
    "skip for next send in selected method"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5655
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  5656
    stepHow := #step.
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  5657
    self doStep:-1
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  5658
1072
50366cfc181a step vs send
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
  5659
    "Modified: 7.3.1997 / 18:46:49 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5660
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5661
13197
74bdfa87c71d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13162
diff changeset
  5662
doStep:lineNrOrNilOrMinus1
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5663
    "common helper for step, skip & next.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5664
     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
  5665
     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
  5666
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5667
    |con method|
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5668
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5669
    inspecting ifTrue:[^ self].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5670
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5671
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Step anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5672
    ifFalse:[ ^ self ].
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5673
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5674
    canContinue ifTrue:[
16961
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5675
        selectedContext notNil ifTrue:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5676
            con := actualContext. "/ selectedContext.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5677
            steppedContextLineno := actualContext lineNumber.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5678
        ] ifFalse:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5679
            con := contextArray at:2.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5680
            steppedContextLineno := con lineNumber.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5681
        ].
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5682
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5683
        skipLineNr := lineNrOrNilOrMinus1.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5684
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5685
        lineNrOrNilOrMinus1 == -1 ifTrue:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5686
            steppedContextLineno := skipLineNr := nil.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5687
        ].
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5688
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5689
        (stepUntilEntering isNil and:[stepHow == #send]) ifTrue:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5690
            steppedContext := contextArray at:1.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5691
            stepHow := #nextIn.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5692
        ] ifFalse:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5693
            stepHow == #nextOut ifTrue:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5694
                steppedContext := con home.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5695
            ] ifFalse:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5696
                steppedContext := con.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5697
            ].
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5698
        ].
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5699
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5700
        wrapperContext := nil.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  5701
789
a9595b71a8fa improved next-stepping in blocks
Claus Gittinger <cg@exept.de>
parents: 788
diff changeset
  5702
"/ ' 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
  5703
16961
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5704
        "
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5705
         if we step in a wrapped method,
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5706
         prepare to skip the prolog ...
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5707
        "
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5708
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5709
        inWrap := false.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5710
        method := con method.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5711
        (method notNil
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5712
        and:[method isWrapped
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5713
        and:[method originalMethod ~~ method]]) ifTrue:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5714
            inWrap := true
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5715
        ].
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5716
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5717
        lineNrOrNilOrMinus1 == #return ifTrue:[
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5718
            Processor activeProcess forceInterruptOnReturnOf:con.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5719
        ].
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5720
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5721
        con := nil.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5722
        bigStep := true.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5723
        haveControl := false.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5724
        exitAction := #step.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5725
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5726
        "exit private event-loop"
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5727
        catchBlock value.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5728
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5729
        "/ not reached
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5730
        'DebugView [warning]: step failed' errorPrintCR.
64ff32c6309b #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16960
diff changeset
  5731
        stepButton turnOff. nextButton turnOff. sendButton turnOff.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5732
    ]
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5733
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5734
    "Modified: / 25-11-2016 / 13:38:40 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5735
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5736
13351
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5737
doStepAfterDelay
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5738
    Delay waitForSeconds:5.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5739
    self doStep.
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5740
!
2f01d5b41262 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13350
diff changeset
  5741
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5742
doStop
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5743
    "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
  5744
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5745
    inspecting ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5746
        device hasColors ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5747
            continueButton foregroundColor:Color green darkened darkened.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5748
        ].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5749
        continueButton label:(resources string:'Continue').
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5750
        continueButton action:[self doContinue].
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5751
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5752
        self processPerform:#stop.
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5753
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  5754
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5755
    ].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  5756
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  5757
    "Modified: 20.10.1996 / 18:30:48 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5758
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5759
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5760
doTerminate
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5761
    "terminate - the process has a chance for cleanup"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5762
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5763
    (self checkIfCodeIsReallyModifiedAndConfirmWith:'Code was modified.\\Terminate anyway ?')
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5764
    ifFalse:[ ^ self ].
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  5765
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5766
    inspecting ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5767
        self processPerform:#terminate.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5768
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5769
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5770
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  5771
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5772
    haveControl := false.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  5773
    exitAction := #terminate.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5774
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5775
    "exit private event-loop"
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  5776
    catchBlock value.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5777
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5778
    "/ not reached (normally)
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5779
    inspecting ifFalse:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5780
        'DebugView [warning]: terminate failed' errorPrintCR.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5781
        (self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5782
            Debugger newDebugger.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5783
            Processor activeProcess terminate.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5784
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5785
    ].
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  5786
    terminateButton turnOff.
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  5787
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5788
    "Modified: / 25-11-2016 / 13:38:51 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5789
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5790
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5791
doTrace
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5792
    "tracing - not really implemented ..."
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5793
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5794
    self warn:'this function is not yet implemented'.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5795
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5796
"/    |v b|
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5797
"/
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5798
"/    traceView isNil ifTrue:[
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5799
"/        v := StandardSystemView on:Display.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5800
"/        v label:'Debugger-Trace'.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5801
"/        v icon:icon.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5802
"/
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5803
"/        b := Button label:'untrace' in:v.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5804
"/        b origin:(0 @ 0) extent:(1.0 @ (b height)).
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5805
"/        b action:[
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5806
"/            StepInterruptPending := nil.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5807
"/            tracing := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5808
"/            v unrealize.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5809
"/            traceView := nil
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5810
"/        ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5811
"/        traceView := ScrollableView for:TextCollector in:v.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5812
"/        traceView origin:(0 @ (b height))
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5813
"/                  extent:[v width @ (v height - b height)]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5814
"/    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5815
"/    v realize.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5816
"/
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5817
"/    tracing := true.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5818
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5819
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5820
doTraceStep
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5821
    "tracestep - not implemented yet"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5822
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5823
    canContinue ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5824
        tracing := true.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5825
        self doStep
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5826
    ]
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5827
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5828
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5829
exit
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5830
    "exit from menu: immediate exit from smalltalk"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5831
14129
cb9000f8e03d class: DebugView
Stefan Vogel <sv@exept.de>
parents: 14122
diff changeset
  5832
    OperatingSystem exit:10
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5833
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5834
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5835
findContextForWhich:aBlock thenDo:additionalAction
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5836
    |con|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5837
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5838
    con := self selectedContext.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5839
    con isNil ifTrue:[^ self].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5840
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5841
    con := con sender.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5842
    [con notNil] whileTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5843
        (aBlock value:con) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5844
            (self selectContext:con) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5845
                additionalAction value:con.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5846
                ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5847
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5848
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5849
        con := con sender.
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5850
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5851
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5852
    Dialog information:'None found'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5853
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5854
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5855
findContextWithStringInSource
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5856
    |stringToSearch source|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5857
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5858
    stringToSearch := Dialog request:'Search what:'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5859
    stringToSearch isEmptyOrNil ifTrue:[^ self].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5860
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5861
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5862
        findContextForWhich:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5863
            con method notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5864
            and:[ (source := con method source) notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5865
            and:[ (source includesString:stringToSearch) ]]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5866
        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5867
        thenDo:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5868
            codeView searchFwd:stringToSearch.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5869
        ]
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5870
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5871
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5872
findContextWithValueInVariable
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5873
    |valueStringToSearch|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5874
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5875
    valueStringToSearch := Dialog request:'Search for a local value whith printString containing:'.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5876
    valueStringToSearch isEmptyOrNil ifTrue:[^ self].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5877
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5878
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5879
        findContextForWhich:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5880
            con argsAndVars contains:[:val | val printString asLowercase includesString: valueStringToSearch asLowercase]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5881
        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5882
        thenDo:[:con | ]
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5883
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5884
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5885
findHandlerFor
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5886
    |exClass con|
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5887
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5888
    (con := self selectedContext) isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5889
        con := contextArray at:1
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5890
    ].
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5891
    con sender isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5892
        self information:'Context has already returned'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5893
        ^ self
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5894
    ].
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5895
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5896
    exClass := Dialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5897
                choose:'Exception class:'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5898
                fromList:(GenericException withAllSubclasses copyAsOrderedCollection sort:[:a :b | a name < b name])
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5899
                lines:25
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5900
                title:'Choose Exception class'.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  5901
    exClass isNil ifTrue:[^ self].
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5902
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5903
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5904
        findContextForWhich:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5905
            con isHandleContext
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5906
            and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5907
        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5908
        thenDo:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5909
            self selectContext:con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5910
        ]
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5911
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5912
15255
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5913
findHomeContext
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5914
    |con home|
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5915
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5916
    (con := self selectedContext) isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5917
        self beep.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5918
        ^ self.
15255
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5919
    ].
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5920
    (home := con home) isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5921
        self beep.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5922
        ^ self.
15255
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5923
    ].
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5924
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5925
    "/ still have to find it - home could be elsewhere (another process)
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5926
    "/ (i.e. cannot simply select it)
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5927
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5928
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5929
        findContextForWhich:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5930
            con == home
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5931
        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5932
        thenDo:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5933
            self selectContext:con.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5934
        ]
15255
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5935
!
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  5936
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  5937
findNextExceptionHandlerContext
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  5938
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5939
        findContextForWhich:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5940
            con isHandleContext
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5941
        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5942
        thenDo:[:con |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5943
            self selectContext:con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5944
        ]
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5945
!
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5946
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5947
inspectContext
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5948
    "launch an inspector on the currently selected context"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5949
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5950
    |con|
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5951
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5952
    (con := self selectedContext) notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5953
        con inspect.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5954
    ]
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5955
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  5956
    "Modified: / 17-07-2012 / 12:52:34 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5957
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  5958
15247
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5959
inspectContextsMethod
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5960
    "launch an inspector on the currently selected context's method"
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5961
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5962
    |con|
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5963
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5964
    (con := self selectedContext) notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  5965
        con method inspect.
15247
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5966
    ]
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5967
!
cdd1a5e76c7d class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15084
diff changeset
  5968
17106
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5969
inspectProcessesApplication
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5970
    "inspect the application (of the process, if it is a GUI process)"
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5971
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5972
    |app|
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5973
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5974
    (app := self processesApplication) notNil ifTrue:[
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5975
        app inspect.
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5976
    ].
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5977
!
c1eb8f5dc37c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17058
diff changeset
  5978
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5979
inspectWidgetHierarchy
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5980
    |rcvr view app|
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5981
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  5982
    Tools::ViewTreeInspectorApplication isNil ifTrue:[
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5983
        Dialog warn:'Missing class: Tools::ViewTreeInspectorApplication'.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5984
        ^ self.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5985
    ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5986
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5987
    selectedContext notNil ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5988
        rcvr := selectedContext receiver.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5989
        rcvr isView ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5990
            view := rcvr
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5991
        ] ifFalse:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5992
            (rcvr isKindOf:ApplicationModel) ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5993
                view := rcvr window
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5994
            ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5995
        ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5996
    ].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5997
    view isNil ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5998
        (app := self processesApplication) notNil ifTrue:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  5999
            view := app window
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  6000
        ] ifFalse:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  6001
            Dialog warn:'Please select a context with the app as receiver'.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  6002
            ^ self.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  6003
        ]
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6004
    ].
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6005
    Tools::ViewTreeInspectorApplication openOn:view
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  6006
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  6007
    "Modified: / 25-11-2016 / 13:21:45 / cg"
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6008
!
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6009
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6010
middleButtonMenu
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6011
    <resource: #programMenu >
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6012
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6013
    |items m nameOfExecutable|
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6014
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6015
    exclusive ifTrue:[
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6016
        items := #(
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6017
                    ('Show More WalkBack'               showMore                )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6018
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6019
                    ('Add Breakpoint'                   addBreakpoint           )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6020
                    ('Remove Breakpoint'                removeBreakpoint        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6021
                    ('Remove all Break- && Tracepoints'  removeAllBreakpoints   )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6022
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6023
                  ).
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6024
    ] ifFalse:[
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6025
        items := #(
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6026
                    ('Show More WalkBack'               showMore                )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6027
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6028
                    ('Skip'                             skip                    )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6029
                    ('Step Out'                         skipForReturn           )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6030
                    ('Skip until Entering...'           skipUntilEntering       )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6031
                    ('-'                                                        )
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6032
"
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6033
                    ('Continue'                         doContinue              )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6034
                    ('Terminate'                        doTerminate             )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6035
                    ('Abort'                            doAbort                 )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6036
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6037
                    ('Step'                             doStep                  )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6038
                    ('Send'                             doSend                  )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6039
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6040
                    ('Return'                           doReturn                )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6041
                    ('Restart'                          doRestart               )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6042
                    ('-'                                                        )
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6043
"
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6044
                    ('Add Breakpoint'                   addBreakpoint           )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6045
                    ('Remove Breakpoint'                removeBreakpoint        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6046
                    ('Remove all Break- & Tracepoints'  removeAllBreakpoints    )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6047
                ).
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6048
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6049
"/        self allowBreakPointsInDebugger ifFalse:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6050
"/            items := items , #(
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6051
"/                        ('Allow Breakpoints & halt in Debugger'      doNotIgnoreBreakpoints  )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6052
"/                    ).
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6053
"/        ] ifTrue:[
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6054
"/            items := items , #(
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6055
"/                        ('Ignore Breakpoints & halt in Debugger'     doIgnoreBreakpoints  )
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6056
"/                    ).
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  6057
"/        ].
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  6058
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6059
        items := items , #(
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6060
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6061
                    ('Browse Implementing Class'      browseImplementingClass )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6062
                    ('Browse Receiver''s Class'             browseReceiversClass    )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6063
                    ('Browse Blocks''s Home'                browseBlocksHome    )
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6064
"/                    ('Browse Receivers Class Hierarchy'   browseClassHierarchy    )
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6065
"/                    ('Browse Receivers Full Protocol'     browseFullClassProtocol )
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6066
                    ('Implementors'                     browseImplementors      )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6067
                    ('Implementors Of...'               browseImplementorsOf    )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6068
                    ('Senders'                          browseSenders           )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6069
                    ('Senders Of...'                    browseSendersOf         )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6070
                    ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6071
                    ('Inspect Context'                  inspectContext          )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6072
                  ).
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6073
    ].
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6074
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6075
    items := items , #(
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6076
                ('Copy WalkBack Text'               copyWalkbackText        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6077
                ('-'                                                        )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6078
                ('Hard Terminate (Danger)'          quickTerminate          )
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6079
                ('='                                                        )).
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6080
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6081
    nameOfExecutable := OperatingSystem nameOfSTXExecutable asFilename withoutSuffix baseName.
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6082
    nameOfExecutable = 'stx' ifTrue:[ nameOfExecutable := 'Smalltalk' ].
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6083
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6084
    items := items , {
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6085
        { 'Exit %1 (Danger: No Confirmation)' bindWith:nameOfExecutable. #exit                 }}.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6086
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6087
    m := PopUpMenu
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6088
                itemList:items
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6089
                resources:resources
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6090
                receiver:self
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6091
                for:contextView.
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6092
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6093
    inspecting ifTrue:[
17177
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6094
        m notNil ifTrue:[
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6095
            m disableAll:#(doTraceStep removeBreakpoint browseImplementingClass browseReceiversClass
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6096
                           browseClassHierarchy browseFullClassProtocol
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6097
                           browseImplementors browseSenders browseBlocksHome inspectContext skip doStepOut).
8d4c9b700726 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17176
diff changeset
  6098
        ].
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6099
    ].
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6100
    self updateMenuItems.
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6101
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6102
    ^ m.
9488
2035181e2ec5 changed: #middleButtonMenu
Claus Gittinger <cg@exept.de>
parents: 9479
diff changeset
  6103
13210
214639c7834e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13197
diff changeset
  6104
    "Modified: / 22-07-2013 / 15:30:05 / cg"
8142
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6105
!
4ad36cbbcffb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8131
diff changeset
  6106
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6107
notShowingDenseWalkbackHolder
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6108
    ^ BlockValue forLogicalNot: self showingDenseWalkbackHolder.
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6109
!
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6110
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6111
notShowingSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6112
    ^ hideSupportCode == true.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6113
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6114
    "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
  6115
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6116
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6117
openAboutThisApplication
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6118
    "opens an about box for this application."
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6119
7112
b1c931857a1e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7065
diff changeset
  6120
    Dialog aboutClass:self class.
b1c931857a1e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7065
diff changeset
  6121
b1c931857a1e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7065
diff changeset
  6122
    "Modified: / 12-09-2006 / 17:20:38 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6123
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6124
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  6125
openSettingsDialog
14559
1de1084ebbd9 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14532
diff changeset
  6126
    |settingsList|
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  6127
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6128
    settingsList :=
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6129
        #(
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6130
           #('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6131
           #('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6132
           #('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6133
           #('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6134
        ).
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6135
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6136
    SettingsDialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6137
        openWithList:settingsList
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6138
        label:(resources string:'Debugger Settings').
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  6139
!
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  6140
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6141
processesApplication
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6142
    "if the debugged process is a GUI process,
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6143
     AND it has an applicaiton, return it.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6144
     Otherwise, return nil"
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6145
14430
c5408e02eebd class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14356
diff changeset
  6146
    |p wgs app nonModalWGs|
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6147
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6148
    p := inspectedProcess ? Processor activeProcess.
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6149
    (p notNil and:[p isGUIProcess]) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6150
        wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6151
        nonModalWGs := wgs reject:[:wg | wg isModal].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6152
        nonModalWGs notEmpty ifTrue:[^ nonModalWGs first application].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6153
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6154
        wgs do:[:wg |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6155
            |wgi|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6156
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6157
            wgi := wg.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6158
            [wgi notNil] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6159
                (app := wgi application) notNil ifTrue:[^ app].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6160
                wgi isModal ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6161
                    wgi := wgi previousGroup
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6162
                ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6163
                    wgi := nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6164
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6165
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6166
        ]
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6167
    ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6168
    ^ nil
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6169
!
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  6170
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6171
quickTerminate
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6172
    "quick terminate - the process will get no chance for cleanup actions"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6173
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6174
    inspecting ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6175
        self processPerform:#terminateNoSignal.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6176
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6177
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6178
788
26d452e40e52 care for wrappedMethods exit-blocks, when singleStepping
Claus Gittinger <cg@exept.de>
parents: 787
diff changeset
  6179
    steppedContext := wrapperContext := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6180
    haveControl := false.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6181
    exitAction := #quickTerminate.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  6182
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  6183
    "exit private event-loop"
6365
027e8d0a78ee code cleanup
Claus Gittinger <cg@exept.de>
parents: 6361
diff changeset
  6184
    catchBlock value.
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  6185
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  6186
    "/ not reached (normally)
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  6187
    inspecting ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6188
        'DebugView [warning]: quick terminate failed' errorPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6189
        (self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6190
            Debugger newDebugger.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6191
            Processor activeProcess terminateNoSignal.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6192
        ]
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6193
    ].
581
d1a1ae9d49e4 removed old non-thread support
Claus Gittinger <cg@exept.de>
parents: 579
diff changeset
  6194
    terminateButton turnOff.
477
6351acd20dfb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  6195
935
7c75379de9ec newStyle info & error messages
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
  6196
    "Modified: 10.1.1997 / 17:42:10 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6197
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6198
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6199
rememberCallchain
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6200
    "remember the callchain in a classvar.
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6201
     When entered the next time, highlight already entered contexts.
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6202
     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
  6203
     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
  6204
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6205
    RememberedCallChain := contextArray copy
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6206
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6207
    "Created: / 07-03-2012 / 23:07:07 / cg"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6208
!
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  6209
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6210
selectContext:aContext
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6211
    |idx|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6212
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6213
    idx := contextArray identityIndexOf:aContext.
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6214
    idx == 0 ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6215
        "/ some contexts hidden?
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6216
        (self showingDenseWalkback or:[self showingSupportCode not]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6217
            Dialog information:'Context is hidden - disabling the "hideSupportCode" option (see view menu)'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6218
            self showFullWalkback.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6219
            self showingDenseWalkback:false.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6220
            self showingSupportCode:true.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6221
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6222
        idx := contextArray identityIndexOf:aContext.
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6223
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6224
    idx ~~ 0 ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6225
        self selectContextWithIndex:idx.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6226
        ^ true.
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6227
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6228
    ^ false
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6229
!
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  6230
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6231
selectedContext
15960
196e6963974c #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 15857
diff changeset
  6232
    |selIdx|
196e6963974c #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 15857
diff changeset
  6233
196e6963974c #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 15857
diff changeset
  6234
    (selIdx := contextView selection) notNil ifTrue:[
196e6963974c #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 15857
diff changeset
  6235
        (contextView selectionValue startsWith:'**') ifFalse:[
196e6963974c #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 15857
diff changeset
  6236
            ^ (contextArray at:selIdx).
196e6963974c #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 15857
diff changeset
  6237
        ]
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6238
    ].
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6239
    ^ nil
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6240
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6241
    "Created: / 17-07-2012 / 12:52:10 / cg"
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6242
!
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  6243
11647
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6244
showFullWalkback
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6245
    "double the number of contexts shown"
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6246
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6247
    contextArray notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6248
        nChainShown := 9999.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6249
        self redisplayBacktrace.
11647
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6250
    ]
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6251
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6252
    "Created: / 23-07-2012 / 12:24:02 / cg"
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6253
!
Claus Gittinger <cg@exept.de>
parents: 11645
diff changeset
  6254
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6255
showMore
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6256
    "double the number of contexts shown"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6257
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6258
    contextArray notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6259
        nChainShown := nChainShown * 2.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6260
        self redisplayBacktrace.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6261
    ]
563
93633e3ff304 selection: / setSelection:
Claus Gittinger <cg@exept.de>
parents: 554
diff changeset
  6262
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6263
    "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
  6264
!
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  6265
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6266
showSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6267
    hideSupportCode := false.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6268
    self redisplayBacktrace.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6269
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6270
    "Created: / 10-06-2012 / 21:27:53 / cg"
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6271
!
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6272
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6273
showingDenseWalkback
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6274
    ^ self verboseBacktraceHolder value not
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6275
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6276
    "Created: / 17.11.2001 / 20:13:53 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6277
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6278
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6279
showingDenseWalkback:aBoolean
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6280
    self verboseBacktraceHolder value:aBoolean not.
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6281
    self redisplayBacktrace.
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6282
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6283
    "Created: / 27-07-2012 / 14:58:00 / cg"
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6284
!
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6285
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6286
showingDenseWalkbackHolder
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6287
    ^ BlockValue forLogicalNot:self verboseBacktraceHolder
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6288
!
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6289
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6290
showingSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6291
    ^ hideSupportCode == false.
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6292
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6293
    "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
  6294
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6295
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6296
showingSupportCode:aBoolean
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6297
    hideSupportCode := aBoolean not.
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6298
    self redisplayBacktrace.
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6299
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6300
    "Created: / 27-07-2012 / 14:58:00 / cg"
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6301
!
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  6302
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6303
showingVerboseWalkback
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  6304
    ^ self verboseBacktraceHolder value
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6305
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6306
    "Created: / 17.11.2001 / 20:13:46 / cg"
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6307
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6308
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  6309
sizeChanged:how
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6310
    super sizeChanged:how.
9626
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  6311
    LastExtent := self extent.
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  6312
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  6313
    "Created: / 10-11-2010 / 09:08:41 / cg"
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  6314
!
746106f8e83c remember origin & extent
Claus Gittinger <cg@exept.de>
parents: 9618
diff changeset
  6315
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6316
skip
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6317
    "skip for cursor line in selected method"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6318
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  6319
    stepHow := #skip.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6320
    self doStep:codeView cursorLine.
790
6a166894d5e1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
  6321
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  6322
    "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
  6323
!
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  6324
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  6325
skipForReturn
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6326
    "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
  6327
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  6328
    stepHow := #skipReturn.
754
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  6329
    self doStep:#return.
1848d4e89bc4 much better next & step (no longer single-steps through all sends)
Claus Gittinger <cg@exept.de>
parents: 745
diff changeset
  6330
1063
cc4f9a5d49ac added stepIn, stepOver and stepOut;
Claus Gittinger <cg@exept.de>
parents: 1049
diff changeset
  6331
    "Modified: 3.3.1997 / 20:56:32 / cg"
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6332
!
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6333
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6334
skipUntilEntering
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6335
    "skip until some particular method is invoked."
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6336
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6337
    |selector|
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6338
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6339
    selector := Dialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6340
                request:'Skip until entering what (matchpattern):'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6341
                initialAnswer:self goodSkipUntilSelector.
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6342
    selector size == 0 ifTrue:[^ self].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6343
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6344
    stepUntilEntering := selector asSymbol.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6345
    stepHow := #send.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6346
    self doStep:-1.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6347
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6348
    "Modified: 3.3.1997 / 20:56:32 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6349
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6350
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6351
toggleShowSupportCode
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6352
    hideSupportCode ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6353
        self showSupportCode
11645
4f39a925956d changed: #toggleShowSupportCode
Stefan Vogel <sv@exept.de>
parents: 11636
diff changeset
  6354
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6355
        self hideSupportCode
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6356
    ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6357
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6358
    "Modified: / 17-11-2001 / 20:07:45 / cg"
11573
91281dc275e1 class definition
Claus Gittinger <cg@exept.de>
parents: 11571
diff changeset
  6359
    "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
  6360
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  6361
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  6362
toggleVerboseWalkback
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6363
    self showingDenseWalkback:(self showingDenseWalkback not)
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6364
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  6365
    "Modified: / 27-07-2012 / 15:00:15 / cg"
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6366
!
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6367
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6368
updateMenuItems
13408
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  6369
    "enable/disable some menu items, depending on the current selected context"
a29a1a5b7013 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13398
diff changeset
  6370
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6371
    |m mthd cls mCls rCls|
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6372
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6373
    m := contextView middleButtonMenu.
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6374
    m notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6375
        m disable:#removeBreakpoint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6376
        m disable:#addBreakpoint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6377
        canShowMore ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6378
            m disable:#showMore
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6379
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6380
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6381
        selectedContext notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6382
            m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6383
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6384
            mthd := selectedContext method.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6385
            mthd notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6386
                cls := mCls := mthd containingClass.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6387
                mthd isBreakpointed ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6388
                    m enable:#removeBreakpoint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6389
                ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6390
                    m enable:#addBreakpoint.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6391
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6392
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6393
            (selectedContext isBlockContext and:[selectedContext home isNil]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6394
                "/ a cheap block's context
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6395
            ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6396
                rCls := selectedContext receiver class.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6397
                cls isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6398
                    cls := rCls
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6399
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6400
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6401
            cls notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6402
                m enableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6403
                rCls == mCls ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6404
                    m disable:#browseReceiversClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6405
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6406
                mCls isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6407
                    m disable:#browseImplementingClass
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6408
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6409
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6410
            ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6411
                m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6412
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6413
            mthd notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6414
                m enableAll:#(browseImplementingClass).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6415
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6416
            selectedContext isCheapBlockContext ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6417
                m disableAll:#(browseReceiversClass).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6418
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6419
            selectedContext receiver isBlock ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6420
                m enableAll:#(browseBlocksHome).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6421
            ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6422
                m disableAll:#(browseBlocksHome).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6423
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6424
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6425
            m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6426
                           browseBlocksHome browseFullClassProtocol).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6427
        ]
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6428
    ]
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6429
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  6430
    "Modified: / 19-07-2012 / 11:53:30 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6431
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6432
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6433
!DebugView methodsFor:'menu & button actions-breakpoints'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6434
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6435
addBreakpoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6436
    "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
  6437
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6438
    |implementorClass method|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6439
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6440
    selectedContext isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6441
        ^ self showError:'** select a context first **'
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6442
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6443
    (MessageTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6444
        ^ self
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6445
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6446
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6447
    implementorClass := selectedContext methodClass.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6448
    implementorClass notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6449
        method := implementorClass compiledMethodAt:selectedContext selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6450
        (method notNil and:[method isBreakpointed not]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6451
            method setBreakPoint
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6452
        ]
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6453
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6454
    contextView middleButtonMenu disable:#addBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6455
    contextView middleButtonMenu enable:#removeBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6456
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6457
    "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
  6458
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6459
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6460
allowBreakPointsInDebugger
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6461
    ^ ignoreBreakpoints not
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6462
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6463
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6464
allowBreakPointsInDebugger:aBoolean
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6465
    ignoreBreakpoints := aBoolean not.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6466
    self initializeMiddleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6467
    self initializeContextViewsMiddleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6468
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6469
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6470
doIgnoreBreakpoints
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6471
    self allowBreakPointsInDebugger:false
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6472
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6473
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6474
doNotIgnoreBreakpoints
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6475
    self allowBreakPointsInDebugger:true
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6476
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6477
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6478
ignoreAllHaltsForCurrentProcess
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6479
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6480
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6481
        orThisReceiverClass:false orCurrentProcess:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6482
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6483
        forAll:true.
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6484
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6485
    "Created: / 27-01-2012 / 11:32:14 / cg"
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6486
!
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6487
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6488
ignoreAllHaltsForThisReceiverClass
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6489
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6490
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6491
        orThisReceiverClass:true orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6492
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6493
        forAll:true.
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6494
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6495
    "Created: / 27-01-2012 / 11:32:14 / cg"
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6496
!
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6497
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6498
ignoreAllHaltsForever
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6499
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6500
        addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6501
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6502
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6503
        forAll:true.
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6504
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6505
    "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
  6506
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6507
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6508
ignoreAllHaltsIfCalledFromMethod:aMethod
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6509
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6510
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6511
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6512
        orIfCalledFromMethod:aMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6513
        forAll:true.
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6514
!
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6515
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6516
ignoreAllHaltsUntilShiftKeyIsPressed
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6517
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6518
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6519
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6520
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6521
        forAll:true.
11366
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
    "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
  6524
!
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
ignoreBreakpointsWithThisParameterForever
11370
4aed54a6a78a changed:
Claus Gittinger <cg@exept.de>
parents: 11367
diff changeset
  6527
    Object disableBreakPoint:breakPointParameter.
4aed54a6a78a changed:
Claus Gittinger <cg@exept.de>
parents: 11367
diff changeset
  6528
    "/ self addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false forAll:false.
4aed54a6a78a changed:
Claus Gittinger <cg@exept.de>
parents: 11367
diff changeset
  6529
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6530
    "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
  6531
!
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
ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6534
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6535
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6536
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6537
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6538
        forAll:false.
11366
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
    "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
  6541
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6542
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6543
ignoreHaltForCurrentProcess
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6544
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6545
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6546
        orThisReceiverClass:false orCurrentProcess:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6547
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6548
        forAll:false.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6549
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6550
    "Created: / 27-01-2012 / 11:32:14 / cg"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6551
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6552
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6553
ignoreHaltForThisReceiverClass
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6554
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6555
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6556
        orThisReceiverClass:true orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6557
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6558
        forAll:false.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6559
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6560
    "Created: / 27-01-2012 / 11:32:14 / cg"
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6561
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  6562
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6563
ignoreHaltForever
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6564
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6565
        addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6566
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6567
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6568
        forAll:false.
11366
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
    "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
  6571
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6572
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6573
ignoreHaltIfCalledFromMethod:aMethod
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6574
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6575
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6576
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6577
        orIfCalledFromMethod:aMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6578
        forAll:false.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6579
!
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6580
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6581
ignoreHaltUntilShiftKeyIsPressed
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  6582
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6583
        addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6584
        orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6585
        orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6586
        forAll:false.
11366
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
    "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
  6589
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6590
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6591
menuForIgnoreAllBreakpointsIfCalledFromAnyOf
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6592
    <resource: #programMenu >
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6593
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6594
    ^ self menuForIgnoreBreakpointIfCalledFromAnyOfForAll:true
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6595
!
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6596
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6597
menuForIgnoreBreakpointIfCalledFromAnyOf
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6598
    <resource: #programMenu >
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6599
14680
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6600
    ^ self menuForIgnoreBreakpointIfCalledFromAnyOfForAll:false
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6601
!
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6602
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6603
menuForIgnoreBreakpointIfCalledFromAnyOfForAll:forAllHaltsBoolean
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6604
    <resource: #programMenu >
858e67cc7b81 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14676
diff changeset
  6605
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6606
    |m count already|
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6607
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6608
    m := Menu new.
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6609
    count := 0.
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6610
    already := IdentitySet new.
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6611
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6612
    contextArray do:[:con |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6613
        |mthd cls sel|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6614
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6615
        mthd := con method.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6616
        mthd notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6617
            mthd isWrapped ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6618
                (already includes:already) ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6619
                    already add:mthd.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6620
                    m addItem:(MenuItem
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6621
                                label: (mthd whoString)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6622
                                itemValue: [ forAllHaltsBoolean
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6623
                                                ifTrue:[self ignoreHaltIfCalledFromMethod:mthd]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6624
                                                ifFalse:[self ignoreAllHaltsIfCalledFromMethod:mthd]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6625
                                           ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6626
                                translateLabel: false).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6627
                    count := count + 1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6628
                    (count > 20) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6629
                        ^ m
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6630
                    ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6631
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6632
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6633
        ]
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6634
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6635
    ^ m
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6636
!
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  6637
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6638
openBreakPointBrowser
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6639
    Tools::BreakpointBrowser open
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6640
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6641
    "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
  6642
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6643
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6644
openIgnoreAllHaltsUntilTimeElapsedDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6645
    |answer dT|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6646
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6647
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6648
        answer := Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6649
                    request:(resources string:'How long should all halts/breakpoints be ignored [smh] ?')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6650
                    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6651
        answer isEmptyOrNil ifTrue:[^ self].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6652
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6653
        dT := TimeDuration readFrom:answer onError:[ nil ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6654
        dT notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6655
            LastIgnoreHaltDuration := dT.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6656
            self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6657
                addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6658
                orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6659
                orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6660
                forAll:true.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6661
            ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6662
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6663
    ] loop
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6664
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6665
    "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
  6666
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6667
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6668
openIgnoreBreakpointsWithThisParameterNTimesDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6669
    |answer n|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6670
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6671
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6672
        answer := Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6673
                    request:(resources
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6674
                                string:'How often should breakpoints with parameter "%1" be ignored ?'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6675
                                with:breakPointParameter)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6676
                    initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6677
        answer isEmptyOrNil ifTrue:[^ self].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6678
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6679
        n := Integer readFrom:answer onError:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6680
        n notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6681
            LastIgnoreHaltNTimes := n.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6682
            self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6683
                addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6684
                orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6685
                orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6686
                forAll:false.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6687
            ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6688
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6689
    ] loop.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6690
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6691
    "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
  6692
    "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
  6693
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6694
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6695
openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6696
    |answer dT|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6697
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6698
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6699
        answer := Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6700
                    request:(resources
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6701
                                string:'How long should breakpoints with parameter "%1" be ignored (s/m/h) ?'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6702
                                with:breakPointParameter)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6703
                    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6704
        answer isEmptyOrNil ifTrue:[^ self].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6705
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6706
        dT := TimeDuration readFrom:answer onError:[ nil ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6707
        dT notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6708
            LastIgnoreHaltDuration := dT.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6709
            self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6710
                addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6711
                orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6712
                orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6713
                forAll:false.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6714
            ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6715
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6716
    ] loop
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6717
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6718
    "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
  6719
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6720
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6721
openIgnoreHaltNTimesDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6722
    |answer n|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6723
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6724
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6725
        answer := Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6726
                    request:(resources string:'How often should this halt be ignored ?')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6727
                    initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6728
        answer isEmptyOrNil ifTrue:[^ self].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6729
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6730
        n := Integer readFrom:answer onError:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6731
        n notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6732
            LastIgnoreHaltNTimes := n.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6733
            self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6734
                addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6735
                orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6736
                orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6737
                forAll:false.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6738
            ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6739
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6740
    ] loop.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6741
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6742
    "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
  6743
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6744
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6745
openIgnoreHaltUntilTimeElapsedDialog
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6746
    |answer dT|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6747
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6748
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6749
        answer := Dialog
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6750
                    request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6751
                    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6752
        answer isEmptyOrNil ifTrue:[^ self].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6753
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6754
        dT := TimeDuration readFrom:answer onError:[ nil ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6755
        dT notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6756
            LastIgnoreHaltDuration := dT.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6757
            self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6758
                addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6759
                orThisReceiverClass:false orCurrentProcess:false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6760
                orIfCalledFromMethod:nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6761
                forAll:false.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6762
            ^ self.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6763
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6764
    ] loop
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6765
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6766
    "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
  6767
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6768
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6769
removeAllBreakpoints
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6770
    "remove all trace & breakpoints - if any"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6771
14532
72c1d3cae279 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14531
diff changeset
  6772
    self withExecuteCursorDo:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6773
        (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6774
            MessageTracer unwrapAllMethods
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6775
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6776
        (MethodWithBreakpoints notNil and:[MethodWithBreakpoints isLoaded]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6777
            MethodWithBreakpoints removeAllBreakpoints
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6778
        ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6779
    ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6780
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6781
    "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
  6782
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6783
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6784
removeBreakpoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6785
    "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
  6786
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6787
    |implementorClass method|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6788
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6789
    selectedContext isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6790
        ^ self showError:'** select a context first **'
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6791
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6792
    (MessageTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6793
        ^ self
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6794
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6795
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6796
    implementorClass := selectedContext methodClass.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6797
    implementorClass notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6798
        method := implementorClass compiledMethodAt:selectedContext selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6799
        (method notNil and:[method isBreakpointed]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6800
            method clearBreakPoint
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6801
        ]
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6802
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6803
    contextView middleButtonMenu disable:#removeBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6804
    contextView middleButtonMenu enable:#addBreakpoint.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6805
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6806
    "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
  6807
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6808
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6809
stopIgnoringHalts
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6810
    self class stopIgnoringHalts
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6811
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  6812
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6813
!DebugView methodsFor:'private'!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6814
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  6815
abortAllIsHandled
9750
1b2ef761d2d0 changed: #abortAllIsHandled
Claus Gittinger <cg@exept.de>
parents: 9688
diff changeset
  6816
    ^ AbortAllOperationWantedQuery query
1b2ef761d2d0 changed: #abortAllIsHandled
Claus Gittinger <cg@exept.de>
parents: 9688
diff changeset
  6817
1b2ef761d2d0 changed: #abortAllIsHandled
Claus Gittinger <cg@exept.de>
parents: 9688
diff changeset
  6818
    "Modified: / 09-02-2011 / 13:53:13 / cg"
6487
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  6819
!
ad82a074feae new menu action: abortAll
Claus Gittinger <cg@exept.de>
parents: 6464
diff changeset
  6820
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6821
busy
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6822
    ^ busy
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6823
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6824
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6825
exclusive:aBoolean
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6826
    exclusive := aBoolean
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6827
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6828
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6829
explainSelection
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6830
    |interval crsrPos|
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6831
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6832
    interval := self selectedInterval.
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6833
    interval isEmpty ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6834
        crsrPos := codeView characterPositionOfCursor.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6835
        codeView characterUnderCursor isSeparator ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6836
            crsrPos := (crsrPos - 1) max:1
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6837
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6838
        interval := crsrPos to:crsrPos.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6839
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6840
    self
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6841
        withNodeValueAtInterval:interval
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6842
        do:[:value :description |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6843
            self showValue:value
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6844
        ].
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6845
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6846
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6847
findNodeForInterval:interval
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6848
    |source|
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6849
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6850
    interval isEmpty ifTrue: [^ nil].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6851
8487
ddf59247960c slow runArray (text) operations
Claus Gittinger <cg@exept.de>
parents: 8432
diff changeset
  6852
    source := codeView contentsAsString string.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6853
"/    source := currentMethod notNil
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6854
"/                ifTrue:[ currentMethod source ]
8396
1bda666dc0e9 flyby help
Claus Gittinger <cg@exept.de>
parents: 8347
diff changeset
  6855
"/                ifFalse:[ codeView contents asString ].
8257
106d3fecbca0 findNodeForInterval: care for nonexisting source
Claus Gittinger <cg@exept.de>
parents: 8225
diff changeset
  6856
    source isNil ifTrue:[^ nil].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  6857
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6858
    ^ DoWhatIMeanSupport findNodeForInterval:interval in:(source string) allowErrors:true.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  6859
"/    ^ DoWhatIMeanSupport findNodeForInterval:interval in:(source string).
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6860
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6861
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6862
findNodeIn:tree forInterval:interval
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6863
    <resource: #obsolete>
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  6864
16933
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6865
    self obsoleteMethodWarning.
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6866
    ^ DoWhatIMeanSupport findNodeIn:tree forInterval:interval
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6867
"/    |node|
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6868
"/
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6869
"/    node := nil.
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6870
"/    tree nodesDo:[:each |
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6871
"/        (each intersectsInterval:interval) ifTrue:[
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6872
"/            (node isNil or:[node == each parent]) ifTrue:[
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6873
"/                node := each
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6874
"/            ] ifFalse:[
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6875
"/                (node parent notNil
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6876
"/                    and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6877
"/            ]
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6878
"/        ]
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6879
"/    ].
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  6880
"/    ^ node
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6881
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6882
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6883
goodSkipUntilSelector
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6884
    |current|
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6885
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6886
    lastStepUntilEntering notNil ifTrue:[^ lastStepUntilEntering].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6887
    selectedContext isNil ifTrue:[^ nil].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6888
    current := selectedContext selector.
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6889
    current isNil ifTrue:[^ nil].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6890
    ('change:*' match:current) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6891
        ^ 'update:*'
2581
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6892
    ].
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6893
    ^ nil
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6894
!
6593d7ee2f3e added skip until entering
Claus Gittinger <cg@exept.de>
parents: 2577
diff changeset
  6895
8179
79462318090d ignoring for some time;
Claus Gittinger <cg@exept.de>
parents: 8171
diff changeset
  6896
haltSelectors
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6897
    ^ #( #'halt' #'halt:' #'breakPoint:' #'breakPoint:info:' #'break').
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6898
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  6899
    "Modified (format): / 27-01-2012 / 11:10:00 / cg"
8179
79462318090d ignoring for some time;
Claus Gittinger <cg@exept.de>
parents: 8171
diff changeset
  6900
!
79462318090d ignoring for some time;
Claus Gittinger <cg@exept.de>
parents: 8171
diff changeset
  6901
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6902
interruptProcessWith:aBlock
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6903
    "let inspected process do something, then update the context list"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6904
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6905
    inspectedProcess isDead ifTrue:[
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  6906
        self showTerminated.
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  6907
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6908
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6909
    inspectedProcess interruptWith:aBlock.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6910
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6911
     give the process a chance to run, then update
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6912
    "
17176
918cd46bb8fb #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17156
diff changeset
  6913
    Delay waitForSeconds:0.2.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6914
    self setContext:(inspectedProcess suspendedContext).
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6915
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6916
2317
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6917
mayProceed:aBoolean
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6918
    mayProceed := aBoolean
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6919
!
c2000833c86d care mayProceed information.
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  6920
8194
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6921
openHTMLDocument: anHTMLFilename
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6922
    "open a HTMLDocumentView on anHTMLFilename"
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6923
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6924
    HTMLDocumentView openFullOnDocumentationFile: anHTMLFilename
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6925
!
051110bdd147 button panels
Claus Gittinger <cg@exept.de>
parents: 8193
diff changeset
  6926
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6927
processPerform:aMessage
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6928
    "do something, then update the context list"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6929
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6930
    inspectedProcess isDead ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6931
        self showTerminated.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6932
        ^ self
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6933
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6934
    inspectedProcess perform:aMessage.
9348
df88a9a5ef36 added: browseProcessesApplication
Claus Gittinger <cg@exept.de>
parents: 9337
diff changeset
  6935
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6936
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6937
     give the process a chance to run, then update
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6938
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6939
    (Delay forSeconds:0.2) wait.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6940
    self setContext:(inspectedProcess suspendedContext).
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6941
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  6942
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6943
redisplayBacktrace
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6944
    "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
  6945
     verbose-flag setting is changed"
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6946
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6947
    |oldSelection oldContext con idx|
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6948
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6949
    contextArray notNil ifTrue:[
16065
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6950
        self withExecuteCursorDo:[
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6951
            oldSelection := contextView selection.
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6952
            oldSelection notNil ifTrue:[
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6953
                oldContext := contextArray at:oldSelection ifAbsent:nil.
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6954
            ].
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6955
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6956
            con := firstContext.
950
f1df338e6a78 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 949
diff changeset
  6957
"/            con := contextArray at:1.
16065
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6958
            "/ force redisplay, even if same by changing the first entry
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6959
            contextArray size > 0 ifTrue:[
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6960
                contextArray at:1 put:nil.
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6961
            ].
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6962
            self setContext:con.
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6963
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6964
            oldContext isNil ifTrue:[
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6965
                idx := oldSelection
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6966
            ] ifFalse:[
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6967
                idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6968
            ].
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6969
            contextView setSelection:idx.
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6970
            idx notNil ifTrue:[
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6971
                self showSelection:idx
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6972
            ]
9993910b75c5 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 16058
diff changeset
  6973
        ]
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6974
    ]
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6975
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  6976
    "Created: / 10.1.1997 / 21:36:46 / cg"
1661
ba0ed1c5e137 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1646
diff changeset
  6977
    "Modified: / 21.5.1998 / 01:47:07 / cg"
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6978
!
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  6979
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6980
selectedInterval
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  6981
    ^ codeView selectedInterval
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6982
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  6983
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6984
showError:message
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6985
    codeView contents:(resources string:message).
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6986
    shown ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6987
        exclusive ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6988
            "/ consider this a kludge:
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6989
            "/ if exclusive, cannot use flash, since it suspends
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6990
            "/ (but we cannot suspend here ...)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6991
            codeView redrawInverted. self flush.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6992
            OperatingSystem millisecondDelay:200.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6993
            codeView redraw
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6994
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6995
            codeView flash
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  6996
        ]
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6997
    ]
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6998
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  6999
    "Modified: / 18.11.2001 / 00:01:13 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7000
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7001
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7002
showTerminated
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7003
    self showError:'** the process has terminated **'
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7004
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7005
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7006
showValue:aValue
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7007
    "/ TODO: show value in info field
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7008
    "/ Transcript showCR:aValue printString
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7009
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7010
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7011
stepping
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7012
    ^ stepping
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7013
!
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7014
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7015
unstep
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7016
    stepping := false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7017
    bigStep := false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7018
    steppedContext := wrapperContext := nil.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7019
    exitAction := nil
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7020
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7021
    "Modified: 22.10.1996 / 11:59:57 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7022
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7023
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7024
updateButtonsAndMenuItemsForContext:aContext
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7025
    |m|
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7026
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7027
    m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7028
    m notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7029
        self updateMenuItems.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7030
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7031
        (inspecting or:[AbortOperationRequest isHandledIn:aContext]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7032
            abortButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7033
            m enable:#doAbort.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7034
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7035
            abortButton disable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7036
            m disable:#doAbort.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7037
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7038
        exclusive ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7039
            terminateButton disable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7040
            m disable:#doTerminate.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7041
        ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7042
            terminateButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7043
            m enable:#doTerminate.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7044
        ].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7045
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7046
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7047
    mayProceed == false ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7048
        continueButton disable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7049
        m notNil ifTrue:[m disable:#doContinue].
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7050
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7051
        continueButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7052
        m notNil ifTrue:[m enable:#doContinue]
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7053
    ].
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7054
13363
4cc837ad3854 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13362
diff changeset
  7055
    isStoppedInModalDialog ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7056
        gotoDialogOpenerButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7057
        gotoDialogOpenerButton beVisible.
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  7058
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7059
        gotoDialogOpenerButton beInvisible.
13362
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  7060
    ].
d21110a7dded class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13361
diff changeset
  7061
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7062
    (isStoppedInModalDialog not & isStoppedInApplicationAction) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7063
        gotoApplicationActionMethodButton enable.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7064
        gotoApplicationActionMethodButton beVisible.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7065
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7066
        gotoApplicationActionMethodButton beInvisible.
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7067
    ].
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7068
10203
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7069
    "Created: / 06-07-2011 / 12:24:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7070
!
Claus Gittinger <cg@exept.de>
parents: 9922
diff changeset
  7071
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7072
updateContext
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7073
    |oldContext idx|
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7074
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7075
    inspectedProcess state == #dead ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7076
        self showTerminated.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7077
        ^ self
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7078
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7079
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7080
    oldContext := selectedContext.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7081
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7082
        (self setContextSkippingInterruptContexts:inspectedProcess suspendedContext) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7083
            oldContext notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7084
                contextArray notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7085
                    idx := contextArray identityIndexOf:oldContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7086
                    idx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7087
                        self showSelection:idx
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7088
                    ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7089
                        codeView contents:('** context returned **')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7090
                    ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7091
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7092
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7093
        ].
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7094
    ] valueUninterruptably.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7095
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7096
    "Modified: 20.10.1996 / 18:11:24 / cg"
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7097
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7098
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7099
withNodeValueAtInterval:interval do:aBlock
14122
c255f0f49ce0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14109
diff changeset
  7100
    "helper for flyByHelp and explan-selection"
c255f0f49ce0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14109
diff changeset
  7101
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  7102
    |node definingNode nm nmBold nameSymbol
14122
c255f0f49ce0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14109
diff changeset
  7103
     varIdx parentNode receiver con receiversNonMetaClass|
c255f0f49ce0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14109
diff changeset
  7104
c255f0f49ce0 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14109
diff changeset
  7105
    "/ interval printCR.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7106
    Error
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7107
        handle:[:ex | ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7108
        do:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7109
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7110
                node := self findNodeForInterval:interval
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7111
            ] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7112
        ].
9314
e58b9abd145a comment/format in: #withNodeValueAtInterval:do:
Claus Gittinger <cg@exept.de>
parents: 9308
diff changeset
  7113
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7114
    node isNil ifTrue:[ ^ self ].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7115
    node isVariable ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7116
        "/ Transcript showCR:node.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7117
        ^ self
8592
6a544f86c279 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8580
diff changeset
  7118
    ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7119
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7120
    nm := node name.
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  7121
    nmBold := nm allBold.
8600
7b68bafada1b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8595
diff changeset
  7122
    actualContext isNil ifTrue:[^ self ].
8636
fc9c77c184a8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8626
diff changeset
  7123
    actualContext methodHome isNil ifTrue:[^ self ].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  7124
    receiver := actualContext methodHome receiver.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7125
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7126
    (nm = 'self') ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7127
        aBlock value:receiver value:'receiver' allBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7128
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7129
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7130
    (nm = 'super') ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7131
        aBlock value:receiver value:'receiver' allBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7132
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7133
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7134
    (nm = 'thisContext') ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7135
        aBlock value:actualContext value:'context' allBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7136
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7137
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7138
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7139
    definingNode := node whoDefines:nm.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7140
    definingNode isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7141
        (receiver class allInstVarNames includes:nm) ifTrue:[
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  7142
"/aBlock value:'xIII' value:'instVar'.
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7143
            receiver class isMetaclass ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7144
                aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7145
            ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7146
                aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7147
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7148
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7149
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7150
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7151
        receiversNonMetaClass := receiver class theNonMetaclass.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7152
        (receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7153
            aBlock value:'' value:'private class ',nmBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7154
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7155
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7156
        (receiversNonMetaClass classVarNames includes:nm) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7157
            aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7158
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7159
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7160
        receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7161
            |pool|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7162
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7163
            pool := Smalltalk at:eachPoolName.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7164
            pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7165
            (pool classVarNames includes:nm) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7166
                aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7167
                ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7168
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7169
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7170
        nameSymbol := nm asSymbolIfInterned.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7171
        nameSymbol notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7172
            (Smalltalk includesKey:nameSymbol) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7173
                (Smalltalk at:nameSymbol) isClass ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7174
                    aBlock value:'class: ',nmBold value:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7175
                ] ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7176
                    aBlock value:(Smalltalk at:nameSymbol) value:'global ',nmBold.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7177
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7178
                ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7179
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7180
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7181
        aBlock value:'' value:'unknown'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7182
        ^ self
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7183
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7184
"/definingNode printCR.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7185
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7186
    definingNode isMethod ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7187
        varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7188
        varIdx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7189
            Error
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7190
                handle:[:ex | ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7191
                do:[ aBlock value:(actualContext methodHome argAt:varIdx) value:'methodArg ',nmBold ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7192
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7193
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7194
        varIdx := definingNode temporaries findFirst:[:var | var name = nm].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7195
        varIdx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7196
            actualContext methodHome numVars >= varIdx ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7197
                Error
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7198
                    handle:[:ex | ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7199
                    do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7200
                ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7201
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7202
        ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7203
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7204
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7205
    definingNode isBlock ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7206
        varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7207
        (definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7208
            varIdx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7209
                "/ am I in this block ?
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7210
                (actualContext lineNumber notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7211
                and:[ definingNode lastLineNumber notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7212
                and:[ (actualContext lineNumber
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7213
                            between:definingNode firstLineNumber
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7214
                            and:definingNode lastLineNumber)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7215
                and:[ varIdx <= actualContext numArgs ] ]])
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7216
                ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7217
                    aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7218
                    ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7219
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7220
                aBlock value:nmBold , ' is not in scope of selected context' value:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7221
                ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7222
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7223
        ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7224
    ].
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7225
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7226
    parentNode := definingNode parent.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7227
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7228
    [parentNode notNil] whileTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7229
        "/'isMethod ' print. parentNode isMethod printCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7230
        parentNode isMethod ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7231
            varIdx := parentNode temporaries findFirst:[:var | var name = nm].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7232
            varIdx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7233
                actualContext methodHome numVars >= varIdx ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7234
                    Error
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7235
                        handle:[:ex | ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7236
                        do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7237
                    ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7238
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7239
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7240
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7241
        "/'isBlock ' print. parentNode isBlock printCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7242
        parentNode isBlock ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7243
            "/ we don't have any information on the inlineability
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7244
            "/ of this block here (RBParser does not know what
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7245
            "/ the compiler does).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7246
            "/ therefore, it is questionable if we can use the
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7247
            "/ context's home context here.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7248
            "/ am I in this block ?
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7249
            con := actualContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7250
            [con notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7251
            and:[ parentNode lastLineNumber notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7252
            and:[ con lineNumber notNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7253
            and:[ con lineNumber
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7254
                    between:parentNode firstLineNumber
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7255
                    and:parentNode lastLineNumber ]]]] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7256
                con := con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7257
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7258
            con notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7259
                varIdx := parentNode arguments findFirst:[:arg | arg name = nm].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7260
                varIdx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7261
                    Error
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7262
                        handle:[:ex | ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7263
                        do:[ aBlock value:(con argAt:varIdx) value:'blockArg ',nmBold ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7264
                    ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7265
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7266
                varIdx := parentNode body temporaries findFirst:[:var | var name = nm].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7267
                varIdx ~~ 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7268
                    Error
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7269
                        handle:[:ex | ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7270
                        do:[ aBlock value:(con varAt:varIdx) value:'blockVar ',nmBold ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7271
                    ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7272
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7273
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7274
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7275
        parentNode := parentNode parent.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  7276
    ].
8214
87b74dc47b98 flyByHelp fixed
Claus Gittinger <cg@exept.de>
parents: 8213
diff changeset
  7277
    aBlock value:nmBold , ' is not in scope of selected context' value:nil.
9446
be34faef3546 changed:
Claus Gittinger <cg@exept.de>
parents: 9403
diff changeset
  7278
9688
805ea34ba3ef changed: #withNodeValueAtInterval:do:
Claus Gittinger <cg@exept.de>
parents: 9662
diff changeset
  7279
    "Modified: / 18-01-2011 / 17:57:34 / cg"
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7280
! !
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7281
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7282
!DebugView methodsFor:'private queries'!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7283
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7284
canBrowseClassHierarchy
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7285
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7286
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7287
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7288
    ^ m notNil and:[m isEnabled:#browseClassHierarchy]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7289
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7290
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7291
canBrowseFullClassProtocol
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7292
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7293
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7294
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7295
    ^ m notNil and:[m isEnabled:#browseFullClassProtocol]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7296
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7297
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7298
canBrowseImplementingClass
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7299
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7300
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7301
    m := contextView middleButtonMenu.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7302
    ^ m notNil and:[m isEnabled:#browseImplementingClass]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7303
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7304
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7305
canBrowseProcessesApplication
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7306
    |p|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7307
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7308
    p := inspectedProcess ? Processor activeProcess.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7309
    p isNil ifTrue:[^ false].
14430
c5408e02eebd class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14356
diff changeset
  7310
    ^ p isGUIProcess and:[self processesApplication notNil ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7311
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7312
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7313
canBrowseReceiversClass
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7314
    |m|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7315
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7316
    m := contextView middleButtonMenu.
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7317
    ^ m notNil 
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7318
        and:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7319
            (m isEnabled:#browseReceiversClass)
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7320
            or:[ m isEnabled:#browseImplementingClass ]
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7321
        ]
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7322
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7323
    "Modified: / 25-11-2016 / 13:25:55 / cg"
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7324
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7325
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7326
canCloseAllDebuggers
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  7327
    self class allInstancesDo:[:debugger |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7328
        debugger ~~ self ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7329
            debugger busy ifTrue:[^ true].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7330
        ]
11457
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7331
    ].
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7332
    ^ false
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7333
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7334
    "Created: / 23-03-2012 / 12:40:18 / cg"
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7335
!
b304a867b5e0 added: closeAllDebuggers functions
Claus Gittinger <cg@exept.de>
parents: 11443
diff changeset
  7336
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7337
canDefineMethod
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7338
    ^ defineButton isVisible
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7339
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7340
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  7341
canInspectWidgetHierarchy
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  7342
    |rcvr|
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  7343
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7344
    ^ (selectedContext notNil
17129
c3f6d259e84c #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17126
diff changeset
  7345
        and:[(rcvr := selectedContext receiver) isProtoObject not 
c3f6d259e84c #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17126
diff changeset
  7346
        and:[rcvr isView or:[rcvr isKindOf: ApplicationModel]]])
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7347
    or:[
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7348
        self canBrowseProcessesApplication
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7349
    ]
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7350
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  7351
    "Modified: / 25-11-2016 / 13:17:20 / cg"
12840
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  7352
!
6ac068e01016 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12839
diff changeset
  7353
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7354
canRestart
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7355
    ^ restartButton isEnabled
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7356
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7357
    "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
  7358
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7359
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7360
canReturn
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7361
    ^ returnButton isEnabled
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7362
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7363
    "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
  7364
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7365
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7366
canSendEmail
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7367
    ^ SendMailTool notNil
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7368
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7369
    "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
  7370
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7371
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7372
canShowMore
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7373
    ^ canShowMore
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7374
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7375
15255
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  7376
hasBlockContextSelected
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  7377
    ^ contextView hasSelection
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  7378
    and:[ self selectedContext isBlockContext ]
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  7379
!
2eba0d927d23 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15249
diff changeset
  7380
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7381
hasContextSelected
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7382
    ^ contextView hasSelection
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7383
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7384
    "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
  7385
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7386
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7387
hasHaltsToIgnore
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7388
    ^ IgnoredHalts notEmptyOrNil
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7389
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7390
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7391
isAborting
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7392
    ^ exitAction == #abort
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7393
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7394
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7395
isStoppedAtBreakPointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7396
    ^ isStoppedAtBreakPointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7397
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7398
    "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
  7399
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7400
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7401
isStoppedAtHaltOrBreakPoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7402
    ^ isStoppedAtHaltOrBreakPoint
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7403
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7404
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7405
isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7406
    ^ isStoppedAtHaltOrBreakPoint or:[self selectedContextIsWrapped]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7407
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7408
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7409
selectedContextIsWrapped
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7410
    |con mthd|
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7411
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  7412
    (con := self selectedContext) notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7413
        mthd := con method.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7414
        ^ mthd notNil and:[mthd isWrapped]
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7415
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7416
    ^ false.
11595
Claus Gittinger <cg@exept.de>
parents: 11573
diff changeset
  7417
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  7418
    "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
  7419
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  7420
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7421
setOfHiddenCallingSelectors
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7422
    ^ setOfHiddenCallingSelectors ? #( #'doIt' #'doIt:' )
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7423
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7424
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7425
setOfHiddenCallingSelectors:aCollectionOfSymbols
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7426
    setOfHiddenCallingSelectors := aCollectionOfSymbols
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7427
! !
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7428
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7429
!DebugView methodsFor:'private-breakpoints'!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7430
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  7431
addIgnoredHaltForCount:countOrNil
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7432
        orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7433
        orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7434
        orIfCalledFromMethod:ifCalledForMethodOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7435
        forAll:aBoolean
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  7436
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  7437
    |haltingContext haltingMethod lineNrOfHalt receiverClassOrNil processOrNil|
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7438
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7439
    aBoolean ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7440
        haltingMethod := #all
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7441
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7442
        haltingContext := self findHaltingContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7443
        haltingContext isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7444
            Transcript showCR:'no halting context found'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7445
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7446
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7447
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7448
        haltingMethod := haltingContext method.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7449
        lineNrOfHalt := haltingContext lineNumber.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7450
        (lineNrOfHalt isNil or:[lineNrOfHalt <= 0]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7451
            Transcript showCR:'no halt lineNr found'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7452
            ^ self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7453
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7454
        forThisReceiverClass ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7455
            receiverClassOrNil := haltingContext receiver class
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7456
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7457
        forCurrentProcess ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7458
            processOrNil := Processor activeProcess
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7459
        ].
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7460
    ].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7461
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7462
    self class
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7463
        ignoreHaltIn:haltingMethod at:lineNrOfHalt
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7464
        forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7465
        orReceiverClass:receiverClassOrNil orProcess:processOrNil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7466
        orIfCalledFromMethod:ifCalledForMethodOrNil
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7467
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  7468
    "Created: / 27-01-2012 / 11:31:12 / cg"
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7469
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7470
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7471
canAddBreakpoint
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7472
    |m|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7473
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7474
    m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7475
    ^ m notNil and:[m isEnabled:#addBreakpoint]
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7476
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7477
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7478
canRemoveBreakpoint
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7479
    |m|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7480
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7481
    m := contextView middleButtonMenu.
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7482
    ^ m notNil and:[m isEnabled:#removeBreakpoint]
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7483
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7484
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7485
findHaltingContext
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7486
    |haltSelectors|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7487
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7488
    haltSelectors := self haltSelectors.
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7489
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  7490
    contextArray keysAndValuesDo:[:idx :con |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7491
        |sel con2 sel2 method|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7492
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7493
        sel := con selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7494
        (haltSelectors includes:sel) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7495
            (method := con method) notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7496
                method mclass == Object ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7497
                    con2 := contextArray at:idx+1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7498
                    sel2 := con2 selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7499
                    (haltSelectors includes:sel2) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7500
                        con2 method mclass == Object ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7501
                            ^ contextArray at:idx+2.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7502
                        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7503
                    ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7504
                    ^ contextArray at:idx+1
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7505
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7506
                method mclass == Breakpoint ifTrue:[
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7507
(contextArray at:idx+1) infoPrintCR.
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7508
                    ^ contextArray at:idx+1
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7509
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7510
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7511
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7512
        con method isWrapped ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7513
            ^ con
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7514
        ].
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7515
    ].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7516
    ^ nil
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7517
11209
202af72b0a90 comment/format in: #addIgnoredHaltForCount:orTimeDuration:forAll:
Claus Gittinger <cg@exept.de>
parents: 10760
diff changeset
  7518
    "Modified: / 27-01-2012 / 11:06:02 / cg"
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7519
!
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7520
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7521
ignoreBreakpoints
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7522
    ^ ignoreBreakpoints
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7523
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7524
    "Created: / 17.11.2001 / 18:20:16 / cg"
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7525
! !
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  7526
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7527
!DebugView methodsFor:'private-cache handling'!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7528
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7529
cacheMyself
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7530
    "remember myself for next debug session"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7531
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7532
    "caching the last debugger will make the next debugger appear
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7533
     faster, since no resources have to be allocated in the display.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7534
     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
  7535
     Otherwise, the GC will not be able to release it."
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7536
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7537
    windowGroup notNil ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7538
        windowGroup setProcess:nil.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7539
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7540
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7541
    self releaseDebuggee.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7542
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7543
    cachable ~~ true ifTrue:[^ self].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7544
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7545
    "/
13764
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  7546
    "/ 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
  7547
    "/
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7548
    device == Display ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7549
        exclusive ifTrue:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7550
            CachedExclusive := self
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7551
        ] ifFalse:[
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7552
            CachedDebugger := self
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7553
        ].
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7554
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7555
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7556
    ObjectMemory stepInterruptHandler == self ifTrue:[
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  7557
        ObjectMemory stepInterruptHandler:nil
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7558
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7559
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7560
    "Modified: 10.7.1997 / 15:50:46 / stefan"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7561
    "Modified: 31.7.1997 / 21:20:14 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7562
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7563
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7564
isCached
13226
255f2f3a04f5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13218
diff changeset
  7565
    "tell whether we are a cached debugger"
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7566
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7567
    CachedExclusive == self ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7568
        ^ true.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7569
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7570
    CachedDebugger == self ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7571
        ^ true.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7572
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7573
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7574
    ^ false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7575
13226
255f2f3a04f5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13218
diff changeset
  7576
    "Created: / 10-07-1997 / 15:22:43 / stefan"
255f2f3a04f5 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13218
diff changeset
  7577
    "Modified (comment): / 27-07-2013 / 15:38:47 / cg"
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7578
!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7579
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7580
uncacheMyself
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7581
    "do not remember myself any longer for next debug session"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7582
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7583
    cachable := false.
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7584
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7585
    CachedExclusive == self ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7586
        CachedExclusive := nil.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7587
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7588
    CachedDebugger == self ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7589
        CachedDebugger := nil.
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7590
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7591
    OpenDebuggers notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7592
        OpenDebuggers remove:self ifAbsent:[].
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7593
    ].
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7594
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7595
    "Modified: 31.7.1997 / 21:20:11 / cg"
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7596
! !
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7597
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7598
!DebugView methodsFor:'private-code view'!
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7599
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7600
codeAspect
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  7601
    ^ SyntaxHighlighter codeAspectMethod
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7602
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7603
    "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
  7604
    "Modified: / 27-07-2012 / 22:20:27 / cg"
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7605
! !
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  7606
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7607
!DebugView methodsFor:'private-context handling'!
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  7608
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  7609
contextListEntryFor:aContext
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  7610
    ^ Error
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7611
        handle:[:ex | '???' ]
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7612
        do:[
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7613
            |s|
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7614
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7615
            aContext selector == #doIt ifTrue:[
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7616
                aContext receiver isNil ifTrue:[
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7617
                    s := 'doIt' allBold
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7618
                ]
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7619
            ].
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7620
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7621
            s := Text streamContents:[:s | aContext printOn:s ].
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7622
            RememberedCallChain notNil ifTrue:[
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7623
                (RememberedCallChain includesIdentical:aContext) ifTrue:[
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7624
                    s := s withColor:#red.
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7625
                ].
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7626
            ].
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7627
            s
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  7628
        ].
11391
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  7629
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  7630
    "Created: / 21-05-2007 / 13:30:24 / cg"
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  7631
!
730b258a005f class definition
Claus Gittinger <cg@exept.de>
parents: 11378
diff changeset
  7632
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7633
is:aHomeContext inCallingChainOf:aContext
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7634
    |con|
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7635
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7636
    con := aContext.
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7637
    [con notNil and:[con ~~ aHomeContext]] whileTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7638
        con := con sender
11571
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7639
    ].
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7640
    ^ con notNil
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7641
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7642
    "Created: / 10-06-2012 / 18:46:29 / cg"
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7643
!
797d5fa9c634 option to hide enumeration code impl.
Claus Gittinger <cg@exept.de>
parents: 11457
diff changeset
  7644
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7645
isEnteredDueToBreakpointOrHalt
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7646
    "see if we came here due to a step interrupt"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7647
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7648
    |c cReceiver|
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7649
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7650
    "/ look for a breakpoint-wrapper's context
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7651
    c := thisContext findNextContextWithSelector:#'raiseRequestWith:errorString:in:' or:nil or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7652
    c isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7653
        ^ true.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7654
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7655
    cReceiver := c receiver.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7656
    ^ cReceiver == BreakPointInterrupt
13293
8a52b9f19f8b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13229
diff changeset
  7657
8a52b9f19f8b class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13229
diff changeset
  7658
    "Modified: / 01-08-2013 / 23:34:01 / cg"
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7659
!
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7660
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7661
isHaltToBeIgnored
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7662
    "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
  7663
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  7664
    |c cReceiver sender haltingMethod lineNrInHaltingMethod breakpointParameter
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  7665
     sReceiver|
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7666
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7667
    "/ should a halt be ignored ?
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7668
    IgnoredHalts isNil ifTrue:[^ false].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7669
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  7670
    "/ look for a method breakpoint-wrapper's context
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7671
    c := thisContext findNextContextWithSelector:#doRaise or:nil or:nil.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7672
    c notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7673
        ((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7674
            c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7675
            cReceiver := c receiver.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7676
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7677
        (cReceiver isKindOf:BreakPointInterrupt) ifFalse:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7678
            c := nil
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7679
        ] ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7680
            [
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7681
                sender := c sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7682
                ((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7683
                or:[ sReceiver == BreakPointInterrupt ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7684
            ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7685
                c := sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7686
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7687
            [ (sender := c sender) isBlockContext ] whileTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7688
                c := sender
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7689
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7690
            sender := nil. "/ avoid keeping a reference to this context
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7691
        ].
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7692
    ].
14993
98d89f9a4b54 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14989
diff changeset
  7693
    "/ Transcript showCR:c.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7694
    c isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7695
        "/ look for halts or explicit breakpoints
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7696
        c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7697
        c isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7698
            c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7699
            c isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7700
               ^ false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7701
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7702
            breakpointParameter := c argAt:1.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7703
            (self class
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7704
                    isBreakpointToBeIgnoredForParameter:breakpointParameter
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7705
                    context:(c sender)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7706
                    modifyEntryCount:true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7707
            ) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7708
                ^ true.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7709
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7710
        ].
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7711
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7712
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7713
    c := c sender.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7714
    "/ a code-breakpoint ?
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7715
    (c receiver isKindOf:Breakpoint) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7716
        c := c sender.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7717
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7718
    haltingMethod := c method.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7719
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7720
    haltingMethod isWrapped ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7721
        lineNrInHaltingMethod := 1.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7722
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7723
        lineNrInHaltingMethod := c lineNumber.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7724
        "/ Transcript showCR:c.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7725
    ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7726
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  7727
    ^ self class
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7728
        isHaltToBeIgnoredIn:haltingMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7729
        atLineNr:lineNrInHaltingMethod
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7730
        context:c
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  7731
        modifyEntryCount:true.
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7732
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7733
    "Created: / 22-10-2010 / 12:09:53 / cg"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7734
    "Modified: / 06-03-2012 / 12:54:09 / cg"
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7735
!
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  7736
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7737
setContext:aContext
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7738
    "show calling chain from aContext in the walk-back listview"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7739
641
e02a521493ba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  7740
    ^ 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
  7741
641
e02a521493ba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  7742
    "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
  7743
!
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  7744
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  7745
setContext:aContext releaseInspectors:releaseInspectors
2720
a756bd875d02 more filtering of uninteresting contexts
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  7746
    "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
  7747
     Most complications here arise from filtering less-interesting contexts
15256
b057e880276a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15255
diff changeset
  7748
     if not in verbose-context mode or when hiding implementation contexts.
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  7749
     There is a lot of heuristic magic here, to make the debugger as useful
15256
b057e880276a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15255
diff changeset
  7750
     as possible for the user (but not particularly for the debugger-developer)"
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  7751
14531
174dbf38254c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14524
diff changeset
  7752
    |con sel text method caller caller2 called called2 m count c cc sndr
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7753
     suspendContext calledBySuspendContext nm h calledContext show2
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  7754
     alreadyInApplicationCode verboseBacktrace|
11836
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7755
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7756
"/    (contextArray size > 0 and:[aContext == (contextArray at:1)]) ifTrue:[
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7757
"/        "no change"
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7758
"/        ^ false
224a4d109673 added: #showingSupportCode:
Claus Gittinger <cg@exept.de>
parents: 11828
diff changeset
  7759
"/    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7760
14523
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7761
    isStoppedAtHaltOrBreakPoint := isStoppedAtBreakPointWithParameter := false.
bd6e67500fa3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14430
diff changeset
  7762
    isStoppedInModalDialog := isStoppedInApplicationAction := alreadyInApplicationCode := false.
14531
174dbf38254c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14524
diff changeset
  7763
    isStoppedAtStatementBreakpoint := false.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7764
    firstContext := aContext.
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  7765
    verboseBacktrace := self verboseBacktraceHolder value.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  7766
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7767
    m := contextView middleButtonMenu.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7768
    m notNil ifTrue:[
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7769
        m disable:#showMore.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7770
    ].
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  7771
    canShowMore := false.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7772
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7773
    aContext isNil ifTrue:[
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7774
        text := Array with:'** no context **'.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7775
        contextArray := nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  7776
    ] ifFalse:[
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7777
        text := OrderedCollection new:nChainShown.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7778
        contextArray := OrderedCollection new:nChainShown.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7779
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7780
        con := aContext.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7781
        calledContext := nil.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7782
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7783
        DebuggingContextWalk == true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7784
            '======================================' print. con printCR.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7785
        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7786
        alreadyInApplicationCode :=
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  7787
                con receiver isProtoObject not     "/ careful to not force futures/lazy values
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  7788
                and:[con receiver class includesBehavior:ApplicationModel].     "do not use #isKindOf: - ProtoObject compat"
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7789
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7790
        verboseBacktrace ~~ true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7791
            "/ with dense backtrace, hide the ProcessorScheduler
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7792
            "/ contexts at the top; look for a Process>>suspend*
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7793
            "/ context within the first 10 contexts
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7794
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7795
            suspendContext := nil.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7796
            c := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7797
            1 to:10 do:[:i |
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7798
                |selector|
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7799
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7800
                c notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7801
                    selector := c selector.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7802
                    selector notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7803
                        (selector isSymbol and:[(selector startsWith:'suspend') and:[c receiver isMemberOf:Process]]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7804
                            suspendContext := c.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7805
                            calledBySuspendContext := cc.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7806
                        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7807
                    ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7808
                    cc := c.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7809
                    c := c sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7810
                ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7811
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7812
            suspendContext notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7813
                con := suspendContext.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7814
                calledContext := calledBySuspendContext.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7815
                suspendContext := nil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7816
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7817
        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7818
        "/ Transcript show:'1 '; showCR:con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7819
        con notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7820
            "/ hide the halt implementation
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7821
            sel := con selector.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7822
            (self haltSelectors includes:sel) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7823
                (method := con method) notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7824
                    method mclass == Object ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7825
                        (sel isSymbol and:[ sel startsWith:'breakPoint:']) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7826
                            isStoppedAtBreakPointWithParameter := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7827
                            breakPointParameter := con argAt:1.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7828
                        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7829
                        isStoppedAtHaltOrBreakPoint := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7830
                        verboseBacktrace ~~ true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7831
                            calledContext := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7832
                            con := con sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7833
                        ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7834
                    ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7835
                        method mclass == Breakpoint ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7836
                            isStoppedAtHaltOrBreakPoint := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7837
                            isStoppedAtStatementBreakpoint := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7838
                            verboseBacktrace ~~ true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7839
                                calledContext := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7840
                                con := con sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7841
                            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7842
                            "/ Transcript show:'2 '; showCR:con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7843
                        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7844
                    ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7845
                ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7846
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7847
        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7848
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7849
        (verboseBacktrace not or:[ hideSupportCode]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7850
            [
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7851
                con notNil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7852
                and:[ con isBlockContext not
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7853
                and:[ con method notNil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7854
                and:[ (con method shouldBeSkippedInDebuggersWalkBack)
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7855
                and:[ (self haltSelectors includes: con selector) not]]]]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7856
            ] whileTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7857
                "/ Transcript show:'xx '; showCR:con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7858
                calledContext := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7859
                con := con sender
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7860
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7861
        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7862
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7863
        "
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7864
         get them all, by walking along the caller chain.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7865
         depending on the settings, skip some intermediate contexts
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7866
         (such as collection enumeration implementations), which are usually not
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7867
         of interest when debugging an application.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7868
         On the fly, gather some additional information
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7869
         such as: are we at a halt/breakpoint, are we in a modal dialog opened,
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7870
         are we coming from an application model's action etc.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7871
        "
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7872
        count := 0.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7873
        [con notNil and:[count <= nChainShown]] whileTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7874
            "/ remember any halt/breakpoint or openModal on the fly
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7875
            DebuggingContextWalk == true ifTrue:[ '---' print. con printCR ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7876
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7877
            sel := con selector.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7878
            (self haltSelectors includes:sel) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7879
                (method := con method) notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7880
                    method mclass == Object ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7881
                        (sel isSymbol and:[sel startsWith:'breakPoint:']) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7882
                            isStoppedAtBreakPointWithParameter := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7883
                            breakPointParameter := con argAt:1.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7884
                        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7885
                        isStoppedAtHaltOrBreakPoint := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7886
                    ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7887
                        method mclass == Breakpoint ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7888
                            isStoppedAtHaltOrBreakPoint := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7889
                        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7890
                    ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7891
                ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7892
            ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7893
                ((sel == #openModal) or:[sel == #openModal:]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7894
                    isStoppedInModalDialog := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7895
                ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7896
                    alreadyInApplicationCode ifFalse:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  7897
                        (con receiver isProtoObject not  "/ careful to not force futures/lazy values
17126
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  7898
                         and:[con receiver isKindOf:ApplicationModel]) ifTrue:[
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7899
                            isStoppedInApplicationAction := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7900
                        ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7901
                    ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7902
                ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7903
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7904
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7905
            [
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7906
                |show1|
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7907
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7908
                show1 := self showingContext1:con calling:calledContext.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7909
                DebuggingDebugger3 == true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7910
                    'showingContext1: (' print. con print. ') --> ' print. show1 printCR.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7911
                ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7912
                show1
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7913
            ] whileFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7914
                calledContext := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7915
                con := con sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7916
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7917
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7918
            show2 := self showingContext2:con nesting:count.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7919
            DebuggingDebugger3 == true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7920
                'showingContext2: (' print. con print. ') --> ' print. show2 printCR.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7921
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7922
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7923
            show2 ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7924
                contextArray add:con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7925
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7926
                (MoreDebuggingDetail == true) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7927
                    nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7928
                ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7929
                    nm := self contextListEntryFor:con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7930
                ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7931
                text add:nm.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7932
                count := count + 1.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7933
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7934
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7935
            "/ with hidden support code, skip over internals of exceptions
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7936
            hideSupportCode == true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7937
                "/ Transcript showCR:'x'.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7938
                (con isBlockContext
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7939
                and:[ (h := con home) notNil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7940
                and:[ (self is:h inCallingChainOf:con) ]]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7941
                    |blocksReceiver|
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7942
                    blocksReceiver := con receiver.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7943
                    c := con sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7944
                    [
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7945
                        c notNil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7946
                        and:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7947
                            sndr := c sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7948
                            (sndr ~= h)
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7949
                            and:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7950
                                blocksReceiver isCollection         "/ skip collection implementations
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7951
                                or:[ ( #( #'handle:do:'         "/ skip exception implementations
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7952
                                          #'handleDo:'
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7953
                                          #'answer:do:'
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7954
                                          #'ensure:' ) includes: c selector )
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7955
                                or:[ #'perform:*'               "/ skip perform implementations
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7956
                                         match: c selector ]]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7957
                            ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7958
                        ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7959
                    ] whileTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7960
                        c := sndr
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7961
                    ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7962
                    c notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7963
                        con := c "sender".
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7964
                    ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7965
                ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7966
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7967
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7968
            "/
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7969
            "/ kludge: if it's a wrapped method, then hide the wrap-call
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7970
            "/
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7971
            method := con method.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7972
            method notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7973
                called := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7974
                caller := con sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7975
                (caller notNil and:[caller receiver == method]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7976
                    called2 := caller.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7977
                    caller2 := caller sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7978
                    caller2 notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7979
                        (caller2 method isWrapped
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7980
                        and:[ caller2 method originalMethod == method ]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7981
                            calledContext := called2.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7982
                            con := caller2
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7983
                        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7984
                    ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7985
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7986
                ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7987
                caller := caller2 := nil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7988
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7989
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7990
            "/ with dense backtrace, skip the doIt method's context
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7991
            "/ (its dummy anyway) and fake that context's name
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7992
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7993
            verboseBacktrace ~~ true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7994
                (con isBlockContext
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7995
                 and:[(h := con home) == con sender
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7996
                 and:[h notNil
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7997
                 and:[(self setOfHiddenCallingSelectors includes:h selector)
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7998
                 and:[h method who isNil]]]]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  7999
                    calledContext := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8000
                    con := con sender.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8001
                    text removeLast.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8002
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8003
                    text add:(self contextListEntryFor:con methodHome).
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8004
                ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8005
                h := nil.  "/ never keep refs to contexts unless you really need them ...
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8006
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8007
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8008
            "/ with dense backtrace, don't show contexts below the doIt
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8009
            ( verboseBacktrace ~~ true
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8010
            and:[ (self setOfHiddenCallingSelectors includes:con selector) ]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8011
                con := nil.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8012
            ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8013
                calledContext := con.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8014
                con := con sender
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8015
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8016
        ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8017
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8018
        "
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8019
         did we reach the end ?
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8020
        "
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8021
        (con isNil or:[con sender isNil]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8022
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8023
            "/ the very last one is the startup context
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8024
            "/ (in main) - it has nil as receiver and nil as selector
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8025
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8026
            (contextArray notEmpty
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8027
            and:[contextArray last selector isNil]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8028
                contextArray removeLast.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8029
                text removeLast
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8030
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8031
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8032
            verboseBacktrace ~~ true ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8033
                "/ in dense mode, remove process startup contexts (if any)
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8034
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8035
                (contextArray size > 0
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8036
                and:[(con := contextArray last) methodClass == Process]) ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8037
                    con selector == #start ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8038
                        contextArray removeLast.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8039
                        text removeLast.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8040
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8041
                        [contextArray size > 0
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8042
                         and:[contextArray last methodHome == con]] whileTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8043
                            contextArray removeLast.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8044
                            text removeLast.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8045
                        ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8046
                    ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8047
                ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8048
            ]
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8049
        ] ifFalse:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8050
            m notNil ifTrue:[
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8051
                m enable:#showMore.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8052
            ].
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8053
            canShowMore := true.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8054
            text add:(resources string:'*** more walkback follows - click here to see them ***')
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8055
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8056
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8057
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8058
    contextView setList:text.
944
680cc407240d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 942
diff changeset
  8059
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  8060
    releaseInspectors ifTrue:[
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8061
        receiverInspector release.
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8062
        contextInspector release.
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  8063
    ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8064
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8065
    m notNil ifTrue:[
15497
c05f957c8150 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15413
diff changeset
  8066
        m disableAll:#(addBreakpoint removeBreakpoint browseImplementors browseSenders browseReceiversClass).
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8067
    ].
3511
1a050d6e639e menu fixes
Claus Gittinger <cg@exept.de>
parents: 3510
diff changeset
  8068
    self updateMenuItems.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8069
    ^ true
300
027ffcadd12d keep context in lower-right inspector when single stepping
Claus Gittinger <cg@exept.de>
parents: 299
diff changeset
  8070
7797
b0bbe7932d47 nicer context presentation
Claus Gittinger <cg@exept.de>
parents: 7796
diff changeset
  8071
    "Created: / 14-12-1995 / 19:10:31 / cg"
11694
464f62536f09 menu changed to use checkboxes
Claus Gittinger <cg@exept.de>
parents: 11693
diff changeset
  8072
    "Modified: / 27-07-2012 / 15:10:53 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8073
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8074
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8075
setContextSkippingInterruptContexts:aContext
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8076
    "show calling chain from aContext in the walk-back listview.
1213
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  8077
     Ignore any non-interesting interrupt-context."
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8078
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8079
    |con|
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8080
8152
4720caf862eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
  8081
    con := aContext.
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  8082
    self verboseBacktraceHolder value ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8083
        (con notNil and:[con selector == #threadSwitch:]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8084
            con := con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8085
            (con notNil and:[con selector == #timerInterrupt]) ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8086
                con := con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8087
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8088
        ].
779
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8089
    ].
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8090
    ^ self setContext:con releaseInspectors:true
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8091
1409
2ea39caf7f00 handle process termination gracefully
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  8092
    "Created: / 20.10.1996 / 18:10:21 / cg"
2ea39caf7f00 handle process termination gracefully
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  8093
    "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
  8094
!
0486301b79a1 use a single button for stop/continue;
Claus Gittinger <cg@exept.de>
parents: 778
diff changeset
  8095
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8096
showingContext1:aContext calling:calledContext
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  8097
    "return false, if this (top) context is to be skipped.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8098
     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
  8099
     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
  8100
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  8101
    |recIsException sel rec senderRec mthd mthdClass calledSel calledRec|
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8102
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  8103
    self verboseBacktraceHolder value ifTrue:[ ^true ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8104
    aContext isNil ifTrue:[ ^true ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8105
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8106
    sel := aContext selector.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8107
    rec := aContext receiver.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8108
    mthd := aContext method.
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8109
    mthd notNil ifTrue:[ mthdClass := mthd mclass ].
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8110
5269
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  8111
    "/ to avoid firing/waiting the lazy or future
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8112
    recIsException := (rec isProtoObject 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
  8113
    aContext sender notNil ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8114
        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
  8115
    ].
a8be1af4cd35 avoid triggering lazy and future values when showing the context.
Claus Gittinger <cg@exept.de>
parents: 5195
diff changeset
  8116
11636
2a26799eb21b class definition
Claus Gittinger <cg@exept.de>
parents: 11610
diff changeset
  8117
    DebuggingDebugger3 == true ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8118
        'showingContext1: (' print. aContext print.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8119
        ') calling: (' print. calledContext print.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8120
        ')' printCR.
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8121
    ].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8122
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  8123
    (#(doCallHandler: doRaise
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8124
    ) includes:sel)
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8125
        ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8126
            recIsException ifTrue:[ ^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8127
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8128
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  8129
    (#(raise raiseRequest
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8130
    ) includes:sel)
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8131
        ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8132
            recIsException ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8133
                (senderRec isProtoObject not
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8134
                and:[ senderRec isExceptionCreator]) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8135
            ].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8136
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8137
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  8138
    (#(doWhile:
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8139
    ) includes:sel)
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8140
        ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8141
            rec isBlock ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8142
                true "aContext sender isBlockContext" ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8143
            ].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8144
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8145
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  8146
    calledContext notNil ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8147
        calledSel := calledContext selector.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8148
        calledRec := calledContext receiver.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8149
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8150
        calledRec isBlock ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8151
            (calledSel == #ensure:) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8152
            (calledSel == #ifCurtailed:) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8153
        ].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8154
        (calledSel == #handle:do:) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8155
        (calledSel == #answer:do:) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8156
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8157
"/        calledRec isProtoObject ifFalse:[
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8158
"/            ((calledSel == #doWhile:)
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8159
"/            and:[calledRec isBlock])
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8160
"/                ifTrue:[^ false].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8161
"/
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8162
"/            ((#(ensure: ifCurtailed: valueNowOrOnUnwindDo: valueOnUnwindDo:
5349
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8163
"/                ) includes:calledSel)
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8164
"/             and:[calledRec isBlock])
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8165
"/                ifTrue:[^ false].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8166
"/
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8167
"/            ((calledSel == #handle:do:)
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8168
"/             and:[calledRec isExceptionHandler])
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8169
"/                ifTrue:[^ false].
64e779c7b08b fixed stepping through ensure: blocks
Claus Gittinger <cg@exept.de>
parents: 5340
diff changeset
  8170
"/        ].
8620
3a015c65b246 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8600
diff changeset
  8171
    ].
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  8172
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  8173
    (#(handleDo:) includes:sel)
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8174
        ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8175
            (calledRec isProtoObject not and:[calledRec isExceptionHandler]) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8176
        ].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8177
    (#(
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8178
        withCursor:do:
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8179
        withWaitCursorDo:
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8180
        withReadCursorDo:
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8181
        withWriteCursorDo:
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8182
        withSearchCursorDo:
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8183
      ) includes:sel)
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8184
        ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8185
            (mthdClass == TopView) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8186
            (mthdClass == ApplicationModel) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8187
            (mthdClass == WindowGroup) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8188
        ].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8189
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8190
    (#(
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8191
        wait
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8192
        waitWithTimeout:
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8193
        waitWithTimeoutMs:
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8194
      ) includes:sel)
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8195
        ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8196
            (mthdClass == Semaphore) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8197
            (mthdClass == SemaphoreSet) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8198
        ].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8199
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8200
    ^ true
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8201
9662
d6150bfe9f1b changed:
Claus Gittinger <cg@exept.de>
parents: 9626
diff changeset
  8202
    "Created: / 17-11-2001 / 22:24:06 / cg"
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  8203
    "Modified: / 27-07-2012 / 17:30:18 / cg"
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8204
!
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8205
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8206
showingContext2:aContext nesting:nesting
7823
9caa05596f38 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7822
diff changeset
  8207
    "return false, if this (intermediate) context is to be skipped.
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  8208
     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
  8209
     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
  8210
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8211
    |sel rec mClass
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8212
     sender senderReceiver senderSelector senderReceiverClass|
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8213
15257
0d7cd5d85da3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15256
diff changeset
  8214
    self verboseBacktraceHolder value ifTrue:[^ true].
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8215
    aContext isNil ifTrue:[^ true].
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8216
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8217
    rec := aContext receiver.
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8218
    sel := aContext selector.
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8219
    mClass := aContext methodClass.
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8220
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8221
    sender := aContext sender.
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8222
    sender notNil ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8223
        senderSelector := sender selector.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8224
        senderReceiver := sender receiver.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8225
        senderReceiverClass := senderReceiver class.
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8226
    ].
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8227
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8228
    sel == #withCursor:do: ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8229
        (mClass == WindowGroup) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8230
        (mClass == TopView) ifTrue:[^ false].
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8231
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8232
    (sel == #withExecuteCursorDo:
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8233
    or:[sel == #withWaitCursorDo:]) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8234
        (mClass == DisplaySurface) ifTrue:[^ false].
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8235
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8236
1484
1e1e56b84b11 in compact-stack-mode, also hide from:to:do: contexts.
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  8237
    (sel == #do:
6600
985a13c5e7b1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6579
diff changeset
  8238
    or:[sel == #from:to:do:
6601
b347199a06cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6600
diff changeset
  8239
    or:[sel == #keysAndValuesDo:
b347199a06cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6600
diff changeset
  8240
    or:[sel == #doWithIndex:]]]) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8241
        mClass == Array ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8242
        mClass == OrderedCollection ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8243
        mClass == Set ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8244
        mClass == Dictionary ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8245
        mClass == Interval ifTrue:[^ false].
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8246
    ].
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  8247
    (sel == #perform:
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8248
    or:[sel == #perform:with:
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8249
    or:[sel == #perform:with:with:
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8250
    or:[sel == #perform:with:with:with:
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  8251
    or:[sel == #perform:with:with:with:with:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  8252
    or:[sel == #perform:withArguments:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  8253
    or:[sel == #perform:with:ifNotUnderstood:
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  8254
    or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]])
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8255
    ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8256
        hideSupportCode == true ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8257
            "/ 'x' printCR.
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8258
            mClass == Object ifTrue:[^ false]
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8259
        ].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8260
        nesting == 0 ifTrue:[^ true].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8261
        mClass == Array ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8262
        mClass == OrderedCollection ifTrue:[^ false].
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8263
    ].
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8264
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8265
    sel == #valueWithReceiver:arguments:selector:search:sender: ifTrue:[^ false].
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8266
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8267
    (mClass == Object) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8268
        (sel startsWith:'perform:') ifTrue:[^ false]
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8269
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8270
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8271
    (mClass == Method) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8272
        (sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8273
    ].
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8274
952
9f203aab32a4 skip intermediate lazyMethod loading contexts
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  8275
    (mClass == SmallInteger) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8276
        (sel == #to:do:) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8277
        (sel == #to:by:do:) ifTrue:[^ false].
952
9f203aab32a4 skip intermediate lazyMethod loading contexts
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  8278
    ].
9f203aab32a4 skip intermediate lazyMethod loading contexts
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  8279
939
0e700c9bd085 better dense backtrace
Claus Gittinger <cg@exept.de>
parents: 937
diff changeset
  8280
    (mClass == Block) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8281
        sel == #ensure: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8282
        sel == #ifCurtailed: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8283
        sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8284
        sel == #valueOnUnwindDo: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8285
        sel == #on:do: ifTrue:[^ false].
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8286
        sel == #on:do:ensure: ifTrue:[^ false].
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8287
        sel == #on:do:ifCurtailed: ifTrue:[^ false].
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8288
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8289
        sel == #value ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8290
        sel == #value: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8291
        sel == #value:value: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8292
        sel == #value:value:value: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8293
        sel == #value:value:value:value: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8294
        sel == #value:value:value:value:Value: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8295
        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
  8296
    ].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8297
1388
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8298
    aContext isBlockContext ifTrue:[
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8299
        |home|
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8300
"/        sel == #value ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8301
"/        sel == #value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8302
"/        sel == #value:value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8303
"/        sel == #value:value:value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8304
"/        sel == #value:value:value:value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8305
"/        sel == #value:value:value:value:Value: ifTrue:[^ false].
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8306
"/        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
  8307
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8308
"/        (senderSelector == #answer:do:) ifTrue:[
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8309
"/            senderReceiverClass == QuerySignal ifTrue:[
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8310
"/                ^ false
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8311
"/            ]
d127d4379a60 more contexts suppressed in dense-backtrace
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  8312
"/        ]
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8313
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8314
        home := aContext home.
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8315
        (home notNil 
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8316
         and:[home receiver isProtoObject not 
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8317
         and:[home receiver isKindOf:Semaphore]]) ifTrue:[
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8318
            (home selector == #wait) ifTrue:[^ false].
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8319
            (home selector == #waitWithTimeoutMs:) ifTrue:[^ false].
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8320
        ].
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8321
    ].
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8322
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8323
    rec isProtoObject ifTrue:[
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8324
        ^ true.
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8325
    ].
3723
250da8f1a968 Treat new #ensure, #ifCurtailed, #on:do:
Stefan Vogel <sv@exept.de>
parents: 3702
diff changeset
  8326
    (rec isExceptionHandler) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8327
        sel == #handle:do: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8328
        sel == #handleDo: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8329
        (sel startsWith:#raise) ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8330
        sel == #answer:do: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8331
    ].
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8332
    (rec isException) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8333
        sel == #doRaise ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8334
        sel == #doCallHandler: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8335
        (sel == #raise or:[sel == #raiseRequest]) ifTrue:[
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8336
            senderReceiverClass == Signal ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8337
        ]
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8338
    ].
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8339
    (mClass == Context) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8340
        sel == #unwind ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8341
        sel == #unwind: ifTrue:[^ false].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8342
    ].
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8343
    (mClass == ProcessorScheduler) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8344
        sel == #interruptActive ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8345
        sel == #threadSwitch: ifTrue:[^ false].
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8346
        sel == #suspend: ifTrue:[^ false].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8347
    ].
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8348
    mClass == Process ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8349
        sel == #suspendWithState: ifTrue:[^ false].
1394
7765db9114ff more context hiding in dense-walkback mode
Claus Gittinger <cg@exept.de>
parents: 1388
diff changeset
  8350
    ].
15256
b057e880276a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15255
diff changeset
  8351
    (sel == #break) ifTrue:[
17122
217cc7b2af3b #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17109
diff changeset
  8352
        (mClass == Breakpoint) ifTrue:[^ false].
15256
b057e880276a class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15255
diff changeset
  8353
    ].
936
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8354
    ^ true.
34f8d67c4932 allow dense & verbose context-chain display.
Claus Gittinger <cg@exept.de>
parents: 935
diff changeset
  8355
9662
d6150bfe9f1b changed:
Claus Gittinger <cg@exept.de>
parents: 9626
diff changeset
  8356
    "Created: / 17-11-2001 / 19:34:20 / cg"
11696
1718b69fe880 changed:
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  8357
    "Modified: / 27-07-2012 / 17:26:54 / cg"
17305
862a23b67f68 #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 17188
diff changeset
  8358
    "Modified: / 31-01-2017 / 20:21:32 / stefan"
1240
ff3fdaa72df6 In #destroy CodeView>>contents: has been called and caused a
Stefan Vogel <sv@exept.de>
parents: 1213
diff changeset
  8359
! !
ff3fdaa72df6 In #destroy CodeView>>contents: has been called and caused a
Stefan Vogel <sv@exept.de>
parents: 1213
diff changeset
  8360
4859
462e871755e0 method category rename
Claus Gittinger <cg@exept.de>
parents: 4816
diff changeset
  8361
!DebugView methodsFor:'private-control loop'!
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8362
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8363
controlLoop
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8364
    "this is a kludge:
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8365
        start a dispatchloop which exits when
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8366
        either continue, return or step is pressed
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8367
    "
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8368
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8369
    haveControl := true.
664
f5e2b3767ea8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 657
diff changeset
  8370
    [
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8371
        [haveControl] whileTrue:[
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8372
AbortOperationRequest handle:[:ex |
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8373
] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8374
            self controlLoopCatchingErrors
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8375
]
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8376
        ].
3597
2e7fc0ae28c9 #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 3593
diff changeset
  8377
    ] ensure:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8378
        catchBlock := nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8379
        haveControl := false
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8380
    ].
664
f5e2b3767ea8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 657
diff changeset
  8381
f5e2b3767ea8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 657
diff changeset
  8382
    "Modified: 9.7.1996 / 18:29:09 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8383
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8384
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8385
controlLoopCatchingErrors
328
bdfe5bbd376d ignore recursive BreakPoint invocations
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  8386
    "this is the debuggers own private event handling loop;
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  8387
     errors are caught, to prevent recursive debugger-invocations."
328
bdfe5bbd376d ignore recursive BreakPoint invocations
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  8388
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8389
    "setup a self removing catch-block"
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8390
    catchBlock := [catchBlock := nil. ^ nil].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8391
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8392
    (exclusive or:[windowGroup isNil]) ifTrue:[
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8393
        "if we do not have multiple processes or its a system process
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8394
         we start another dispatch loop, which exits when
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8395
         either continue, return or step is pressed
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8396
         or (via the catchBlock) if an error occurs.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8397
         Since our display is an extra exclusive one,
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8398
         all processing for normal views stops here ...
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8399
        "
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8400
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8401
        WindowGroup setActiveGroup:windowGroup.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8402
        SignalSet anySignal handle:[:ex |
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8403
            |signal|
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8404
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8405
            signal := ex creator.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8406
            (UserInterruptSignal accepts:signal) ifTrue:[
14835
239d36d19ee2 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14814
diff changeset
  8407
Transcript showCR:'UserInterruptSignal'.
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8408
                self topView raiseDeiconified.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8409
                ex proceed.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8410
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8411
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8412
            (UserNotification accepts:signal) ifTrue:[
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8413
Transcript showCR:'UserNotification'.
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8414
                (signal ~~ ActivityNotificationSignal) ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8415
                    self showError:ex description.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8416
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8417
                ex proceed.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8418
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8419
            (HaltInterrupt accepts:signal) ifTrue:[
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8420
Transcript showCR:'HaltInterrupt'.
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8421
                Transcript showCR:'Halt/Break in debugger ignored'.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8422
                self topView raiseDeiconified.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8423
                ex proceed.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8424
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8425
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8426
            self showError:'*** Error in modal debugger:
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8427
334
00d06ac75a99 handle notifications without err'ing
ah
parents: 333
diff changeset
  8428
>>>> Signal:  ' , signal printString , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8429
>>>> In:      ' , ex suspendedContext printString , '
1016
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8430
>>>> From:    ' , ex suspendedContext sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8431
>>>>     :    ' , ex suspendedContext sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8432
>>>>     :    ' , ex suspendedContext sender sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8433
>>>>     :    ' , 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
  8434
>>>>     :    ' , 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
  8435
>>>>     :    ' , 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
  8436
>>>>     :    ' , 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
  8437
>>>>     :    ' , 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
  8438
>>>>     :    ' , 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
  8439
>>>>     :    ' , 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
  8440
>>>>     :    ' , 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
  8441
>>>>     :    ' , 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
  8442
>>>>     :    ' , 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
  8443
>>>>     :    ' , 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
  8444
>>>> Message: ' , ex description , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8445
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  8446
caught & ignored.'.
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8447
            ex return.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8448
        ] do:[
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8449
"/            UserNotification handle:[:ex |
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8450
"/                (ex signal == ActivityNotificationSignal) ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8451
"/                    ex proceed
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8452
"/                ].
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8453
"/                self showError:ex description.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8454
"/                ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8455
"/            ] do:[
16960
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  8456
                device isNil ifTrue:[^ self].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  8457
                
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  8458
                device
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8459
                    dispatchModalWhile:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8460
                        Processor activeProcess state:#debug.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8461
                        haveControl].
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  8462
"/            ]
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8463
        ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8464
        WindowGroup setActiveGroup:nil.
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8465
    ] ifFalse:[
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8466
        "we do have multiple processes -
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8467
         simply enter the DebugViews-Windowgroup event loop.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8468
         effectively suspending event processing for the currently
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8469
         active group.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8470
        "
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8471
        SignalSet anySignal handle:[:ex |
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8472
            |answer signal eMsg|
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8473
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8474
            signal := ex creator.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8475
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8476
            DebuggingDebugger ~~ true ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8477
                (signal == ActivityNotification) ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8478
                    ex proceed
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8479
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8480
                "/
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8481
                "/ ignore exceptions which say they explicitly have to be ignored
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8482
                "/
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8483
                ex catchInDebugger ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8484
                    'DebugView [info]: ',signal printString,'-signal in debugger caught for close' infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8485
                    self halt. "/ self destroy.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8486
                    ex reject
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8487
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8488
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8489
                "/
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8490
                "/ ignore recursive breakpoints
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8491
                "/
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8492
                (signal isControlInterrupt) ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8493
                    ignoreBreakpoints == true ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8494
                        'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8495
                        ('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8496
                        self topView raiseDeiconified.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8497
                        ex proceed
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8498
                    ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8499
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8500
                (signal == TerminateProcessRequest) ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8501
                    "/ mhm - someone wants to shoot me down while debugging ...
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8502
                    answer := Dialog
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8503
                                choose:('Process termination signal arrived while debugging\\close debugger ?') withCRs
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8504
                                labels:#( 'Ignore' 'Close & terminate' )
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8505
                                values:#( #proceed #close )
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8506
                                default:#close.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8507
                    answer == #close ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8508
                        self destroy.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8509
                        ex reject
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8510
                    ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8511
                    ex return.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8512
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8513
                signal == RecursiveExceptionError ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8514
                    (ex exception creator == BreakPointInterrupt)
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8515
                    ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8516
                        'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8517
                        ex proceed.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8518
                    ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8519
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8520
                    self showError:'*** Recursive error in debugger:
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8521
12687
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  8522
>>>> Signal:  ' , ex creator printString , '
1d78c217e701 use #creator instead of #signal
Claus Gittinger <cg@exept.de>
parents: 12671
diff changeset
  8523
>>>>          ' , ex parameter creator printString , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8524
>>>> In:      ' , ex suspendedContext printString , '
1016
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8525
>>>> From:    ' , ex suspendedContext sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8526
>>>>     :    ' , ex suspendedContext sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8527
>>>>     :    ' , ex suspendedContext sender sender sender printString , '
59ebb6068892 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1004
diff changeset
  8528
>>>>     :    ' , ex suspendedContext sender sender sender sender printString , '
4816
08695fc6e1e9 #errorSignal -> #description
Stefan Vogel <sv@exept.de>
parents: 4676
diff changeset
  8529
>>>> Message: ' , ex description , '
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8530
1187
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  8531
caught & ignored.'.
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8532
                    ex return
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8533
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8534
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8535
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8536
            self topView raiseDeiconified.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8537
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8538
            eMsg := ex description.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8539
            (signal isControlInterrupt) ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8540
                eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8541
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8542
            Dialog aboutToOpenBoxNotificationSignal
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8543
                handle:[:ex | ex proceed ]
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8544
                do:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8545
                    answer := Dialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8546
                        choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8547
                        labels:#( 'Proceed' 'Cancel' 'Debug' )
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8548
                        values:#( #proceed #cancel #debug )
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8549
                        default:#cancel.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8550
                ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8551
            answer == #debug ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8552
                'DebugView [info]: caught exception - debugging' infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8553
                Debugger
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8554
                    enterUnconditional:(ex suspendedContext)
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8555
                    withMessage:(ex creator class theNonMetaclass name,' in debugger: ' , eMsg)
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8556
                    mayProceed:true.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8557
                ex proceed.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8558
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8559
            answer == #proceed ifTrue:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8560
                'DebugView [info]: ignored exception - proceeding' infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8561
                ex proceed.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8562
            ].
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8563
            'DebugView [info]: caught exception - returning' infoPrintCR.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8564
            ex return.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8565
        ] do:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8566
            "/ make certain that sub-debuggers, inspectors etc.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8567
            "/ come up on my device.
16253
a10c2c4594d5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16134
diff changeset
  8568
            Screen currentScreenQuerySignal answer:device
15757
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8569
            do:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8570
                Dialog aboutToOpenBoxNotificationSignal
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8571
                    handle:[:ex | ex proceed ]
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8572
                    do:[
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8573
                        windowGroup
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8574
                            eventLoopWhile:[Processor activeProcess state:#debug.
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8575
                                              true]
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8576
                            onLeave:[]
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8577
                    ]
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8578
            ]
b54d72ba3a7e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15730
diff changeset
  8579
        ].
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8580
    ].
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8581
    catchBlock := nil.
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8582
11818
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  8583
    "Created: / 24-11-1995 / 20:33:45 / cg"
94fb736aa226 changed:
Claus Gittinger <cg@exept.de>
parents: 11704
diff changeset
  8584
    "Modified: / 26-09-2012 / 15:03:39 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8585
! !
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8586
13416
42dde7fc4713 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13415
diff changeset
  8587
!DebugView methodsFor:'queries'!
42dde7fc4713 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13415
diff changeset
  8588
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8589
canDefineForCallee:callee
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8590
    "again, pure heuristics here"
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8591
16072
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8592
    |mthd app heuristic selector sender|
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8593
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8594
    callee isNil ifTrue:[^ false].
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8595
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8596
    classToDefineIn := selectorToDefine := nil.    "/ sorry - left as info to define action
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8597
16072
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8598
    "/ clicked on an unimplemented method ?
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8599
    sender := callee sender.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8600
    sender isNil ifTrue:[^ false].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8601
    
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8602
    mthd := sender method.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8603
    mthd isNil ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8604
        sender isBlockContext ifFalse:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8605
            "/ an unimplemented method
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8606
            selector := sender selector.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8607
            (sender receiver class canUnderstand:selector) ifFalse:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8608
                classToDefineIn := sender receiver class.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8609
                selectorToDefine := selector.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8610
                ^ true
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8611
            ]
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8612
        ]
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8613
    ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8614
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8615
    mthd := callee method.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8616
    mthd notNil ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8617
        (mthd selector == #subclassResponsibility) ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8618
            classToDefineIn := sender receiver class.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8619
            selectorToDefine := sender selector.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8620
            ^ true.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8621
        ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8622
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8623
        "/ that's a big hack, but I am tired of navigating to find the missing menu message...
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8624
        "/ you will thank me!!
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8625
        mthd selector == #error:mayProceed: ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8626
            (callee receiver isKindOf:MenuPanel) ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8627
                |senderHome|
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8628
                
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8629
                (senderHome := sender home) notNil ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8630
                    (senderHome selector startsWith:'accept:') ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8631
                        (inspectedProcess notNil and:[inspectedProcess isGUIProcess]) ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8632
                            (app := self processesApplication) notNil ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8633
                                heuristic := senderHome argsAndVars select:[:o | o isSymbol].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8634
                                heuristic size == 1 ifTrue:[
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8635
                                    classToDefineIn := app class.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8636
                                    selectorToDefine := heuristic first.
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8637
                                    ^ true
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8638
                                ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8639
                            ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8640
                        ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8641
                    ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8642
                ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8643
            ].
086a1f557371 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16065
diff changeset
  8644
        ]
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8645
    ].
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8646
    ^ false
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8647
!
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  8648
13489
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8649
showingAlreadyModifiedCode
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8650
    ^ methodCodeToggle isVisible
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8651
    and:[ methodCodeToggleSelectionHolder value = 2 ]
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8652
! !
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8653
17156
e83700f581f1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17129
diff changeset
  8654
!DebugView methodsFor:'testing'!
e83700f581f1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17129
diff changeset
  8655
e83700f581f1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17129
diff changeset
  8656
isDebugView
e83700f581f1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17129
diff changeset
  8657
    ^ true
e83700f581f1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17129
diff changeset
  8658
! !
e83700f581f1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17129
diff changeset
  8659
13489
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8660
!DebugView methodsFor:'user interaction'!
814f26876cd3 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13488
diff changeset
  8661
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8662
checkIfCodeIsReallyModified
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8663
    |methodSource editorCode|
6616
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  8664
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8665
    codeView modified ifFalse:[^ false].
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8666
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8667
    currentMethod isNil ifTrue:[^ false].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8668
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8669
    methodSource := currentMethod source.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8670
    methodSource notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8671
        methodSource := methodSource string.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8672
        editorCode := codeView contents string.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8673
        methodSource = editorCode ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8674
            ^ false
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8675
        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8676
        (methodSource withTabsExpanded:8) = (editorCode withTabsExpanded:8) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8677
            ^ false
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8678
        ].
6616
b8c6a5cf6522 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6601
diff changeset
  8679
    ].
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8680
    ^ true
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8681
!
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8682
17109
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8683
checkIfCodeIsReallyModifiedAndConfirmWith:questionString
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8684
    "if code was not modified or confirmation answered with 'ok',
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8685
     return true (i.e. whatever user wants to do should be done).
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8686
     Otherwise, return false"
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8687
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8688
    self checkIfCodeIsReallyModified ifFalse:[^ true].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8689
    (self confirm:(resources stringWithCRs:questionString)) ifTrue:[^ true].
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8690
    ^ false.
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8691
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8692
    "Created: / 25-11-2016 / 13:35:34 / cg"
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8693
!
cd9444834f62 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17107
diff changeset
  8694
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  8695
checkSelectionChangeAllowed
2678
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  8696
    ^ self checkSelectionChangeAllowed:nil
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  8697
!
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  8698
90eb8be47ac4 avoid annoying modified-code dialog when reselecting the same
Claus Gittinger <cg@exept.de>
parents: 2633
diff changeset
  8699
checkSelectionChangeAllowed:newSelection
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8700
    |answer v|
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8701
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8702
    self checkIfCodeIsReallyModified ifFalse:[^ true].
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8703
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8704
    (newSelection notNil
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8705
    and:[newSelection = contextView selection]) ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8706
        ^ true
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8707
    ].
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8708
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8709
    answer := Dialog
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8710
                confirmWithCancel:('Code modified - change selection anyway ?')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8711
                labels:#('No' 'No, Show Diffs' 'Yes').
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8712
    answer isNil ifTrue:[^ false].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8713
    answer == false ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8714
        v := DiffCodeView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8715
                openOn:codeView contents
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8716
                label:(resources string:'Changed code (to be accepted ?)')
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8717
                and:currentMethod source
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8718
                label:(resources string:'Method''s actual (maybe original) code').
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8719
        v label:(resources string:'Comparing method''s code').
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8720
        v waitUntilVisible.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8721
        ^ false
13388
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8722
    ].
65c95fd29280 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13376
diff changeset
  8723
3097
dada585e916d really modfified test (in step, ...)
Claus Gittinger <cg@exept.de>
parents: 3094
diff changeset
  8724
    codeView modified:false.
1765
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  8725
    ^ true
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  8726
!
a704122c92dc confirm close/selection change if codeView was modified without
Claus Gittinger <cg@exept.de>
parents: 1764
diff changeset
  8727
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8728
codeAccept:someCode
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8729
    "user wants some code to be recompiled"
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8730
14640
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8731
    ParseError handle:[:ex |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8732
        ex lineNumber notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8733
            codeView selectLine:ex lineNumber. "/ selectFromCharacterPosition:ex startPosition to:ex endPosition.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8734
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8735
        Dialog information:ex description.
14640
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8736
"/            ParseError new
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8737
"/                errorMessage:aMessage startPosition:position endPosition:endPos;
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8738
"/                parameter:self;
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8739
"/                lineNumber:tokenLineNr; "lineNr"
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8740
"/                raiseRequest.
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8741
    ] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8742
        ^ self codeAccept:someCode unwind:false category:nil onCancel:nil
14640
692dba3782da class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14608
diff changeset
  8743
    ].
7553
83cbd8707d1e do not unwind after an accept.
Claus Gittinger <cg@exept.de>
parents: 7481
diff changeset
  8744
83cbd8707d1e do not unwind after an accept.
Claus Gittinger <cg@exept.de>
parents: 7481
diff changeset
  8745
    "Modified: / 28-11-2006 / 19:49:04 / cg"
266
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8746
!
8645fbd8fdb7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
  8747
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8748
codeAccept:someCode inClass:aClass unwind:doUnwind category:category onCancel:cancelAction
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8749
    "user wants some code to be recompiled.
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8750
     Optionally unwind stack to right above the changed method.
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  8751
     This undwind option is a leftover from times, when the debugger had no chance to
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8752
     show the original code.
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8753
     Now, it can, and got a choice-field to select between original and changed code.
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8754
     So the undwind option is not longer used and probably completely obsolete now
13455
510fbf53592c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13416
diff changeset
  8755
     (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
  8756
13842
609697ec1e06 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13764
diff changeset
  8757
    |con newMethod|
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8758
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8759
    codeView withWaitCursorDo:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8760
        "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8761
         find the method-home context for this one
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8762
        "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8763
        doUnwind ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8764
            con := selectedContext.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8765
            top := con.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8766
            [con notNil] whileTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8767
                (con methodHome == selectedContext) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8768
                    top := con
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8769
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8770
                con := con sender
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8771
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8772
        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8773
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8774
        "/
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8775
        "/ provide the classes nameSpace and changefile-update answers;
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8776
        "/ in case we accept while in another context, to not capture these settings again
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8777
        "/
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8778
        (Class updateChangeFileQuerySignal,
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8779
         Class updateChangeListQuerySignal,
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8780
         Class updateHistoryLineQuerySignal) answer:true
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8781
        do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8782
            Class nameSpaceQuerySignal answer:(aClass nameSpace)
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8783
            do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8784
                "/ the compiler nowadays already cares for the package...
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8785
                "/ no, actually, it does not in case we are in the middle of a fileIn,
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8786
                "/ and packageQuery is already answered by someone else.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8787
                "/ Better make it unpackaged, in case the user makes changes to other
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8788
                "/ classes here (actually, I often change compiler, debugger, inspector here)
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8789
                Class packageQuerySignal
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8790
                answer:nil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8791
                do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8792
                    codeView contents:someCode.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8793
                    Class methodRedefinitionNotification
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8794
                        answer:#keep
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8795
                        do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8796
                            | breakpoints newMethodOrClass |
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8797
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8798
                            breakpoints := nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8799
                            codeView isCodeView2 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8800
                                breakpoints := codeView breakpoints.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8801
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8802
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8803
                            BreakpointQuery answer: breakpoints do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8804
                                "/ Use original method's programming language instead of class's one.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8805
                                "/ In most cases it's the same, but it may be that the method edited
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8806
                                "/ and accepted was an extension method written in another languages
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8807
                                "/ (such as Smalltalk extension to Java class or Ruby extension to
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8808
                                "/ Smalltalk class.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8809
                                newMethodOrClass := selectedContext programmingLanguage 
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8810
                                                        compilerClassForInteractiveTools
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8811
                                                             compile:someCode
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8812
                                                             forClass:aClass
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8813
                                                             inCategory:category
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8814
                                                             notifying:codeView.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8815
                                "/ Kludge for accepting Java code in a debugger. The Java compiler
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8816
                                "/ does not compile single methods but always a full class and returns
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8817
                                "/ the compiled class(es) rather than a method. 
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8818
                                "/ However, we need to update the method holder of a codeView.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8819
                                "/
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8820
                                "/ So, here we check whether the returned `newMethod` is really a method,
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8821
                                "/ if it's a class, try to search that class for a method with the
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8822
                                "/ same selector as selector of currently selected context. If found,
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8823
                                "/ that's the 'new' method we are going to show.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8824
                                newMethodOrClass isBehavior ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8825
                                    | selector |
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8826
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8827
                                    selector := selectedContext selector.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8828
                                    newMethod := newMethodOrClass compiledMethodAt: selector ifAbsent: nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8829
                                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8830
                                    newMethod := newMethodOrClass.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8831
                                    newMethod == #Error ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8832
                                        "/ should now be obsolete
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8833
                                        newMethod := nil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8834
                                    ].    
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8835
                                ].    
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8836
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8837
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8838
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8839
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8840
        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8841
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8842
        methodCodeToggleSelectionHolder value:2.    "/ showing current code
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8843
        methodCodeToggle beVisible.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8844
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8845
        inspecting ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8846
            (newMethod isNil) ifTrue:[^ cancelAction value].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8847
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8848
            codeView modified:false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8849
            codeView isCodeView2 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8850
                codeView methodHolder value: newMethod.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8851
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8852
            currentMethod := newMethod.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8853
            
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8854
            doUnwind ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8855
                "/ if it worked, and doUnwind is true,
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8856
                "/ remove everything up to and including top
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8857
                "/ from the context chain
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8858
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8859
                selectedContext canReturn ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8860
                    self setContext:(top "sender").
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8861
                    exitAction := #restart.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8862
                    selectedContext setLineNumber:1.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8863
                    self doRestart.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8864
                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8865
                    self setContext:(top sender).
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8866
                    exitAction := #return.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8867
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8868
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  8869
        ].
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8870
    ].
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8871
7065
a6e34a47f7fb accept in the debugger always assignes the classes'
Claus Gittinger <cg@exept.de>
parents: 7000
diff changeset
  8872
    "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
  8873
    "Modified: / 29-08-2006 / 14:22:22 / cg"
14713
ced0e6da3de1 class: DebugView
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14697
diff changeset
  8874
    "Modified: / 17-08-2014 / 11:44:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3427
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8875
!
c1a0db432106 if dense backtrace:
Claus Gittinger <cg@exept.de>
parents: 3412
diff changeset
  8876
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8877
codeAccept:someCode unwind:doUnwind category:givenCategoryOrNil onCancel:cancelAction
13394
f196d8ddec24 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13388
diff changeset
  8878
    "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
  8879
16422
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8880
    |sel implementorClass receiverClass method category wrapper|
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8881
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8882
    codeView withWaitCursorDo:[
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8883
"/        "
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8884
"/         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
  8885
"/        "
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8886
"/        con := selectedContext.
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8887
"/        top := con.
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8888
"/        [con notNil] whileTrue:[
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8889
"/            (con methodHome == selectedContext) ifTrue:[
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8890
"/                top := con
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8891
"/            ].
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8892
"/            con := con sender
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8893
"/        ].
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8894
16422
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8895
        "
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8896
         use class&selector to find the method for the compilation
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8897
         and compile.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8898
        "
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8899
        category := givenCategoryOrNil.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8900
        sel := selectedContext selector.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8901
        implementorClass := selectedContext methodClass.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8902
        method := selectedContext method.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8903
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8904
        implementorClass isNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8905
            (method notNil 
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8906
                and:[method mclass isNil 
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8907
                and:[(wrapper := method wrapper) notNil]]
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8908
            ) ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8909
                method := wrapper.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8910
            ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8911
            method notNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8912
                implementorClass := method mclass.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8913
                implementorClass isNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8914
                    implementorClass := method getMclass
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8915
                ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8916
            ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8917
        ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8918
        implementorClass notNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8919
            category isNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8920
                method isNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8921
                    method := implementorClass compiledMethodAt:sel.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8922
                ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8923
                category := method category
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8924
            ]
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8925
        ] ifFalse:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8926
            receiverClass := selectedContext receiver class.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8927
            implementorClass := receiverClass whichClassImplements:sel.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8928
            implementorClass := implementorClass ? receiverClass.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8929
            implementorClass ~~ Object ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8930
                implementorClass := Dialog
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8931
                                        request:('Define ''%1'' in class:' bindWith:sel allBold)
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8932
                                        initialAnswer:implementorClass name
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8933
                                        list:(implementorClass withAllSuperclasses collect:[:each| each name]).
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8934
                implementorClass size == 0 ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8935
                    ^ cancelAction value "/ cancelled
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8936
                ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8937
                implementorClass := Smalltalk classNamed:implementorClass.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8938
                implementorClass isNil ifTrue:[
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8939
                    Dialog warn:'No such class'.
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8940
                    ^ cancelAction value "/ cancelled
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8941
                ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8942
            ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8943
        ].
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8944
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8945
        self
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8946
            codeAccept:someCode
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8947
            inClass:implementorClass
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8948
            unwind:doUnwind
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8949
            category:category
9ae2c4be75c4 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
  8950
            onCancel:cancelAction.
8595
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8951
    ].
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8952
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8953
    "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
  8954
    "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
  8955
!
9ae7fccae337 allow \"define\" when in a subclassResponsibility method
Claus Gittinger <cg@exept.de>
parents: 8592
diff changeset
  8956
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8957
codeCompletion
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8958
    "/ I found this code 3 times (CodeView2, NewSystemBrowser and DebugView) - smell?
14109
6269ce6fbb65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13965
diff changeset
  8959
    "/ (can we move that to a utility - probably DoWhatIMeanSupport)
6269ce6fbb65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13965
diff changeset
  8960
6269ce6fbb65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13965
diff changeset
  8961
    |cls language|
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8962
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8963
    currentMethod isNil ifTrue:[ ^ self ].
8338
2a8df762ed0b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8327
diff changeset
  8964
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8965
    cls := currentMethod mclass.
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  8966
    cls notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8967
        language := cls programmingLanguage.
14109
6269ce6fbb65 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13965
diff changeset
  8968
    ].
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  8969
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8970
    UserInformation handle:[:ex |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8971
        ex proceed.
7912
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8972
    ] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8973
        DoWhatIMeanSupport codeCompletionForLanguage:language class:cls context:selectedContext codeView:codeView.
13562
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8974
    ].
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8975
56d3659b75a0 Pass programming language when asking DWIM to complete code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13553
diff changeset
  8976
    "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
  8977
!
3c7e853977b7 codeCompletion added
Claus Gittinger <cg@exept.de>
parents: 7888
diff changeset
  8978
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8979
confirm:aString
6971
ef52630187a5 comment
Claus Gittinger <cg@exept.de>
parents: 6849
diff changeset
  8980
    "open a modal yes-no dialog.
ef52630187a5 comment
Claus Gittinger <cg@exept.de>
parents: 6849
diff changeset
  8981
     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
  8982
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8983
    (exclusive or:[windowGroup isNil]) ifTrue:[
16960
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  8984
        ^ true
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  8985
    ].
1495d95f87a1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16958
diff changeset
  8986
    ^ super confirm:(resources stringWithCRs:aString).
3570
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8987
!
da6d661593d8 Exclusive debugger (on top of scheduler process) is working again.
Stefan Vogel <sv@exept.de>
parents: 3542
diff changeset
  8988
1284
091454814297 try to catch more errors when showing sourceCode
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
  8989
doShowSelection:lineNr
301
cd15cb77e4b6 show wait cursor while accessing sources (may take long with CVS)
Claus Gittinger <cg@exept.de>
parents: 300
diff changeset
  8990
    "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
  8991
     Also sent to autoselect an interesting context on entry."
0
571fd5eee315 Initial revision
claus
parents:
diff changeset
  8992
9235
fdcf1d96cdfe changed:
Stefan Vogel <sv@exept.de>
parents: 9155
diff changeset
  8993
    HaltInterrupt handle:[:ex |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8994
        ignoreBreakpoints ifFalse:[ex reject].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8995
        ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8996
        ex proceed
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  8997
    ] do:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  8998
        self updateForContext:lineNr
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  8999
    ].
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  9000
    self updateMenuItems
3432
087493c18c74 class based exceptions - no longer need to send #breakPointSígnal
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
  9001
3447
f1a20a8ba485 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3441
diff changeset
  9002
    "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
  9003
!
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  9004
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  9005
hideStackInspector
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9006
    stackInspector notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9007
        stackInspector destroy.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9008
        stackInspector := nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9009
        receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9010
        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
  9011
    ]
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9012
!
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9013
9500
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9014
methodCodeToggleChanged
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9015
    |sel|
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9016
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9017
    sel := contextView selection.
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9018
    sel notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9019
        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
  9020
    ]
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9021
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9022
    "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
  9023
!
76bc64543166 care for original vs. current methods code (if it was changed)
Claus Gittinger <cg@exept.de>
parents: 9488
diff changeset
  9024
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9025
processEvent:anEvent
6129
4203bef24b27 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6046
diff changeset
  9026
    "filter keyboard events for popUp variable value display.
4203bef24b27 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6046
diff changeset
  9027
     Return true, if I have eaten the event"
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9028
12106
0dd284890b62 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12080
diff changeset
  9029
    <resource: #keyboard (#CodeCompletion )>
0dd284890b62 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12080
diff changeset
  9030
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9031
    |evView focusView key rawKey inCodeView|
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9032
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9033
    evView := anEvent view.
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9034
    evView notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9035
        focusView := evView windowGroup focusView.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9036
        focusView isNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9037
            focusView := evView.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9038
        ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9039
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9040
        anEvent isKeyPressEvent ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9041
            key := anEvent key.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9042
            rawKey := anEvent rawKey.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9043
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9044
            inCodeView := (focusView == codeView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9045
                          or:[focusView isComponentOf:codeView]).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9046
            inCodeView ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9047
                key == #CodeCompletion ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9048
                    "/ complete the word before/under the cursor.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9049
                    self sensor
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9050
                        pushUserEvent:#codeCompletion
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9051
                        for:self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9052
                        withArguments:#().
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9053
                    ^ true
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9054
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9055
            ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9056
        ].
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9057
3602
2ba741dd596b avoid autoloading RBstuff
Claus Gittinger <cg@exept.de>
parents: 3597
diff changeset
  9058
false ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9059
        anEvent isButtonReleaseEvent ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9060
            anEvent view == codeView ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9061
                (RBParser notNil and:[RBParser isLoaded])
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9062
                ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9063
                    self sensor
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9064
                        pushEvent:anEvent.  "/ must be first in queue
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9065
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9066
                    self sensor
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9067
                      pushUserEvent:#explainSelection
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9068
                      for:self
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9069
                      withArguments:nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9070
                    ^ true  "/ eaten
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9071
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9072
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9073
        ].
3602
2ba741dd596b avoid autoloading RBstuff
Claus Gittinger <cg@exept.de>
parents: 3597
diff changeset
  9074
].
2ba741dd596b avoid autoloading RBstuff
Claus Gittinger <cg@exept.de>
parents: 3597
diff changeset
  9075
3517
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9076
    ].
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9077
    ^ false
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9078
!
df36801b26b7 preps for flyBy-value-display
Claus Gittinger <cg@exept.de>
parents: 3511
diff changeset
  9079
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  9080
setCurrentMethod:aMethodOrNil
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  9081
    currentMethod := aMethodOrNil.
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  9082
!
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  9083
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  9084
showSelection:lineNr
1327
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  9085
    "user clicked on a header line - show selected code in textView.
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  9086
     Also sent to autoselect an interesting context on entry."
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  9087
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  9088
    UserNotification
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9089
        handle:[:ex |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9090
            "/ ex suspendedContext fullPrintAll.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9091
            Transcript showCR:ex description.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9092
            "/ Transcript showCR:ex parameter.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9093
            ex proceed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9094
        ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9095
        do:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9096
            Error
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9097
                handle:[:ex |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9098
                    |s con|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9099
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9100
                    ex creator isControlInterrupt ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9101
                        'DebugView [info]: halt/break ignored - while showing selection in debugger'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9102
                            infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9103
                        ex proceed
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9104
                    ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9105
                    ('DebugView [info]: error at %1 when showing selection in debugger ignored'
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9106
                        bindWith:ex suspendedContext) infoPrintCR.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9107
                    s := '' writeStream.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9108
                    s nextPutLine:'**** error in debugger, while extracting source'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9109
                    s nextPutLine:'****'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9110
                    s nextPutLine:'**** ',(ex description).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9111
                    s nextPutLine:'****'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9112
                    con := ex suspendedContext.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9113
                    s nextPutLine:'**** ',(con printString).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9114
                    con := con sender.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9115
                    HaltInterrupt ignoreIn:[ con fullPrintAllOn:s. ].
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  9116
5842
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9117
"/                            [con notNil] whileTrue:[
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9118
"/                                Error catch:[:ex |
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9119
"/                                    s nextPutAll: '**** '; nextPutLine:(con printString).
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9120
"/                                ].
4947
c600f7430132 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4932
diff changeset
  9121
"/
5842
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9122
"/                                (con receiver == self and:[con selector == #'enter:select:']) ifTrue:[
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9123
"/                                    con := nil
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9124
"/                                ] ifFalse:[
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9125
"/                                    con := con sender.
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9126
"/                                ]
ed293abd4f21 notification handling
Claus Gittinger <cg@exept.de>
parents: 5821
diff changeset
  9127
"/                            ].
15413
764b28599a90 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 15412
diff changeset
  9128
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9129
                    codeView contents:(s contents).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9130
                    ex return.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9131
                ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9132
                do:[ self doShowSelection:lineNr ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9133
        ]
11610
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  9134
356cfb510fd0 changed:12 methods
Claus Gittinger <cg@exept.de>
parents: 11604
diff changeset
  9135
    "Modified: / 19-07-2012 / 10:56:58 / cg"
1327
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  9136
!
c06a0c578e30 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1319
diff changeset
  9137
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  9138
showStackInspectorFor:con
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9139
    stackInspector isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9140
        receiverInspector origin:(0.0 @ 0.0) corner:0.3 @ 1.0.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9141
        contextInspector origin:(0.3 @ 0.0) corner:(0.6 @ 1.0).
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9142
        stackInspector := InspectorView
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9143
                    origin:(0.6 @ 0.0)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9144
                    corner:(1.0 @ 1.0)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9145
                    in:contextInspector superView.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9146
        stackInspector realize.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9147
        stackInspector fieldListLabel:'Stack'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9148
        stackInspector hideReceiver:true
4932
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9149
    ].
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9150
    stackInspector inspect:(con stackFrame asArray).
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9151
    stackInspector showLast
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9152
!
0758cd0b8ce9 show source of blocks if possible
Claus Gittinger <cg@exept.de>
parents: 4892
diff changeset
  9153
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9154
updateContextInfoFor:aContext
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9155
    "additional info as-per selected context;
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9156
     for now:
15656
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9157
        update:with:from: - show who was responsible
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9158
    "
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9159
12552
1b3bb88d6f44 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12551
diff changeset
  9160
    |whatChanged changedObject receiver|
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9161
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9162
    aContext selector == #'update:with:from:' ifTrue:[
15656
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9163
        receiver := aContext receiver.
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9164
        whatChanged := aContext argAt:1.
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9165
        changedObject := aContext argAt:3.
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9166
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9167
        changedObject isBehavior ifTrue:[
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9168
            contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject name allBold).
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9169
            ^ self
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9170
        ].
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9171
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9172
        receiver class allInstanceVariableNames keysAndValuesDo:[:i :nm |
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9173
            |val|
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9174
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9175
            IsDebuggingQuery answer:true do:[    
17126
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9176
                val := receiver instVarAt:i.
15656
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9177
            ].
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9178
            val == changedObject ifTrue:[
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9179
                contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',nm allBold).
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9180
                ^ self
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9181
            ]
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9182
        ].
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9183
17126
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9184
        (receiver isProtoObject not and:[receiver isKindOf:ApplicationModel]) ifTrue:[
15656
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9185
            receiver builder notNil ifTrue:[
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9186
                (receiver builder bindings ? #()) keysAndValuesDo:[:eachAspect :eachValue |
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9187
                    eachValue == changedObject ifTrue:[
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9188
                        contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by aspect ',eachAspect allBold).
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9189
                        ^ self
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9190
                    ]
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9191
                ]
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9192
            ]
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9193
        ].
8df723e008c6 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15497
diff changeset
  9194
17126
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9195
        "do not use classNameWithArticle - it is missing in ProtoObject!!"
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9196
        contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject class nameWithArticle allBold).
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9197
        ^ self.
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9198
    ].
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9199
    contextInfoLabel label:nil.
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9200
!
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9201
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  9202
updateForContext:lineNr
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  9203
    "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
  9204
     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
  9205
56
d0cb937cbcaa *** empty log message ***
claus
parents: 55
diff changeset
  9206
    |con homeContext sel method code canAccept
105
claus
parents: 101
diff changeset
  9207
     implementorClass lineNrInMethod rec m line
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  9208
     sender selSender tryVars possibleBlocks errMsg
3269
9566fbc92617 some refactoring;
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
  9209
     codeSet highlighter evaluatorClass
11912
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  9210
     canDefine callee searchClass originalMethod cannotAcceptDueToOutdatedClass|
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  9211
9bcd2727c37e changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 11911
diff changeset
  9212
    canDefine := cannotAcceptDueToOutdatedClass := false.
8212
51f9ecb52ae8 flyByHelp in codeView
Claus Gittinger <cg@exept.de>
parents: 8194
diff changeset
  9213
    self setCurrentMethod:nil.
1804
dcb4f893ce7d remember current method - only ask for modification
Claus Gittinger <cg@exept.de>
parents: 1776
diff changeset
  9214
1309
f13dd58a3943 dont break if MessageTracer is not present
Claus Gittinger <cg@exept.de>
parents: 1302
diff changeset
  9215
    contextArray notNil ifTrue:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9216
        lineNr <= contextArray size ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9217
            con := contextArray at:lineNr.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9218
            callee := contextArray at:lineNr-1 ifAbsent:nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9219
        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9220
        "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9221
         clicking on the '** ...'-line shows more ...
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9222
        "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9223
        con isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9224
            line := contextView list at:lineNr.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9225
            (line startsWith:'**') ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9226
                self showMore.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9227
                lineNr >= contextArray size ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9228
                    contextView setSelection:lineNr.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9229
                    con := contextArray at:lineNr ifAbsent:nil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9230
                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9231
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9232
            con isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9233
                codeView contents:nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9234
                ^ self
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9235
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9236
        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9237
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9238
        selectedContext := con.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9239
        m := contextView middleButtonMenu.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9240
        (m notNil and:[selectedContext notNil]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9241
            m enableAll:#(browseImplementors browseSenders inspectContext)
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9242
        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9243
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9244
        self withExecuteCursorDo:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9245
            codeSet := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9246
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9247
            "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9248
             give it to the (lower right) inspector
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9249
            "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9250
            Error handle:[:ex |
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9251
                'DebugView [warning]: error while accessing context: ' errorPrint.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9252
                ex description errorPrintCR.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9253
                contextInspector inspect:nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9254
                contextInspector fieldListLabel:('Context').
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9255
                ex suspendedContext fullPrintAllOn: Transcript.
9479
7364779433be changed: #updateForContext:
Claus Gittinger <cg@exept.de>
parents: 9446
diff changeset
  9256
"/ ex reject.
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9257
            ] do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9258
                contextInspector inspect:con.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9259
                "/ contextInspector fieldListLabel:('Context: ',con method whoString).
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9260
                contextInspector tryToSelectKeyNamed:lastSelectionInContextInspector.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9261
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9262
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9263
            "/ show a stack inspector sometimes
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9264
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9265
            con hasStackToShow ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9266
                self showStackInspectorFor:con
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9267
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9268
                self hideStackInspector
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9269
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9270
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9271
            homeContext := con methodHome.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9272
            con canReturn ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9273
                returnButton enable. restartButton enable.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9274
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9275
                returnButton disable. restartButton disable.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9276
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9277
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9278
            lineNrInMethod := con lineNumber.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9279
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9280
            canAccept := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9281
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9282
            homeContext isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9283
                "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9284
                 mhmh - an optimized block
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9285
                 should get the block here, and get the method from
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9286
                 that one ...
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9287
                 But in the current version, there is no easy way to get to the block
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9288
                 since that one is not in the context.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9289
                 A future new block calling scheme will fix this
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9290
                 (passing the block instead of the home as block argument).
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9291
                "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9292
                (method := con method) isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9293
                    "temporary kludge - peek into the sender context.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9294
                     If its a do-like method and there is a single block variable
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9295
                     in the args or temporaries, that must be the one.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9296
                     This helps in some cases.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9297
                    "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9298
                    (sender := con sender) notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9299
                        tryVars := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9300
                        (selSender := sender selector) notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9301
                            ((selSender endsWith:'do:') or:[selSender endsWith:'Do:']) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9302
                                tryVars := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9303
                            ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9304
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9305
                        tryVars ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9306
                            possibleBlocks := sender argsAndVars select:[:v | v isBlock].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9307
                            possibleBlocks := possibleBlocks select:[:b | b home isNil].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9308
                            possibleBlocks size == 1 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9309
                                method := possibleBlocks first method.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9310
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9311
                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9312
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9313
                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9314
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9315
                "fetch rec here - so we won't need context in doItAction"
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9316
                rec := homeContext receiver.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9317
                sel := homeContext selector.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9318
                sel notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9319
                    canAccept := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9320
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9321
                    implementorClass := homeContext methodClass.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9322
                    implementorClass isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9323
                        homeContext method notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9324
                            WrappedMethod allInstancesDo:[:wrapped |
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9325
                                wrapped originalMethod == homeContext method ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9326
                                    implementorClass := wrapped mclass
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9327
                                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9328
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9329
                            implementorClass isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9330
                                (homeContext searchClass notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9331
                                and:[homeContext searchClass isObsolete]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9332
                                    cannotAcceptDueToOutdatedClass := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9333
                                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9334
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9335
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9336
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9337
                    implementorClass isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9338
                        Error handle:[:ex |
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9339
"/ not covered by Error, anyway
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9340
"/                            ex signal == BreakPointInterrupt ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9341
"/                                ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9342
"/                            ].
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9343
                            code := 'error while asking method for its source'.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9344
                            code := code , Character cr , ex creator printString.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9345
                            code := code , Character cr , 'in: ' , ex suspendedContext printString.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9346
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9347
                            canAccept := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9348
                            ex return.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9349
                        ] do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9350
                            "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9351
                             special: look if this context was created by
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9352
                             valueWithReceiver kind of method invocation;
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9353
                             if so, grab the method from the sender and show it
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9354
                            "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9355
                            ((sender := homeContext sender) notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9356
                            and:[((sender selector ? '') startsWith:'valueWithReceiver:')
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9357
                            and:[sender receiver isMethod]]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9358
                                method := sender receiver.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9359
                                canAccept := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9360
                            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9361
                                (method := con method) notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9362
                                    canAccept := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9363
                                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9364
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9365
                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9366
                    ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9367
                        method := implementorClass compiledMethodAt:sel.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9368
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9369
                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9370
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9371
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9372
            homeContext notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9373
                searchClass := homeContext searchClass ? rec class.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9374
                currentMethod := searchClass lookupMethodFor:sel.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9375
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9376
            originalMethod := currentMethod.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9377
            (currentMethod notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9378
                and:[currentMethod ~~ method
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9379
                and:[ (currentMethod isWrapped and:[ method == currentMethod originalMethod]) not ]]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9380
            ) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9381
                originalMethod := method.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9382
                methodCodeToggleSelectionHolder value = 1 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9383
                    method := originalMethod.   "/ the one which is suspended / was executing
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9384
                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9385
                    method := currentMethod.    "/ the one which has already been accepted/modified.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9386
                    lineNrInMethod := nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9387
                    canAccept := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9388
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9389
                methodCodeToggle beVisible.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9390
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9391
                methodCodeToggle beInvisible.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9392
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9393
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9394
            code isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9395
                errMsg := nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9396
                method isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9397
                    "/ fall back heuristics (see how this was called, fetch block from caller)
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9398
                    sender := con sender.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9399
                    con isBlockContext ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9400
                        (sender notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9401
                        and:[((sender selector ? '') startsWith:'value')
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9402
                        and:[sender receiver isBlock]]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9403
                            code := sender receiver source.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9404
                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9405
                    ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9406
                        (sender notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9407
                        and:[((sender selector ? '') startsWith:'valueWith')
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9408
                        and:[sender receiver isMethod]]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9409
                            method := sender receiver.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9410
                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9411
                    ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9412
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9413
                method notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9414
                    contextInspector fieldListLabel:(method selector "whoString").
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9415
                    Error handle:[:ex |
11890
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9416
"/ not covered by Error, anyway
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9417
"/                        ex signal isControlInterrupt ifTrue:[
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9418
"/                            ex proceed.
16c5daa5083a added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11887
diff changeset
  9419
"/                        ].
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9420
                        code := 'error while asking method for its source'.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9421
                        code := code , Character cr , ex creator printString.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9422
                        code := code , Character cr , 'in: ' , ex suspendedContext printString.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9423
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9424
                        canAccept := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9425
                        ex return.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9426
                    ] do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9427
                        self sensor shiftDown ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9428
                            code := method decompiledSource
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9429
                        ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9430
                            code := method source.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9431
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9432
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9433
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9434
                    code isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9435
                        method sourceFilename notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9436
                            codeView contents:(resources
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9437
                                                       string:'** no sourcefile: %1 **'
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9438
                                                       with:method sourceFilename).
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9439
                            codeView realized ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9440
                                "codeView is not realized on initial startup"
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9441
                                codeView flash:'no source'.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9442
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9443
                            codeSet := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9444
                        ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9445
                            [
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9446
                                |src|
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9447
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9448
                                src := String streamContents:[:s | Decompiler decompile:method to:s].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9449
                                codeView contents:src.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9450
                                codeSet := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9451
                            ] on: Error do:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9452
                                errMsg := '** no source **'
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9453
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9454
                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9455
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9456
                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9457
                    contextInspector fieldListLabel:'Context'.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9458
                    homeContext isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9459
                        errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9460
                    ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9461
                        errMsg := '** no method - no source **'.
16800
95c770ac8fd6 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16750
diff changeset
  9462
                        canDefine := true.
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9463
                    ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9464
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9465
                errMsg notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9466
                   self showError:errMsg.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9467
                   codeSet := true.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9468
                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9469
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9470
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9471
            code isNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9472
                "/ canAccept := false.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9473
                codeSet ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9474
                    codeView contents:nil.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9475
                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9476
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9477
                lineNrInMethod notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9478
                    lineNrInMethod == 0 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9479
                        (method notNil and:[method isJavaMethod]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9480
                            lineNrInMethod := method lineNumber
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9481
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9482
                        "/ guess lineNumber from sent-messages selector
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9483
                        "/ kludge to fix lineNr-display of shared subclassResponsibility methods.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9484
                        lineNrInMethod == 0 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9485
                            |conIdx sentContext messages|
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9486
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9487
                            conIdx := contextArray identityIndexOf:con.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9488
                            conIdx > 1 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9489
                                sentContext := contextArray at:conIdx-1.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9490
                                sentContext isBlockContext ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9491
                                    (method notNil and:[code notNil]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9492
                                        messages := method messagesSent.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9493
                                        messages size == 1 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9494
                                            sentContext selector == messages first ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9495
                                                lineNrInMethod := code asStringCollection findFirst:[:l | l includesString:sentContext selector].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9496
                                            ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9497
                                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9498
                                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9499
                                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9500
                            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9501
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9502
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9503
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9504
                codeView isCodeView2 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9505
                    codeView model
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9506
                        setValue: code;
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9507
                        changed.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9508
                    codeView methodHolder value: method.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9509
                    codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class])
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9510
                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9511
                    UserPreferences current syntaxColoring ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9512
                        implementorClass isNil ifTrue:[
16933
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  9513
                            |guessedHome|
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9514
                            (con isBlockContext
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9515
                            and:[con home isNil
16933
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  9516
                            and:[(guessedHome := con guessedHome) notNil]])
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9517
                            ifTrue:[
16933
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  9518
                                implementorClass := guessedHome mclass
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9519
                            ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9520
                        ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9521
                        implementorClass notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9522
                            (highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9523
                                code size < 100000 ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9524
                                    Error catch:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9525
                                        code := highlighter formatMethodSource:code in:implementorClass.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9526
                                    ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9527
                                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9528
                            ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9529
                        ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9530
                    ].
1555
756ab2711237 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1537
diff changeset
  9531
6178
2944e95c6eda faster updateFromContext (avoid Text)
Claus Gittinger <cg@exept.de>
parents: 6172
diff changeset
  9532
"/                code ~= (codeView contents) ifTrue:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9533
                    cannotAcceptDueToOutdatedClass ifTrue:[
16501
c0c0c5382c15 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16434
diff changeset
  9534
                        codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' withColor:Color red),Character cr,Character cr,code asString).
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9535
                    ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9536
                        codeView setContents:code.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9537
                    ].
6178
2944e95c6eda faster updateFromContext (avoid Text)
Claus Gittinger <cg@exept.de>
parents: 6172
diff changeset
  9538
"/                ].
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9539
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9540
                (lineNrInMethod notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9541
                and:[lineNrInMethod ~~ 0
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9542
                and:[lineNrInMethod <= codeView list size]]) ifTrue:[
7000
3302ab5a819e cleanup
Claus Gittinger <cg@exept.de>
parents: 6971
diff changeset
  9543
lineNrInMethod == 255 ifFalse:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9544
                    (lineNrInMethod == 255
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9545
                    and:[method notNil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9546
                    and:[method hasCode not]]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9547
                        "/ means: do not really know in interpreted methods
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9548
                        codeView selectFromLine:255 col:1 toLine:codeView list size + 1 col:0.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9549
                    ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9550
                        codeView selectLine:lineNrInMethod.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9551
                    ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9552
                    codeView makeSelectionVisible
7000
3302ab5a819e cleanup
Claus Gittinger <cg@exept.de>
parents: 6971
diff changeset
  9553
].
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9554
                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9555
                    codeView unselect.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9556
                    codeView scrollToTop
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9557
                ]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9558
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9559
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9560
            codeView acceptEnabled:canAccept.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9561
            canAccept ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9562
                codeView acceptAction:[:code | self codeAccept:code asString]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9563
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9564
                codeView acceptAction:[:code | self beep]
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9565
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9566
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9567
            receiverInspector inspect:rec.
17126
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9568
            "do not use classNameWithArticle - it is missing in ProtoObject!!"
721da4817f3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17122
diff changeset
  9569
            receiverInspector fieldListLabel:("'Receiver: ',"rec class nameWithArticle).
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9570
            receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9571
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9572
            "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9573
             the one below is wrong: currently, the
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9574
             evaluator cannot handle passed contexts.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9575
             Once it does, pass con as in:-arg
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9576
            "
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9577
            (rec isJavaObject
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9578
            and:[method isNil or:[method isJavaMethod not]]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9579
                "/ although a java object, use the smalltalk parser here for doIts.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9580
                evaluatorClass := Parser.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9581
                codeView commentStrings:#( '//' ( '/*' '*/' ) ).
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9582
            ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9583
                (method notNil and:[method mclass notNil]) ifTrue:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9584
                    evaluatorClass := method mclass evaluatorClass.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9585
                    codeView commentStrings:method mclass programmingLanguage commentStrings.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9586
                ] ifFalse:[
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9587
                    evaluatorClass := rec class evaluatorClass.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9588
                    codeView commentStrings:rec class programmingLanguage commentStrings.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9589
                ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9590
            ].
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9591
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9592
            codeView
16933
fddff2620ed7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16860
diff changeset
  9593
                simulatedSelf:rec;
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9594
                doItAction:
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9595
                    [:theCode |
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9596
                         evaluatorClass
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9597
                             evaluate:theCode
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9598
                             in:actualContext "/ (selectedContext ? actualContext)
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9599
                             receiver:rec
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9600
                             notifying:codeView
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9601
                             logged:true
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9602
                             ifFail:nil
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9603
                    ];
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9604
                editedMethodOrClass:(method ? rec class).
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9605
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9606
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9607
            self setCurrentMethod:method.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9608
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9609
            selectedContext := homeContext ? con.
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9610
            actualContext := con
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9611
        ].
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9612
    ] ifFalse:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9613
        codeView contents:nil.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9614
    ].
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9615
    codeView modified:false.
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9616
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9617
    con isContext ifFalse:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9618
        sendButton disable.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9619
    ] ifTrue:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9620
        sendButton enable.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  9621
    ].
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9622
    self updateContextInfoFor:con.
10205
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  9623
Claus Gittinger <cg@exept.de>
parents: 10203
diff changeset
  9624
    "clear out locals to prevent keeping around unneeded contexts
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9625
     (due to the block held in codeView).
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9626
     (not really needed, since stuff gets collected away sooner or later ...
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9627
      ... but this makes it a bit sooner)
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9628
    "
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9629
    con := nil.
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9630
    homeContext := nil.
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9631
13488
82ef098c106e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 13464
diff changeset
  9632
    (canDefine or:[self canDefineForCallee:callee]) ifTrue:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9633
        defineButton beVisible.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9634
    ] ifFalse:[
16430
973b534176ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16422
diff changeset
  9635
        defineButton beInvisible.
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9636
    ].
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9637
12529
2fae1a014b9e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12437
diff changeset
  9638
    "/ enable/disable some menu items
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9639
    self updateMenuItems
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9640
6849
e95621a873be try to decompile if no source
Claus Gittinger <cg@exept.de>
parents: 6821
diff changeset
  9641
    "Created: / 14-08-1997 / 20:15:00 / cg"
10752
77650773a9ea Fixed class holder for CodeView2
vrany
parents: 10649
diff changeset
  9642
    "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
  9643
    "Modified: / 28-08-2013 / 15:13:02 / cg"
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9644
! !
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9645
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9646
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'accessing'!
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9647
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9648
ignoreCount:something
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9649
    ignoreCount := something.
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9650
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9651
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9652
ignoreEndTime:something
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9653
    ignoreEndTime := something.
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9654
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9655
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9656
ignoreForProcess:aProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9657
    ignoredProcesses isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9658
        ignoredProcesses := WeakIdentitySet new.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9659
    ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9660
    ignoredProcesses add:aProcess
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9661
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9662
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9663
ignoreForReceiverClass:aClass
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9664
    ignoredReceiverClasses isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9665
        ignoredReceiverClasses := WeakIdentitySet new.
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9666
    ].
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9667
    ignoredReceiverClasses add:aClass
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9668
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9669
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9670
ignoreIfCalledFromMethod:aMethod
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9671
    ignoredSendingClassAndSelectors isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9672
         ignoredSendingClassAndSelectors := OrderedCollection new.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9673
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9674
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9675
    "/ remember the method's name, not the method.
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9676
    "/ so it can be recompiled and we still detect ignores
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9677
    ignoredSendingClassAndSelectors add:{aMethod mclass name . aMethod selector }
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9678
!
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9679
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  9680
ignoreUntilShiftKeyPressed:aBoolean
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  9681
    ignoreUntilShiftKeyPressed := aBoolean.
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  9682
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  9683
    "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
  9684
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9685
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9686
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9687
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9688
decrementIgnoreCount
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9689
    ignoreCount notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9690
        ignoreCount > 0 ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9691
            ignoreCount := ignoreCount - 1
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9692
        ]
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9693
    ]
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9694
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9695
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9696
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9697
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9698
printConditionOn:aStream
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9699
    ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
17726
8fa4c8c36964 Issue #169: Normalized symbolic action names introduced in previous commit
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17725
diff changeset
  9700
        aStream nextPutAll:(' if called from %1  %2'
16535
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9701
                                bindWith:ignoredSendingClassAndSelectors first first
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9702
                                with:ignoredSendingClassAndSelectors first second).
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9703
        ^ self.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9704
    ].
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9705
    ignoredProcesses notEmptyOrNil ifTrue:[
16535
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9706
        aStream nextPutAll:(' in %1 processes (%2)'
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9707
                                bindWith:ignoredProcesses size
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9708
                                with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9709
        ^ self.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9710
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9711
    ignoredReceiverClasses notNil ifTrue:[
16535
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9712
        aStream nextPutAll:(' for %1 classes (%2)'
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9713
                            bindWith:ignoredReceiverClasses size
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9714
                            with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9715
        ^ self.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9716
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9717
    ignoreUntilShiftKeyPressed == true ifTrue:[
16535
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9718
        aStream nextPutAll:' until shiftKey pressed'.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9719
        ^ self.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9720
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9721
    ignoreEndTime notNil ifTrue:[
16535
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9722
        aStream nextPutAll:' until '.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9723
        ignoreEndTime printOn:aStream.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9724
        ^ self.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9725
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9726
    (ignoreCount notNil) ifTrue:[
16535
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9727
        (ignoreCount > 0) ifTrue:[
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9728
            aStream nextPutAll:' for '.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9729
            ignoreCount printOn:aStream.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9730
            ^ self.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9731
        ].
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9732
        (ignoreCount < 0) ifTrue:[
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9733
            aStream nextPutAll:' forEver'.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9734
            ^ self.
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9735
        ].
71fe67678cae #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16501
diff changeset
  9736
        aStream nextPutAll:' no longer'.
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9737
    ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9738
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9739
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9740
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9741
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9742
haltIgnoredInfoString
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9743
    "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
  9744
     nil if not ignored"
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9745
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9746
    ^ String streamContents:[:s |
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9747
        s nextPutAll:'ignored '.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9748
        self printConditionOn:s
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9749
    ].
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9750
13764
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9751
"/    ignoreCount notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9752
"/        ignoreCount > 0 ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9753
"/            ^ '%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
  9754
"/        ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9755
"/        ^ nil
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9756
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9757
"/    ignoreEndTime notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9758
"/        (ignoreEndTime > Timestamp now) ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9759
"/            ^ 'ignored until %1' bindWith:ignoreEndTime
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9760
"/        ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9761
"/        ^ nil
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9762
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9763
"/    ignoreUntilShiftKeyPressed == true ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9764
"/        Screen current shiftDown ifFalse:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9765
"/            ^ 'ignored until shiftKey is pressed'
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9766
"/        ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9767
"/        ^ nil
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9768
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9769
"/    ignoredProcesses notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9770
"/        ^ 'ignored in some processes'
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9771
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9772
"/    ignoredReceiverClasses notNil ifTrue:[
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9773
"/        ^ 'ignored for some receiver classes'
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9774
"/    ].
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9775
"/
225df800cafd Replace references to Diplay with "Screen current" - where appropriate
Stefan Vogel <sv@exept.de>
parents: 13666
diff changeset
  9776
"/    ^ 'ignored until reenabled'
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9777
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9778
    "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
  9779
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9780
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9781
isActive
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9782
    "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
  9783
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9784
    ignoreEndTime notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9785
        ^ ignoreEndTime > Timestamp now
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9786
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9787
    ignoreCount notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9788
        ^ ignoreCount == -1 or:[ ignoreCount > 0 ]
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  9789
    ].
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9790
    ignoredProcesses notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9791
        ignoredProcesses := ignoredProcesses reject:[:p | p notNil and:[p isDead]].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9792
        ignoredProcesses isEmpty ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9793
            ignoredProcesses := nil.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9794
            ^ false
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9795
        ].
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9796
    ].
12562
e05279313989 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12555
diff changeset
  9797
    ^ true
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9798
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9799
    "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
  9800
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9801
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9802
isForBreakpointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9803
    ^ false
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9804
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9805
    "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
  9806
    "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
  9807
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9808
11367
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9809
isForBreakpointWithParameter:paramArg
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9810
    ^ false
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9811
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9812
    "Modified: / 27-01-2012 / 11:36:01 / cg"
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9813
    "Created: / 06-03-2012 / 14:36:28 / cg"
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9814
!
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9815
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9816
isHaltIgnored
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9817
    "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
  9818
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9819
    ignoreUntilShiftKeyPressed == true ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9820
        ^ Screen current shiftDown not
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9821
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9822
    ignoreCount notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9823
        ^ ignoreCount > 0
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9824
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9825
    ignoreEndTime notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9826
        ^ ignoreEndTime > Timestamp now
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9827
    ].
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9828
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9829
    ^ true
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9830
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9831
    "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
  9832
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9833
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9834
!DebugView::IgnoredHalt methodsFor:'accessing'!
11210
83e08cc8ce48 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 11209
diff changeset
  9835
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9836
method
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9837
    |m|
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9838
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9839
    weakMethodHolder == #all ifTrue:[^ weakMethodHolder ].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9840
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9841
    m := weakMethodHolder at:1.
9796
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9842
"/ 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
  9843
"/
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9844
"/    m notNil ifTrue:[
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9845
"/        m mclass isNil ifTrue:[
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9846
"/            "/ no longer valid
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9847
"/            weakMethodHolder at:1 put:nil.
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9848
"/            ^ nil
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9849
"/        ].
f806d9db4e94 ignoring halts changed
Claus Gittinger <cg@exept.de>
parents: 9750
diff changeset
  9850
"/    ].
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  9851
    ^ m
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  9852
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9853
    "Modified: / 08-05-2011 / 10:28:10 / cg"
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9854
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9855
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9856
method:methodArg lineNumber:lineNumberArg
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  9857
    "/ self assert:(methodArg mclass notNil).
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9858
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9859
    methodArg == #all ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9860
        weakMethodHolder := methodArg
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9861
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9862
        weakMethodHolder := WeakArray with:methodArg.
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9863
    ].
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9864
    lineNumber := lineNumberArg.
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  9865
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9866
    "Modified: / 08-05-2011 / 10:28:41 / cg"
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9867
! !
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9868
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9869
!DebugView::IgnoredHalt methodsFor:'printing'!
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9870
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9871
printOn:aStream
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9872
    |method|
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9873
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9874
    (method := self method) isNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9875
        aStream nextPutAll:'an obsolete IgnoredHalt'.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9876
        ^ self
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9877
    ].
9590
41587c52f59c fixed ignoring halts for breakPoints
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
  9878
9093
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9879
    aStream nextPutAll:'Ignore '.
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  9880
    method isSymbol ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9881
        method printOn:aStream.
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  9882
    ] ifFalse:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9883
        method whoString printOn:aStream.
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  9884
    ].
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9885
    self printConditionOn:aStream.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9886
11704
36941d3a2a03 changed: #codeAspect
Claus Gittinger <cg@exept.de>
parents: 11697
diff changeset
  9887
    "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
  9888
! !
afeec57f277e generate a change notification when ignore-halts changes
Claus Gittinger <cg@exept.de>
parents: 9078
diff changeset
  9889
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9890
!DebugView::IgnoredHalt methodsFor:'queries'!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9891
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9892
isActive
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9893
    "true if this ignore-entry is still active"
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9894
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9895
    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
  9896
    ^ super isActive
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9897
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9898
    "Modified: / 06-03-2012 / 12:40:20 / cg"
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9899
!
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9900
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9901
isForMethod:aMethod line:line
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9902
    "/ check in this order - method has a flushing side-effect, which is useful here...
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9903
    weakMethodHolder == #all ifTrue:[^ true].
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9904
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9905
    ^ (aMethod = self method) and:[ line = lineNumber ].
9922
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9906
Claus Gittinger <cg@exept.de>
parents: 9796
diff changeset
  9907
    "Modified: / 08-05-2011 / 10:27:31 / cg"
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9908
!
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9909
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9910
isHaltIgnoredInMethod:aMethod line:line
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9911
    ^ self isHaltIgnoredInMethod:aMethod line:line context:nil
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9912
!
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9913
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9914
isHaltIgnoredInMethod:aMethod line:line context:context
9095
68d06ebf349b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9094
diff changeset
  9915
    "/ 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
  9916
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9917
"/    Transcript showCR:'-----------------------------'.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9918
"/    Transcript showCR:aMethod.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9919
"/    Transcript showCR:line.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9920
"/    Transcript showCR:context.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9921
9094
51cf41fd65a2 added: #removeInactiveIgnores
Claus Gittinger <cg@exept.de>
parents: 9093
diff changeset
  9922
    (self isForMethod:aMethod line:line) ifFalse:[^ false].
9095
68d06ebf349b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9094
diff changeset
  9923
    "/ Transcript show:'is same; ignored: '; showCR:self isHaltIgnored.
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9924
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9925
    context notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9926
        ignoredReceiverClasses notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9927
            ^ ignoredReceiverClasses includes:(context receiver class)
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9928
        ].
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9929
    ].
13059
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9930
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9931
"/    Transcript showCR:ignoredProcesses.
8542618fd970 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12977
diff changeset
  9932
"/    Transcript showCR:Processor activeProcess.
12941
9605021cbfb8 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12937
diff changeset
  9933
    ignoredProcesses notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9934
        ^ ignoredProcesses includes:(Processor activeProcess)
12937
cf8330cc265e class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12929
diff changeset
  9935
    ].
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9936
    ignoredSendingClassAndSelectors notNil ifTrue:[
17185
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9937
        context withAllSendersDo:[:each |
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9938
            |m className selector cls|
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9939
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9940
            (m := each method) notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9941
                cls := m mclass.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9942
                cls notNil ifTrue:[
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9943
                    className := cls name.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9944
                    selector := m selector.
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9945
                    (ignoredSendingClassAndSelectors contains:[:entry | entry first = className and:[entry second = selector]])
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9946
                        ifTrue:[^ true].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9947
                ].
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9948
            ]
043fb3552c44 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17181
diff changeset
  9949
        ]
14608
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9950
    ].
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9951
948821582e7f class: DebugView
Claus Gittinger <cg@exept.de>
parents: 14559
diff changeset
  9952
    ^ self isHaltIgnored  "/ unconditionally
8170
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9953
! !
f958ad430417 halt ignore
Claus Gittinger <cg@exept.de>
parents: 8161
diff changeset
  9954
11366
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9955
!DebugView::IgnoredBreakpoint methodsFor:'accessing'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9956
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9957
parameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9958
    ^ parameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9959
!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9960
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9961
parameter:something
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9962
    parameter := something.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9963
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9964
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9965
!DebugView::IgnoredBreakpoint methodsFor:'printing'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9966
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9967
printOn:aStream
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9968
    aStream nextPutAll:'Ignore breakpoint:#', parameter.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9969
    self printConditionOn:aStream.
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9970
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9971
    "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
  9972
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9973
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9974
!DebugView::IgnoredBreakpoint methodsFor:'queries'!
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9975
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9976
isForBreakpointWithParameter
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9977
    ^ true
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9978
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9979
    "Created: / 06-03-2012 / 12:54:35 / cg"
11367
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9980
!
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9981
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9982
isForBreakpointWithParameter:paramArg
15730
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
  9983
Transcript showCR:parameter.
11367
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9984
    ^ paramArg = parameter
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9985
bd0402b6421a changed: #isBreakpointToBeIgnoredForParameter:modifyEntryCount:
Claus Gittinger <cg@exept.de>
parents: 11366
diff changeset
  9986
    "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
  9987
! !
d57e42f65841 allow for code breakpoints (breakpoint:#param) to
Claus Gittinger <cg@exept.de>
parents: 11364
diff changeset
  9988
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9989
!DebugView class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  9990
11304
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  9991
version
15730
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
  9992
    ^ '$Header$'
11304
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  9993
!
d142697b6c1e changed: #browseImplementingClass
Claus Gittinger <cg@exept.de>
parents: 11303
diff changeset
  9994
8952
7742c63ff6f5 catch halts in: #showSelection:
Claus Gittinger <cg@exept.de>
parents: 8745
diff changeset
  9995
version_CVS
15730
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
  9996
    ^ '$Header$'
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  9997
!
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
  9998
15950
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15859
diff changeset
  9999
version_HG
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15859
diff changeset
 10000
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15859
diff changeset
 10001
    ^ '$Changeset: <not expanded> $'
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15859
diff changeset
 10002
!
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15859
diff changeset
 10003
10628
Claus Gittinger <cg@exept.de>
parents: 10289
diff changeset
 10004
version_SVN
15730
a2f192fe544c class: DebugView
Claus Gittinger <cg@exept.de>
parents: 15656
diff changeset
 10005
    ^ '$Id$'
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
 10006
! !
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
 10007
12106
0dd284890b62 class: DebugView
Claus Gittinger <cg@exept.de>
parents: 12080
diff changeset
 10008
4122
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
 10009
DebugView initialize!