
if {$Unchanged == 1} {
    eval $PromptCommand
    return
}

destroy .saveChanges
toplevel .saveChanges
wm title .saveChanges "GOBLET Prompt"
wm resizable .saveChanges 0 0
grab set .saveChanges

global FileName
message .saveChanges.msg -width 10c \
    -text "Save changes to [file tail $FileName]?"
pack .saveChanges.msg -padx 10m -pady 5m -side top
     
frame .saveChanges.buttons
    button .saveChanges.buttons.cancel -text "Cancel" -command { \
        destroy .saveChanges
    }
    
    button .saveChanges.buttons.proceed -text "No" -command { \
        destroy .saveChanges
        eval $PromptCommand
    }
    
    button .saveChanges.buttons.save -text "Yes" -command { \
        SaveFile
        destroy .saveChanges
        eval $PromptCommand
    }
    
    pack .saveChanges.buttons.save .saveChanges.buttons.proceed \
         .saveChanges.buttons.cancel -side left -fill x -padx 3m
     
pack .saveChanges.buttons -padx 3m -pady 3m -side top


        
