On Tuesday 24 February 2004 04:29, Michael Ragsdale generously enriched
virtual reality by making up this one:
..
> >However, dont pass the object - pass a refernece to it in line 2, like:
> >my $go = $right->Button(-text=>'Get Data',-command=>sub{compute(\
> >$ent)})->pack(-side=>'top');
> >
>
At 03:40 AM 2/24/2004, R. Joseph Newton wrote:
Though this doesn't affest the compilation or running of your code, it
does affect people's willingness to help--can you see the difference
between say this:
$left->Label(
and [big hint here] these:
-text=>"",-width=>12,-background=>'white' ?
Please
Michael Ragsdale wrote:
> Versions:
> Perl 5.6.1
> DBI 1.28
> DBD::Oracle 1.06
> Tk 800.023
>
> I'm trying to learn Tk and have it interact with a database but having
> problems passing variables:
>
> use strict;
> use Tk;
> use DBI;
> use DBD::Oracle;
>
> my $main = MainWindow->ne
At 06:24 PM 2/23/04, wolf blaum wrote:
On Monday 23 February 2004 18:31, Michael Ragsdale generously enriched
virtual reality by making up this one:
> my $ent =$right->Entry->pack;
^line 1
> my $go = $right->Button(-command=>sub{compute($ent)})->pack;
^line2
> MainLoop();
>
> sub compute {
> [..
On Monday 23 February 2004 18:31, Michael Ragsdale generously enriched virtual
reality by making up this one:
..
Hi Mike,
> my $ent =$right->Entry(-width=>8,-background=>'white')->pack(-side=>'left');
^line 1
> my $go = $right->Button(-text=>'Get
> Data',-command=>sub{compute($ent)})->pack(-
