AbortOperationRequest.st
author Stefan Vogel <sv@exept.de>
Fri, 27 Oct 2017 16:14:37 +0200
branchexpecco_2_11_1_branch
changeset 22329 20662662693b
parent 8675 ceef81bb2d0c
child 17711 39faaaf888b4
child 22207 f8fd796bb5a3
permissions -rw-r--r--
Add 2.11.0 Patch
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
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    12
6202
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"{ Package: 'stx:libbasic' }"
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
8675
ceef81bb2d0c AbortOperationRequest is now a subclass (and child-Exception) of.
Stefan Vogel <sv@exept.de>
parents: 8325
diff changeset
    15
AbortAllOperationRequest subclass:#AbortOperationRequest
6202
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	instanceVariableNames:''
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	classVariableNames:''
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	poolDictionaries:''
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    19
	category:'Kernel-Exceptions-Control'
6202
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    22
!AbortOperationRequest class methodsFor:'documentation'!
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    23
7588
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    24
copyright
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    25
"
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    26
 COPYRIGHT (c) 2001 by eXept Software AG
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    27
              All Rights Reserved
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
 This software is furnished under a license and may be used
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    30
 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
    31
 inclusion of the above copyright notice.   This software may not
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    32
 be provided or otherwise made available to, or used by, any
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    33
 other person.  No title to or ownership of the software is
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    34
 hereby transferred.
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
!
1819a1c408f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6207
diff changeset
    37
6207
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    38
documentation
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    39
"
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    40
    Raised when the CTRL-y (abort operation) Key is pressed,
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    41
    or when the 'Abort'-button is pressed in the Debugger,
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    42
    or by many dialogs 'Cancel' key.
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    43
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    44
    If unhandled, this is a no-op,
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    45
    however, all windows catch this signal in their main event handling
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    46
    loop to allow for whatever operation is ongoing to be cancelled.
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    47
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    48
    Pressing CTRL-y has the same behavior as interrupting followed by pressing
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    49
    the debuggers 'Abort'-button.
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    50
"
b53b64413b40 caetgory change and documentation added
Claus Gittinger <cg@exept.de>
parents: 6202
diff changeset
    51
! !
6202
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
8325
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    53
!AbortOperationRequest class methodsFor:'initialization'!
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    54
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    55
initialize
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    56
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    57
    NotifierString := 'abort operation requested'.
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    58
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    59
    "
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    60
     self initialize
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    61
    "
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    62
! !
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    63
6202
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!AbortOperationRequest class methodsFor:'documentation'!
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
version
8675
ceef81bb2d0c AbortOperationRequest is now a subclass (and child-Exception) of.
Stefan Vogel <sv@exept.de>
parents: 8325
diff changeset
    67
    ^ '$Header: /cvs/stx/stx/libbasic/AbortOperationRequest.st,v 1.5 2005-01-11 17:04:57 stefan Exp $'
6202
019a88a45ad7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
! !
8325
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    69
ad394527946b Convert more instance based exceptions to class based exceptions
Stefan Vogel <sv@exept.de>
parents: 7588
diff changeset
    70
AbortOperationRequest initialize!