hg/stx-libbasic: ControlInterrupt.st@03b083548da2 (annotated)

7588 1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	1	"
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	2	COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	3	All Rights Reserved
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	4
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	5	This software is furnished under a license and may be used
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	6	only in accordance with the terms of that license and with the
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	7	inclusion of the above copyright notice. This software may not
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	8	be provided or otherwise made available to, or used by, any
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	9	other person. No title to or ownership of the software is
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	10	hereby transferred.
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11	"
5970 9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libbasic' }"
9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
19709 57e2c3f97d18 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	14	"{ NameSpace: Smalltalk }"
57e2c3f97d18 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	15
7630 fced37c5cccc Undo previous change form cg (on his request!). Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	16	GenericException subclass:#ControlInterrupt
5970 9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	instanceVariableNames:''
9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	classVariableNames:''
9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	poolDictionaries:''
6207 b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	20	category:'Kernel-Exceptions-Control'
5970 9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
6207 b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	23	!ControlInterrupt class methodsFor:'documentation'!
b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	24
7588 1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	25	copyright
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	26	"
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	27	COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	28	All Rights Reserved
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	29
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	30	This software is furnished under a license and may be used
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	31	only in accordance with the terms of that license and with the
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	32	inclusion of the above copyright notice. This software may not
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	33	be provided or otherwise made available to, or used by, any
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	34	other person. No title to or ownership of the software is
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	35	hereby transferred.
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	36	"
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	37	!
1819a1c408f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	38
6207 b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	39	documentation
b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	40	"
7232 1d05a293b8b0 comments Claus Gittinger <cg@exept.de> parents: 6207 diff changeset	41	Parent of all control-related interrupts (halt, breakpoint etc.)
19709 57e2c3f97d18 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	42
57e2c3f97d18 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	43	[author:]
57e2c3f97d18 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	44	Claus Gittinger
6207 b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	45	"
b53b64413b40 caetgory change and documentation added Claus Gittinger <cg@exept.de> parents: 6200 diff changeset	46	! !
5970 9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
15190 88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	48	!ControlInterrupt class methodsFor:'initialization'!
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	49
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	50	initialize
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	51	NotifierString := 'control interrupted'.
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	52
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	53	"
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	54	self initialize
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	55	"
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	56	! !
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	57
6200 65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	58	!ControlInterrupt class methodsFor:'testing'!
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	59
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	60	isControlInterrupt
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	61	^ true
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	62
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	63	"Created: / 16.11.2001 / 16:11:11 / cg"
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	64	! !
65f0631e5221 added #isControlInterrupt Claus Gittinger <cg@exept.de> parents: 5970 diff changeset	65
5970 9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	!ControlInterrupt class methodsFor:'documentation'!
9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67
9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	version
19709 57e2c3f97d18 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	69	^ '$Header$'
5970 9e695ff6b5b2 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	! !
15190 88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	71
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	72
88ce648f5e0b class: ControlInterrupt Claus Gittinger <cg@exept.de> parents: 7630 diff changeset	73	ControlInterrupt initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Jul 2019 20:55:17 +0200
changeset 24417	03b083548da2
parent 19709	57e2c3f97d18
child 19811	65fec19facb0
permissions	-rw-r--r--