equal
deleted
inserted
replaced
19 |
19 |
20 Block comment:' |
20 Block comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.32 1995-04-02 11:05:53 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.33 1995-04-11 14:48:25 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Block class methodsFor:'documentation'! |
27 !Block 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/Block.st,v 1.32 1995-04-02 11:05:53 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Block.st,v 1.33 1995-04-11 14:48:25 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
97 |
97 |
98 initialize |
98 initialize |
99 "setup the signals" |
99 "setup the signals" |
100 |
100 |
101 InvalidNewSignal isNil ifTrue:[ |
101 InvalidNewSignal isNil ifTrue:[ |
102 ErrorSignal isNil ifTrue:[Object initialize]. |
|
103 |
|
104 InvalidNewSignal := ErrorSignal newSignalMayProceed:false. |
102 InvalidNewSignal := ErrorSignal newSignalMayProceed:false. |
105 InvalidNewSignal nameClass:self message:#invalidNewSignal. |
103 InvalidNewSignal nameClass:self message:#invalidNewSignal. |
106 InvalidNewSignal notifierString:'blocks are only created by the system'. |
104 InvalidNewSignal notifierString:'blocks are only created by the system'. |
107 ] |
105 ] |
108 ! ! |
106 ! ! |