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?
Regards
Johannes
--
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
