
destroy .metrics
toplevel .metrics
wm title .metrics "GOBLIN Metrics"
wm resizable .metrics 0 0
grab .metrics
     
frame .metrics.options
pack .metrics.options -padx 10m -pady 5m -side top -anchor w

    label .metrics.options.label -text "Length Labels:" -anchor w
    radiobutton .metrics.options.data -text "Explicit" \
        -variable goblinMethGeometry -value 0 -anchor w
    radiobutton .metrics.options.met1 -text "Manhattan Metrics" \
        -variable goblinMethGeometry -value 1 -anchor w
    radiobutton .metrics.options.met2 -text "Euclidian Metrics" \
        -variable goblinMethGeometry -value 2 -anchor w
    radiobutton .metrics.options.met3 -text "Maximum Metrics" \
        -variable goblinMethGeometry -value 3 -anchor w
    radiobutton .metrics.options.met4 -text "Spheric Distances" \
        -variable goblinMethGeometry -value 4 -anchor w
    pack .metrics.options.label .metrics.options.data \
        .metrics.options.met1 .metrics.options.met2 \
        .metrics.options.met3 .metrics.options.met4 -side top -fill x
     
frame .metrics.buttons
pack .metrics.buttons -padx 3m -pady 3m -side bottom

    button .metrics.buttons.done -text "Done" -command { \
        InitDisplay
        PropagateModifications
        destroy .metrics
    }    

    pack .metrics.buttons.done -side left -fill x -padx 3m
