Changeset 7352 for trunk/ccl/cocoa-ide/builder-utilities.lisp

Timestamp:

Oct 4, 2007, 7:10:34 PM (13 years ago)

Author:

mikel

Message:

moved load-nibfile to builder-utilities

File:

• trunk/ccl/cocoa-ide/builder-utilities.lisp (modified) (1 diff)

trunk/ccl/cocoa-ide/builder-utilities.lisp

@@ -17 +17 @@
 ;;; application-building tools for building and copying bundles,
 ;;; resource directories, and magic files used by OSX applications.
+
+(defun load-nibfile (nib-path)
+  (let* ((appclass (#_NSClassFromString (%make-nsstring "NSApplication")))
+         (app (#/sharedApplication appclass))
+         (main-nib-name (%make-nsstring (namestring nib-path))))
+         ;; ----------------------------------------
+         ;; load the application nib
+         (#/loadNibNamed:owner: (@class ns-bundle)
+                   main-nib-name
+                   app)
+         app))
 
 ;;; PATHNAME-SEPARATOR