Added -[NSBundle bundleURL]

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

ChangeLog

@@ -1,3 +1,7 @@
+2013-08-10  Lubos Dolezel <lubos@dolezel.info>
+
+	* Source/NSBundle.m: add -[NSBundle bundleURL]
+
 2013-07-26  Richard Frith-Macdonald <rfm@gnu.org>
 
         * Version: make ready for 1.24.5 release

Headers/Foundation/NSBundle.h

@@ -243,6 +243,10 @@ GS_EXPORT NSString* const NSLoadedClasses;
 /** Return the path to the bundle - an absolute path.  */
 - (NSString*) bundlePath;
 
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_6,GS_API_LATEST) 
+- (NSURL*) bundleURL;
+#endif
+
 /** Returns the class in the bundle with the given name. If no class
     of this name exists in the bundle, then Nil is returned.
  */

Source/NSBundle.m

@@ -1874,6 +1874,11 @@ IF_NO_GC(
   return _path;
 }
 
+- (NSURL*) bundleURL
+{
+  return [NSURL fileURLWithPath: [self bundlePath]];
+}
+
 - (Class) classNamed: (NSString *)className
 {
   int     i, j;