Minor addition

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

ChangeLog

@@ -1,3 +1,8 @@
+2003-02-04  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/NSBundle.m: Implement new MacOS-X isLoaded method.
+	* Headers/gnustep/base/NSBundle.h: ditto
+
 2003-02-04  Willem Rein Oudshoorn  <woudshoo@xs4all.nl>
 
 	* Headers/gnustep/base/GSInvocation.h (CLEAR_RETURN_VALUE_IF_OBJECT):

Headers/gnustep/base/NSBundle.h

@@ -241,6 +241,7 @@ GS_EXPORT NSString* NSLoadedClasses;
 + (NSArray *) preferredLocalizationsFromArray: (NSArray *)localizationsArray 
 			       forPreferences: (NSArray *)preferencesArray;
 
+- (BOOL) isLoaded;
 - (NSArray*) pathsForResourcesOfType: (NSString*)extension
 			 inDirectory: (NSString*)bundlePath
 		     forLocalization: (NSString*)localizationName;

Source/NSBundle.m

@@ -1040,6 +1040,14 @@ _bundle_load_callback(Class theClass, struct objc_category *theCategory)
   return _principalClass;
 }
 
+/**
+ * Returns YES if the receiver's code is loaded, otherwise, returns NO.
+ */
+- (BOOL) isLoaded
+{
+  return _codeLoaded;
+}
+
 - (BOOL) load
 {
   if (self == _mainBundle || self == _gnustep_bundle)