equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
13 |
13 |
14 ControlInterrupt subclass:#HaltInterrupt |
14 ControlInterrupt subclass:#HaltInterrupt |
15 instanceVariableNames:'' |
15 instanceVariableNames: '' |
16 classVariableNames:'' |
16 classVariableNames: '' |
17 poolDictionaries:'' |
17 poolDictionaries: '' |
18 category:'Kernel-Exceptions-Control' |
18 category: 'Kernel-Exceptions-Control' |
19 ! |
19 ! |
20 |
20 |
21 !HaltInterrupt class methodsFor:'documentation'! |
21 !HaltInterrupt class methodsFor:'documentation'! |
22 |
22 |
23 copyright |
23 copyright |
39 Raised by the #halt methods. |
39 Raised by the #halt methods. |
40 A programmed debug-breakpoint. |
40 A programmed debug-breakpoint. |
41 " |
41 " |
42 ! ! |
42 ! ! |
43 |
43 |
|
44 |
|
45 !HaltInterrupt class methodsFor:'initialization'! |
|
46 |
|
47 initialize |
|
48 NotifierString := 'halt encountered'. |
|
49 |
|
50 " |
|
51 self initialize |
|
52 " |
|
53 ! ! |
|
54 |
|
55 |
44 !HaltInterrupt class methodsFor:'documentation'! |
56 !HaltInterrupt class methodsFor:'documentation'! |
45 |
57 |
46 version |
58 version |
47 ^ '$Header: /cvs/stx/stx/libbasic/HaltInterrupt.st,v 1.3 2003/08/29 19:18:06 cg Exp $' |
59 ^ '$Header: /cvs/stx/stx/libbasic/HaltInterrupt.st,v 1.4 2013-04-27 10:12:51 cg Exp $' |
48 ! |
60 ! |
49 |
61 |
50 version_SVN |
62 version_SVN |
51 ^ '$Id: HaltInterrupt.st 10761 2012-01-19 11:46:00Z vranyj1 $' |
63 ^ '$Id: HaltInterrupt.st 10761 2012-01-19 11:46:00Z vranyj1 $' |
52 ! ! |
64 ! ! |
53 |
65 |
54 |
66 |
55 |
67 HaltInterrupt initialize! |