Perl/TK NoteBook Q.

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

Replies are listed 'Best First'.
Re: Perl/TK NoteBook Q. by zentara (Cardinal) on Sep 02, 2014 at 14:48 UTC
how to "tie" the Buttons into the Page (Tab) they displayed on You need to stuff all your widgets into a big hash, which can be referred to by page or tab number. For instance, $tabs{1}{'text'} or $tabs{3}{'canvas'}, etc. Don't be afraid to have a complete widget set for each page. As long as you can keep track of them. :-) An old example I have: :-) #!/usr/bin/perl use warnings; use strict; use Tk; use Tk::NoteBook; use Tk::Pane; use Tk::JPEG; #load a sample photo my $pic = get_pic(); my $mw = MainWindow->new(); $mw->geometry('600x400+300+100'); my $image = $mw->Photo(-data => $pic); my $pane = $mw->Scrolled('Pane', Name => 'scroll test', -width => 600, -height => 400, -scrollbars => 'osoe', -sticky => 'ne', ); $pane->pack; my $nb = $pane->NoteBook(-width=>400, -background => 'green' ); my @colors = qw(ivory yellow white black cyan pink snow linen bisque green azure gray navy blue turquoise chartreuse khaki gold peru red); my %tabs; for(1..20){ $tabs{$_}{'name'} = 'tab'.$_; #print 'tab->',$tabs{$_}{'name'},"\n"; my $tab = $nb->add("page$_", -label=>"Student $_"); $tabs{$_}{'image'} = $tab->Label(-image => $image, -bg => 'black') ->pack(-side => 'left', -anchor => 'n', -fill => 'y'); $tabs{$_}{'text'} = $tab->Scrolled('Text', -scrollbars=>'se', ,-bg => $colors[0]) ->pack(-side => 'left', -anchor => 'n'); $tabs{$_}{'text'}->insert('end', "Tab $_"); $tabs{$_}{'canvas'} = $tab->Canvas(-background=>"yellow") ->pack(-side => 'left', -anchor => 'n'); $tabs{$_}{'canvas'}->createText(30,40, -text=>"Canvas $_"); #$pane->configure( -scrollregion => [0,0,$nb->reqwidth,$nb->reqheight] +); $nb->Resize; push (@colors,shift(@colors)); } #$pane->configure( -scrollregion => [0,0,$tab->reqwidth,$tab->reqheigh +t]); #$nb->Resize; $nb->pack; $tabs{1}{'text'}->insert('end',"\nAdd this from outside the loop"); #$nbf1=$nb1->Scrolled('Text', -scrollbars=>'se')->pack; #$nbf1->insert('end', "Tab 1"); #$nbf2=$nb2->Label(-text=>"Tab 2")->pack; #$nbf2=$nb2->Label(-text=>"Tab 2")->pack; #$nbf3=$nb3->LabFrame(-label=>"Tab 3", -labelside=>"acrosstop")->pack; #$nbf3b1=$nbf3->Radiobutton(-text=>"Radiobutton1")->pack(-anchor=>"nw" +); #$nbf3b2=$nbf3->Radiobutton(-text=>"Radiobutton2")->pack(-anchor=>"nw" +); #$nbf4=$nb4->Canvas(-background=>"yellow")->pack; #$nbf4->createText(30,40, -text=>"Tab 4"); #$nb->pack; #$mf->pack; MainLoop; sub get_pic{ my $pic= '/9j/4AAQSkZJRgABAgEASABIAAD/7QG4UGhvdG9zaG9wIDMuMAA4QklNA+kAAAAAAHgAA +wAAAEgA SAAAAAADAAJM//T/9AMMAlgDRwUoA/wAAgAAAEgASAAAAAAC2AIoAAEAAABkAAAAAQADAw +MAAAAB Jw8AAQABAAAAAAAAAAAAAAAAYAgAGQGQAAAAABAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAA +AAAAA4 QklNA+0AAAAAABAASAAAAAEAAQBIAAAAAQABOEJJTQPzAAAAAAAIAAAAAAAAAAA4QklNJx +AAAAAA AAoAAQAAAAAAAAACOEJJTQP1AAAAAABIAC9mZgABAGxmZgAGAAAAAAABAC9mZgABAKGZmg +AGAAAA AAABADIAAAABAFoAAAAGAAAAAAABADUAAAABAC0AAAAGAAAAAAABOEJJTQP4AAAAAABwAA +D///// ////////////////////////A+gAAAAA/////////////////////////////wPoAAAAAP +////// //////////////////////8D6AAAAAD/////////////////////////////A+gAADhCSU +0EBgAA AAAAAgAC/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFR +MTGBEM DAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg +4ODhQR DAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgA9ADjAw +EiAAIR AQMRAf/EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAA +AAAQAC AwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJB +VSwWIz NHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5P +SltcXV 5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBE +FRYXEi EwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8r +OEw9N1 4/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//dAAQAD//aAAwDAQ +ACEQMR AD8A8qSSSSUpJJJJSkkkklKSSSSUpJJJJSkkSvHtsggQ0/nO0HgjV4tJdD7CY+kGwI+BP/ +kUlNVJ abMHFBjV5I0Dp/LWG/8AUojemMnd6fwbJ0+TwlY7rhCR2FuQpMrssMMaXRzA4+K23VUMbs ++z1boM Fwg8+TtqE94Aa0uAaB9FomB/1s+5JRgRu03YbK8Syx5mwbYA4Ekf53tVNXsjJa2t1bWD3y +DOp4A3 O/q/4JUUStUkkkgpSSSSSlJJJJKUkkkkpSSSSSlJJJJKf//Q8qSSSSUpJJJJSkgCSABJOg +ASTte9 hlji0nSQYSUmrxZ/nDEQdjdXa66/uon2ekskA886z4+Da0Gui26XdjqXHurFdePUT7S90Q +J8fzuN qP0UiOPUY1ezTUkB0/1fop6qWMdrFr+WgSW/2uFZJs2y4trby1hHP9mNqs9Lpx3vdZaARJ +JcdAOU CQAT2XxxkyAvdpWttcNznS4mCSYEqNeNcYMEz22k/wAFfvyfWeTjgV18B5A3kf1nfQYqP2 +gus2Gx wr7uBOv/AH5ISJ8EyjEeKfd6JiwtBH5jfH+W5rnNR6qxlNDq7Qx/BrOo/s/+cLOuqFdpZw +QAQDwf /IqBY8HUbATHeB/1SBGm9KEqNEWOzsNxcquTZT6rOZDiP83a5SdjUZLQKS5r2j9JU4AEA/ +1vpqni 2loAc8nj6JjX+3tWrTbVYRL3NcBptc1h/wA6ve5MnIjW/sZ4RjIV07H/AL5pWYWVjEtpIc +DO7Qbg f3Xb9rv8xVnY7ch+w1ufZHLQZ/6If/01uOxztOrXSJAe97/+ju2f9BZuZkOa01vDiP3QGh +v+ZU5j P8+tKGQnTQrcmCI11Acx3TbBZsD2nxkgEf2VHIxaqWFwt9Qkw2BGv506/uo32h9hPph0a/ +Rbp/39 I3WOO2wueBw15BAHnv8AY5S6dmuY9i0ElfdiV21y1npu5Dp9pnx5b/mqrdi3U/Tb7f3hqE +EUUSSS SSlJJJJKUkkkkpSSSSSn/9HypJJJJSkkkklKRcasPfJja3x1/wCj+7+8hK1jbmVF5Gh1ae +AZ9vu/ zElNoua1myvRxEbjHtH/AH32/wA4ogsrG6oe4/nuEmVFg3EMBl5G5xPH8n/pJW7ftDauBM +EdwEj2 ZBdX9FZL3tobLyXXy466RO1vt/sPRKj6jHVCWtBDAO8CfU3R/IarOZRR9nbeJY+pjSyOwn +4/y1VY wU1NLiQ55BI/dZDvT/tvc5NBsLzExlrtTHIPLBwdVWZY4Oa5g9zSHNHaQf8AySsA7gDJeY +I001kf +RVZzYftA0iPuRGzHI2bTWAOaHtkhgIHjtM/9SnaHCB+6Q75f67FMWBjA5vM66chHYayRs +ZBMkNm RH03e32fm7HoEr4xs7oqrK63hr2B4aACCP8AX85Wiyt0mtggQQNe49v0So24zZGTLWtbEt +Ohc0j8 36XuRKqDU/vY2AWAab2Omz9H/L/w2z/jkwkb2yxBB4SNF6rXtYCz2l/tBaY1/tV2pwXvIc +bLDA3O BJJj/ttiNXjsJ9MuAqs1DuR32v8A6qDdXkY9u17YsGrd3B/tJti6FMnCa1ukzq/Vbo71HN +5BDSNR +Y+Pz/zHrOyqzBDWCvaQCwaf9H6TXf8AQV/HbY8udVpt0cXHj95ln7lf9T+Yt/4NW7cUXu +d61UWR Bcfpf9Hc1zf6n/G/8GkJ8J3RKPHFwcd9lcvqdp+d4j+srddmsuaH1cua3Qj+VXH0HfnIlv +TH1vc+ kw5v0Qe/7rf/ACCatrcmrdWBVl1g+0e0O2/m7U4yB1DEIEemX0/rOdm4dRduxASIkNPMf+ +T/AKn/ AEHqgtd4dtNjPa5pixng5VMvGDm/aKoI/wAIAZM/vqQFgnGjps00kkkVqkkkklKSSSSU/w +D/0vKk kkklKSSSSUpXaA22qpsyWna5vkXblSVqguor3TDrRx3A7f5ySQ26QRZcQ0FwZLfEhh/6rb +sVRj/0 xe86Ey74Tu9v9pWqXPDWlvucDuDRMn/zv/oVqvYWB0tO7uCe4H0P81DqvOw82w/KDmBhg7 +ocQeAY 9v8AZY3Z/wCe1VNhuuBP0RME+MTu/rvUAYcHP9w3e4dzCkImOBsMfEylVIMid29XTXpaXe +wkteI3 EH81/t+m36HqIv2AWAMeRLoLLORoP9Ij9P6J1HqXTH5GLWXhlmxwbyTG72s/k70LEz78Gz +7NmVH2 HVrgQ5pBndtUZkTYiQZR/RZoiIoyHpkPmR/Yn1l+PaNu5sM7Dd+Y7+ruT4dRvrsojbl4w3 +MEau2k +z/pbP8Attaj8np+RVtJ2skQByD/ACP6v+j/APVazcpxZlsLXkOaf0Vg0DhP+b7vp7H/AO +E9WpNE jKwRwlfKEY0QeIbaf1v5eht100ZOCWNEu/NaDrtP5n+rP+L/AOFB0vIra9+JkyWVyGkaPg +ndubt/ OY73/wDqlO50u9XGc0WH3W1cAn87Zu97P5f0FXy6n2vbdWC21x4aTu3fPb+k/wDPqVXYJ3 +/5qiSK kNTHT+/F27g24urIAe4Sxw1Dp/wrWt/eb/O1/wDbSrt6q9tIpymh5Z/OtcNSP3t30Xf6/w +DCLMx+ pPYPTubLQZaPolh/4P8Ak/8AB/mK9Y2jOrDiRv8AzbGf+R+l/wB8TOCtJajuyDJxi4Gpfu +lsepjB 7LcR/qVOHtBPuB1d6L/7P0N/86tLGdRdQ2ypu1pJO392D7mf5y5P0snFsLHAgciNQdfzP8 +1aOH1H 07TBgOAtDR+83+cZ/wBcpb/noZMViwb8VY8utSHD3DqZ9TGgOYYJnTz03f53/V/9dWDkuc +MoZVcA sIFrJ7H2tsVvqWaftG9j91bgNPDcPpf2mt/6CzbnaiwfA+H7u3+23/0knYYkDVGeUTY7Fs +Oyarby 46OaPf8Ay63D/q6fz0m0tYLGw2WyTMQWn2v+l7fa33IDgQxt9H0qxDmxMSd+3+r73o7bWu +pZY0S1 sA6ahp/6p1blJsw0JAiXa3FyK/SuezgA6DyQ1p52N6tbXtM2NaIAH0m+KzFKDbXIINHopJ +JJJCkk kklP/9PypJJJJSkkk7Wue4NaJJ0ASUlppkCx49v5vnH/AHxEufufMnzPcyVJwaIDdABAEd +v+ih2O ZvETDRGvJKNJbNVhY0+LuNf9fY1C2h7y5v0AdXRGv/mSg+wvaA0aTqAjYePZdfVQ0GXkfd ++8mnTV dqaG6Y9MvONXk7fbY4hjfh+9/XWjmfVt7K8NtAL78ra0VkD6RDS5v9l7v+2102Fg1sx66t +stYBtB 11C18WisWstIG6qQwxxujft/rbVnz52QOnQn/C/db45SIib3IH+M2+jdKx+m4FeFV7mVzu +d+84nc +z/OU8/o/Tc8bcrHruHYuEOBj8yxv6Rn9hWqjLedeUXaRyq1yJ4rN3drTQ06bU8hnf4ven +WDd0+6 zHfEbHn1a/8ApfpW/wCfYud6n9T+uYMPNYyagTL6feIj/CVuDbGe3979GvU2N04S2Ht8lP +Dmcsdz xj+t/wB8xShHUVT5njfUbq2ZTXl1PZULGtez1CQ8z+8iZH1G+sbRsDKrgOHteOP7Qa7/AK +C9KDQP 9ilMQDqnfeZ9a8NEUOg33fHMvoPXq67LMjCvY2kg22emToPz93+E2/vs/wC3Ff6Z9Tet5F +TL8cNa x4lriYb/ANJm93+YvWKwI/inbWxjYaA0cgAQNVYjOUo9B5BiMxE3VnzfKeo9A+snT2erk0 +h9bTrd U4OjWG7936Tb/L2rnXmyu3fwRxHA1XuWRS2ytzHCWPBa4eRG3wXN2fUro32R2MayS8f0gm +bAfzf5 Pt/cTPfECRIfYyWZgWdXy8WOcNh5Egf+R/tfmf8ACJVOLpYSA/8ANJ4cD+a5dD1n6mZ2Bv +sp/WqG mGuYP0gaB9JzW727WrnX07nGQS4d+8qxCcZi4m1hEhu2KHuxrCQ3jR9RHAP7rvzmqzj1Vu +Dm1j9G 4ksB5g/zlf8A5BVMdpsGy3VrO/5zf6v8lXam2Yp9O6XMfqHd/wCtWhPrrqy4ydDXpQPY8D +0CTvYS 6p3B0/wX/f1m9RprrumtwIeA5wnUFw9Tj+U1y2cpzLWuPLtCXDvJ/wDMmPWbn1GzGGRBLq +37HGNN pG5vuRhLuxZo6inOSSSUjCpJJJJT/9TypJJJJSkTHt9G5ln7p1+B0chotFJe4OcP0YOp7G +PzUlJ2 mbGnt/BRcGeo1okt507qLY3AduES9zHvJZoAOTyinos0bnSAAPDyC6H6s9MN1xyXxDYIb5 +mfpf8A kFgs9rW+LuV2vQKn0YILhrZDp8oAVbmp8OM110bPKw4sg021dVsMMGJ8RyrdFjBE86aeaz +jYWmQd eJVmixrPc8hrQJMmIWZIOmRo7VN+4R38QrjHCI7+MLBZ1zo1LZty2T4M9xVir6z9Agbcpo +AGoIM/ gEoiYHyn7GpkFl2Snnga9jKrYmfi5rZxbA9o1IGhP+d7lY7ogsJHQsyfJIEHlD55+9Ta0Q +O3gnAk laRQZMJHwUi4d0wEahDs7d1Y4jCDHQlJcvn4INxG0yRB79kzjtHHyVay8kkcAzr4KrKd7s +8IdlES ZJ7/ADVe3Bwy91/2es2PEPftaSf7UKReDoe3CkyzdzHwUfERsz8P4Ia+nYBAd9mq3Nadh2 +NBHf6W 1cr9ZcT03BzQDV+a0aaE/wDS9v8Ar+jXYNeGmOQfkuW+szzXmzH6N1cQeA4E+72/RZZ/4H +/O/wCj 9SxhmTIaoquLsXkradl9lTZIkgDvP0mqzhMruZlY7vo21bg6ddBu9s/usPuUMqBlNe36Lt +wP9Zrn u/8APjVZro9Mi1v0QYj5/D916vSl6fH+DX4d/B5RJFymluTa0jbD3afNCVhqKSSSSU//1f +Kkkkkl LtcWuDhy0yJ1Gi0c19jyNx4GsREjk+1Zqu7xZi1zEtG0xzp9FEdVNcHXVSnw7pAdtPNO1s +u0SKXW +r3ThnZzG2CaWQ548QCPb/aXd2sDHQ3RsaDtCxPq5hjDxGuI/S3AOd5DXa1brmPewxyBws +vmsnFk q/THQOpyuPggCd5alo3Wsr3ED2t1cZj/AM5WSbOp9aeMehvp45dBAMF2vt3aLRycQ2+yz6 +MyR4kI 2Jk4/Tzvte1mv5xhNiREWBxT6MmSzpdDqjx/qHuM5FsCJ2tGs/8ASao9R+pJqpa/GdLgDI +Okxr/0 luVfW/oza/0lhL9dWgkfih5H1v6W6s+nXbYHAyWtMI8efQ3LyprUAaqNecXmel3ZnT+oNq +tc5hEa Tp2969AxMoX0tdySAZXBZ2ZRk2tycdweA4HTmF1XRrpxaxOoaJB7JucnSZHCTpILzEEVd1 +qC6250 wfhHhKIyzxJURXu47alDvuFAJ0kKKNj1dGI1L0jdugzyQB56IFvUOm1M/SZNbB5lcD1/P6 +lm32Vs Ltm6GgTET7E3S/qdm5bt99wrYOW8lWxIcNyIF9PmWHCAdb07el7F3X+iPljcjeRq47SNP3 +kG26qy H1uD2uALS3UQqdf1K6Yxg3EvOh4Efl3Km/pPUekOc6i05GJy9jh7mg/S26t3bfpqvOMSdD +X94f8A dM+LhBr9roTLtCj1gjQ6EqjVYTteOHAHVXmWAgHgqEimeQZPDQzRYP1jZVa3H3u2sc51fq +d2F30H /wBXd/OLfMFsnU+K5r6x2OroDfpNFgdHENnb/wCo1JhHrHmxnYvMloqyBVYA5+NbDg3XcG +k1P/s7 PerFtgrHogyAHs+bR7H/APRVbJtDskl0m2sn3H84F3re5v53849CuseXNLTIDp8/af8Aqv +etKiaJ 7NYyERJzOrO3dQud4kHx7BVEXLs9TJsd23ECPAe1v/RQlYaYUkkkkp//1vKlZwOn3513p1 +DQfSdz CrLe6Tdbj4TfQd6ZsJL3Dk6uZ3+CEiQNF2OIlIA7Nk/VBrGB1jrPdA7Ez30Cru6A6nf6ds +scBAeI M/1v85dP0x1lrZttfY5wiXHgGPJFzsf0ai54bZROrx7XN/rs/c/lsVQcxMSINF0fumIxB4 +SHz+2l 9boc0tcOxR+nMa/JZOoBk/JdZlYeGcDK3VNNjanuYSASHBrtjty5fp3tyJ14gx5qeOYZIy +oVTVyY PayQF2JF7bpTRYJ+iD49oK6XGxWOb9IEwPye5cv0Oxu1rToBAK6ajKY5paAXdpBj8iy8uk +zbeNmI pp9Q6VlOqe7DYDaTpOg/8iuNp6N1C/qTK89ltVT3RZa0BxHPntr9y795LgY0bpyZWflY2Y +53qUQ9 3druZlHDn4LAA16yWzgZj1S27PMZP1LLr7q8Ox7q4a7Htc0vDhHv9V1I3Md6n/Aq/wBJ+p +3Uq7mM dkjDdXUZyWMLA5+7fW2xtvpPu+n+ez+br/7c28X9uVAxWxhJ+kXtAV6sZUb8y2sDQv8ARB +mP6z/p e1THmpmNEA/VrHABK4y/755OrDwsoWZl1NmJl06W7WkUWOj6Ve9jXeo79F7Fq9LsIDa5Ma +CfKVHr fUGXEYdAIpaQ90yXF+vn+65Q6c5wsrAiBGhUOT1R1+g/dbeONR1D1OFa+0a1gV6jV3ulv8 +iFV6kQ Xu10OgjsAnxzfU1gdYHWOfztLufzW7foqrk2PsveXMNZBP0tOSCmGX6sCtQWKEP1plelOR +nZ+Bgw LmkNJ9sDVHwfrX0wOFVYsaDru2yFHrDd78evGxG2WOaN+Wdj/T193p12Hb6n/GKhn/UqzN +yX/YrX ik1zVdY4vJtB9/q7XN9r/wDSMrUuLHCQHESCet/9ytzZK6WOz2A6gwMD3EBp190gRH8rao +XZLXsJ DpB4jhcTi/VfrGNcMW/J+yt3OdZmBzvRjb+jY6q70mvc17f3P8Kq/R7+p09TGJax7nbi2x +gDiAZ/ nG+32sRngNGpiVC6W45xJBMTGzu9jZXWTIgT2CasAafdKPRRb6QfZ7IHBEE/5yg8Bsgnnh +VtWyJA 6bs9stLR3jVc79a2D7MXOMS3R3Ync3b/AJj9i3qbACZ0KD17EpyukZJj3srdYCdDoNz/AP +otT8Ok wfFZI1Y7vmp/SPbrtLhIPn/5kk31PTtgTbWCWg8aHVKyNsaaw5pGka+/+xu3sT7xUTefcD +WS5usi PpT/ANUtYdmnPYklwkkklK11JJJJKf/X8qW70Qevg21NM3Uu3Mb/ACSJcsJXOk9Rf0/LFw +G5jgWW skiWn+r+673oSBINL8chGYJ26vYdHySGnxAVfq/Vb3TSwwAdY5Reniv7RaGaMsaH1/AmI/ +O+iq2d h7Mnc4fo+de/4KmBH3TY8XT9XtaHwvwbOL6t+NWLAdz2Fpn/ADf+pWGMO+jNsrLCGsJmRH +b2rrxV XtrdWJDtN09hPgq3WmMrNIBDi/dJj93b/wCTTYZqkQB816Jy4BKMTesSDbW6Xca9SeRoCu +lxLNzA TJJ4juubwKQ18zJ7DwMrqMPHktLgDAHkq/MEcS+IqGrZpLyBuMkaOA+9WWtLhKLj4te3XU +K2cdgb 4CIKZDDKQ4ujWyZ4g05/6YtLdwD2n2xPf95V8je6hgeHOJ5Md/5S0SyCA0CJ90kojK2Bm+ +2GsaNz nEiBH0t38lqQgToo5QNaeVsxP0pn29yY1U8RlBsadHBhnugde61VkP8As+DpU2C+wiJP8j +T6PuRe iYllw3A+4gEkoyiRGz9GcTsa6aau7Q9zaJJ3WxJP0R/0VRzBuY11AlxGm8nULTqwLKmgCI +HAB/vW f1dl1W2HGHakoSjPhFxr6MWOUDP0m7attbjX6cEO1AIOoP8A35Dpr6ljunGuqsaJhtm5h/ +6O9Wun kXforeTG1xVqzpzqyXRt3aEiZj5H6SaLAOlhfMi+EmigbkdTuG22qlni8OLjH9SEeh4YNg +Bc5mhL volL026btXN404U/TJ11Hl4oXZulhAArokdkbgNzQBzI/wB6DY2l4J3wY4dx/r/WUHh8nt +4kqraD uM9tP9fooGV7pjDsaU8emfaRI7hBzslg6ZlbySPTLSZ4DoY7b/Zcmc47omJ4lZHX8ptWA5 +hM+sQz 5AhzlJjjcgO5XyGlnpq8nkAiptjTxO5s68Brv+qakQ37BkO3+5rSGieQef5S1uk9EGXijM +yHFtAO 2tkmX6e92781m9bVHT+mYtYO1jBEe6P9XK9PmIx9OspA9GrHBKfq2iQ+aFrhyCPikvUnNw +nM2txv UaWxv2hoie3qbdq4n6y9FpwrjkYYLcZ7odUdfTOmm/8AOrf/AINS4uYjM8NcJ8WHLy8sYu +7DhpJJ Kdgf/9DypJJJJTtdD6m9r2UPeAa/5ouMAj86ncury2YvUMX1a7BU9nIfoQZ+i5edAkEEGC +NQQt/p eYc2s02QMisAhxgBzZDNpb+d/r/YgzYrImDRi3OV5jh/Vy1idnWZldSwKJtr344d9I/mkT ++d+buV zrFrLsHGyajy8a94IKtYeawU7D7muEPYRIOn5yq57W2472DgRsjtB/8AIqoZAzj6eEg6kN +/hIjL1 XGtLY4Dpc35a8rpMGwhxmZ0AXKYNnpkAkDstirNLWggyQefgos8TaY+qNPT1ZDmjQ6hSdl +kggvnx Hdcy/q72wOIHmUNmfflH0Wal3MTAj856jAyAb0GM4I3Zp6Zmaz1A1nvd+6P9iwfrn1S0ZG +N0upxa 1oFl4BgOc7+bZ/Zb/wCfFp4LG0N2g7nHRzjyVV6t0fC6laLLWFtjdN7SA4gfv6O3J2HLGJ +9VkMc8 Y4rHRxa66W1G65waOJcQAP3eVe6L1UC417wdv0XAiCOf+pQMz6sNur2V5T/b9FtgDhP9j0 +1Ro+q/ WqLgaDU8SIG4idfNikvHMH1+rpYpMydPT6er3LOpP00DgT+CqZ+ZTa4h2sfgg4eHm+mGXm +tryOA4 mD/W2NQsroWRYSx2U6lvb0gAT/bcornIVKXpB3WiOKJsfN4JKmbG+q3Q9itNnUfUxRYRO0 +w7v5LK p6VkU0+k7LdcOC5wh35Vq/q7KRW1m0NENHl/WTYkx4qnurJwyESY8RtHkWMZD2ah2rU1OS +NzQ+IJ 9x8iszqJNLW2AfoRIdz7XH8/X81yFh57S0te7nhCzdhlGIGHd6V3oW1+3aSeCIWVkljXED +QHQqBy QBLXaeaq2W7xzMDVGc+OtKWYsJgTqSEdxa2dJM9lidYxb88VVUQCDwfMt/tfmLTve7VLAY +XvD3d3 +2f5I/8AJuT8cjD1dR3ZZRBBB6tabKMOumDaMetrGMYNXObDPofy3Kj0Pq7HXuGbWHOf7d +Rq3X6L f3dq3KmOo6m5+jmVHcI1EuaPA/m71gdTxqR1Z5xhAsIeSPEmXdlJjIlxCQ1kLtZMVw8Pyx +GzsZV4 baGsAgwGuHgsD6yFrcbqbvpAvor3TpujfZ/mLZ6g9mOyq1+gDZd3PO5ch9ZM4WelhMduNR +Nl7o5t f77Hbvzt25S8pAmQP8tGLnZAQAcNJJJaDmv/0fKkkkklKUqrX02NtrO17TIKikkp7rpnUu +n5eILA 5tdrB72OOs/h9JLN6nQ51NNLg7eXBwmO35v7y4ZrnNIc0kEcEaFPXYWWts+ltcHEeMFQHl +omXFZ8 m2OeyCAjQ/vPZirbZLdJ5HB5WgyvYwmIaRM8LOwr2W113fSAAiZ4Pu9oW9RQy+k6GRwfJU +8xMTRb 2MxIvu5rrGNguAIHij9My6SC2kjcTLhwdFvdN6Ph2UH7RSLZJPu8fzdv0VPJ+rXRH0/oqP +st0gtv pJa8H+1uY5v9dNBgYmyQxyykSoC0VNm5oJMHurrYDJdAnjsuduzszpV/2fLaMmtpllzPa4 +t/N3Vq /jdb6bkna29tf8l/sP8A0lBLHIagXHvFeSD4ebeNZkHUhW8dggHX2oeManiWPa/w2uBV5l +UMMAmR wPFGEDI+TDknQpALIsHlrpwUawixoPMiR2Kr2uDH7BJj8FZbW81g7eQnRs8Ud1kqHCdmtA +bwdfFM 4lwMAT9ylZW4TIMHxQtQJP3KIg7EMgo6oLgCDIBa4EOae4K5XqFGRgXgUk2UPI2zy0n8x8 +LqL3gk yeOfis/IbRlbag4F0gwIMAFOxSo7WDuyi67OVh9StdZseD5nsr7Li6SBp28FHqGNTVW3a2 +CIBI76 HxCjS1rK22AkudP3KQiJ1Aq1wla9gNjgxp2knXwH8pTyOoY+DWHucGNrGxg7lRxywvda/w +Ci0HaI 5J9qhZj4OZey7Iq9SyoexpJ2x9L6Dfa5ChYBuvBJJokCz4thufjX4rLKTuvcN7m6jUn3Na +536P2L LxMJ1Vzs7qjhXVy2sEEnUO/O9u3ao1m37RZ6UMbJIBMANn2tbpt9qzep9Zx8FxlxzMoiQT +Gxp/eY w7/+kpseKRJEeu7DknGEbkdvxLa631dux+XlM9PeNuLjEQ7T2i137q4dznOcXOMucZJ8yi +5eXkZl xuyHb3n/AF0QVoY8YhHhDnZcpySs/RSSSSexv//S8qSSSSUpJJJJSkkkklOz0LOAnFe7bz +sPiD9I f2V2nRclpcMZ/wBIn2mfFeZsc5jg9phzSCD5hdJ036wVWOa3IAqtBG1zQIJ+72t/kKvzGH +jGgbPL 5xH0yOnR9Nx7GMPptPuHI8lZsAsrcyeR7fI/9Fcti9Uc5zXuMkDaXdtP3lu09QpuALDAIh +w8Cs2Q MdC3DG9Q5fUMU5NZZAbfWf0ZOn9nd/Ka5Yb6MXJ/Q5LNt7SQXD2vn+suozqzu3jkaHtIWH +1XAdex 2bi/zjdbmD84AfzjI/ObtSxSqhfD2LOCOHUAg9Gq3puJi9Nc+y21uZUQWWNna5pe1u70/d +t2VOf/ ANtrUZ0Pq1VdV+FkNyRY4MZM1kS02Nd6jHP/ADWLN6Z1msvZVlN9Rg+Mj+q4LcZi9Ns9O+ +i0turP qNdJa5o/slTmUgfWLYZQr+blXmOOLmdR+sHWekZIxc1kX7Q9r/Y6Wklu7dt/eYtCvqH1sO +HXmhrn U2ta6sk1aiz+b9rmfnIHVPq8Op5DcvIttvsLQxhDmgEAfo/zdy0a+i22YVWNl5MYtAaGUO +cSAG/Q 9o/OaiDj/QErY5CWnEcdf3f+jFzMz6w/WnFyW41lFd1jp/RtY1xH/GOr9PYiV9U+sGQA04 ++LS5x0 J3ud/wBtscj2vwGOGPhVl7pgugS4/wBVv0WLQwMUUHdZBtdJ3A8f1FHKd6GI8913BGEb69 +I1GLTb 0DJzG/5RzrCf9HjgVMj+t+kserNPRem4TSMZrt3MkyTP8pwV59raxryeAqmRl1tDiXDd4e +abKelV 9iwccjuaaOfjsdG7Rre3nCz7HtFEgQI0+CtZL/WlzjFbe3crneu9VGPi2BhhzhDR5nT6J+ +knYoGZ AZZTEIEno6HS+pdPzBbQLQ14MAnQzJ+k130f81D6nkU9Ol7sho/db31XnjHvY7cxxa7xBg +pPsfYZ e4vPi4z+VXfukeK+I12af3yfDVC+7qZ/XrrnPbRLGuJ3PJJLp+P0WrKJJJJMk8lJJWAABQ +a0pGRs mypJJJFCkkkklP8A/9PypJJJJSkkkklKSSSSUpJJIAuIDQSTwBykp6D6rZ2Uck4k7qthc2 +eWkR9A rpa8x9NsOBDSYM9iFy31dxr6bn5D2lgLdrSfMjcusspbk0EEgWjRr+0fuvVPmeHjAI3b3K +3wabgu 3jZIyWBjyD2lQdjvrs079/Bc7g51+Nf6FstcOZMrrMW9mQxrj9ICTPgqOWBgfAtuM9LDh9 +S+rz8h /r4MMvMFzOAf6v7v/ULN2dXwrNl1T6+ziRLef3voruhXU48TPMIn2aiwyXBvxToZTXCQJd +rWHJwm xY7vH2dauNQrke0AtjkQC3soMt6t1AtbXNdWsvdIEHX+0u0/ZuPA2kBwjsNEO7D9MB3MIm +4gnh/H iR94idBQ+jnYGFXjMhkuscPda7kn+T+6xXyG0tkwSZMKBIrYSRAGgVa68kyDwFHfU7o4TI ++DHKyZ Pi48BVC0lpfc7awax30/kqp1LrWF0xm/IeC53A5JC5Hqv1xyMkFmMDWCILz5futU2Llpz1 +qgf0ij JmhjHDf0Dv8AW+vY2MwtB2x9Fvcn7lwudnW5t3qWaAfRbMx4oNttlrzZa4ve7UuOpKitDF +hjjGm/ do5c0sh10HZSSSSlYlJJJJKUkkkkpSSSSSn/1PKkkkklKSSSSUpJJJJSlerb9mr/AOEePc +e4/kf6 /noVFOxovs0PNTe5P76Re575Jk8lJTv9HqubSLXCBc5xYTrIb+j/AOrY9bDbi13uOvwROm +Yrcr6q YWbVDnYj7acgeA3Osrf/AGK7K2IN4IaY76ide/wVLP8APRG7f5c/qwQdt17hVkAb/a8CWv +EAj+Tw idN6lbjvFFxhzeD2IJWe2w7omPNNl2BzBpJHfzUfBY4TqCzCVGw9ti9RrfBa8T3hWjcCPY +6Z5Xmt PVLcZ5GuvcGFpUfWR7WiC4E8yJH5VHLlZjbUK9zGfAveVZTgZ1n+5EuyyWBsQf4rjq/rOC +WVtJcT pDQf7ls0DPyGhzmem1wkF+h1/ktUcozgKPpBVwYybsaNiwvdLnOiD4qs+i95ifSYfDV/4/ +RV+qgN /lunQkeH7rVGytxcBzMyVHxdlwk+bfXwVV9VpprP0aQ58mTuc530v7DWLmlsfW611v1hy9 +wgscK9 PBoDVjraxCscB2iHLyG5yPiVJJJJ6xSSSSSlJJJJKUkkkkpSSSSSn//V8qSSSSUpJJO1rn +Ha0FxP AGpSUsrNVIqiy5snlrD4j/SKVTPswLy4eqRAA1j84/2vzUJ7y4ykplba57iZ5P8ArCHu7f +emJkpN ElFT6V/iwymvwMvEJl1dvq7Tro9rKnc/8Wj9c6GMJxtqBOJYfbHNbif5p38j/RPcuU+pfU +T03rFV z5GPa11dvwcB7v7L9i9XurquY+i9gsqeNr2HUEKHJDjsdR8pX4chxyveJ3D5fa3Y8jt5IL +3FwgFb vW/q/kdPeXtJtxHEend4E/4O791/8v6FixPT2v14HA7qCq0O4bwkJCxsiGOLXaiT3Pda/T +Oh0XmL Bp2PHdUa2bTJJjst7pNrS0Dg6B3io805CPpJXwgCdQ9D0/o/TcRu+ilotA0cBwY/zlcs89 +Y7IdDj sDtBuAn4wivMnRUib31W1qwDGtP9Yazx/wB+QnkkEjQR/rypvdIgfCUqavVuZUeHkl3b2t ++l/wB9 YgATIRG5Oi7YEno8V/jE+r4AxuoN0tvaWPED6bfexm72/Sq/7b9Fee8aFey/4w6S/oAtAk +4+RXZI 7Aiyr/0avKup47dMmsaO0sHgf3/7S24DhAj2DmzJJ4j+k56SSSetUkkkkpSSSSSlJJJJKU +kkkkp/ /9bypJJJJSloUelsP2We+6Y9SPOPzf6qz0klNh0+7dyhOiVBJFTLREbtlBSSKnZw90D04n +t8f5K9 h6d6/wCz8b7T/P8Ao1+p4ztC8FSUf6X0XHYP0Bd6HpP+0bfQ2n1fU+ht/lbl5zn/AGX7Xb +9k3+hu Pp+r9KI/O/tfQ/kfzn6RcKkos24Z+W/S3e2Ztn3fQ/itHp+zd7ONI4XnCSq5Ni3Y7h9xxN +0fdPjK sGZ8tZ+C8GSVPqqW77v/AKjxRelbftGTu/n9I8PS/N2f2/prwNJTcp/PR267/wDcseb+al +5B9z+u fp/82s7fx6ekfvf4P/pryXIj7NZuiNuk/Ax/J+l/3xYyS1Tv9jny+VSSSSetUkkkkpSSSS +SlJJJJ KUkkkkp//9k='; return $pic } [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]

