Herbert Breunung avatar Herbert Breunung committed 757dfde

rename painbar prototype

Comments (0)

Files changed (2)

+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, 'Pixelbar 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::Panel';
+
+sub new {
+	my $class = shift;
+	my $parent = shift;
+	my $self = $class->SUPER::new( $parent, -1, [-1,-1], [30, -1]);
+	$self;
+}
+
+package main;
+Kephra::App::Window->new->MainLoop;

lib/pbar.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, 'Pixelbar 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::Panel';
-
-sub new {
-	my $class = shift;
-	my $parent = shift;
-	my $self = $class->SUPER::new( $parent, -1, [-1,-1], [30, -1]);
-	$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.