
destroy .deleteSolution
toplevel .deleteSolution
wm title .deleteSolution "GOBLIN Prompt"
wm resizable .deleteSolution 0 0
grab .deleteSolution
     
global ThisGraph ThisSolution
set ThisSolution "subgraph"

frame .deleteSolution.options
pack .deleteSolution.options -padx 10m -pady 5m -side top -anchor w

    label .deleteSolution.options.label -text "Data Structure:" -anchor w
    radiobutton .deleteSolution.options.subgraph -text "Subgraph" \
        -variable ThisSolution -value "subgraph" -anchor w
    radiobutton .deleteSolution.options.labels -text "Distance Labels" \
        -variable ThisSolution -value "labels" -anchor w
    radiobutton .deleteSolution.options.predecessors -text "Predecessor Labels" \
        -variable ThisSolution -value "predecessors" -anchor w
    radiobutton .deleteSolution.options.colours -text "Node Colours" \
        -variable ThisSolution -value "colours" -anchor w
    radiobutton .deleteSolution.options.potentials -text "Node Potentials" \
        -variable ThisSolution -value "potentials" -anchor w
    radiobutton .deleteSolution.options.partition -text "Node Partition" \
        -variable ThisSolution -value "partition" -anchor w
    pack .deleteSolution.options.label .deleteSolution.options.subgraph \
        .deleteSolution.options.labels .deleteSolution.options.predecessors \
        .deleteSolution.options.colours .deleteSolution.options.potentials \
        .deleteSolution.options.partition -side top -fill x
     
frame .deleteSolution.buttons
pack .deleteSolution.buttons -padx 3m -pady 3m -side bottom

    button .deleteSolution.buttons.delete -text "Delete" -command { \
        $ThisGraph delete $ThisSolution
        PropagateModifications
        InitDisplay
    }    

    button .deleteSolution.buttons.done -text "Done" -command { \
        destroy .deleteSolution
    }
    
    pack .deleteSolution.buttons.delete \
        .deleteSolution.buttons.done \
        -side left -fill x -padx 3m
