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

    GuidoLabel info {
      -label "Some information message"
    }
  }
}

SclCreateGuidoForm form_handle $form_def {}
$form_handle SclRun {}
