/* #io
   docCopyright("Yen-Ju Chen", 2006)
   docLicense("BSD revised") */

ObjcBridge autoLookupClassNamesOn

/* Io */
"Test" println

/* NSDate */
Date := ObjcBridge classNamed("NSDate")

date := Date date
date description println

/* NSNumber */
N := ObjcBridge classNamed("NSNumber")
n := N numberWithInt:(200)
n println

/* NSString */
String := ObjcBridge classNamed("NSString")
string := String stringWithCString:("Test")
string println
/* Warning: string becomes io object automatically. 
   Therefore, it is not a NSString anymore */

/* Application */
/* Does not work now
application := ObjcBridge classNamed("NSApplication") sharedApplication
frame := Box clone set( vector(200, 500), vector(420, 150) )

Window := ObjcBridge classNamed("NSWindow")
win := Window alloc initWithContentRect:styleMask:backing:defer:(frame, 15, 2, 0)
win setTitle:("Io Window")

frame := Box clone set( vector(330, 10), vector(76, 25) )
quitButton := ObjcBridge classNamed("NSButton") alloc initWithFrame:(frame)
quitButton setBezelStyle:(4)
quitButton setTarget:(NSApp)
quitButton setAction:("terminate:")
quitButton setTitle:("Quit")

win contentView addSubview:(quitButton)
win display
win orderFrontRegardless

application run
*/