equal
deleted
inserted
replaced
27 |
27 |
28 Object comment:' |
28 Object comment:' |
29 COPYRIGHT (c) 1988 by Claus Gittinger |
29 COPYRIGHT (c) 1988 by Claus Gittinger |
30 All Rights Reserved |
30 All Rights Reserved |
31 |
31 |
32 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.48 1995-05-16 17:08:05 claus Exp $ |
32 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.49 1995-05-18 15:09:41 claus Exp $ |
33 '! |
33 '! |
34 |
34 |
35 !Object class methodsFor:'documentation'! |
35 !Object class methodsFor:'documentation'! |
36 |
36 |
37 copyright |
37 copyright |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 version |
51 version |
52 " |
52 " |
53 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.48 1995-05-16 17:08:05 claus Exp $ |
53 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.49 1995-05-18 15:09:41 claus Exp $ |
54 " |
54 " |
55 ! |
55 ! |
56 |
56 |
57 documentation |
57 documentation |
58 " |
58 " |
1359 |
1359 |
1360 Currently, this is used to map XErrors to smalltalk errors, but can be |
1360 Currently, this is used to map XErrors to smalltalk errors, but can be |
1361 used from other c subsystems too, to upcast errors. |
1361 used from other c subsystems too, to upcast errors. |
1362 IDs (currently) used: |
1362 IDs (currently) used: |
1363 #DisplayError ..... x-error interrupt |
1363 #DisplayError ..... x-error interrupt |
|
1364 #XtError ..... xt-error interrupt (Xt interface is not yet published) |
1364 " |
1365 " |
1365 |
1366 |
1366 |handler| |
1367 |handler| |
1367 |
1368 |
1368 handler := ObjectMemory registeredErrorInterruptHandlers at:errorID ifAbsent:nil. |
1369 handler := ObjectMemory registeredErrorInterruptHandlers at:errorID ifAbsent:nil. |
1369 handler notNil ifTrue:[ |
1370 handler notNil ifTrue:[ |
1370 handler errorInterrupt. |
1371 handler errorInterrupt:errorID. |
1371 ^ self |
1372 ^ self |
1372 ]. |
1373 ]. |
1373 |
1374 |
1374 "no handler - raise errorSignal" |
1375 "no handler - raise errorSignal" |
1375 ^ ErrorSignal |
1376 ^ ErrorSignal |