extra/cocoa/nibs/nibs.factor

   1 USING: cocoa.application cocoa.messages cocoa.classes cocoa.runtime
   2 kernel cocoa core-foundation alien.c-types ;
   3 IN: cocoa.nibs
   4
   5 : load-nib ( name -- )
   6     NSBundle
   7     swap <NSString> NSApp -> loadNibNamed:owner:
   8     drop ;
   9
  10 : nib-named ( nib-name -- anNSNib )
  11     <NSString> NSNib -> alloc swap f -> initWithNibNamed:bundle:
  12     dup [ -> autorelease ] when ;
  13
  14 : nib-objects ( anNSNib -- objects/f )
  15     f f <void*> [ -> instantiateNibWithOwner:topLevelObjects: ] keep
  16     swap [ *void* CF>array ] [ drop f ] if ;