Problem with tk and displaying on the screen

[derek / nul]

I have just copied this program from a book (Active perl Developers Guide)

I get an error:-

Undefined subroutine &main::MainLoop called at tk2.pl line 28. (MainLoop();)

What have I missed?

Derek



#win32 Activestate 5.8.0

use strict;
use warnings;
use tk;

my $main;
my $label;
my $button;
my $icon;

$main = MainWindow->new();
$main->title("Hello World!");

$label = $main->Label(text => 'Hello from tk!');
$button = $main->Button();

$icon = $button->Photo(-file => 'icon.gif');
$button->configure(image => $icon,
command => sub { exit; }
);

$label->pack(side => 'left');
$button->pack(side => 'left',
padx => 5
);

MainLoop();

[derek / nul]

On Tue, 1 Jul 2003 18:44:50 +0200, "Markus W." <ehm.weihs@utanet.at> wrote:

>Hi Derek!
>
>Try Tk::MainLoop();

Undefined subroutine &tk::MainLoop called at tk2.pl line 28.

??

>"derek / nul" <abuse@sgrail.org> schrieb im Newsbeitrag
>news:6gc3gv0l5ujfdkmqhgl5v1rb2v78d1e314@4ax.com.. .

>> I have just copied this program from a book (Active perl Developers Guide)
>>
>> I get an error:-
>>
>> Undefined subroutine &main::MainLoop called at tk2.pl line 28.

>(MainLoop();)

>>
>> What have I missed?
>>
>> Derek
>>
>>
>>
>> #win32 Activestate 5.8.0
>>
>> use strict;
>> use warnings;
>> use tk;
>>
>> my $main;
>> my $label;
>> my $button;
>> my $icon;
>>
>> $main = MainWindow->new();
>> $main->title("Hello World!");
>>
>> $label = $main->Label(text => 'Hello from tk!');
>> $button = $main->Button();
>>
>> $icon = $button->Photo(-file => 'icon.gif');
>> $button->configure(image => $icon,
>> command => sub { exit; }
>> );
>>
>> $label->pack(side => 'left');
>> $button->pack(side => 'left',
>> padx => 5
>> );
>>
>> MainLoop();
>>

>

[derek / nul]

good call and thank you.

The use tk; was wrong

put in use Tk; and all is well

many thanks

On Tue, 1 Jul 2003 19:00:45 +0200, "Markus W." <ehm.weihs@utanet.at> wrote:

,snip>

>Did you write
> tk::MainLoop()
>or
> Tk::MainLoop()
>?
>
>

>> >> #win32 Activestate 5.8.0
>> >>
>> >> use strict;
>> >> use warnings;
>> >> use tk;

^^^^^^^^^^^^^^^^^^^^

>> >> my $main;
>> >> my $label;
>> >> my $button;
>> >> my $icon;
>> >>
>> >> $main = MainWindow->new();
>> >> $main->title("Hello World!");
>> >>
>> >> $label = $main->Label(text => 'Hello from tk!');
>> >> $button = $main->Button();
>> >>
>> >> $icon = $button->Photo(-file => 'icon.gif');
>> >> $button->configure(image => $icon,
>> >> command => sub { exit; }
>> >> );
>> >>
>> >> $label->pack(side => 'left');
>> >> $button->pack(side => 'left',
>> >> padx => 5
>> >> );
>> >>
>> >> MainLoop();
>> >>
>> >

>>

>

[Brian Helterline]

"derek / nul" <abuse@sgrail.org> wrote in message
news:q2g3gvka9ougjqmk7ejjhvga0n8b7hhbmj@4ax.com...

> good call and thank you.
>
> The use tk; was wrong

This is a nasty little feature of Windows (or any case-insensitive OS)
When it looks for the file to 'use', it succeeds since the OS is doing
the searching in a case-insensitive manner. When perl looks for the
functions
that were imported, it does it itself in a case-sensitive manner and fails!

Anyone know of a way to fix this?

-brian


{snip rest of thread}

[Bob Walton]

Brian Helterline wrote:

> "derek / nul" <abuse@sgrail.org> wrote in message
> news:q2g3gvka9ougjqmk7ejjhvga0n8b7hhbmj@4ax.com...

....

> This is a nasty little feature of Windows (or any case-insensitive OS)
> When it looks for the file to 'use', it succeeds since the OS is doing
> the searching in a case-insensitive manner. When perl looks for the
> functions
> that were imported, it does it itself in a case-sensitive manner and fails!
>
> Anyone know of a way to fix this?

use Linux;-)

>
> -brian

--
Bob Walton

[Helgi Briem]

On Tue, 1 Jul 2003 14:06:03 -0700, "Brian Helterline"
<brian_helterline@hp.com> wrote:

>> The use tk; was wrong

>
>This is a nasty little feature of Windows (or any case-insensitive OS)
>When it looks for the file to 'use', it succeeds since the OS is doing
>the searching in a case-insensitive manner. When perl looks for the
>functions that were imported, it does it itself in a case-sensitive
>manner and fails!
>
>Anyone know of a way to fix this?

Learn to spell properly.