GuidoForm form {
-defaults_management false
-label "Clear User Default Settings"
-tip "Specify section definition method."
-layout BoxLayout Y_AXIS
GuidoLabel label1 {
-label "Do you wish to remove all field default settings made for the current user?"
}
GuidoLabel label2 {
-label "Warning: This cannot be undone."
}
GuidoPanel panel {
-width 35
-layout BorderLayout
GuidoPanel panel {
GuidoButton no {
-legacy_button
-caption "No"
-selected_value "N"
-width 8
-height 1
}
GuidoButton yes {
-legacy_button
-caption "Yes"
-selected_value "Y"
-width 8
-height 1
}
}
}
}
set return_code [$form interact]
if {$return_code == "Y"} {
GuidoApp app "CLEAR USER DEFAULT SETTINGS"
set result [$app invoke]
$app destroy
}
