home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _3094f6651a900ba17611a570bffcbe26 < prev    next >
Encoding:
Text File  |  2000-03-23  |  2.7 KB  |  97 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::Event - ToolKit for Events</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::Event - ToolKit for Events</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. </UL>
  26. <!-- INDEX END -->
  27.  
  28. <HR>
  29. <P>
  30. <H1><A NAME="name">NAME</A></H1>
  31. <P>Tk::Event - ToolKit for Events</P>
  32. <P>
  33. <HR>
  34. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  35. <UL>
  36. <LI>Linux</LI>
  37. <LI>Solaris</LI>
  38. <LI>Windows</LI>
  39. </UL>
  40. <HR>
  41. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  42. <PRE>
  43.  
  44.  use Tk::Event;</PRE>
  45. <PRE>
  46.  Tk::Event->fileevent(\*FH, 'readable' => callback);</PRE>
  47. <PRE>
  48.  Tk::Event->lineavail(\*FH, callback);</PRE>
  49. <PRE>
  50.  use Tk::Event::Signal qw(INT);</PRE>
  51. <PRE>
  52.  $SIG{'INT'} = callback;</PRE>
  53. <PRE>
  54.  use Tk::Event::process;</PRE>
  55. <PRE>
  56.  Tk::Event->proc($pid, callback);</PRE>
  57. <PRE>
  58.  QueueEvent(callback [, position])</PRE>
  59. <P>
  60. <HR>
  61. <H1><A NAME="description">DESCRIPTION</A></H1>
  62. <P>That is better than nothing but still hard to use. Most scripts want higher
  63. level result (a line, a ``block'' of data etc.)</P>
  64. <P>So it has occured to me that we could use new-ish TIEHANDLE thus:</P>
  65. <P>my $obj = tie SOMEHANDLE,Tk::Event::IO;</P>
  66. <P>while (<SOMEHANDLE>)
  67.  {
  68.  }</P>
  69. <P>Then the READLINE routine registers a callback and looks something like:</P>
  70. <P>sub READLINE
  71.  {
  72.   my $obj = shift;
  73.   Event->io(*$obj,'readable',sub { <A HREF="../../../lib/Pod/perlfunc.html#item_sysread"><CODE>sysread(*$obj,${*$obj},1,length(${*$obj})</CODE></A> });
  74.   my $pos;
  75.   while (($pos = <A HREF="../../../lib/Pod/perlfunc.html#item_index"><CODE>index(${*$obj},$/)</CODE></A> < 0)
  76.    {
  77.     DoOneEvent();
  78.    }
  79.   Event->io(*$obj,'readable',''); # unregister 
  80.   $pos += length($/);
  81.   my $result = substr(${*$obj},0,$pos);
  82.   <A HREF="../../../lib/Pod/perlfunc.html#item_substr"><CODE>substr(${*$obj},0,$pos)</CODE></A> = '';
  83.   return $result;
  84.  }</P>
  85. <P>This is using the scalar part of the glob representing the _inner_ IO
  86. as a buffer in which to accumulate chars.</P>
  87. <P></P>
  88. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  89. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  90. <STRONG><P CLASS=block> Tk::Event - ToolKit for Events</P></STRONG>
  91. </TD></TR>
  92. </TABLE>
  93.  
  94. </BODY>
  95.  
  96. </HTML>
  97.