Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

BioGeek's scratchpad

by BioGeek (Hermit)
on Jul 28, 2004 at 09:31 UTC ( #377975=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w + use Test::Simple tests => 2; + use Tk; + my $mw = MainWindow->new; # create an object ok( defined $mw ); # check that we got something ok( $mw->isa('Tk') ); # and it's the right class + $mw->Label(-text => 'Hello, world!')->pack; is($mw->text, 'Hello World!', text() ); + $mw->Button( -text => 'Quit', -command => sub { exit }, )->pack; is($mw->text, 'Quit', text() ); is($mw->command, 'sub { exit }', text() );




Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Discipulus]: miracle choroba! and unbelivalbe carabinieri understood you
[choroba]: They even sent me a letter whether I'd be willing to come to Milano to testify in the court
[choroba]: I replied with "yes" but the trial never happened
[Discipulus]: dont be so sure choroba.. 11 years is not too long for an Eatalian judgement
[choroba]: I've moved to Prague in the meantime, they can't reach me anymore :-)
[Discipulus]: Eataly: average 8years and 7months for all 3 degrees of judgement..

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2017-11-20 09:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (286 votes). Check out past polls.

    Notices?