my($frame_Limit) = $root->Frame (
      -relief  => 'raised',
      -borderwidth => '3',
   );
   my($label_Limit) = $root->Label (
      -font => '-*-MS Sans Serif-Bold-R-Normal-*-*-120-*-*-*-*-*-*',
      -relief => 'flat',
      -text => 'Operand Limit',
   );
   my($entry_Limit) = $root->Entry (
      -justify => 'left',
      -textvariable => \$Limit,
      -validate => 'focusout',
      -validatecommand => \&Validate_Number,
   );