--- a/Object.st Wed Oct 14 23:08:51 2009 +0200
+++ b/Object.st Wed Oct 14 23:15:25 2009 +0200
@@ -612,6 +612,12 @@
]
!
+inform: aString
+ "Display a message for the user to read and then dismiss."
+
+ self information:aString
+!
+
isInMemory
"All normal objects are."
@@ -7133,7 +7139,6 @@
^ self
! !
-
!Object methodsFor:'secure message sending'!
askFor:aSelector
@@ -9260,11 +9265,11 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.636 2009-10-06 10:38:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.637 2009-10-14 21:15:25 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.636 2009-10-06 10:38:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.637 2009-10-14 21:15:25 cg Exp $'
! !
Object initialize!