Help for this page

Select Code to Download


  1. or download this
     
our(@ratio, @ratiobox, @concentration, @wtPercent, @density, %chemname
+);
my (@concentrationbox, @densitybox, @wtpercentbox);
  2. or download this
    our(@ratio, @ratiobox, @concentration, @wtPercent, @density, %chemname
+, @wtpercentbox);
my (@concentrationbox, @densitybox);
  3. or download this
    map{$_->configure(-textvariable=>\$wtPercent[2])}@wtpercentbox;
  4. or download this
    map{$_->delete(0,'end')}@wtpercentbox;
for my $i (0..$#wtpercentbox) {
        $wtpercentbox[$i]->insert('end',$wtPercent[$i]);
}