Select Code to Download

#! /usr/bin/perl
#
# Capture Screen to a file. Written in wxPerl. Tested on Citrus Perl 5
+.16 and wxWidgets 2.8.x.
...
                        # sure all items are written to the screen
TakeScreenshot($self, $file);            # Capture the screen
}

#! /usr/bin/perl
#
# Capture Screen to a file. Written in wxPerl. Tested on Citrus Perl 5
+.16 and wxWidgets 2.8.x.
...
  $dialog->Destroy;
  return $textvalue;
}