And Justice For All
From WxPerl wiki
>Do a viewsource to if you wish to try this out. The wiki doesn't do any escaping apparently.
Not even <xmp> works from the looks of it.
use strict;
use Wx qw( :everything );
use Wx::App;
## cause I don't wanna subclass anything just yet
*Wx::App::OnInit = sub {
my $frame = new Wx::Frame(undef, -1, 'And Justice For All');
my $bmp = Wx::Bitmap->newFromXPM( [ map {chomp;substr($_,1,-1)} <DATA> ] );
my $b1 = Wx::BitmapButton->new( $frame, -1, $bmp, [-1, -1] );
Wx::InitAllImageHandlers();
Wx::SplashScreen->new(
$bmp,
wxSPLASH_CENTRE_ON_SCREEN|wxSPLASH_TIMEOUT,
5000,
undef,
-1,
wxDefaultPosition,
wxDefaultSize,
wxTHICK_FRAME|wxFRAME_NO_TASKBAR|wxSTAY_ON_TOP );
sleep 6;
$frame->Show(1);
return 1;
};
#use Data::Dumper;die Dumper [ map {chomp;substr($_,1,-1)} <DATA> ];
Wx::App->new->MainLoop; # we're off'n'runnin'now
__END__
"64 64 40 1"
" c #C900C500AC00"
". c #CA00CB00B700"
"X c #D400CE00B700"
"o c #C400BD00A400"
"O c #DB00DA00C700"
"+ c #E400E000D300"
"@ c #D900D400BB00"
"# c #B900BA00A700"
"$ c #DE00E200D200"
"% c #EB00E700D800"
"& c #E800E300CD00"
"* c #EE00ED00E300"
"= c #B200B0009800"
"- c #F300ED00DB00"
"; c #F600F400EA00"
": c #F800F500E900"
"> c #D200D700C900"
", c #35004B004200"
"< c #6B0079006D00"
"1 c #570066005900"
"2 c #A300A7007100"
"3 c #E400DE00C900"
"4 c #BC00C400B100"
"5 c #790086007900"
"6 c #8B008E007900"
"7 c #FA00F400D300"
"8 c #A800AB009800"
"9 c #900099008A00"
"0 c #A000A3009300"
"q c #ED00ED00A400"
"w c #AB00B500A800"
"e c #7D007D007000"
"r c #D400CF00B200"
"t c #E400D900BA00"
"y c #D300D4007900"
"u c #1F002E002500"
"i c #9A00A5009600"
"p c #710086004D00"
"a c #79008E008900"
"s c #B600C900C100"
" ..XXXXoOO+O@X@@#$%$$$+%O&%%%%*%%*****%%%=#-*;%%%%*%%%%%%*-:;O"
"X>O%%%**%%*:;-&-%,.%***%%%%O%%%***;*;;;**;;:<1*::*%;;;;**;;*-::$"
"X>>O*%*%%%+%--:2,>::::::::::-::%-*%%;;%;:34*:o,5%:*;**;--*:::::&"
".X@%;***;%O&::6,73=1<<81<1<=19<<:;1<;*10>16107q01w%;*******-:::3"
">$O******%;:@16qe<6qro@rqq76qqoq;*qq::qqoq:::72r1>$%*;*%%*%%-:-+"
"O%%*;*;**%%#0,qqq7<q=2:9q:826q=q:;tq+%qrqqO>w;o2y,&:****;*%-&7;&"
"$**&%%%%%%3:u27ooq1q1<:1q 1727yqu1qy,5qo-q212iq=:2,:;$$;;;*-%:*%"
"$%%%**&%%:7u27:1y70q7q:w7#&7#:477:-:::&t-%-77;7p>:yu:;*;;;;;**-+"
"O%%%%%&%-:,p7:3,7-%:%>;:-%;-*-O:$3%**-**;%%:$%:@5:76,:*;;;;;;**$"
"O%%%%%+-:<1q7*6#7%&:-%;:%%-;*%O-%-O-;:*;;;:>a9;;.%%7p<:;;;;;;;*%"
"+%&%*%3:2,q-%*>7%3%;;&::-%:**%+-%-%.*;**:*95a9w*$$-:q,9;;*$*;**&"
"O&%O--:8uq7 %%$--&-:-%-*--;-;-%%***&%;-%:w5u1a<$*O#8:q,w:;;*;;*%"
"33%#&: uqq,w*-%%%-%*-;-**-%;*%-%--*%*$:*4>aaaaiw-O:4,qqu>;**;;;%"
"O&3&:3uoqq%:;-%%%%---;;*;%%%**%%**%*:%O%i <w>ai<s%%-&@qyuO:;*;*O"
"O&3:7uyq&%*-*%$*%--%&--*%-***%$%%&*---*&<sawawas>%-*&%-qqu*;***>"
"+%7-,27&%%----%*%*%--&%%*-&>;****;%%%*:4aX<ss>>-&%%*-%%-qy,::;;$"
"3t7,27%&%%%O--%%--%&:.#-#wii.:;;*;*%**:i#.a:.w8>@-;*;&%%%761:;;O"
"@:<e7%%%%---%%&-%*-&36#OrX# i@;**%;**;-9>ww:$06>OX--*%**%%:6<:*O"
"t6<-%%%*%%-%:&-*%%%-=<=O#>w sX:;*;*-*:>93is3OO9>-.>%*-*%%-&&96-O"
"#9&%%%%%%-*---%%%%3->0#.>##>@#O;*;;%*:#4&i>O>%9i*&-OO**%%%%%-.X&"
" 333%%&%%%%--%-%-&%-#8=06<>>-.#::*%*::.4&a*>@:O9O%%%$O**%%%$3:O3"
" &&%$%%%--%%%%-%%&&*#io<i>3w%#a;-%%;@<,19i:* 6ii>7;*:% %;&&%O:%O"
".&%3&&-3%%-%-*-%--%%8&=19@#8.#a;-***- >-ww@<,1,,,i:**%& @-&%>%%+"
"X$O%&%+&33&%%--%%--%960i>#9w$ 9:%%*&O..O8%,,1<a<1,>;*--&O@%-O%%O"
"X+&&%O&&%O%%&&%%--=<ai0 ww9<ai9:%*>9.-#4=5,15<aaaa>$O$--&>4@&%%&"
"@%OO$$++%O%%%%&---7>>:>0i>ww1as-;%w4:@a9$11920#wsw$%*O+%&%O&XO3O"
"X$33+3O$$%*%O%%&33%:-&;09=<-9$::#<9#>1asOai.=w>>9a4>*%@O%%%%&@.O"
"XOOO>O$++%*%%%%&&-%%&%:#>#60=wwws@O98<s%#8w>>.O5ai>$.&;&::%%%%O."
"XOOO>+$%&>%$%--%%*%--%:36w@&ww%@a#;1=4X3>w6a9<6ais&-O@:9<a&*O%%@"
"@>@@O&+O.>%>&%%-%%%%%38<%7#<i.#w;a$1a#w>$>#wi9i>%...$#,,,,1&%3OX"
"XO+&+%O.$%+%%3%%%%&%.w# 39<a9i4>.>$a..#@&O%>$&@O%.&O7,,166<O&&O@"
"O+3%3&O>3+O+O+%-%&@%03&O aa=ww49Xw4.4>4 3O$$38>$XO%i,11606&3&&@"
">&OO+$O@X&O&O3-3X.+78o8:.ai#9w3w88i>...>X#%%%&>&$.X>11<<6==&OO&@"
"OOO&&3.4O&&3%&@X@4$Xi05r88#iw.#<ia4>&># >@=O%%%%O>3 ,<a22=o&&3&@"
"XO&%3@O&&3&& .3>$$-Oi0109##r8==>4.i9$>>#@>3#O*O.O>O>,<980 #3&@&@"
" 3&&&O33&t# &O3$&$=880,1i.t=9#=r @.8.$>.#3>3=.&OO@##a8 8+08O3@&3"
" # OOt&& OO&%&Ow61w 9uw7 => .@2#r @$$$>O83>&w#@3>956#>869&&&@t@"
"r t # #= &3&33%@994#.0ua=8=t.#8o90=rOO>O>.#3OO. X& 69<<<99OO>@&O"
"r@&OX @ ==3&3%%%09a180au9&+ 089io=#i>$OOO&# $>X.=Oi99690>iOOO$&O"
"@OX @3&rr r r@ 3O8>98a-11-o09#99# to@$&O$O%w@&4@@#.%8iw>@>3@@O&@"
" #Xt333rr@333@@@O X9<i%-<860<8wwa9 # $%OO>OO#.@OO3w %33O.O@@@O&@"
" 3@@O3rr@&3OO@%X.&9ai%-<9 =#9iO0awr=4%>>O>O 5OOO$%o#3tO@OXXOOO@"
"X@>O&O3@@@Or+OO%X.r1w8*7< r9wwa4w8i08@$OO>$$.98OOO3t80333@# @O3@"
"@OO>OO3@@O&O&>O&.=<i1s #<===9#9wr=86116&>>OO.$@=O>@..@0rt@X 3O&@"
"@$OOOOOOX@OOOO>O#=9>1.89<=6#8 99t ,15 w&O$O&$&Oo=3 @@3+8=@ @@&@"
"@@&&O&OO>>3OO$OO. <-1-.<a==9=o9wt18&=wiX .X#.@>&.=.3=OOO##@3@&O@"
" r@O$O$O>>&@O@#X Xo@a-49<9=9o=082@ # @ 3 Xr .&O#9@t4.%OO#=3&$O@"
"oorOO$O>OOO3OX6=91<#w--6<9=io=6<rti8=r2,43&r##o @r9r@8>>X 68@O$@"
" r@OOOOO@O&O@1#9<w9w&-95==0=02oo@5##rw<w&$4XOX==@#93X.X.#>@iX&@"
"or@>OO&>@OO@r76##6 5#&᛭o9=0ot<##-29<%@.>>@4.8 #8r4X@XO3&84X"
" r@X.O&OX3@rtr196=X5%O$ 09<8o<0r rar6<<1,&O@&&>>O4rr#0r9w@X.@&w#"
" r@O@OO@OO@@ro.801wa%@$#86<81aro8t#=u1 &or@11&&X>>O3&#r7&09r@&& "
" @@O@@@@.O3t=8w=5. iO3t@o6111=o=2t=1< rr6w708&98OO606t,<u19 6<0 "
"r@@OO@OOX@3 or#X<<09Xi9<065<<=o<o<1 6#oo<i7u1#,65:1<ou8r2= 1<88#"
"r@@@@O@@.3@=@#@3w#8o#w&&o095<2<oe1 r<0o0597u61w 97<5=,10<=<O8,9 "
"rtrOO3X@rt=X .XX=6,0<&981r66<162,oo=15r659 551iuo<,11<eu2<1r=0# "
"t@@t@@@rOr#3#O@@=i<<1Xi=8t99<,ee<t=019t1116-$&$@r<4 7<3X #<i1ir"
"rtt@@@r@@=t#@XX8.<<<1a&o # 6915=02o6,X=<5at@>O& #&7O&33r-@r &&3 "
"rr@@@@t@# r.3OOt90Ow6<=ttw3691=<=< 11&5<5< @.@,969,,09813uO= @Xr"
"@trtr@t =t.@OX.o<3@3t<9wt#&r696=<681<r5<66=@@&,16916#9967u%&8.@@"
"rtttttt=t@@r3>.>#t@ttt<<933710<=<02u8=6<298@X <=82u1:,,9:,-&&8@r"
"tqtttto @X@@@XX.O@@@to01<@&3u<=9<00,#i5<000orr5@u16805=,1uu0&@8@"
"rt3tt@=3.O@O@@X@@Xr r8&6<1@@,520666,=961612==@.3.33O @O=4 :7&&.#"
"ttt@t @@r@O@@rrXXr@r or#599#<66e<0<19951<9=84 X.X.r .XX>>>@$@&t@"
