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

    GuidoButtonGroupPanel section_direction {
      -label "Section direction"

      GuidoRadioButton button1 {
        -caption "North"
        -height 1
        -selected_value "north"
      }
      GuidoRadioButton button2 {
        -caption "South"
        -height 1
        -selected_value "south"
      }
    }
  }
}

SclCreateGuidoForm form_handle $form_def {}
$form_handle SclRun {}

puts "Section direction $section_direction"
