Re: Problem with Perl/Tk and Pixmap

[Csaba Raduly <rcsaba at gmail dot com>]

On Thu, Dec 16, 2010 at 10:25 PM, Andrew DeFaria <Andrew@defaria.com> wrote:
> ?On 12/16/2010 02:07 PM, Johannes v. Löwis wrote:
>>
>> I have a Perl/Tk script that is supposed to show a pixmap on the left
>> side of the title bar of the main window. It works on Linux and on a
>> rather old version of Cygwin 1.5.
>> On Cygwin 1.7 (on XP Home and Prof) the following happens:
>>
>> $ ./logotest.pl
>> Can't bless non-reference value at
>> /usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Image.pm line 23.
>>
>> $ cat logotest.pl
>> #!/usr/bin/perl
>> use strict;
>> use warnings;
>> use Tk;
>>
>> my $mw = new MainWindow;
>> my $icon = '/* XPM */
>> static char *Camel[] = {
>> /* width height num_colors chars_per_pixel */
>> " ? ?32 ? ?32 ? ? ? ?2 ? ? ? ? ? ?1",
>> /* colors */
>> ". c #ffffff",
>> "# c #7f7f00",
>> /* pixels */
>> "................................",
>> "................................",
>> "...................###..........",
>> ".......####......######.........",
>> "....####.##.....########........",
>> "....########....#########.......",
>> "......######..###########.......",
>> "......#####..#############......",
>> ".....######.##############......",
>> ".....######.###############.....",
>> ".....######################.....",
>> ".....#######################....",
>> ".....#######################....",
>> "......#######################...",
>> ".......####################.#...",
>> "........###################.#...",
>> "........###############.###.#...",
>> "............#######.###.###.#...",
>> "............###.###.##...##.....",
>> "............###.###..#...##.....",
>> "............##.####..#....#.....",
>> "............##.###...#....#.....",
>> "............##.##...#.....#.....",
>> "............#...#...#.....#.....",
>> "............#....#..#.....#.....",
>> "............#.....#.#.....#.....",
>> "............#.....###.....#.....",
>> "...........##....##.#....#......",
>> "...........#..............#.....",
>> ".........###.............#......"
>> "................................",
>> "................................",
>> };';
>>
>> $mw->Pixmap('logo', -data=>$icon);
>> $mw->iconimage('logo');
>> MainLoop;
>>
>> $ uname -a
>> CYGWIN_NT-5.1 user-e90cadfdc0 1.7.7(0.230/5/3) 2010-08-31 09:58 i686
>> Cygwin
>>
>>
>> Any ideas or suggestions what further information I could provide
>> in order to sort this out?
>>
> Reproduced. Note you problem appears to be with Tk::Image, not with Cygwin,
> though you are right in that it works on Linux and complains and dies on
> Cygwin.
>
> Interestingly, if you run your program and the Perl debugger (i.e. perl -d
> logtest.pl) then simply type c for continue it works fine.
>

Reminds me of this, although it involves menus:

http://cygwin.com/ml/cygwin/2010-11/msg00130.html

Csaba
-- 
GCS a+ e++ d- C++ ULS$ L+$ !E- W++ P+++$ w++$ tv+ b++ DI D++ 5++
Life is complex, with real and imaginary parts.
"Ok, it boots. Which means it must be bug-free and perfect. " -- Linus Torvalds
"People disagree with me. I just ignore them." -- Linus Torvalds

--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple