Commits

Herbert Breunung committed d1e7da2

prepares main odule API a bit for selective loading

Comments (0)

Files changed (3)

     qw/Benchmark Encode Encode::Guess Cwd/,
     qw/File::Find File::Spec File::UserConfig Config::General YAML/,
     qw/PPI Moo/,
-    qw/Wx Wx::STC Wx::Perl::ProcessStream/, # Wx::Scintilla 
+    qw/Wx Wx::Scintilla Wx::Perl::ProcessStream/, # Wx::STC 
 );
 our @used_wx_modules = qw/Wx::AUI Wx::DND Wx::RichText/; # Wx::STC
 
-our @needed_at_first = qw/App API/;
+#our @needed_at_first = qw/App API/;
+#our @starttime_modules = qw/App API/;
+#our @command_modules;
 
 sub load_libs {
     eval "require $_" for @external_dependencies, @used_wx_modules;

lib/Kephra/App/Bar/Document.pm

 use Kephra::API;
 use Kephra::App::Editor;
 use Kephra::App::Util;
+use Kephra::DocumentStash;
 
 package Kephra::App::Bar::Document;
 our @ISA = 'Wx::AuiNotebook';
 	});
 	Wx::Event::EVT_AUINOTEBOOK_PAGE_CHANGED( $self, -1, sub {
 		my ($nb, $event ) = @_;
+		set_active_doc
 		my $new_nr = $event->GetSelection;
 		my $doc = Kephra::DocumentStash::get_by_ed( $nb->GetPage($new_nr) );
 		my $title = defined $doc->file_name

lib/Kephra/App/Window.pm

 
 sub get_title { $_ref->GetTitle( )       }
 sub set_title { $_ref->SetTitle( $_[1] ) }
+sub refresh_title {
+    my $title = 
+    set_title();
+}
+
 
 1;
+
+__END__
+
+sub get_fullscreen_mode { _config()->{fullscreen} }
+sub switch_fullscreen_mode {
+	_config()->{fullscreen} ^= 1;
+	eval_fullscreen_flag();
+}
+
+sub eval_fullscreen_flag {
+	_ref->ShowFullScreen( 
+		get_fullscreen_mode(), 
+		&Wx::wxFULLSCREEN_NOCAPTION | &Wx::wxFULLSCREEN_NOBORDER
+);