set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Basic Statistics - Histogram"
    GuidoPanel panel_1 {
    -layout BoxLayout Y_AXIS
      GuidoTextArea gainfocus {
      -visible true
      -default "This text area is here to remove focus and highlighting from the second GuidoTextArea
                This text area must have visible set to true in order to gain focus"
      -height 0
      -width 0
      }
      GuidoLabel space {
      -height 0.5
      }
      GuidoScrollPane scroll_1 {
      -label ""
      -height 5
      -width 50
        GuidoTextArea text_1 {
        -format none
        -linewrap true
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
This macro usies the following Menu command to create one string file for each of two domains: orezone1 and orezone2.

1. File tools - String maths

"
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}


set status [ SclFunction "APPLY BOUNDARY" {
  frm00029={
    {
      _action=display
      bdyloc="gc_orezones"
      bdyid="130"
      ibdystr="1"
      elocn="gc"
      erange="130"
      spot="Y"
      sprange="1"
      nlocn="gc_zone1_"
      orange="130"
      retain_string_nums="Y"
      fdesc="Y"
      in_out="I"
    }
  }
}]

set status [ SclFunction "APPLY BOUNDARY" {
  frm00029={
    {
      _action=display
      bdyloc="gc_orezones"
      bdyid="130"
      ibdystr="2"
      elocn="gc"
      erange="130"
      spot="Y"
      sprange="1"
      nlocn="gc_zone2_"
      orange="130"
      retain_string_nums="Y"
      fdesc="Y"
      in_out="I"
    }
  }
}]

puts ""
puts ""
puts "macro 2d_01_apply_boundary.tcl completed"
puts ""