window title="Random Fishing Tows"
grid 1 4
  label text=View: font=bold
  button text=Docs func=openFile action=FishTowsDoc.txt
  button text="R Code" func=openFile action=FishTows.r
  button text=Window func=openFile action=FishTowsWin.txt
grid 1 2
  label text=Input: font=bold
  vector length=3 names="nTow wTow sTow" \
    labels="'no. of tows' 'tow width' 'side of square'" \
    values="40 2 100" vertical=T width=12
grid 1 2
  label text=Output: font=bold
  vector length=7 \
    names="meanL nPoly nHole nVert swpArea impArea totArea" \
    labels="'mean length' polygons holes vertices \
      'swept area' 'impacted area' 'total area'" \
    values="0 0 0 0 0 0 10000" vertical=T width=12
button text="Generate Tows" func=genTows font=bold
button text="Plot Lines" func=doAction action="tget(plotTow)(`L`)" font=bold
button text="Plot Tows"  func=doAction action="tget(plotTow)(`T`)" font=bold
button text="Plot Union" func=doAction action="tget(plotTow)(`U`)" font=bold
button text="Compare"    func=doAction action="tget(plotTow)(`C`)" font=bold
grid 1 4
   label text="Compare\nMode" font="bold 10"
   radio name=cmode value="P" mode=character text=Portrait
   radio name=cmode value="L" mode=character text=Landscape
   #label text="WMF" font="bold 10"
   check name=wmf checked=F text="wmf"
