Tk Notebook page Image

Kandankarunai has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Tk Notebook page Image by vkon (Curate) on Apr 08, 2011 at 06:20 UTC
are you asking on how to place image in notebook pages as decorations, so other widgets will be placed on that notebook above this image? or you're asking on how just to place image in notebook area?	[reply]
Re^2: Tk Notebook page Image by Kandankarunai (Novice) on Apr 08, 2011 at 06:32 UTC
Dear Vkon, Yes.I am asking about how to place the image in notebook pages as decorationss so other widgets will be placed on that notebook above this image?	[reply]
Re^3: Tk Notebook page Image by Anonymous Monk on Apr 08, 2011 at 07:28 UTC
What does that mean? Tk::NoteBook says -bitmap Specifies a bitmap to display on the tab of this page. The bitmap is displayed only if none of the -label or -image options are specified. -image Specifies an image to display on the tab of this page. The image is displayed only if the -label option is not specified.	[reply]
Re^3: Tk Notebook page Image by vkon (Curate) on Apr 08, 2011 at 06:52 UTC
in my opinion - this is not possible. why do you want it, anyway?	[reply]
Re^4: Tk Notebook page Image by Kandankarunai (Novice) on Apr 08, 2011 at 08:41 UTC
Re: Tk Notebook page Image by zentara (Cardinal) on Apr 08, 2011 at 16:44 UTC
I don't know if I understand your problem correctly, but you will probably have to get the size of frame you want to display in, then resize your photo to fit exactly. Otherwise you would have to go to some vector graphics format, like .svg, which Tk dosn't handle, but Gtk2 does. Here is an example. See as you resize the app, the graphic will stay centered, and if you bind to the resize event, you can call a routine to resize your graphics, but the results may be jittery and slow. #!/usr/bin/perl use warnings; use strict; use Tk; use Tk::NoteBook; use Tk::JPEG; use MIME::Base64; my $mw = MainWindow->new; my $image = $mw->Photo(-data => get_photo() ); my $nb = $mw->NoteBook( -ipadx => 10, -ipady => 10, )->pack( -side => 'top', -expand => '1', -fill => 'both' ); for my $tab (qw/page1 page2 page3 page4 page5 page6/){ my $frame = $nb->add($tab, -label => $tab, ); $frame->Label(-text => $tab)->pack; $frame->Label(-text => 'a Label in '.$tab)->pack; $frame->Label(-image => $image) -> pack(-expand => 1, -fill =>'bo +th'); } MainLoop; #this method works as easy as it does, because #Tk needs it's images to be base64 encoded anyways, #use this to encode #my $file = shift; #open (FH,"< $file") or die $!; #my $photo = do {local $/; <FH>}; #my $content = encode_base64($photo) or die $!; #print $content; #don't forget to '' quote sub get_photo{ my $photo = '/9j/4AAQSkZJRgABAQIASABIAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UH +RofHh0a HBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMj +IyMjIy MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAA8AE +MDASIA AhEBAxEB/8QAHAAAAgIDAQEAAAAAAAAAAAAAAAQFBwIDCAYB/8QAMBAAAQMCBQMCBQMFAA +AAAAAA AQIDBAARBQYSITEHUXETYSIyQUKBFTOhI1KRscH/xAAaAQEBAQADAQAAAAAAAAAAAAAAAQ +IDBQYE /8QAIxEAAgEDAwQDAAAAAAAAAAAAAAECAwQREyExBRJBkVFSof/aAAwDAQACEQMRAD8Ap5 +brjgSF uLUEgBIUomwACRb8ADwB2rCl5bymWgU8k2v2oiyPWGk/OP5oBiiilYkbEsanCJhsZ+S8r5 +Wo6CtR 97DegGqKZw3LWZpk6RDYwiY69GIS+0WiFNk8A34J+gPNaHW3GHVtPIU242opWhYsUkcgg8 +GgNa3E Nga1AXr6CFC4NxUXKe9Z24+UbCm4CiWSD9DtQE07jmKvurdXiMrUo3Ol0pA8AbAew2FFR9 +FY0ofV F7n8is9N2QexqPQstrCk8ipd1HqNKR3FQ6klKikixFbIS3qhcYuJ/tJ8V7LpFjWV8Pm4rh +2aU6Yu JMJZD11AJsoK0lSTqAJA3Haq9Ze0sutk7Ebb/WiEtpucwt9OppKwVp7i+9R8A6jVO/Ucfm +TGMBZm YEsxnI6npBaccdZvpeSLG4sQAFEXCQeDVV9a1uzsyJxVjBZUGO6wht5x1KbLdBVc3SSPl0 +jm/wAN WejGn3mmpGH4Yqdh7qApp2K+gK8FKym1uOT+K8x1CzNHiZUmQMSYaRMmJ0sRQ6HFJTt8a7 +CwII2t fgb828pa9avalyoSgmm+E91++POV6OzqWlGNPKb29FA1KQkaI4J+43qOab9V1KO53qZAsA +BwK9Yd YFFZBtZFwhVvFFTKGDGkpse49VPP3Cnaxct6ar8WNUELW+HEkT5bUSK0t191QQ22gXKiTY +ACtFWR 0LQ0vqnh/qtayG3Sg2uEq9NW/wDugLEyX0XzHBw0KxDM8jDC4NRiRPj0+VXtfwD5rxHVLp +PiOUo/ 64nE14nDccCHXHEkONqPGrc3B7966qqMzBgcPMuAy8HnhRjSkaVaDYixBBHuCAfxWFTgpO +SW7K5N rBxFAaGlTvJ48U7Tmasrzsi5qfwmbct31NPWsHWz8qh/33BFJ1shaLs7qHiTpmwoOMRoz/ +8AUbai IfDQB3ukEnY882322tRUE9nTMDjzjjeKS46VqKvSYkOIQm+5skKsB7DaigPF0vMVpjH32p +ik8Q/b R5oCPrq3ofktnL+UGsYebviOJoDhUoboa+1I87KPe47VyvHSFyWkngrAP+a71jR24kVmMy +nS0yhL aE9kgWAoDbRRRQFc9ZsnR8zZJkzUpAn4W2qSy59SgC60n2IF/IHvXLkVZcjpJ5GxrrzqfN +dgdM8f fZ06zFLXxC+yyEH+FGuQIP7Fve9AW9Iw+JIfU7h+TJaoqrFsuy1sqO290FSrb3+p7+1FQK +HXEoAW UuqAtrW2gqPnaivld3BPGGcmkz//2Q=='; return $photo; } [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]