Select Code to Download

#define openfolder_width 16
#define openfolder_height 10
static unsigned char openfolder_bits[] = {
   0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0xc1, 0xff, 0x21, 0x80, 0x11, 0
+x40,
   0x09, 0x20, 0x05, 0x10, 0x03, 0x08, 0xff, 0x07};

#define folder_width 16
#define folder_height 10
...
   0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0
+x08,
   0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0xff, 0x07};

#!/usr/bin/perl
#Advanced Perl Programming Chapter 14 -updated
...
    $top->configure( -cursor => $oldcursor );
}