Help for this page

Select Code to Download

Select or download this

use strict;
use Wx qw/wxSOLID/;
...
package main;

MGV->new()->MainLoop();

Select or download this

  $self->EVT_PAINT(
    sub{
...
      $dc->EndDrawing();
    }
  );