Commits

Herbert Breunung committed 36a2f51

dont need icon.pl from sp1 anymore

Comments (0)

Files changed (3)

Added
New image
+/* XPM */
+static char * proton_xpm[] = {
+"16 16 1 1",
+" 	c None",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                ",
+"                "};

lib/icon.pl

-use strict;
-use warnings;
-
-package ServusWelt;
-use Wx qw/ :everything /;
-use Wx::FS;
-use base qw(Wx::App);                       # von Wx::App ableiten
-
-sub OnInit {
- my $app   = shift;
- my $frame = Wx::Frame->new( undef, -1, 'Servus Welt', [-1, -1], [150, 150]);
- my $panel = Wx::Panel->new( $frame, -1);
-
-	my $staticbox = Wx::StaticBox->new( $panel, -1, 'Wx::StaticBox' );
-	my $nsz = Wx::StaticBoxSizer->new( $staticbox, wxVERTICAL);
-	$panel->SetSizer($nsz);
-
-	Wx::InitAllImageHandlers();
-	load_bmp();
-	#my $bmp = Wx::Bitmap->new('memory:icon.xpm', wxBITMAP_TYPE_ANY );
-	my $icon = Wx::Icon->new();
-	$icon->LoadFile('file_edit.xpm', wxBITMAP_TYPE_ANY);
-	$frame->SetIcon( $icon );
-
-	$frame->Show(1);                        # Fenster zeichnen
-	$app->SetTopWindow($frame);             # Fenster als oberstes bestimmen
-	1;
-} # /OnInit
-
-sub load_bmp {
-	Wx::FileSystem::AddHandler( Wx::MemoryFSHandler->new );
-	#local $/;
-	Wx::MemoryFSHandler::AddTextFile( 'file_edit.xpm', <<'EOT' );
-/* XPM */
-static char * file_edit_xpm[] = {
-"16 16 25 1",
-" 	c None",
-".	c #5C6272",
-"+	c #996903",
-"@	c #6766CC",
-"#	c #FFFFFF",
-"$	c #FEDE7B",
-"%	c #0099FF",
-"&	c #CC9804",
-"*	c #7D4900",
-"=	c #362F2D",
-"-	c #A0A1A6",
-";	c #030353",
-">	c #B6B4B3",
-",	c #FBFBFC",
-"'	c #FEFEFE",
-")	c #F0D5C5",
-"!	c #F5F6F9",
-"~	c #EDF0F4",
-"{	c #E5EAF0",
-"]	c #DDE3EB",
-"^	c #D4DBE5",
-"/	c #CCD5E1",
-"(	c #C4CFDC",
-"_	c #BECAD9",
-":	c #BAC6D6",
-"                ",
-"  ..........+@@ ",
-"  .########+$%@ ",
-"  .#######+$&*= ",
-"  .######+$&*=- ",
-"  .#####+$&*=;- ",
-"  .####+$&*=#;- ",
-"  .###+$&*=##;- ",
-"  .##>$+*=##,;- ",
-"  .##=')=#,!~;- ",
-"  .##==>,!~{];- ",
-"  .###,!~{]^/;- ",
-"  .#,!~{]^/(_;- ",
-"  .!~{]^/(_::;- ",
-"  .;;;;;;;;;;;- ",
-"   ------------ "};
-
-EOT
-
-	my $xpm = 
-'static char * file_edit_xpm[] = {'.
-'"16 16 1 1",'.
-'" 	c None",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                ",'.
-'"                "}';
-
-	my $bmp = Wx::Bitmap->new($xpm);
-
-}
-
-package main;
-ServusWelt->new->MainLoop;                # Programminstanz erzeugen und starten
-
-__END__
-
-
-/* XPM */
-static char * empty_xpm[] = {
-"16 16 1 1",
-" 	c None",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                ",
-"                "};
-
-
-
 
 	Wx::InitAllImageHandlers();
 	my $bmp = Wx::Bitmap->new(32,32);
-	$bmp->LoadFile('../data/proton.xpm', &Wx::wxBITMAP_TYPE_XPM);
+	$bmp->LoadFile('../data/empty.xpm', &Wx::wxBITMAP_TYPE_XPM);
 	#$bmp->LoadFile('memory:file.xpm', &Wx::wxBITMAP_TYPE_XPM);
 
 	my $pic = Wx::StaticBitmap->new($frame, -1, $bmp); 
 	
 
 
-	$ed->LoadFile('../data/proton.xpm');
-	$ed->LoadFile('memory:file.xpm');	
+	#$ed->LoadFile('../data/proton.xpm');
+	#$ed->LoadFile('memory:file.xpm');	
 
 	#while(<DATA>){ print;} 	#local $/='';#print <DATA>;