add a readme and example for win32, convert files from Win32 to Unix
[imager-screenshot.git] / Screenshot.pm
index f2e2d23..d9192ea 100644 (file)
@@ -32,45 +32,43 @@ sub screenshot {
   my $result;\r
   if (!@_) {\r
     my $result =\r
-      defined &win32 ? win32(0) :\r
-       defined &x11 ? x11($opts{display}, 0) :\r
+      defined &_win32 ? _win32(0) :\r
+       defined &_x11 ? _x11($opts{display}, 0) :\r
           die "No drivers enabled\n";\r
   }\r
   if (defined $opts{hwnd}) {\r
-    defined &win32\r
+    defined &_win32\r
       or die "Win32 driver not enabled\n";\r
-    $result = win32($opts{hwnd}, $opts{decor});\r
+    $result = _win32($opts{hwnd}, $opts{decor});\r
   }\r
   elsif (defined $opts{id}) { # X11 window id\r
-    defined &x11\r
+    defined &_x11\r
       or die "X11 driver not enabled\n";\r
-    $result = x11($opts{display}, $opts{id});\r
+    $result = _x11($opts{display}, $opts{id});\r
   }\r
   elsif ($opts{widget}) {\r
     # Perl/Tk widget\r
     my $top = $opts{widget}->toplevel;\r
     my $sys = $top->windowingsystem;\r
     if ($sys eq 'win32') {\r
-      unless (defined &win32) {\r
+      unless (defined &_win32) {\r
         Imager->_set_error("Win32 Tk and Win32 support not built");\r
         return;\r
       }\r
-      $result = win32(hex($opts{widget}->id));\r
+      $result = _win32(hex($opts{widget}->id));\r
     }\r
     elsif ($sys eq 'x11') {\r
-      unless (defined &x11) {\r
+      unless (defined &_x11) {\r
         Imager->_set_error("X11 Tk and X11 support not built");\r
         return;\r
       }\r
 \r
       my $id_hex = $opts{widget}->id;\r
-      print "id $id_hex\n";\r
       $opts{widget}->can('frame') \r
         and $id_hex = $opts{widget}->frame;\r
-      print "id $id_hex\n";\r
       \r
       # is there a way to get the display pointer from Tk?\r
-      $result = x11(0, hex($id_hex));\r
+      $result = _x11(0, hex($id_hex));\r
     }\r
     else {\r
       Imager->_set_error("Unsupported windowing system '$sys'");\r
@@ -87,11 +85,11 @@ sub screenshot {
 }\r
 \r
 sub have_win32 {\r
-  defined &win32;\r
+  defined &_win32;\r
 }\r
 \r
 sub have_x11 {\r
-  defined &x11;\r
+  defined &_x11;\r
 }\r
 \r
 sub x11_open {\r
@@ -206,6 +204,10 @@ Closes a display returned by Imager::Screenshot::x11_open().
 \r
 =back\r
 \r
+=head1 LICENSE\r
+\r
+Imager::Screenshot is licensed under the same terms as Perl itself.\r
+\r
 =head1 AUTHOR\r
 \r
 Tony Cook <tonyc@cpan.org>\r