view release on metacpan or  search on metacpan

bin/PrLenS  view on Meta::CPAN

         $w-> {"total$layer"}++;
      }
      my $zp = $self-> zoom * $w->{ini}->{PointSize};
      $zp = 4 if $zp < 4;
      ($x1, $x2, $y1, $y2) = map { ($_ - $zp - 2, $_ + $zp + 2); } ($ax,$ay);
      $self-> invalidate_rect( $self-> point2screen( $x1, $y1, $x2, $y2));
   }
   $w-> update_state;
}

sub update_state
{
   my $w = $_[0];
   my $cp = $w-> ToolBar-> CellsProcesses;
   if ( !defined $w-> {file})
   {
      $w-> sb_text( "No file loaded");
      $cp-> text( "???:???");
   }
   else
   {