home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 May
/
Chip_2000-05_cd1.bin
/
zkuste
/
Perl
/
ActivePerl-5.6.0.613.msi
/
䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥
/
_26033f95e645ace4e10c372da6dee7e5
< prev
next >
Wrap
Text File
|
2000-03-23
|
4KB
|
110 lines
<HTML>
<HEAD>
<TITLE>Tk::Table - Scrollable 2 dimensional table of Tk widgets</TITLE>
<LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
<LINK REV="made" HREF="mailto:">
</HEAD>
<BODY>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
<TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
<STRONG><P CLASS=block> Tk::Table - Scrollable 2 dimensional table of Tk widgets</P></STRONG>
</TD></TR>
</TABLE>
<A NAME="__index__"></A>
<!-- INDEX BEGIN -->
<UL>
<LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
<LI><A HREF="#synopsis">SYNOPSIS</A></LI>
<LI><A HREF="#description">DESCRIPTION</A></LI>
<LI><A HREF="#bugs / snags / possible enhancements">BUGS / Snags / Possible enhancements</A></LI>
</UL>
<!-- INDEX END -->
<HR>
<P>
<H1><A NAME="name">NAME</A></H1>
<P>Tk::Table - Scrollable 2 dimensional table of Tk widgets</P>
<P>
<HR>
<H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
<UL>
<LI>Linux</LI>
<LI>Solaris</LI>
<LI>Windows</LI>
</UL>
<HR>
<H1><A NAME="synopsis">SYNOPSIS</A></H1>
<PRE>
use Tk::Table;</PRE>
<PRE>
$table = $parent->Table(-rows => number,
-columns => number,
-scrollbars => anchor,
-fixedrows => number,
-fixedcolumns => number,
-takefocus => boolean);</PRE>
<PRE>
$widget = $table->Button(...);</PRE>
<PRE>
$old = $table->put($row,$col,$widget);
$old = $table->put($row,$col,"Text"); # simple Label
$widget = $table->get($row,$col);</PRE>
<PRE>
$cols = $table->totalColumns;
$rows = $table->totalRows;</PRE>
<PRE>
$table->see($widget);
$table->see($row,$col);</PRE>
<PRE>
($row,$col) = $table->Posn($widget);</PRE>
<P>
<HR>
<H1><A NAME="description">DESCRIPTION</A></H1>
<P>Tk::Table is an all-perl widget/geometry manager which allows a two dimensional
table of arbitary perl/Tk widgets to be displayed.</P>
<P>Entries in the Table are simply ordinary perl/Tk widgets. They should
be created with the Table as their parent. Widgets are positioned in the
table using:</P>
<PRE>
$table->put($row,$col,$widget)</PRE>
<P>All the widgets in each column are set to the same width - the requested
width of the widest widget in the column.
Likewise, all the widgets in each row are set to the same height - the requested
height of the tallest widget in the column.</P>
<P>A number of rows and/or columns can be marked as 'fixed' - and so can serve
as 'headings' for the remainder the rows which are scrollable.</P>
<P>The requested size of the table as a whole is such that the number of rows
specified by -rows (default 10), and number of columns specified by -columns
(default 10) can be displayed.</P>
<P>If the Table is told it can take the keyboard focus then cursor and scroll
keys scroll the displayed widgets.</P>
<P>The Table will create and manage its own scrollbars if requested via
-scrollbars.</P>
<P>The Tk::Table widget is derived from a Tk::Frame, so inherits all its
configure options.</P>
<P>
<HR>
<H1><A NAME="bugs / snags / possible enhancements">BUGS / Snags / Possible enhancements</A></H1>
<UL>
<LI>
Very large Tables consume a lot of X windows
<P></P>
<LI>
No equivalent of pack's -anchor/-pad etc. options
<P></P></UL>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
<TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
<STRONG><P CLASS=block> Tk::Table - Scrollable 2 dimensional table of Tk widgets</P></STRONG>
</TD></TR>
</TABLE>
</BODY>
</HTML>