equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 ControlRequest subclass:#AbortAllOperationRequest |
14 ControlRequest subclass:#AbortAllOperationRequest |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'' |
16 classVariableNames:'' |
56 " |
55 " |
57 self initialize |
56 self initialize |
58 " |
57 " |
59 ! ! |
58 ! ! |
60 |
59 |
|
60 !AbortAllOperationRequest class methodsFor:'special handling'! |
|
61 |
|
62 handleAndAnswerQueryIn:aBlock |
|
63 "evaluate aBlock, and return immediately, if the AbortAllRequest is raised. |
|
64 Answer any query if AllOperationWanted with true." |
|
65 |
|
66 self handle:[:ex | |
|
67 ] do:[ |
|
68 AbortAllOperationWantedQuery |
|
69 answer:true |
|
70 do:aBlock |
|
71 ]. |
|
72 |
|
73 " |
|
74 AbortAllOperationRequest handleAndAnswerQueryIn:[ |
|
75 AbortAllOperationWantedQuery query ifTrue:[ |
|
76 self halt. |
|
77 AbortAllOperationRequest raise. |
|
78 ]. |
|
79 ]. |
|
80 " |
|
81 |
|
82 "Created: / 09-02-2011 / 13:58:01 / cg" |
|
83 ! ! |
|
84 |
61 !AbortAllOperationRequest class methodsFor:'documentation'! |
85 !AbortAllOperationRequest class methodsFor:'documentation'! |
62 |
86 |
63 version |
87 version |
64 ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.7 2005-01-11 17:04:55 stefan Exp $' |
88 ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011-02-09 12:59:00 cg Exp $' |
|
89 ! |
|
90 |
|
91 version_CVS |
|
92 ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011-02-09 12:59:00 cg Exp $' |
65 ! ! |
93 ! ! |
66 |
94 |
67 AbortAllOperationRequest initialize! |
95 AbortAllOperationRequest initialize! |