| Subject: | PATCH for top image background |
The topimage has a gray background, but it should have a white background (like the frame it's inside). This patch fixes this.
diff -c /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.7.typo1 /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm
*** /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.7.typo1 Thu Feb 10 09:45:37 2005
--- /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm Thu Feb 10 09:58:22 2005
***************
*** 651,657 ****
my $top_frame = $frame->Frame(-background=>'white')->pack(-fill=>'x',-side=>'top',-anchor=>'e');
my $p = $top_frame->Frame(-background=>'white');
$p->Photo( "topimage", -file => $self->cget(-topimagepath));
! $p->Label( -image => "topimage")->pack( -side=>"right", -anchor=>"e", -padx=>5,-pady=>5);
$p->pack(-side=>'right',-anchor=>'n');
my $title_frame = $top_frame->Frame(-background=>'white')->pack(
-side=>'left',-anchor=>'w',-expand=>1,-fill=>'x'
--- 651,657 ----
my $top_frame = $frame->Frame(-background=>'white')->pack(-fill=>'x',-side=>'top',-anchor=>'e');
my $p = $top_frame->Frame(-background=>'white');
$p->Photo( "topimage", -file => $self->cget(-topimagepath));
! $p->Label( -image => "topimage", -background=>'white')->pack( -side=>"right", -anchor=>"e", -padx=>5,-pady=>5);
$p->pack(-side=>'right',-anchor=>'n');
my $title_frame = $top_frame->Frame(-background=>'white')->pack(
-side=>'left',-anchor=>'w',-expand=>1,-fill=>'x'