Commits

Herbert Breunung  committed 401b1ea

moved index into the readme

  • Participants
  • Parent commits 43bbd44
  • Branches sp1

Comments (0)

Files changed (3)

-this is the functional prototype branch of Kephra XP
+This is the functional prototype branch of Kephra XP
 
-that means here are just little, single file programs that test
-if certain low level functionalities  can work
-and if yes how
+That means here are just little, single file programs that test if certain
+low level functionalities can work and if yes how. They have no dependencies,
+except third party libs (core or CPAN) The full program is in the main branch.
+More details about our development model are at doc/CompleteProgramming.pod
+in the sp3 branch
 
-the full program is in the main branch
+
+status of prototypes in /lib
+----------------------------
+
+R = ready          I = in progress         D = dummy (planned)
+
+doubleview    R    two parallel views on one WX::STC instance, both change no matter which you edit
+ed            R    simplest utf safe editor based on STC
+filebrowser     D  list and change dir via click
+findlib       RI   list all local Kephra repos
+fork            D  inter fork communication
+gethighlight    D  read coloring information from STC
+hglist          D  display status of my hg repos
+inlinexpm     R    read icon bitmap from inlined data
+paintbar        D  toolbar with full artistic freedom
+print           D  (colour) printing demo
+searched        D  simple STC editor with self made search and replace
+shellio        I   talk async to the shell via two STC and ProcessStream
+sidebar         D  custom toolbar with upright text labels
+snippets        D  editor with a DND snippet lib
+statusbar       D  custom status bar with self made text and bitmap labels

File lib/index.pod

-status of feature prototypes
-
-R = ready          I = in progress         D = dummy (planned)
-
-doubleview    R    two parallel views on one WX::STC instance, both change no matter which you edit
-ed            R    simplest utf safe editor based on STC
-filebrowser     D  list and change dir via click
-findlib       RI   list all local Kephra repos
-fork            D  inter fork communication
-gethighlight    D  read coloring information from STC
-hglist          D  display status of my hg repos
-inlinexpm     R    read icon bitmap from inlined data
-paintbar        D  toolbar with full artistic freedom
-print           D  (colour) printing demo
-searched        D  simple STC editor with self made search and replace
-shellio        I   talk async to the shell via two STC and ProcessStream
-sidebar         D  custom toolbar with upright text labels
-snippets        D  editor with a DND snippet lib
-statusbar       D  custom status bar with self made text and bitmap labels

File lib/inlinexpm.pl

-#!usr/bin/perl
-use v5.12;
-use warnings;
-
-InlineXPM->new->MainLoop;
-
-package InlineXPM;
-use Wx;
-use base qw(Wx::App);
-
-sub OnInit {
-	my $app   = shift;
-	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__, [-1,-1], [1000,800]);
-	Wx::InitAllImageHandlers();
-	my $file = '../data/proton.xpm';
-	open my $FH, '<', $file; 
-	binmode($FH);
-	my @xpmfile = <$FH>;
-	@xpmfile = map { s/\r|\n|"|,//g; $_} @xpmfile;
-	shift @xpmfile;
-	shift @xpmfile;
-	my @xpmdata = <DATA>;
-	@xpmdata = map { s/\r|\n//g; $_} @xpmdata;
-	my $xpmhere = <<'EOB';
-32 32 5 1
- 	c None
-.	c #808080
-+	c #FFFFFF
-@	c #000000
-#	c #000080
-................................
-................................
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++#################++++++++@.
-..+++#################++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++###################++++++@.
-..+++###################++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++###############++++++++++@.
-..+++###############++++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++###################++++++@.
-..+++###################++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++################+++++++++@.
-..+++################+++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++##################+++++++@.
-..+++##################+++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.
-................................
+#!usr/bin/perl
+use v5.12;
+use warnings;
+
+InlineXPM->new->MainLoop;
+
+package InlineXPM;
+use Wx;
+use base qw(Wx::App);
+
+sub OnInit {
+        my $app   = shift;
+        my $frame = Wx::Frame->new( undef, -1, __PACKAGE__, [-1,-1], [1000,800]);
+        Wx::InitAllImageHandlers();
+        my $file = '../data/proton.xpm';
+        open my $FH, '<', $file; 
+        binmode($FH);
+        my @xpmfile = <$FH>;
+        @xpmfile = map { s/\r|\n|"|,//g; $_} @xpmfile;
+        shift @xpmfile;
+        shift @xpmfile;
+        my @xpmdata = <DATA>;
+        @xpmdata = map { s/\r|\n//g; $_} @xpmdata;
+        my $xpmhere = <<'EOB';
+32 32 5 1
+        c None
+.       c #808080
++       c #FFFFFF
+@       c #000000
+#       c #000080
+................................
+................................
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++#################++++++++@.
+..+++#################++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++###################++++++@.
+..+++###################++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++###############++++++++++@.
+..+++###############++++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++###################++++++@.
+..+++###################++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++################+++++++++@.
+..+++################+++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++##################+++++++@.
+..+++##################+++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.
+................................
 EOB
 
-	my $bitmap = Wx::Bitmap->newFromXPM( \@xpmfile );
-	my $bitmap = Wx::Bitmap->newFromXPM( \@xpmdata );
-	#my $bitmap = 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,'');
-	#$ed->AppendText($_) for @xpmdata;
-	$ed->AppendText($xpmhere) ;
-
-	my $sizer = Wx::BoxSizer->new(&Wx::wxVERTICAL);
-	$sizer->Add($bmp, 0);
-	$sizer->Add($ed, 1, &Wx::wxGROW);
-	$frame->SetSizer($sizer);
-	$frame->Show(1);
-	$app->SetTopWindow($frame);
-	1;
-}
-
-__DATA__
-32 32 5 1
- 	c None
-.	c #808080
-+	c #FFFFFF
-@	c #000000
-#	c #000080
-................................
-................................
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++#################++++++++@.
-..+++#################++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++###################++++++@.
-..+++###################++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++###############++++++++++@.
-..+++###############++++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++###################++++++@.
-..+++###################++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++################+++++++++@.
-..+++################+++++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..+++##################+++++++@.
-..+++##################+++++++@.
-..++++++++++++++++++++++++++++@.
-..++++++++++++++++++++++++++++@.
-..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.
+        my $bitmap = Wx::Bitmap->newFromXPM( \@xpmfile );
+        my $bitmap = Wx::Bitmap->newFromXPM( \@xpmdata );
+        #my $bitmap = 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,'');
+        #$ed->AppendText($_) for @xpmdata;
+        $ed->AppendText($xpmhere) ;
+
+        my $sizer = Wx::BoxSizer->new(&Wx::wxVERTICAL);
+        $sizer->Add($bmp, 0);
+        $sizer->Add($ed, 1, &Wx::wxGROW);
+        $frame->SetSizer($sizer);
+        $frame->Show(1);
+        $app->SetTopWindow($frame);
+        1;
+}
+
+__DATA__
+32 32 5 1
+        c None
+.       c #808080
++       c #FFFFFF
+@       c #000000
+#       c #000080
+................................
+................................
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++#################++++++++@.
+..+++#################++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++###################++++++@.
+..+++###################++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++###############++++++++++@.
+..+++###############++++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++###################++++++@.
+..+++###################++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++################+++++++++@.
+..+++################+++++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..+++##################+++++++@.
+..+++##################+++++++@.
+..++++++++++++++++++++++++++++@.
+..++++++++++++++++++++++++++++@.
+..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.
 ................................