toplevel .arcopt1

wm title .arcopt1 "GOBLIN Arc Display"
wm resizable .arcopt1 0 0

global goblinArrows goblinArcStyle goblinPredecessors goblinSubgraph
    
frame .arcopt1.buttons
button .arcopt1.buttons.done -text "Done" -command { \
    destroy .arcopt1
    InitDisplay
}
    
pack .arcopt1.buttons.done -side left -fill x -padx 3m
pack .arcopt1.buttons -padx 3m -pady 3m -side bottom

frame .arcopt1.options
pack .arcopt1.options -fill both -padx 10m -pady 4m

    frame .arcopt1.options.subgraph
    frame .arcopt1.options.arcStyle
    frame .arcopt1.options.arrows
    frame .arcopt1.options.checkButtons
    pack .arcopt1.options.subgraph .arcopt1.options.arcStyle \
        .arcopt1.options.arrows .arcopt1.options.checkButtons \
        -side top -fill x -pady 5m
     
    label .arcopt1.options.subgraph.label -text "Arc Display:" -anchor w
    radiobutton .arcopt1.options.subgraph.hide -text "Hide Arcs" \
        -variable goblinSubgraph -value 0 -anchor w
    radiobutton .arcopt1.options.subgraph.support -text "Supported Arcs" \
        -variable goblinSubgraph -value 1 -anchor w
    radiobutton .arcopt1.options.subgraph.dashed -text "Fractional Arcs Dashed" \
        -variable goblinSubgraph -value 2 -anchor w
    radiobutton .arcopt1.options.subgraph.width -text "Various Width" \
        -variable goblinSubgraph -value 3 -anchor w
    radiobutton .arcopt1.options.subgraph.all -text "Uniform" \
        -variable goblinSubgraph -value 4 -anchor w
    radiobutton .arcopt1.options.subgraph.ordinal -text "Ordinal" \
        -variable goblinSubgraph -value 5 -anchor w
    pack .arcopt1.options.subgraph.label \
        .arcopt1.options.subgraph.hide \
        .arcopt1.options.subgraph.support \
        .arcopt1.options.subgraph.dashed \
        .arcopt1.options.subgraph.width \
        .arcopt1.options.subgraph.all \
        .arcopt1.options.subgraph.ordinal \
        -fill x

    label .arcopt1.options.arrows.label -text "Arrows:" -anchor w
    radiobutton .arcopt1.options.arrows.leading -text "Leading" \
        -variable goblinArrows -value 0 -anchor w
    radiobutton .arcopt1.options.arrows.centered -text "Centered" \
        -variable goblinArrows -value 1 -anchor w
    pack .arcopt1.options.arrows.label \
        .arcopt1.options.arrows.leading \
        .arcopt1.options.arrows.centered \
        -fill x

    label .arcopt1.options.arcStyle.label -text "Arc Style:" -anchor w
    radiobutton .arcopt1.options.arcStyle.polygones -text "Polygones" \
        -variable goblinArcStyle -value 0 -anchor w
    radiobutton .arcopt1.options.arcStyle.curves -text "Curves" \
        -variable goblinArcStyle -value 1 -anchor w
    radiobutton .arcopt1.options.arcStyle.pipes -text "Pipes" \
        -variable goblinArcStyle -value 2 -anchor w
    pack .arcopt1.options.arcStyle.label \
        .arcopt1.options.arcStyle.polygones \
        .arcopt1.options.arcStyle.curves \
        .arcopt1.options.arcStyle.pipes \
        -fill x

    checkbutton .arcopt1.options.checkButtons.predecessors \
        -text "Show Predecessors" -variable goblinPredecessors -anchor w
    pack .arcopt1.options.checkButtons.predecessors -fill x
