<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
p
        {mso-style-priority:99;
        mso-margin-top-alt:auto;
        margin-right:0in;
        mso-margin-bottom-alt:auto;
        margin-left:0in;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
span.apple-style-span
        {mso-style-name:apple-style-span;}
span.EmailStyle18
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.0in 1.0in 1.0in;}
div.Section1
        {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Hello Garth,<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Here is my Tk code, but I’m running some issue here..<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:red'>Error: can’t locate TK/TableMAtrix/Spreedsheet.pm<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:red'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:red'>Any idea why?<o:p></o:p></span></p>
<p><span style='font-size:9.0pt;font-family:"Courier New"'>#!/usr/local/bin/perl
–w<o:p></o:p></span></p>
<p><span style='font-size:9.0pt;font-family:"Courier New"'>Use strict;<o:p></o:p></span></p>
<p><span style='font-size:9.0pt;font-family:"Courier New"'>use Tk; <br>
use Tk::TableMatrix::Spreadsheet; <br>
$mw = MainWindow->new; <br>
$mw->configure(-title=>'Testing'); <br>
$mw->minsize(qw(500 200)); <br>
$menu = $mw->Frame()->pack(-side=>'top',-fill=>'x'); <br>
$menu_file = <br>
$menu->Menubutton(-text=>'File', <br>
-tearoff=>'false' <br>
)->pack(-side=>'left'); <br>
$menu_file->command(-label=>'Exit',-command=>sub{$mw->destroy}); <br>
$frame = <br>
$mw->Frame(-height=>'10', <br>
-width=>'30', <br>
-relief=>'groove', <br>
-borderwidth=>'3' <br>
)->pack(-fill=>'x',-pady=>'0'); <br>
@border = (0,0,0,1); <br>
$arrayVar->{"0,0"} = "%"; <br>
$arrayVar->{"0,1"} = "Artist"; <br>
$arrayVar->{"0,2"} = "Album"; <br>
$arrayVar->{"0,3"} = "Year"; <br>
$arrayVar->{"0,4"} = "Genre"; <br>
$table = $frame->Scrolled('Spreadsheet', <br>
-cols => 5, <br>
-width => 5, <br>
-height => 6, <br>
-titlerows => 1, <br>
-variable => $arrayVar, <br>
-selectmode => 'multiple', <br>
-selectmode => 'extended', <br>
-selecttype => 'row', <br>
-resizeborders => 'col', <br>
-bg => 'white', <br>
-rowheight => 2, <br>
-bd => \@border, <br>
-justify => 'left', <br>
-drawmode => 'compatible', <br>
-wrap => 0, <br>
-relief => 'solid' <br>
)->pack(-fill=>'both'); <br>
$table->rowHeight(0,1); <br>
$table->tagRow('title',0); <br>
$table->tagConfigure('title', -bd=>2, -relief=>'raised'); <br>
$table->colWidth(0,5,3,6,4,10); <br>
#$table->selectionAnchor('topleft'); <br>
$table->activate("1,0"); <br>
MainLoop(); <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> sanfrancisco-pm-bounces+lemseffert=sacsewer.com@pm.org
[mailto:sanfrancisco-pm-bounces+lemseffert=sacsewer.com@pm.org] <b>On Behalf Of
</b>Garth Webb<br>
<b>Sent:</b> Friday, August 27, 2010 1:54 PM<br>
<b>To:</b> San Francisco Perl Mongers User Group<br>
<b>Subject:</b> Re: [sf-perl] Tk<o:p></o:p></span></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span class=apple-style-span><span style='font-size:10.0pt;
font-family:"Arial","sans-serif"'>Yes that is possible to do with Perl/Tk. I
googled Perl/TK found a few tutorials that will help you get started:<o:p></o:p></span></span></p>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><a
href="http://www.bin-co.com/perl/perl_tk_tutorial/" target="_blank"><span
style='color:#112508'>http://www.bin-co.com/perl/perl_tk_tutorial/</span></a><o:p></o:p></span></p>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><a
href="http://www.lehigh.edu/~sol0/ptk/perlmonth01/pm1.html" target="_blank"><span
style='color:#112508'>http://www.lehigh.edu/~sol0/ptk/perlmonth01/pm1.html</span></a><o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>and
of course the POD for TK itself:<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><a
href="http://search.cpan.org/~ni-s/Tk-804.027/pod/UserGuide.pod" target="_blank"><span
style='color:#112508'>http://search.cpan.org/~ni-s/Tk-804.027/pod/UserGuide.pod</span></a><o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>HTH<o:p></o:p></span></p>
</div>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Garth<o:p></o:p></span></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>On Fri, Aug 27, 2010 at 1:36 PM, Lemseffer. Tahar (SDA) <<a
href="mailto:lemseffert@sacsewer.com">lemseffert@sacsewer.com</a>> wrote:<o:p></o:p></p>
<p class=MsoNormal>That is true the worst that can happen is you say "i
dunno".<br>
Ok here is my little delima.<br>
I want to create a Table with the fields: Point Name, Point Description,<br>
Point Status, and comments field.<br>
I want to be able to enter it Point Name ..etc manually into the table.<br>
<br>
Any help will be appreciated<br>
Thank you<br>
T<o:p></o:p></p>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><br>
-----Original Message-----<br>
From: Joe Brenner [mailto:<a href="mailto:doom@kzsu.stanford.edu">doom@kzsu.stanford.edu</a>]<br>
Sent: Friday, August 27, 2010 1:31 PM<br>
To: Lemseffer. Tahar (SDA)<br>
Cc: San Francisco Perl Mongers User Group<br>
Subject: Tk<br>
<br>
<br>
Lemseffer. Tahar (SDA) <<a href="mailto:lemseffert@sacsewer.com">lemseffert@sacsewer.com</a>>
wrote:<br>
<br>
> Good Afternoon All,<br>
> Is anyone familiar with TK?<br>
<br>
I wouldn't say "familiar", but I used it a while back. Feel free to
hit<br>
us with your question, the worst that can happen is we say "i dunno".<o:p></o:p></p>
</div>
<p class=MsoNormal>____________________________________________________________________________<br>
EMAIL DISCLAIMER:<br>
This email and any attachments thereto may contain private, confidential, and<br>
privileged material for the sole use of the intended recipient. Any review,<br>
copying, or distribution of this email (or any attachments thereto) by other<br>
than the intended recipient is strictly prohibited.<br>
<br>
If you are not the intended recipient, please contact the sender immediately<br>
and permanently delete the original and any copies of this email and any<br>
attachments thereto.<br>
_____________________________________________________________________________<o:p></o:p></p>
<div>
<div>
<p class=MsoNormal><br>
_______________________________________________<br>
SanFrancisco-pm mailing list<br>
<a href="mailto:SanFrancisco-pm@pm.org">SanFrancisco-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/sanfrancisco-pm" target="_blank">http://mail.pm.org/mailman/listinfo/sanfrancisco-pm</a><o:p></o:p></p>
</div>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</body>
</html>