
destroy .arcopt2
toplevel .arcopt2

wm title .arcopt2 "GOBLIN Arc Labels"
wm resizable .arcopt2 0 0

global goblinArcLabels goblinArcLabels2
    
frame .arcopt2.buttons
button .arcopt2.buttons.done -text "Done" -command { \
    destroy .arcopt2
    InitDisplay
}
    
pack .arcopt2.buttons.done -side left -fill x -padx 3m
pack .arcopt2.buttons -padx 3m -pady 3m -side bottom

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

frame .arcopt2.options.arcLabels
frame .arcopt2.options.arcLabels2
pack .arcopt2.options.arcLabels .arcopt2.options.arcLabels2 \
    -side top -fill x -pady 5m

    label .arcopt2.options.arcLabels.label -text "Primary Arc Labels:" -anchor w
    radiobutton .arcopt2.options.arcLabels.noLabels -text "No Labels" \
        -variable goblinArcLabels -value 0 -anchor w
    radiobutton .arcopt2.options.arcLabels.indices -text "Indices" \
        -variable goblinArcLabels -value 1 -anchor w
    radiobutton .arcopt2.options.arcLabels.upper -text "Upper Capacity Bounds" \
        -variable goblinArcLabels -value 2 -anchor w
    radiobutton .arcopt2.options.arcLabels.lower -text "Lower Capacity Bounds" \
        -variable goblinArcLabels -value 6 -anchor w
    radiobutton .arcopt2.options.arcLabels.length -text "Length Labels" \
        -variable goblinArcLabels -value 4 -anchor w
    radiobutton .arcopt2.options.arcLabels.redlength -text "Reduced Length Labels" \
        -variable goblinArcLabels -value 5 -anchor w
    radiobutton .arcopt2.options.arcLabels.subgraph -text "Subgraph / Flow Labels" \
        -variable goblinArcLabels -value 3 -anchor w
    pack .arcopt2.options.arcLabels.label \
        .arcopt2.options.arcLabels.noLabels \
        .arcopt2.options.arcLabels.indices \
        .arcopt2.options.arcLabels.upper \
        .arcopt2.options.arcLabels.lower \
        .arcopt2.options.arcLabels.length \
        .arcopt2.options.arcLabels.redlength \
        .arcopt2.options.arcLabels.subgraph \
        -fill x
        
    label .arcopt2.options.arcLabels2.label -text "Secondary Arc Labels:" -anchor w
    radiobutton .arcopt2.options.arcLabels2.noLabels -text "No Labels" \
        -variable goblinArcLabels2 -value 0 -anchor w
    radiobutton .arcopt2.options.arcLabels2.indices -text "Indices" \
        -variable goblinArcLabels2 -value 1 -anchor w
    radiobutton .arcopt2.options.arcLabels2.upper -text "Upper Capacity Bounds" \
        -variable goblinArcLabels2 -value 2 -anchor w
    radiobutton .arcopt2.options.arcLabels2.lower -text "Lower Capacity Bounds" \
        -variable goblinArcLabels2 -value 6 -anchor w
    radiobutton .arcopt2.options.arcLabels2.length -text "Length Labels" \
        -variable goblinArcLabels2 -value 4 -anchor w
    radiobutton .arcopt2.options.arcLabels2.redlength -text "Reduced Length Labels" \
        -variable goblinArcLabels2 -value 5 -anchor w
    radiobutton .arcopt2.options.arcLabels2.subgraph -text "Subgraph / Flow Labels" \
        -variable goblinArcLabels2 -value 3 -anchor w
    pack .arcopt2.options.arcLabels2.label \
        .arcopt2.options.arcLabels2.noLabels \
        .arcopt2.options.arcLabels2.indices \
        .arcopt2.options.arcLabels2.upper \
        .arcopt2.options.arcLabels2.lower \
        .arcopt2.options.arcLabels2.length \
        .arcopt2.options.arcLabels2.redlength \
        .arcopt2.options.arcLabels2.subgraph \
        -fill x
