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

     GuidoCheckBox plotting {
        -label "Plot after processing?"
        -caption yes
        -selected_value yes
        -unselected_value no
     }
     GuidoButtonGroupPanel plotSize {
      -label "Plot size"

      GuidoRadioButton radioButton1 {
        -caption "A0 plot"
        -height 1
        -selected_value A0
        -dependency {"[$plotting getCurrentValue]" == "yes"}
      }
      GuidoRadioButton radioButton2 {
        -caption "A4 plot"
        -height 1
        -selected_value A4
        -dependency {"[$plotting getCurrentValue]" == "yes"}
      }
    }
  }
}

SclCreateGuidoForm form_handle $form_def {}
$form_handle SclRun {}
puts "Plotting $plotting ; Plot size $plotSize"