Replies are listed 'Best First'.

Re: Perl/TK NoteBook Q.
by zentara (Cardinal) on Sep 02, 2014 at 14:48 UTC

how to "tie" the Buttons into the Page (Tab) they displayed on

You need to stuff all your widgets into a big hash, which can be referred to by page or tab number. For instance, $tabs{1}{'text'} or $tabs{3}{'canvas'}, etc. Don't be afraid to have a complete widget set for each page. As long as you can keep track of them. :-)

An old example I have: :-)

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::NoteBook;
use Tk::Pane;
use Tk::JPEG;

#load a sample photo
my $pic = get_pic();

my $mw = MainWindow->new();
$mw->geometry('600x400+300+100');

my $image = $mw->Photo(-data => $pic);

my $pane = $mw->Scrolled('Pane', Name => 'scroll test',
               -width => 600,
           -height => 400,
               -scrollbars => 'osoe',
               -sticky => 'ne',
              );
$pane->pack;

my $nb = $pane->NoteBook(-width=>400,
                         -background => 'green' 
                          );

my @colors = qw(ivory yellow white black cyan pink snow
                linen bisque green azure  gray
        navy blue turquoise chartreuse khaki 
        gold peru red);

my %tabs;

for(1..20){
$tabs{$_}{'name'} = 'tab'.$_;
#print 'tab->',$tabs{$_}{'name'},"\n";
my $tab = $nb->add("page$_", -label=>"Student $_");

$tabs{$_}{'image'} = $tab->Label(-image => $image,
                                 -bg => 'black')
                           ->pack(-side => 'left', 
                      -anchor => 'n',
                  -fill => 'y');

$tabs{$_}{'text'} = $tab->Scrolled('Text', -scrollbars=>'se',
                                  ,-bg => $colors[0])
                   ->pack(-side => 'left',
                                           -anchor => 'n');
$tabs{$_}{'text'}->insert('end', "Tab $_");


$tabs{$_}{'canvas'} = $tab->Canvas(-background=>"yellow")
                       ->pack(-side => 'left',
                             -anchor => 'n');

$tabs{$_}{'canvas'}->createText(30,40, -text=>"Canvas $_");

#$pane->configure( -scrollregion => [0,0,$nb->reqwidth,$nb->reqheight]
+);
$nb->Resize;

