Added some compatibility methods

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@13883 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -4,6 +4,8 @@
 	* Tools/gsdoc.m: Adjust path to headers.  Add warning about
 	deprecation.
 	Patch by e.sammer <eric@linuxstep.org>
+	* Source/NSObject.m: Added some compatibility methods in a
+	categpory of Object.
 
 2002-06-13  Richard Frith-Macdonald <rfm@gnu.org>
 

Source/NSObject.m

@@ -1918,13 +1918,21 @@ _fastMallocBuffer(unsigned size)
  * Stuff for compatibility with 'Object' derived classes.
  */
 @interface	Object (NSObjectCompat)
++ (NSString*) description;
 + (void) release;
 + (id) retain;
+- (NSString*) className;
+- (NSString*) description;
 - (void) release;
+- (BOOL) respondsToSelector: (SEL)aSel;
 - (id) retain;
 @end
 
 @implementation	Object (NSObjectCompat)
++ (NSString*) description
+{
+  return NSStringFromClass(self);
+}
 + (void) release
 {
   return;
@@ -1933,10 +1941,24 @@ _fastMallocBuffer(unsigned size)
 {
   return self;
 }
+- (NSString*) className
+{
+  return NSStringFromClass([self class]);
+}
+- (NSString*) description
+{
+  return [NSString stringWithFormat: @"<%s: %lx>",
+    object_get_class_name(self), (unsigned long)self];
+}
 - (void) release
 {
   return;
 }
+- (BOOL) respondsToSelector: (SEL)aSelector
+{
+  /* Object implements -respondsTo: */
+  return [self respondsTo: aSelector];
+}
 - (id) retain
 {
   return self;