UserInterrupt.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 16:28:42 +0100
branchjv
changeset 18759 c1217211909c
parent 18057 8da7c39a6322
permissions -rw-r--r--
Changed identification strings to contain jv-branch ...to make explicit that this distribution is not the official one used by eXept and therefore that eXept is not to be blamed in case of any problem.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7588
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     1
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     2
 COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     3
              All Rights Reserved
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     4
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     5
 This software is furnished under a license and may be used
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
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: 6207
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     8
 be provided or otherwise made available to, or used by, any
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
     9
 other person.  No title to or ownership of the software is
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    10
 hereby transferred.
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    11
"
5973
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
ControlInterrupt subclass:#UserInterrupt
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:''
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    18
	category:'Kernel-Exceptions-Control'
5973
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    21
!UserInterrupt class methodsFor:'documentation'!
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    22
7588
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    23
copyright
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    24
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    25
 COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    26
              All Rights Reserved
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    27
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    28
 This software is furnished under a license and may be used
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    29
 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
    30
 inclusion of the above copyright notice.   This software may not
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    31
 be provided or otherwise made available to, or used by, any
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    32
 other person.  No title to or ownership of the software is
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    33
 hereby transferred.
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    34
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    35
!
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    36
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    37
documentation
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    38
"
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    39
    Raised when the user presses the Interrupt-Key,
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    40
    which is CTRL-c on unix and BREAK on win32 systems.
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    41
"
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 5973
diff changeset
    42
! !
5973
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
15186
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    44
!UserInterrupt class methodsFor:'initialization'!
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    45
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    46
initialize
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    47
    NotifierString := 'user Interrupt'.
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    48
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    49
    "
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    50
     self initialize
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    51
    "
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    52
! !
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    53
5973
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
!UserInterrupt class methodsFor:'documentation'!
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
version
15186
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    57
    ^ '$Header: /cvs/stx/stx/libbasic/UserInterrupt.st,v 1.5 2013-04-27 10:10:20 cg Exp $'
5973
ebf220026e0a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
! !
15186
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    59
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    60
2458d8c990cc class: UserInterrupt
Claus Gittinger <cg@exept.de>
parents: 13753
diff changeset
    61
UserInterrupt initialize!