push (@colors,shift(@colors));
}
#$pane->configure( -scrollregion => [0,0,$tab->reqwidth,$tab->reqheigh
+t]);
#$nb->Resize;
$nb->pack;

$tabs{1}{'text'}->insert('end',"\nAdd this from outside the loop");



#$nbf1=$nb1->Scrolled('Text', -scrollbars=>'se')->pack;
#$nbf1->insert('end', "Tab 1");

#$nbf2=$nb2->Label(-text=>"Tab 2")->pack;
#$nbf2=$nb2->Label(-text=>"Tab 2")->pack;

#$nbf3=$nb3->LabFrame(-label=>"Tab 3", -labelside=>"acrosstop")->pack;

#$nbf3b1=$nbf3->Radiobutton(-text=>"Radiobutton1")->pack(-anchor=>"nw"
+);
#$nbf3b2=$nbf3->Radiobutton(-text=>"Radiobutton2")->pack(-anchor=>"nw"
+);

#$nbf4=$nb4->Canvas(-background=>"yellow")->pack;
#$nbf4->createText(30,40, -text=>"Tab 4");

#$nb->pack;

#$mf->pack;

MainLoop;

sub get_pic{
my $pic=
'/9j/4AAQSkZJRgABAgEASABIAAD/7QG4UGhvdG9zaG9wIDMuMAA4QklNA+kAAAAAAHgAA
+wAAAEgA
SAAAAAADAAJM//T/9AMMAlgDRwUoA/wAAgAAAEgASAAAAAAC2AIoAAEAAABkAAAAAQADAw
+MAAAAB
Jw8AAQABAAAAAAAAAAAAAAAAYAgAGQGQAAAAABAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAA
+AAAAA4
QklNA+0AAAAAABAASAAAAAEAAQBIAAAAAQABOEJJTQPzAAAAAAAIAAAAAAAAAAA4QklNJx
+AAAAAA
AAoAAQAAAAAAAAACOEJJTQP1AAAAAABIAC9mZgABAGxmZgAGAAAAAAABAC9mZgABAKGZmg
+AGAAAA
AAABADIAAAABAFoAAAAGAAAAAAABADUAAAABAC0AAAAGAAAAAAABOEJJTQP4AAAAAABwAA
+D/////
////////////////////////A+gAAAAA/////////////////////////////wPoAAAAAP
+//////
//////////////////////8D6AAAAAD/////////////////////////////A+gAADhCSU
+0EBgAA
AAAAAgAC/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFR
+MTGBEM
DAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg
+4ODhQR
DAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgA9ADjAw
+EiAAIR
AQMRAf/EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAA
+AAAQAC
AwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJB
+VSwWIz
NHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5P
+SltcXV
5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBE
+FRYXEi
EwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8r
+OEw9N1
4/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//dAAQAD//aAAwDAQ
+ACEQMR
AD8A8qSSSSUpJJJJSkkkklKSSSSUpJJJJSkkSvHtsggQ0/nO0HgjV4tJdD7CY+kGwI+BP/
+kUlNVJ
abMHFBjV5I0Dp/LWG/8AUojemMnd6fwbJ0+TwlY7rhCR2FuQpMrssMMaXRzA4+K23VUMbs
++z1boM
Fwg8+TtqE94Aa0uAaB9FomB/1s+5JRgRu03YbK8Syx5mwbYA4Ekf53tVNXsjJa2t1bWD3y
+DOp4A3
O/q/4JUUStUkkkgpSSSSSlJJJJKUkkkkpSSSSSlJJJJKf//Q8qSSSSUpJJJJSkgCSABJOg
+ASTte9
hlji0nSQYSUmrxZ/nDEQdjdXa66/uon2ekskA886z4+Da0Gui26XdjqXHurFdePUT7S90Q
+J8fzuN
qP0UiOPUY1ezTUkB0/1fop6qWMdrFr+WgSW/2uFZJs2y4trby1hHP9mNqs9Lpx3vdZaARJ
+JcdAOU
CQAT2XxxkyAvdpWttcNznS4mCSYEqNeNcYMEz22k/wAFfvyfWeTjgV18B5A3kf1nfQYqP2
+gus2Gx
wr7uBOv/AH5ISJ8EyjEeKfd6JiwtBH5jfH+W5rnNR6qxlNDq7Qx/BrOo/s/+cLOuqFdpZw
+QAQDwf
/IqBY8HUbATHeB/1SBGm9KEqNEWOzsNxcquTZT6rOZDiP83a5SdjUZLQKS5r2j9JU4AEA/
+1vpqni
2loAc8nj6JjX+3tWrTbVYRL3NcBptc1h/wA6ve5MnIjW/sZ4RjIV07H/AL5pWYWVjEtpIc
+DO7Qbg
f3Xb9rv8xVnY7ch+w1ufZHLQZ/6If/01uOxztOrXSJAe97/+ju2f9BZuZkOa01vDiP3QGh
+v+ZU5j
P8+tKGQnTQrcmCI11Acx3TbBZsD2nxkgEf2VHIxaqWFwt9Qkw2BGv506/uo32h9hPph0a/
+Rbp/39
I3WOO2wueBw15BAHnv8AY5S6dmuY9i0ElfdiV21y1npu5Dp9pnx5b/mqrdi3U/Tb7f3hqE
+EUUSSS
SSlJJJJKUkkkkpSSSSSn/9HypJJJJSkkkklKRcasPfJja3x1/wCj+7+8hK1jbmVF5Gh1ae
+AZ9vu/
zElNoua1myvRxEbjHtH/AH32/wA4ogsrG6oe4/nuEmVFg3EMBl5G5xPH8n/pJW7ftDauBM
+EdwEj2
ZBdX9FZL3tobLyXXy466RO1vt/sPRKj6jHVCWtBDAO8CfU3R/IarOZRR9nbeJY+pjSyOwn
+4/y1VY
wU1NLiQ55BI/dZDvT/tvc5NBsLzExlrtTHIPLBwdVWZY4Oa5g9zSHNHaQf8AySsA7gDJeY
+I001kf
+RVZzYftA0iPuRGzHI2bTWAOaHtkhgIHjtM/9SnaHCB+6Q75f67FMWBjA5vM66chHYayRs
+ZBMkNm
RH03e32fm7HoEr4xs7oqrK63hr2B4aACCP8AX85Wiyt0mtggQQNe49v0So24zZGTLWtbEt
+Ohc0j8
36XuRKqDU/vY2AWAab2Omz9H/L/w2z/jkwkb2yxBB4SNF6rXtYCz2l/tBaY1/tV2pwXvIc
+bLDA3O
BJJj/ttiNXjsJ9MuAqs1DuR32v8A6qDdXkY9u17YsGrd3B/tJti6FMnCa1ukzq/Vbo71HN
+5BDSNR
+Y+Pz/zHrOyqzBDWCvaQCwaf9H6TXf8AQV/HbY8udVpt0cXHj95ln7lf9T+Yt/4NW7cUXu
+d61UWR
Bcfpf9Hc1zf6n/G/8GkJ8J3RKPHFwcd9lcvqdp+d4j+srddmsuaH1cua3Qj+VXH0HfnIlv
+TH1vc+
kw5v0Qe/7rf/ACCatrcmrdWBVl1g+0e0O2/m7U4yB1DEIEemX0/rOdm4dRduxASIkNPMf+
+T/AKn/
AEHqgtd4dtNjPa5pixng5VMvGDm/aKoI/wAIAZM/vqQFgnGjps00kkkVqkkkklKSSSSU/w
+D/0vKk
kkklKSSSSUpXaA22qpsyWna5vkXblSVqguor3TDrRx3A7f5ySQ26QRZcQ0FwZLfEhh/6rb
+sVRj/0
xe86Ey74Tu9v9pWqXPDWlvucDuDRMn/zv/oVqvYWB0tO7uCe4H0P81DqvOw82w/KDmBhg7
+ocQeAY
9v8AZY3Z/wCe1VNhuuBP0RME+MTu/rvUAYcHP9w3e4dzCkImOBsMfEylVIMid29XTXpaXe
+wkteI3
EH81/t+m36HqIv2AWAMeRLoLLORoP9Ij9P6J1HqXTH5GLWXhlmxwbyTG72s/k70LEz78Gz
+7NmVH2
HVrgQ5pBndtUZkTYiQZR/RZoiIoyHpkPmR/Yn1l+PaNu5sM7Dd+Y7+ruT4dRvrsojbl4w3
+MEau2k
+z/pbP8Attaj8np+RVtJ2skQByD/ACP6v+j/APVazcpxZlsLXkOaf0Vg0DhP+b7vp7H/AO
+E9WpNE
jKwRwlfKEY0QeIbaf1v5eht100ZOCWNEu/NaDrtP5n+rP+L/AOFB0vIra9+JkyWVyGkaPg
+ndubt/
OY73/wDqlO50u9XGc0WH3W1cAn87Zu97P5f0FXy6n2vbdWC21x4aTu3fPb+k/wDPqVXYJ3
+/5qiSK
kNTHT+/F27g24urIAe4Sxw1Dp/wrWt/eb/O1/wDbSrt6q9tIpymh5Z/OtcNSP3t30Xf6/w
+DCLMx+
pPYPTubLQZaPolh/4P8Ak/8AB/mK9Y2jOrDiRv8AzbGf+R+l/wB8TOCtJajuyDJxi4Gpfu
+lsepjB
7LcR/qVOHtBPuB1d6L/7P0N/86tLGdRdQ2ypu1pJO392D7mf5y5P0snFsLHAgciNQdfzP8
+1aOH1H
07TBgOAtDR+83+cZ/wBcpb/noZMViwb8VY8utSHD3DqZ9TGgOYYJnTz03f53/V/9dWDkuc
+MoZVcA
sIFrJ7H2tsVvqWaftG9j91bgNPDcPpf2mt/6CzbnaiwfA+H7u3+23/0knYYkDVGeUTY7Fs
+Oyarby
46OaPf8Ay63D/q6fz0m0tYLGw2WyTMQWn2v+l7fa33IDgQxt9H0qxDmxMSd+3+r73o7bWu
+pZY0S1
sA6ahp/6p1blJsw0JAiXa3FyK/SuezgA6DyQ1p52N6tbXtM2NaIAH0m+KzFKDbXIINHopJ
+JJJCkk
kklP/9PypJJJJSkkk7Wue4NaJJ0ASUlppkCx49v5vnH/AHxEufufMnzPcyVJwaIDdABAEd
+v+ih2O
ZvETDRGvJKNJbNVhY0+LuNf9fY1C2h7y5v0AdXRGv/mSg+wvaA0aTqAjYePZdfVQ0GXkfd
++8mnTV
dqaG6Y9MvONXk7fbY4hjfh+9/XWjmfVt7K8NtAL78ra0VkD6RDS5v9l7v+2102Fg1sx66t
+stYBtB
11C18WisWstIG6qQwxxujft/rbVnz52QOnQn/C/db45SIib3IH+M2+jdKx+m4FeFV7mVzu
+d+84nc
+z/OU8/o/Tc8bcrHruHYuEOBj8yxv6Rn9hWqjLedeUXaRyq1yJ4rN3drTQ06bU8hnf4ven
+WDd0+6
zHfEbHn1a/8ApfpW/wCfYud6n9T+uYMPNYyagTL6feIj/CVuDbGe3979GvU2N04S2Ht8lP
+Dmcsdz
xj+t/wB8xShHUVT5njfUbq2ZTXl1PZULGtez1CQ8z+8iZH1G+sbRsDKrgOHteOP7Qa7/AK
+C9KDQP
9ilMQDqnfeZ9a8NEUOg33fHMvoPXq67LMjCvY2kg22emToPz93+E2/vs/wC3Ff6Z9Tet5F
+TL8cNa
x4lriYb/ANJm93+YvWKwI/inbWxjYaA0cgAQNVYjOUo9B5BiMxE3VnzfKeo9A+snT2erk0
+h9bTrd
U4OjWG7936Tb/L2rnXmyu3fwRxHA1XuWRS2ytzHCWPBa4eRG3wXN2fUro32R2MayS8f0gm
+bAfzf5
Pt/cTPfECRIfYyWZgWdXy8WOcNh5Egf+R/tfmf8ACJVOLpYSA/8ANJ4cD+a5dD1n6mZ2Bv
+sp/WqG
mGuYP0gaB9JzW727WrnX07nGQS4d+8qxCcZi4m1hEhu2KHuxrCQ3jR9RHAP7rvzmqzj1Vu
+Dm1j9G
4ksB5g/zlf8A5BVMdpsGy3VrO/5zf6v8lXam2Yp9O6XMfqHd/wCtWhPrrqy4ydDXpQPY8D
+0CTvYS
6p3B0/wX/f1m9RprrumtwIeA5wnUFw9Tj+U1y2cpzLWuPLtCXDvJ/wDMmPWbn1GzGGRBLq
+37HGNN
pG5vuRhLuxZo6inOSSSUjCpJJJJT/9TypJJJJSkTHt9G5ln7p1+B0chotFJe4OcP0YOp7G
+PzUlJ2
mbGnt/BRcGeo1okt507qLY3AduES9zHvJZoAOTyinos0bnSAAPDyC6H6s9MN1xyXxDYIb5
+mfpf8A
kFgs9rW+LuV2vQKn0YILhrZDp8oAVbmp8OM110bPKw4sg021dVsMMGJ8RyrdFjBE86aeaz
+jYWmQd
eJVmixrPc8hrQJMmIWZIOmRo7VN+4R38QrjHCI7+MLBZ1zo1LZty2T4M9xVir6z9Agbcpo
+AGoIM/
gEoiYHyn7GpkFl2Snnga9jKrYmfi5rZxbA9o1IGhP+d7lY7ogsJHQsyfJIEHlD55+9Ta0Q
+O3gnAk
laRQZMJHwUi4d0wEahDs7d1Y4jCDHQlJcvn4INxG0yRB79kzjtHHyVay8kkcAzr4KrKd7s
+8IdlES
ZJ7/ADVe3Bwy91/2es2PEPftaSf7UKReDoe3CkyzdzHwUfERsz8P4Ia+nYBAd9mq3Nadh2
+NBHf6W
1cr9ZcT03BzQDV+a0aaE/wDS9v8Ar+jXYNeGmOQfkuW+szzXmzH6N1cQeA4E+72/RZZ/4H
+/O/wCj
9SxhmTIaoquLsXkradl9lTZIkgDvP0mqzhMruZlY7vo21bg6ddBu9s/usPuUMqBlNe36Lt
+wP9Zrn
u/8APjVZro9Mi1v0QYj5/D916vSl6fH+DX4d/B5RJFymluTa0jbD3afNCVhqKSSSSU//1f
+Kkkkkl
LtcWuDhy0yJ1Gi0c19jyNx4GsREjk+1Zqu7xZi1zEtG0xzp9FEdVNcHXVSnw7pAdtPNO1s
+u0SKXW
+r3ThnZzG2CaWQ548QCPb/aXd2sDHQ3RsaDtCxPq5hjDxGuI/S3AOd5DXa1brmPewxyBws
+vmsnFk
q/THQOpyuPggCd5alo3Wsr3ED2t1cZj/AM5WSbOp9aeMehvp45dBAMF2vt3aLRycQ2+yz6
+MyR4kI
2Jk4/Tzvte1mv5xhNiREWBxT6MmSzpdDqjx/qHuM5FsCJ2tGs/8ASao9R+pJqpa/GdLgDI
+Okxr/0
luVfW/oza/0lhL9dWgkfih5H1v6W6s+nXbYHAyWtMI8efQ3LyprUAaqNecXmel3ZnT+oNq
+tc5hEa
Tp2969AxMoX0tdySAZXBZ2ZRk2tycdweA4HTmF1XRrpxaxOoaJB7JucnSZHCTpILzEEVd1
+qC6250
wfhHhKIyzxJURXu47alDvuFAJ0kKKNj1dGI1L0jdugzyQB56IFvUOm1M/SZNbB5lcD1/P6
+lm32Vs
Ltm6GgTET7E3S/qdm5bt99wrYOW8lWxIcNyIF9PmWHCAdb07el7F3X+iPljcjeRq47SNP3
+kG26qy
H1uD2uALS3UQqdf1K6Yxg3EvOh4Efl3Km/pPUekOc6i05GJy9jh7mg/S26t3bfpqvOMSdD
+X94f8A
dM+LhBr9roTLtCj1gjQ6EqjVYTteOHAHVXmWAgHgqEimeQZPDQzRYP1jZVa3H3u2sc51fq
+d2F30H
/wBXd/OLfMFsnU+K5r6x2OroDfpNFgdHENnb/wCo1JhHrHmxnYvMloqyBVYA5+NbDg3XcG
+k1P/s7
PerFtgrHogyAHs+bR7H/APRVbJtDskl0m2sn3H84F3re5v53849CuseXNLTIDp8/af8Aqv
+etKiaJ
7NYyERJzOrO3dQud4kHx7BVEXLs9TJsd23ECPAe1v/RQlYaYUkkkkp//1vKlZwOn3513p1
+DQfSdz
CrLe6Tdbj4TfQd6ZsJL3Dk6uZ3+CEiQNF2OIlIA7Nk/VBrGB1jrPdA7Ez30Cru6A6nf6ds
+scBAeI
M/1v85dP0x1lrZttfY5wiXHgGPJFzsf0ai54bZROrx7XN/rs/c/lsVQcxMSINF0fumIxB4
+SHz+2l
9boc0tcOxR+nMa/JZOoBk/JdZlYeGcDK3VNNjanuYSASHBrtjty5fp3tyJ14gx5qeOYZIy
+oVTVyY
PayQF2JF7bpTRYJ+iD49oK6XGxWOb9IEwPye5cv0Oxu1rToBAK6ajKY5paAXdpBj8iy8uk
+zbeNmI
pp9Q6VlOqe7DYDaTpOg/8iuNp6N1C/qTK89ltVT3RZa0BxHPntr9y795LgY0bpyZWflY2Y
+53qUQ9
3druZlHDn4LAA16yWzgZj1S27PMZP1LLr7q8Ox7q4a7Htc0vDhHv9V1I3Md6n/Aq/wBJ+p
+3Uq7mM
dkjDdXUZyWMLA5+7fW2xtvpPu+n+ez+br/7c28X9uVAxWxhJ+kXtAV6sZUb8y2sDQv8ARB
+mP6z/p
e1THmpmNEA/VrHABK4y/755OrDwsoWZl1NmJl06W7WkUWOj6Ve9jXeo79F7Fq9LsIDa5Ma
+CfKVHr
fUGXEYdAIpaQ90yXF+vn+65Q6c5wsrAiBGhUOT1R1+g/dbeONR1D1OFa+0a1gV6jV3ulv8
+iFV6kQ
Xu10OgjsAnxzfU1gdYHWOfztLufzW7foqrk2PsveXMNZBP0tOSCmGX6sCtQWKEP1plelOR
+nZ+Bgw
LmkNJ9sDVHwfrX0wOFVYsaDru2yFHrDd78evGxG2WOaN+Wdj/T193p12Hb6n/GKhn/UqzN
+yX/YrX
ik1zVdY4vJtB9/q7XN9r/wDSMrUuLHCQHESCet/9ytzZK6WOz2A6gwMD3EBp190gRH8rao
+XZLXsJ
DpB4jhcTi/VfrGNcMW/J+yt3OdZmBzvRjb+jY6q70mvc17f3P8Kq/R7+p09TGJax7nbi2x
+gDiAZ/
nG+32sRngNGpiVC6W45xJBMTGzu9jZXWTIgT2CasAafdKPRRb6QfZ7IHBEE/5yg8Bsgnnh
+VtWyJA
6bs9stLR3jVc79a2D7MXOMS3R3Ync3b/AJj9i3qbACZ0KD17EpyukZJj3srdYCdDoNz/AP
+otT8Ok
wfFZI1Y7vmp/SPbrtLhIPn/5kk31PTtgTbWCWg8aHVKyNsaaw5pGka+/+xu3sT7xUTefcD
+WS5usi
PpT/ANUtYdmnPYklwkkklK11JJJJKf/X8qW70Qevg21NM3Uu3Mb/ACSJcsJXOk9Rf0/LFw
+G5jgWW
skiWn+r+673oSBINL8chGYJ26vYdHySGnxAVfq/Vb3TSwwAdY5Reniv7RaGaMsaH1/AmI/
+O+iq2d
h7Mnc4fo+de/4KmBH3TY8XT9XtaHwvwbOL6t+NWLAdz2Fpn/ADf+pWGMO+jNsrLCGsJmRH
+b2rrxV
XtrdWJDtN09hPgq3WmMrNIBDi/dJj93b/wCTTYZqkQB816Jy4BKMTesSDbW6Xca9SeRoCu
+lxLNzA
TJJ4juubwKQ18zJ7DwMrqMPHktLgDAHkq/MEcS+IqGrZpLyBuMkaOA+9WWtLhKLj4te3XU
+K2cdgb
4CIKZDDKQ4ujWyZ4g05/6YtLdwD2n2xPf95V8je6hgeHOJ5Md/5S0SyCA0CJ90kojK2Bm+
+2GsaNz
nEiBH0t38lqQgToo5QNaeVsxP0pn29yY1U8RlBsadHBhnugde61VkP8As+DpU2C+wiJP8j
+T6PuRe
iYllw3A+4gEkoyiRGz9GcTsa6aau7Q9zaJJ3WxJP0R/0VRzBuY11AlxGm8nULTqwLKmgCI
+HAB/vW
f1dl1W2HGHakoSjPhFxr6MWOUDP0m7attbjX6cEO1AIOoP8A35Dpr6ljunGuqsaJhtm5h/
+6O9Wun
kXforeTG1xVqzpzqyXRt3aEiZj5H6SaLAOlhfMi+EmigbkdTuG22qlni8OLjH9SEeh4YNg
+Bc5mhL
volL026btXN404U/TJ11Hl4oXZulhAArokdkbgNzQBzI/wB6DY2l4J3wY4dx/r/WUHh8nt
+4kqraD
uM9tP9fooGV7pjDsaU8emfaRI7hBzslg6ZlbySPTLSZ4DoY7b/Zcmc47omJ4lZHX8ptWA5
+hM+sQz
5AhzlJjjcgO5XyGlnpq8nkAiptjTxO5s68Brv+qakQ37BkO3+5rSGieQef5S1uk9EGXijM
+yHFtAO
2tkmX6e92781m9bVHT+mYtYO1jBEe6P9XK9PmIx9OspA9GrHBKfq2iQ+aFrhyCPikvUnNw
+nM2txv
UaWxv2hoie3qbdq4n6y9FpwrjkYYLcZ7odUdfTOmm/8AOrf/AINS4uYjM8NcJ8WHLy8sYu
+7DhpJJ
Kdgf/9DypJJJJTtdD6m9r2UPeAa/5ouMAj86ncury2YvUMX1a7BU9nIfoQZ+i5edAkEEGC
+NQQt/p
eYc2s02QMisAhxgBzZDNpb+d/r/YgzYrImDRi3OV5jh/Vy1idnWZldSwKJtr344d9I/mkT
++d+buV
zrFrLsHGyajy8a94IKtYeawU7D7muEPYRIOn5yq57W2472DgRsjtB/8AIqoZAzj6eEg6kN
+/hIjL1
XGtLY4Dpc35a8rpMGwhxmZ0AXKYNnpkAkDstirNLWggyQefgos8TaY+qNPT1ZDmjQ6hSdl
+kggvnx
Hdcy/q72wOIHmUNmfflH0Wal3MTAj856jAyAb0GM4I3Zp6Zmaz1A1nvd+6P9iwfrn1S0ZG
+N0upxa
1oFl4BgOc7+bZ/Zb/wCfFp4LG0N2g7nHRzjyVV6t0fC6laLLWFtjdN7SA4gfv6O3J2HLGJ
+9VkMc8
Y4rHRxa66W1G65waOJcQAP3eVe6L1UC417wdv0XAiCOf+pQMz6sNur2V5T/b9FtgDhP9j0
+1Ro+q/
WqLgaDU8SIG4idfNikvHMH1+rpYpMydPT6er3LOpP00DgT+CqZ+ZTa4h2sfgg4eHm+mGXm
+tryOA4
mD/W2NQsroWRYSx2U6lvb0gAT/bcornIVKXpB3WiOKJsfN4JKmbG+q3Q9itNnUfUxRYRO0
+w7v5LK
p6VkU0+k7LdcOC5wh35Vq/q7KRW1m0NENHl/WTYkx4qnurJwyESY8RtHkWMZD2ah2rU1OS
+NzQ+IJ
9x8iszqJNLW2AfoRIdz7XH8/X81yFh57S0te7nhCzdhlGIGHd6V3oW1+3aSeCIWVkljXED
+QHQqBy
QBLXaeaq2W7xzMDVGc+OtKWYsJgTqSEdxa2dJM9lidYxb88VVUQCDwfMt/tfmLTve7VLAY
+XvD3d3
+2f5I/8AJuT8cjD1dR3ZZRBBB6tabKMOumDaMetrGMYNXObDPofy3Kj0Pq7HXuGbWHOf7d
+Rq3X6L
f3dq3KmOo6m5+jmVHcI1EuaPA/m71gdTxqR1Z5xhAsIeSPEmXdlJjIlxCQ1kLtZMVw8Pyx
+GzsZV4
baGsAgwGuHgsD6yFrcbqbvpAvor3TpujfZ/mLZ6g9mOyq1+gDZd3PO5ch9ZM4WelhMduNR
+Nl7o5t
f77Hbvzt25S8pAmQP8tGLnZAQAcNJJJaDmv/0fKkkkklKUqrX02NtrO17TIKikkp7rpnUu
+n5eILA
5tdrB72OOs/h9JLN6nQ51NNLg7eXBwmO35v7y4ZrnNIc0kEcEaFPXYWWts+ltcHEeMFQHl
+omXFZ8
m2OeyCAjQ/vPZirbZLdJ5HB5WgyvYwmIaRM8LOwr2W113fSAAiZ4Pu9oW9RQy+k6GRwfJU
+8xMTRb
2MxIvu5rrGNguAIHij9My6SC2kjcTLhwdFvdN6Ph2UH7RSLZJPu8fzdv0VPJ+rXRH0/oqP
+st0gtv
pJa8H+1uY5v9dNBgYmyQxyykSoC0VNm5oJMHurrYDJdAnjsuduzszpV/2fLaMmtpllzPa4
+t/N3Vq
/jdb6bkna29tf8l/sP8A0lBLHIagXHvFeSD4ebeNZkHUhW8dggHX2oeManiWPa/w2uBV5l
+UMMAmR
wPFGEDI+TDknQpALIsHlrpwUawixoPMiR2Kr2uDH7BJj8FZbW81g7eQnRs8Ud1kqHCdmtA
+bwdfFM
4lwMAT9ylZW4TIMHxQtQJP3KIg7EMgo6oLgCDIBa4EOae4K5XqFGRgXgUk2UPI2zy0n8x8
+LqL3gk
yeOfis/IbRlbag4F0gwIMAFOxSo7WDuyi67OVh9StdZseD5nsr7Li6SBp28FHqGNTVW3a2
+CIBI76
HxCjS1rK22AkudP3KQiJ1Aq1wla9gNjgxp2knXwH8pTyOoY+DWHucGNrGxg7lRxywvda/w
+Ci0HaI
5J9qhZj4OZey7Iq9SyoexpJ2x9L6Dfa5ChYBuvBJJokCz4thufjX4rLKTuvcN7m6jUn3Na
+536P2L
LxMJ1Vzs7qjhXVy2sEEnUO/O9u3ao1m37RZ6UMbJIBMANn2tbpt9qzep9Zx8FxlxzMoiQT
+Gxp/eY
w7/+kpseKRJEeu7DknGEbkdvxLa631dux+XlM9PeNuLjEQ7T2i137q4dznOcXOMucZJ8yi
+5eXkZl
xuyHb3n/AF0QVoY8YhHhDnZcpySs/RSSSSexv//S8qSSSSUpJJJJSkkkklOz0LOAnFe7bz
+sPiD9I
f2V2nRclpcMZ/wBIn2mfFeZsc5jg9phzSCD5hdJ036wVWOa3IAqtBG1zQIJ+72t/kKvzGH
+jGgbPL
5xH0yOnR9Nx7GMPptPuHI8lZsAsrcyeR7fI/9Fcti9Uc5zXuMkDaXdtP3lu09QpuALDAIh
+w8Cs2Q
MdC3DG9Q5fUMU5NZZAbfWf0ZOn9nd/Ka5Yb6MXJ/Q5LNt7SQXD2vn+suozqzu3jkaHtIWH
+1XAdex
2bi/zjdbmD84AfzjI/ObtSxSqhfD2LOCOHUAg9Gq3puJi9Nc+y21uZUQWWNna5pe1u70/d
+t2VOf/
ANtrUZ0Pq1VdV+FkNyRY4MZM1kS02Nd6jHP/ADWLN6Z1msvZVlN9Rg+Mj+q4LcZi9Ns9O+
+i0turP
qNdJa5o/slTmUgfWLYZQr+blXmOOLmdR+sHWekZIxc1kX7Q9r/Y6Wklu7dt/eYtCvqH1sO
+HXmhrn
U2ta6sk1aiz+b9rmfnIHVPq8Op5DcvIttvsLQxhDmgEAfo/zdy0a+i22YVWNl5MYtAaGUO
+cSAG/Q
9o/OaiDj/QErY5CWnEcdf3f+jFzMz6w/WnFyW41lFd1jp/RtY1xH/GOr9PYiV9U+sGQA04
++LS5x0
J3ud/wBtscj2vwGOGPhVl7pgugS4/wBVv0WLQwMUUHdZBtdJ3A8f1FHKd6GI8913BGEb69
+I1GLTb
0DJzG/5RzrCf9HjgVMj+t+kserNPRem4TSMZrt3MkyTP8pwV59raxryeAqmRl1tDiXDd4e
+abKelV
9iwccjuaaOfjsdG7Rre3nCz7HtFEgQI0+CtZL/WlzjFbe3crneu9VGPi2BhhzhDR5nT6J+
+knYoGZ
AZZTEIEno6HS+pdPzBbQLQ14MAnQzJ+k130f81D6nkU9Ol7sho/db31XnjHvY7cxxa7xBg
+pPsfYZ
e4vPi4z+VXfukeK+I12af3yfDVC+7qZ/XrrnPbRLGuJ3PJJLp+P0WrKJJJJMk8lJJWAABQ
+a0pGRs
mypJJJFCkkkklP8A/9PypJJJJSkkkklKSSSSUpJJIAuIDQSTwBykp6D6rZ2Uck4k7qthc2
+eWkR9A
rpa8x9NsOBDSYM9iFy31dxr6bn5D2lgLdrSfMjcusspbk0EEgWjRr+0fuvVPmeHjAI3b3K
+3wabgu
3jZIyWBjyD2lQdjvrs079/Bc7g51+Nf6FstcOZMrrMW9mQxrj9ICTPgqOWBgfAtuM9LDh9
+S+rz8h
/r4MMvMFzOAf6v7v/ULN2dXwrNl1T6+ziRLef3voruhXU48TPMIn2aiwyXBvxToZTXCQJd
+rWHJwm
xY7vH2dauNQrke0AtjkQC3soMt6t1AtbXNdWsvdIEHX+0u0/ZuPA2kBwjsNEO7D9MB3MIm
+4gnh/H
iR94idBQ+jnYGFXjMhkuscPda7kn+T+6xXyG0tkwSZMKBIrYSRAGgVa68kyDwFHfU7o4TI
++DHKyZ
Pi48BVC0lpfc7awax30/kqp1LrWF0xm/IeC53A5JC5Hqv1xyMkFmMDWCILz5futU2Llpz1
+qgf0ij
JmhjHDf0Dv8AW+vY2MwtB2x9Fvcn7lwudnW5t3qWaAfRbMx4oNttlrzZa4ve7UuOpKitDF
+hjjGm/
do5c0sh10HZSSSSlYlJJJJKUkkkkpSSSSSn/1PKkkkklKSSSSUpJJJJSlerb9mr/AOEePc
+e4/kf6
/noVFOxovs0PNTe5P76Re575Jk8lJTv9HqubSLXCBc5xYTrIb+j/AOrY9bDbi13uOvwROm
+Yrcr6q
YWbVDnYj7acgeA3Osrf/AGK7K2IN4IaY76ide/wVLP8APRG7f5c/qwQdt17hVkAb/a8CWv
+EAj+Tw
idN6lbjvFFxhzeD2IJWe2w7omPNNl2BzBpJHfzUfBY4TqCzCVGw9ti9RrfBa8T3hWjcCPY
+6Z5Xmt
PVLcZ5GuvcGFpUfWR7WiC4E8yJH5VHLlZjbUK9zGfAveVZTgZ1n+5EuyyWBsQf4rjq/rOC
+WVtJcT
pDQf7ls0DPyGhzmem1wkF+h1/ktUcozgKPpBVwYybsaNiwvdLnOiD4qs+i95ifSYfDV/4/
+RV+qgN
/lunQkeH7rVGytxcBzMyVHxdlwk+bfXwVV9VpprP0aQ58mTuc530v7DWLmlsfW611v1hy9
+wgscK9
PBoDVjraxCscB2iHLyG5yPiVJJJJ6xSSSSSlJJJJKUkkkkpSSSSSn//V8qSSSSUpJJO1rn
+Ha0FxP
AGpSUsrNVIqiy5snlrD4j/SKVTPswLy4eqRAA1j84/2vzUJ7y4ykplba57iZ5P8ArCHu7f
+emJkpN
ElFT6V/iwymvwMvEJl1dvq7Tro9rKnc/8Wj9c6GMJxtqBOJYfbHNbif5p38j/RPcuU+pfU
+T03rFV
z5GPa11dvwcB7v7L9i9XurquY+i9gsqeNr2HUEKHJDjsdR8pX4chxyveJ3D5fa3Y8jt5IL
+3FwgFb
vW/q/kdPeXtJtxHEend4E/4O791/8v6FixPT2v14HA7qCq0O4bwkJCxsiGOLXaiT3Pda/T
+Oh0XmL
Bp2PHdUa2bTJJjst7pNrS0Dg6B3io805CPpJXwgCdQ9D0/o/TcRu+ilotA0cBwY/zlcs89
+Y7IdDj
sDtBuAn4wivMnRUib31W1qwDGtP9Yazx/wB+QnkkEjQR/rypvdIgfCUqavVuZUeHkl3b2t
++l/wB9
YgATIRG5Oi7YEno8V/jE+r4AxuoN0tvaWPED6bfexm72/Sq/7b9Fee8aFey/4w6S/oAtAk
+4+RXZI
7Aiyr/0avKup47dMmsaO0sHgf3/7S24DhAj2DmzJJ4j+k56SSSetUkkkkpSSSSSlJJJJKU
+kkkkp/
/9bypJJJJSloUelsP2We+6Y9SPOPzf6qz0klNh0+7dyhOiVBJFTLREbtlBSSKnZw90D04n
+t8f5K9
h6d6/wCz8b7T/P8Ao1+p4ztC8FSUf6X0XHYP0Bd6HpP+0bfQ2n1fU+ht/lbl5zn/AGX7Xb
+9k3+hu
Pp+r9KI/O/tfQ/kfzn6RcKkos24Z+W/S3e2Ztn3fQ/itHp+zd7ONI4XnCSq5Ni3Y7h9xxN
+0fdPjK
sGZ8tZ+C8GSVPqqW77v/AKjxRelbftGTu/n9I8PS/N2f2/prwNJTcp/PR267/wDcseb+al
+5B9z+u
fp/82s7fx6ekfvf4P/pryXIj7NZuiNuk/Ax/J+l/3xYyS1Tv9jny+VSSSSetUkkkkpSSSS
+SlJJJJ
KUkkkkp//9k=';
return $pic
}
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

[reply]
[d/l]