This is part of The Pile, a partial archive of some open source mailing lists and newsgroups.
From: cam@ntwk.net (Cameron)
Subject: Re: load image background in main window
Newsgroups: comp.lang.perl.tk
Date: 20 Sep 2003 06:46:18 -0700
slsbdfc@nus.edu.sg (Didier Casse) wrote:
> I'm trying to place a background in the Main Window as follows but it
> doesn't seem to work. Can anybody correct my syntax? Thanks a lot.
>
> ------------------------------------------------------------------------------
> $main -> Photo('bg', -file =>
> "/home/didier/backgrounds/blue.gif");
> my $main = MainWindow->new(-image=>'bg');
> ------------------------------------------------------------------------------
The following works for me:
# Background image for main screen
$mainimage = $mw->Photo(-file=>"/images/image.gif");
$mw -> Label(-image => $mainimage) -> pack(-expand => 1);
===
From: slsbdfc@nus.edu.sg (Didier Casse)
Subject: Re: load image background in main window
Newsgroups: comp.lang.perl.tk
Date: 20 Sep 2003 23:51:42 -0700
> The following works for me:
>
> # Background image for main screen
> $mainimage = $mw->Photo(-file=>"/images/image.gif");
> $mw -> Label(-image => $mainimage) -> pack(-expand => 1);
Thanks for the reply Cameron, but it your case, it gives the error
message,
"Can't call method Photo on an undefined value". However your reply
spurred the solution:
my $main = new MainWindow;
$main->Photo('bg','-file' => 'image.gif');
$main->Label(-image=>'bg')->pack;
now how can I create a button on this image, since it will load the
image but place any button underneath the image!
===
From: cam@ntwk.net (Cameron)
Subject: Re: load image background in main window
Newsgroups: comp.lang.perl.tk
Date: 23 Sep 2003 10:50:01 -0700
slsbdfc@nus.edu.sg (Didier Casse) wrote:
> > The following works for me:
> >
> > # Background image for main screen
> > $mainimage = $mw->Photo(-file=>"/images/image.gif");
> > $mw -> Label(-image => $mainimage) -> pack(-expand => 1);
> Thanks for the reply Cameron, but it your case, it gives the error
> message,
>
> "Can't call method Photo on an undefined value". However your reply
> spurred the solution:
>
> my $main = new MainWindow;
> $main->Photo('bg','-file' => 'image.gif');
> $main->Label(-image=>'bg')->pack;
>
> now how can I create a button on this image, since it will load the
> image but place any button underneath the image!
# Create a label widget for the main area.
$blueframe = $mw->Frame(-bg => 'darkblue', -container => 0);
$blueframe->pack(-fill => 'both', -side => 'top', -expand => 1);
# Background image for main screen
$mainimage = $blueframe->Photo(-file=>"/images/foo.gif");
$blueframe -> Label(-image => $mainimage) -> pack(-expand => 1);
===