Help for this page

Select Code to Download


  1. or download this
     
$Status{'Total'} = 5;
$s_bar->Label(-textvariable => \$Status{'Total'} )->pack();
  2. or download this
     
tie %Status, 'Tie:Win32MemMap', { Create => Mem_New_Share, MapName => 
+'F_Status', Size => 10000 };
$Status{'Total'} = 5;
$s_bar->Label(-textvariable => \$Status{'Total'} )->pack();