BreakPointInterrupt.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 20:55:17 +0200
changeset 24417 03b083548da2
parent 24195 fa45558557e9
permissions -rw-r--r--
#REFACTORING by exept class: Smalltalk class changed: #recursiveInstallAutoloadedClassesFrom:rememberIn:maxLevels:noAutoload:packageTop:showSplashInLevels: Transcript showCR:(... bindWith:...) -> Transcript showCR:... with:...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
     1
"{ Encoding: utf8 }"
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
     2
7588
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     3
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     4
 COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     5
              All Rights Reserved
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     6
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     7
 This software is furnished under a license and may be used
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     8
 only in accordance with the terms of that license and with the
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     9
 inclusion of the above copyright notice.   This software may not
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    10
 be provided or otherwise made available to, or used by, any
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    11
 other person.  No title to or ownership of the software is
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    12
 hereby transferred.
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    13
"
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    14
"{ Package: 'stx:libbasic' }"
7588
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    15
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    16
"{ NameSpace: Smalltalk }"
6038
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
HaltInterrupt subclass:#BreakPointInterrupt
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	instanceVariableNames:''
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	classVariableNames:''
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	poolDictionaries:''
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    22
	category:'Kernel-Exceptions-Control'
6038
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    25
!BreakPointInterrupt class methodsFor:'documentation'!
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    26
7588
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    27
copyright
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    28
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    29
 COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    30
              All Rights Reserved
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    31
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    32
 This software is furnished under a license and may be used
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    33
 only in accordance with the terms of that license and with the
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    34
 inclusion of the above copyright notice.   This software may not
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    35
 be provided or otherwise made available to, or used by, any
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    36
 other person.  No title to or ownership of the software is
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    37
 hereby transferred.
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    38
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    39
!
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    40
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    41
documentation
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    42
"
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    43
    Raised by the breakpoint wrapper code or by line breakpoints.
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    44
    A debug-breakpoint (see browser's methodList-debug menu).
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    45
"
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6038
diff changeset
    46
! !
6038
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    48
!BreakPointInterrupt methodsFor:'accessing'!
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    49
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    50
lineBreakpoint
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    51
    "for line breakpoints, a non-nil breakpoint object is returned,
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    52
     which can be enabled/disabled.
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    53
     For method breakpoints, nil is returned."
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    54
     
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    55
    ^ parameter
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    56
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    57
    "Created: / 27-05-2019 / 20:45:45 / Claus Gittinger"
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    58
! !
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    59
6038
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!BreakPointInterrupt class methodsFor:'documentation'!
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
version
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    63
    ^ '$Header$'
6038
c365981fc61e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
! !
24195
fa45558557e9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 7588
diff changeset
    65