home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _b87e4a2ff23a75bae8047616d303666d < prev    next >
Text File  |  2000-03-23  |  3KB  |  76 lines

  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::WinPhoto - Load a Photo image from a window</TITLE>
  5. <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> Tk::WinPhoto - Load a Photo image from a window</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#author">AUTHOR</A></LI>
  26. </UL>
  27. <!-- INDEX END -->
  28.  
  29. <HR>
  30. <P>
  31. <H1><A NAME="name">NAME</A></H1>
  32. <P>Tk::WinPhoto - Load a Photo image from a window</P>
  33. <P>
  34. <HR>
  35. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  36. <UL>
  37. <LI>Linux</LI>
  38. <LI>Solaris</LI>
  39. </UL>
  40. <HR>
  41. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  42. <PRE>
  43.   use Tk;
  44.   use Tk::WinPhoto;</PRE>
  45. <PRE>
  46.   my $image = $mw->Photo(-format => 'Window', -data => oct($mw->id));
  47.   $image->write($path_name, -format => 'BMP|PPM|XPM');</PRE>
  48. <P>
  49. <HR>
  50. <H1><A NAME="description">DESCRIPTION</A></H1>
  51. <P>This is an extension for Tk800.* which will load a Photo image
  52. from a snapshot of an X window specified by the -data option.</P>
  53. <P>The window must exist and be visible. Because the code allows
  54. you to capture windows not owned by Tk it does not attempt to
  55. enforce this. If you are capturing one of Tk's windows then
  56. use <CODE>$w->update</CODE>.</P>
  57. <P>If window is mapped, but obscured by other windows then what is captured is the
  58. rectangle the window would occupy. This can be considered a feature.
  59. For Tk-owned windows <CODE>$w->raise</CODE> can used to bring window forward.</P>
  60. <P>Once the Photo is loaded it can be saved using
  61. <A HREF="../../../lib/Pod/perlfunc.html#item_write"><CODE>$image->write(-format => ...)</CODE></A> using any of formats which support
  62. writing.</P>
  63. <P>
  64. <HR>
  65. <H1><A NAME="author">AUTHOR</A></H1>
  66. <P>Nick Ing-Simmons <<A HREF="mailto:nick@ni-s.u-net.com">nick@ni-s.u-net.com</A>></P>
  67. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  68. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  69. <STRONG><P CLASS=block> Tk::WinPhoto - Load a Photo image from a window</P></STRONG>
  70. </TD></TR>
  71. </TABLE>
  72.  
  73. </BODY>
  74.  
  75. </HTML>
  76.