home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _ffc3633a84295a03df81aa447d095734 < prev    next >
Text File  |  2000-03-23  |  3KB  |  101 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::Cloth - An OO Tk Canvas</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::Cloth - An OO Tk Canvas</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="#see also">SEE ALSO</A></LI>
  26.     <LI><A HREF="#author">AUTHOR</A></LI>
  27.     <LI><A HREF="#copyright">COPYRIGHT</A></LI>
  28. </UL>
  29. <!-- INDEX END -->
  30.  
  31. <HR>
  32. <P>
  33. <H1><A NAME="name">NAME</A></H1>
  34. <P>Tk::Cloth - An OO Tk Canvas</P>
  35. <P>
  36. <HR>
  37. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  38. <UL>
  39. <LI>Linux</LI>
  40. <LI>Solaris</LI>
  41. <LI>Windows</LI>
  42. </UL>
  43. <HR>
  44. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  45. <PRE>
  46.     use Tk::Cloth;
  47. </PRE>
  48. <PRE>
  49.  
  50.     $cloth = $parent->Cloth;
  51.     $cloth->pack(-fill => 'both', -expand => 1);</PRE>
  52. <PRE>
  53.  
  54.     $rect = $cloth->Rectangle(
  55.         -coords => [ 0,0,100,100],
  56.         -fill => 'red'
  57.     );</PRE>
  58. <PRE>
  59.  
  60.     $tag = $cloth->tag;
  61.     $tag->Line(
  62.         -coords => [10,10,100,100],
  63.         -foreground => 'black'
  64.     );
  65.     $tag->Line(
  66.         -coords => [50,50,100,100],
  67.         -foreground => 'black'
  68.     );
  69.     $tag->move(30,30);</PRE>
  70. <PRE>
  71.  
  72.     $tag->bind("<1>", [ &button1 ]);</PRE>
  73. <P>
  74. <HR>
  75. <H1><A NAME="description">DESCRIPTION</A></H1>
  76. <P><STRONG>Tk::Cloth</STRONG> provides an object-orientated approach to a canvas and canvas
  77. items.</P>
  78. <P>
  79. <HR>
  80. <H1><A NAME="see also">SEE ALSO</A></H1>
  81. <P><A HREF="../../../site/lib/Tk/Canvas.html">Tk::Canvas</A></P>
  82. <P>
  83. <HR>
  84. <H1><A NAME="author">AUTHOR</A></H1>
  85. <P>Graham Barr <<EM><A HREF="mailto:gbarr@pobox.com">gbarr@pobox.com</A></EM>></P>
  86. <P>
  87. <HR>
  88. <H1><A NAME="copyright">COPYRIGHT</A></H1>
  89. <P>Copyright (c) 1997-1998 Graham Barr. All rights reserved.
  90. This program is free software; you can redistribute it and/or modify it
  91. under the same terms as Perl itself.</P>
  92. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  93. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  94. <STRONG><P CLASS=block> Tk::Cloth - An OO Tk Canvas</P></STRONG>
  95. </TD></TR>
  96. </TABLE>
  97.  
  98. </BODY>
  99.  
  100. </HTML>
  101.