Commits

Herbert Breunung  committed 55a7b43

yes docbar has still bug but doesnt matter now

  • Participants
  • Parent commits 958b020
  • Branches sp1

Comments (0)

Files changed (2)

File lib/docbar.pl

+use v5.12;
+use warnings;
+
+package Kephra;
+BEGIN {
+        our $NAME = __PACKAGE__;
+        our $VERSION = 'sp1';
+}
+
+package Kephra::App;
+use Wx;
+use Kephra::API;
+use Kephra::App::Bar::Document;
+use Kephra::App::Dialog;
+use Kephra::App::Editor;
+use Kephra::App::Frame;
+use Kephra::Log;
+use Kephra::File;
+use base qw(Wx::App);
+our $_ref;
+
+sub OnInit {
+        my $app  = $_ref = shift;
+        Kephra::Log::off(); 
+        my $win = Kephra::App::Frame->new( 'DBD - docbar demo' );
+        my $db = Kephra::App::Bar::Document->new($win);
+
+        Kephra::File::new();
+        Kephra::API::focus( Kephra::API::document()->panel );
+        my $doc = Kephra::API::document();
+
+        $win->Center();
+        $win->Show(1);
+        $app->SetTopWindow($win);
+        1;
+}
+
+
+package main;
+Kephra::App->new->MainLoop;

File lib/docbar.pl~

-use v5.12;
-use warnings;
-
-package Kephra;
-BEGIN {
-	our $NAME = __PACKAGE__;
-	our $VERSION = 'sp1';
-}
-
-package Kephra::App;
-use Wx;
-use Kephra::API;
-use Kephra::App::Bar::Document;
-use Kephra::App::Dialog;
-use Kephra::App::Editor;
-use Kephra::App::Frame;
-use Kephra::File;
-use base qw(Wx::App);
-our $_ref;
-
-sub OnInit {
-	my $app  = $_ref = shift;
-	$Kephra::Log::test_mode = 1; 
-	my $win = Kephra::App::Frame->new( 'DBD - docbar demo' );
-	my $db = Kephra::App::Bar::Document->new($win);
-
-	Kephra::File::new();
-	Kephra::API::focus( Kephra::API::document()->panel );
-	my $doc = Kephra::API::document();
-
-	$win->Center();
-	$win->Show(1);
-	$app->SetTopWindow($win);
-	1;
-}
-
-
-package main;
-Kephra::App->new->MainLoop;