Commits

Herbert Breunung  committed f8b6441

instert treelib visually

  • Participants
  • Parent commits 6ff280f

Comments (0)

Files changed (2)

File lib/Kephra/App/Panel/TreeLib.pm

 use warnings;
 
 package Kephra::App::Panel::TreeLib;
+our @ISA = 'Wx::TreeCtrl';
+
+sub new {
+    my( $class, $parent) = @_;
+    my $fb = $class->SUPER::new($parent, -1);
+}
+
 
 
 1;

File lib/Kephra/App/Window.pm

     my $nb = Kephra::App::TabBar->new($panel);
     $sizer{'centercolumn'}->Add($nb, 1, &Wx::wxGROW);
 
+    require Kephra::App::Panel::TreeLib;
+    my $tl = Kephra::App::Panel::TreeLib->new($panel);
+    $sizer{'rightcolumn'}->Add($tl, 1, &Wx::wxGROW);
+
+
     $sizer{'main'}->Add($sizer{'leftcolumn'}, 0, &Wx::wxGROW);
     $sizer{'main'}->Add($sizer{'centercolumn'}, 1, &Wx::wxGROW);
     $sizer{'main'}->Add($sizer{'rightcolumn'}, 0, &Wx::wxGROW);