[| :window :firstField :secondField :outField

main
    Environment includeFramework:'AppKit'.
    Transcript showLine:'Loading NIB'.

    "url := NSURL URLWithString:'file:///home/me/Developer/Scripts/nib/Calculator.gorm/objects.gorm'."

    url := NSURL URLWithString:'http://stefan.agentfarms.net/Download/GNUstep/objects.gorm'.

    nib := NSNib alloc initWithContentsOfURL:url.
    Transcript showLine:nib description.
    
    table := NSMutableDictionary dictionary.
    table setObject:self forKey:'NSOwner'.
    nib instantiateNibWithExternalNameTable:table.

    Transcript showLine:'Window is ', (window description).
    Transcript showLine:':-)'.
    window makeKeyAndOrderFront:nil.

    NSApplication sharedApplication run.
    ^self

!
setFirst:aField
    Transcript showLine:'Setting 1!'.
    firstField:= aField.

    ^nil
!
setSecond:aField
    Transcript showLine:'Setting 2!'.
    secondField:= aField.

    ^nil
!
setWindow:aWindow
    Transcript showLine:'Setting window to ', (aWindow description).
    window := aWindow.

    ^nil
!
compute:sender
    Transcript showLine:'Compute'.
    ^nil
!

setOut:aField
    Transcript showLine:'Setting out!'.
    outField:= aField.

    ^nil
]