#!/usr/bin/wish

proc buildUI {} {
  global rt

  wm protocol . WM_DELETE_WINDOW [list destroy .]
  wm resizable . 0 0
  wm title . {POVr frame test}

  # frame window (fwin).
  frame .fwin -class POVWindow -container true \
          -height 600 -width 800
  set rt(w) [winfo id .fwin]

  # frame controls (fctl).
  set w [frame .fctl -borderwidth 2 \
          -padx 2m -relief groove]

  button $w.btnExit -text exit -command cmdExit

  pack $w.btnExit   -side top -fill x

  pack .fwin -side top
  pack .fctl -side top -expand 1 -fill x
}

proc cmdExit {} {
  destroy .
}

buildUI

puts stderr [format {window for '-into %ld'.} $rt(w)]