sub window
  dim o as NSWindow
  o=new NSWindow(WithContentRect:[[50, 50], [200.0, 200.0]], styleMask:15+256, backing:2, defer:false)
  o.setTitle("Sizing Window")
  o.orderFront(nil)	// make visible
  o.set(Frame:[[20, 400], [400.0, 200.0]], display:true, animate:true)
  msgbox "quit"	// pause until user action
end sub