Changeset 7352


Ignore:
Timestamp:
Oct 4, 2007, 7:10:34 PM (12 years ago)
Author:
mikel
Message:

moved load-nibfile to builder-utilities

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/builder-utilities.lisp

    r7351 r7352  
    1717;;; application-building tools for building and copying bundles,
    1818;;; resource directories, and magic files used by OSX applications.
     19
     20(defun load-nibfile (nib-path)
     21  (let* ((appclass (#_NSClassFromString (%make-nsstring "NSApplication")))
     22         (app (#/sharedApplication appclass))
     23         (main-nib-name (%make-nsstring (namestring nib-path))))
     24         ;; ----------------------------------------
     25         ;; load the application nib
     26         (#/loadNibNamed:owner: (@class ns-bundle)
     27                   main-nib-name
     28                   app)
     29         app))
    1930
    2031;;; PATHNAME-SEPARATOR
Note: See TracChangeset for help on using the changeset viewer.