set form_def {
  GuidoForm form {
    -label "GuidoCheckBox Form"
    -default_buttons

    GuidoCheckBox save_on_exit {
      -label "Save file on exit"
      -height 1
      -caption yes
      -selected_value yes
      -unselected_value no
    }
  }
}

SclCreateGuidoForm form_handle $form_def {}
$form_handle SclRun {}

puts "Save on exit $save_on_exit"

