Commits

Herbert Breunung committed 204dd18

polished the inline xpm prototype

Comments (0)

Files changed (1)

 ................................
 EOB
 
-        my $bitmap = Wx::Bitmap->newFromXPM( \@xpmfile );
-        my $bitmap = Wx::Bitmap->newFromXPM( \@xpmdata );
-        #my $bitmap = Wx::Bitmap->newFromXPM( [split("\r|\n", $xpmhere)] );
+        my @bitmap;
+        push @bitmap, Wx::Bitmap->newFromXPM( \@xpmfile ),
+                      Wx::Bitmap->newFromXPM( \@xpmdata ),
+                      Wx::Bitmap->newFromXPM( [split("\r|\n", $xpmhere)] );
         #my $bitmap = Wx::Bitmap->new($file, &Wx::wxBITMAP_TYPE_XPM);
-        my $bmp = Wx::StaticBitmap->new($frame, -1, $bitmap); 
-        my $ed = Wx::TextCtrl->new($frame, -1,'');
+        my $ed = Wx::TextCtrl->new($frame, -1,'',[-1,-1],[-1,-1],&Wx::wxTE_MULTILINE);
         #$ed->AppendText($_) for @xpmdata;
         $ed->AppendText($xpmhere) ;
 
         my $sizer = Wx::BoxSizer->new(&Wx::wxVERTICAL);
-        $sizer->Add($bmp, 0);
+        $sizer->Add(Wx::StaticText->new($frame, -1, 'Icons from 1.) filtered file data 2.) __DATA__ section 3.)  Heredoc:'), 0);
+        $sizer->Add(Wx::StaticBitmap->new($frame, -1, $bitmap[$_]), 0) for 0..2;
         $sizer->Add($ed, 1, &Wx::wxGROW);
         $frame->SetSizer($sizer);
         $frame->Show(1);