equal
deleted
inserted
replaced
19 |
19 |
20 ExecutableFunction comment:' |
20 ExecutableFunction comment:' |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.8 1995-02-15 10:21:51 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.9 1995-03-08 23:38:07 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !ExecutableFunction class methodsFor:'documentation'! |
27 !ExecutableFunction class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.8 1995-02-15 10:21:51 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.9 1995-03-08 23:38:07 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
80 |
80 |
81 !ExecutableFunction class methodsFor:'initialization'! |
81 !ExecutableFunction class methodsFor:'initialization'! |
82 |
82 |
83 initialize |
83 initialize |
84 InvalidCodeSignal isNil ifTrue:[ |
84 InvalidCodeSignal isNil ifTrue:[ |
85 Object initialize. |
85 ErrorSignal isNil ifTrue:[Object initialize]. |
86 |
86 |
87 ExecutionErrorSignal := ErrorSignal newSignalMayProceed:true. |
87 ExecutionErrorSignal := ErrorSignal newSignalMayProceed:true. |
88 ExecutionErrorSignal nameClass:self message:#executionErrorSignal. |
88 ExecutionErrorSignal nameClass:self message:#executionErrorSignal. |
89 ExecutionErrorSignal notifierString:'execution error'. |
89 ExecutionErrorSignal notifierString:'execution error'. |
90 |
90 |