--- a/Object.st Sat Mar 23 17:16:47 1996 +0100
+++ b/Object.st Sat Mar 23 18:22:50 1996 +0100
@@ -319,6 +319,8 @@
!
infoPrinting:aBoolean
+ "{ Pragma: +optSpace }"
+
"turn on/off printing of information messages.
If the argument, aBoolean is false, infoPrint will not output
messages. The default is true."
@@ -1244,6 +1246,8 @@
!
deepCopyError
+ "{ Pragma: +optSpace }"
+
"raise a signal, that deepCopy is not allowed for this object"
^ DeepCopyErrorSignal raise
@@ -1437,6 +1441,8 @@
!Object methodsFor:'debugging'!
basicInspect
+ "{ Pragma: +optSpace }"
+
"launch an inspector on the receiver.
this method should NOT be redefined in subclasses."
@@ -1451,6 +1457,8 @@
!
inspect
+ "{ Pragma: +optSpace }"
+
"launch an inspector on the receiver.
this method (or better: inspectorClass) can be redefined in subclasses
to start special inspectors."
@@ -1474,6 +1482,8 @@
!
inspectorClass
+ "{ Pragma: +optSpace }"
+
"return the class to use for inspect.
Can (should) be redefined in classes for which a better inspector is available"
@@ -1498,6 +1508,8 @@
!
obsoleteMethodWarning
+ "{ Pragma: +optSpace }"
+
"in methods which are going to be obsoleted, a self send to
this method is used to tell programmers that a method is
used which is going to be removed in later ST/X versions.
@@ -1510,6 +1522,8 @@
!
obsoleteMethodWarning:message
+ "{ Pragma: +optSpace }"
+
"in methods which are going to be obsoleted, a self send to
this method is used to tell programmers that a method is
used which is going to be removed in later ST/X versions.
@@ -1522,6 +1536,8 @@
!
obsoleteMethodWarning:message from:aContext
+ "{ Pragma: +optSpace }"
+
"in methods which are going to be obsoleted, a self-send to
this method is used to tell programmers that a method is
used which is going to be removed in later ST/X versions.
@@ -1901,6 +1917,8 @@
!Object methodsFor:'error handling'!
appropriateDebugger:aSelector
+ "{ Pragma: +optSpace }"
+
"return an appropriate debugger to use.
If there is already a debugger active on the stack, and it is
the DebugView, return MiniDebugger (as a last chance) otherwise abort."
@@ -2008,6 +2026,8 @@
!
elementBoundsError
+ "{ Pragma: +optSpace }"
+
"report error that badElement is out of bounds
(i.e. cannot be put into that collection)"
@@ -2015,6 +2035,8 @@
!
elementNotCharacter
+ "{ Pragma: +optSpace }"
+
"report error that object to be stored is no Character.
(usually when storing into Strings)"
@@ -2022,6 +2044,8 @@
!
elementNotInteger
+ "{ Pragma: +optSpace }"
+
"report error that object to be stored is not Integer.
(in collections that store integers only)"
@@ -2029,6 +2053,8 @@
!
enterDebuggerWith:anException message:aString
+ "{ Pragma: +optSpace }"
+
"enter the debugger with error-message aString"
^ self enterDebuggerWith:anException
@@ -2037,6 +2063,8 @@
!
enterDebuggerWith:anException message:aString on:aContext
+ "{ Pragma: +optSpace }"
+
"enter the debugger with error-message aString.
The first visible context shown there is aContext
(this allows intermediate helpers to hide themselfes from what is
@@ -2076,12 +2104,16 @@
!
error
+ "{ Pragma: +optSpace }"
+
"report error that an error occured"
^ ErrorSignal raiseIn:thisContext sender
!
error:aString
+ "{ Pragma: +optSpace }"
+
"enter debugger with error-message aString"
^ ErrorSignal raiseRequestWith:#error:
@@ -2090,24 +2122,32 @@
!
errorKeyNotFound:aKey
+ "{ Pragma: +optSpace }"
+
"report error that a key was not found in a collection"
^ KeyNotFoundSignal raiseRequestWith:aKey in:thisContext sender
!
errorNotFound
+ "{ Pragma: +optSpace }"
+
"report error that no element was found in a collection"
^ NotFoundSignal raiseIn:thisContext sender
!
halt
+ "{ Pragma: +optSpace }"
+
"enter debugger with halt-message"
^ HaltSignal raiseIn:thisContext sender.
!
halt:aString
+ "{ Pragma: +optSpace }"
+
"enter debugger with halt-message"
^ HaltSignal raiseRequestWith:#halt:
@@ -2116,12 +2156,16 @@
!
implementedBySubclass
+ "{ Pragma: +optSpace }"
+
"this is sent by ST/V code - its the same as #subclassResponsibility"
^ self subclassResponsibility
!
indexNotInteger
+ "{ Pragma: +optSpace }"
+
"report error that index is not an Integer.
(when accessing collections indexed by an integer key)"
@@ -2129,6 +2173,8 @@
!
integerCheckError
+ "{ Pragma: +optSpace }"
+
"generated when a variable declared with an integer type gets a bad
value assigned"
@@ -2137,42 +2183,56 @@
!
invalidMessage
+ "{ Pragma: +optSpace }"
+
"this is sent by ST/V code - its the same as #shouldNotImplement"
^ self shouldNotImplement
!
mustBeRectangle
+ "{ Pragma: +optSpace }"
+
"report an argument-not-rectangle-error"
^ self error:'argument must be a Rectangle'
!
mustBeString
+ "{ Pragma: +optSpace }"
+
"report an argument-not-string-error"
^ self error:'argument must be a String'
!
notIndexed
+ "{ Pragma: +optSpace }"
+
"report error that receiver has no indexed instance variables"
^ self error:'receiver has no indexed variables'
!
primitiveFailed
+ "{ Pragma: +optSpace }"
+
"report error that primitive code failed"
^ PrimitiveFailureSignal raiseIn:(thisContext sender)
!
shouldNotImplement
+ "{ Pragma: +optSpace }"
+
"report error that this message should not be implemented"
^ self error:'method not appropriate for this class'
!
subclassResponsibility
+ "{ Pragma: +optSpace }"
+
"report error that this message should have been reimplemented in a
subclass"
@@ -2180,6 +2240,8 @@
!
subscriptBoundsError
+ "{ Pragma: +optSpace }"
+
"report error that some index is out of bounds.
(when accessing indexable collections)"
@@ -2187,6 +2249,8 @@
!
subscriptBoundsError:anIndex
+ "{ Pragma: +optSpace }"
+
"report error that anIndex is out of bounds.
(when accessing indexable collections)"
@@ -2199,6 +2263,8 @@
!
typeCheckError
+ "{ Pragma: +optSpace }"
+
"generated when a variable declared with a type hint gets a bad
value assigned"
@@ -2247,6 +2313,8 @@
!
customInterrupt
+ "{ Pragma: +optSpace }"
+
"a custom interrupt"
^ self error:'custom interrupt'
@@ -2286,12 +2354,16 @@
!
exceptionInterrupt
+ "{ Pragma: +optSpace }"
+
"exception interrupt - enter debugger"
self error:'exception Interrupt'
!
fpExceptionInterrupt
+ "{ Pragma: +optSpace }"
+
"a floating point exception occured - this one
has to be handled differently since it comes asynchronous
on some machines (for example, on machines with a separate FPU
@@ -2303,6 +2375,8 @@
!
internalError:msg
+ "{ Pragma: +optSpace }"
+
"this is triggered, when system hits some bad error,
such as corrupted class, corrupted method/selector array
etc. The argument string gives some more information on what happened.
@@ -2314,6 +2388,8 @@
!
ioInterrupt
+ "{ Pragma: +optSpace }"
+
"I/O (SIGIO/SIGPOLL) interrupt (supposed to be sent to Processor).
If we arrive here, there is either no handler (ObjMem>>ioInterruptHandler)
or it does not understand the ioInterrupt message.
@@ -2323,12 +2399,16 @@
!
memoryInterrupt
+ "{ Pragma: +optSpace }"
+
"out-of-memory interrupt and no handler - enter debugger"
^ self error:'almost out of memory'
!
recursionInterrupt
+ "{ Pragma: +optSpace }"
+
"recursion limit (actually: stack overflow) interrupt.
This interrupt is triggered, when a process stack grows above
its stackLimit - usually, this leads into the debugger, but
@@ -2346,6 +2426,8 @@
!
schedulerInterrupt
+ "{ Pragma: +optSpace }"
+
"scheduler interrupt (supposed to be sent to Processor).
If we arrive here, either the Processor does not understand it,
or it has been set to nil. In any case, this is a sign of some
@@ -2355,6 +2437,8 @@
!
signalInterrupt:signalNumber
+ "{ Pragma: +optSpace }"
+
"unix signal occured - some signals are handled as Smalltalk Exceptions
(SIGPIPE), others (SIGBUS) are rather fatal ...
In any case, if a smalltalk-signal has been connected to the OS signal,
@@ -2475,18 +2559,24 @@
!
spyInterrupt
+ "{ Pragma: +optSpace }"
+
"spy interrupt and no handler - enter debugger"
self error:'spy Interrupt - but no handler'
!
timerInterrupt
+ "{ Pragma: +optSpace }"
+
"timer interrupt and no handler - enter debugger"
self error:'timer Interrupt - but no handler'
!
userInterrupt
+ "{ Pragma: +optSpace }"
+
"user (^c) interrupt - enter debugger"
UserInterruptSignal raise
@@ -3174,6 +3264,8 @@
!
errorPrintNL
+ "{ Pragma: +optSpace }"
+
"print the receiver followed by a cr on the standard error stream."
^ self errorPrintNewline
@@ -3182,6 +3274,8 @@
!
errorPrintNewline
+ "{ Pragma: +optSpace }"
+
"print the receiver followed by a cr on the standard error stream."
Stream streamErrorSignal catch:[
@@ -3193,6 +3287,8 @@
!
infoPrint
+ "{ Pragma: +optSpace }"
+
"print the receiver on the standard error stream.
This is meant for information messages which are not warnings
or fatal messages.
@@ -3204,6 +3300,8 @@
!
infoPrintNL
+ "{ Pragma: +optSpace }"
+
"print the receiver followed by a cr on the standard error stream.
This is meant for information messages which are not warnings
or fatal messages.
@@ -4612,6 +4710,6 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.106 1996-03-19 23:46:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.107 1996-03-23 17:21:24 cg Exp $'
! !
Object initialize!