Commits

Herbert Breunung committed 76e45bd

status feature prototypes

Comments (0)

Files changed (5)

Empty file added.

 	my $app   = shift;
 	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__ , [-1,-1], [1000,800]);
 	my $ed = Wx::TextCtrl->new($frame, -1, '',[-1,-1], [-1,-1], &Wx::wxTE_MULTILINE | &Wx::wxTE_READONLY);
+
+	$frame->Show(1);
+	$app->SetTopWindow($frame);
+
 	my @dirs = File::Find::Rule->file->name('Kephra.pm')->in($ENV{'HOME'});
 	$ed->AppendText( $_ . "\n") for @dirs;
 	$ed->AppendText( "-----\n");
 		$ed->AppendText( "$file\n") if -e $file;
 	}
 
-	#find({ preprocess => sub {
-	#		grep {1 unless -d $_
-	#		} 
-	#		@_;
-	#	}, 
-	#	wanted => sub {
-	#		return unless -r $_;
-	#		if (-f $_ and substr($_, -9) eq 'Kephra.pm') {
-	#			#$File::Find::dir #$File::Find::name # $_
-	#	 		my $path = File::Spec->catdir( $RealBin, $File::Find::name );
-	#	 		$path = File::Spec->canonpath( $path );
-	#	 		$path = abs_path( $path );
-	#			$ed->AppendText( $File::Find::name . "\n");
-	#		}
-	#		#$ed->AppendText( $_ . "\n")
-	#}, follow => 0, no_chdir => 1 }, '/');
-
-	$frame->Show(1);
-	$app->SetTopWindow($frame);
+	
 	1;
 }
 __END__
+R = ready          I = in progress           D = dummy (planned)
+
+doubleview    R    2 parralel widgets display same Wx::STC instance, no matter on which side you edit
+ed            R    simplest utf safe editor possible
+filebrowser     D  list and chang a dir
+findlib       RI   list all base dir where Kephra versions are
+fork            D  inter fork communication
+gethighlight    D  read out colouring from STC 
+hglist          D  show status of all my hg repos
+inlinexpm     R    read icon data from a variable
+paintbar        D  toolbar with full artistic freedom
+searched        D  simple editor with self made find replace and marking 
+shellio        I   talk to shell via 2 textctrl (IOUnit)
+sidebar         D  bar with upright text icons
+snippets        D  editor with a DND snippet lib
+statusbar       D  staus bar with selfmade text and icon cells

Empty file added.

lib/vtoolbar.pl

-use strict;
-use warnings;
-
-package Kephra::App::Window;
-use Wx;
-use Wx::AUI;
-use Wx::STC;
-use Kephra::API;
-use Kephra::App::Editor;
-use Kephra::File;
-use base qw(Wx::App);
-
-sub OnInit {
-	my $app   = shift;
-	$Kephra::Log::test_mode = 1; 
-	my $win = Wx::Frame->new( undef, -1, 'Toolbar Demo',[-1, -1],[600, 600]);
-
-
-	my $ed  = Kephra::App::Editor->new($win)->unmount_events();
-	my $left = Bar->new($win);
-	my $right = Bar->new($win);
-
-	Kephra::App::Focus::set($ed);
-
-	my $sizer = Wx::BoxSizer->new( &Wx::wxHORIZONTAL );
-	#my $sizer = Wx::BoxSizer->new( &Wx::wxVERTICAL );
-	$sizer->Add($left,  0, &Wx::wxGROW);
-	$sizer->Add($ed,    1, &Wx::wxGROW);
-	$sizer->Add($right, 0, &Wx::wxGROW);
-	$win->SetSizer($sizer);
-
-
-	$win->Center();
-	$win->Show(1);
-	$app->SetTopWindow($win);
-	1;
-}
-
-package Bar;
-our @ISA = 'Wx::ToolBar';
-
-sub new {
-	my $class = shift;
-	my $parent = shift;
-	my $self = $class->SUPER::new( $parent, -1, [-1,-1], [-1, -1], &Wx::wxTB_TEXT | &Wx::wxTB_NOICONS | &Wx::wxTB_VERTICAL);
-	$self->AddTool(-1, 'short', &Wx::wxNullBitmap, 'tip',  &Wx::wxITEM_NORMAL);
-	$self->AddTool(-1, 'long', &Wx::wxNullBitmap, &Wx::wxNullBitmap, &Wx::wxITEM_NORMAL, 'tip','');
-	$self->Realize;
-	$self;
-}
-
-package main;
-Kephra::App::Window->new->MainLoop;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.