1. Herbert Breunung
  2. Kephra

Source

Kephra / lib / Kephra / App / Part / Editor.pm

use strict;
use warnings;
use Cwd;
use File::Find;
use File::Spec;
use Kephra::App::Bar::Document;
use Kephra::App::Splitter;

package Kephra::App::Part::Editor;
our @ISA = 'Kephra::App::Panel';
my ($active, @passive, $panel);

sub docbar         { $active }
sub passive_docbars{ @passive}
sub all_docbars    { ($active, @passive) }

sub new {
	my( $class, $parent) = @_;
	my $self = $panel = $class->SUPER::new($parent);

	my $db  = Kephra::App::Bar::Document->new($self);
	my $db2 = Kephra::App::Bar::Document->new($self);

	my $splitter = Kephra::App::Splitter->new
		({parent => $self, left => $db, right => $db2, dominant_child => 'left'});
	$self->append( \$splitter );
	$splitter->resize('equal');

	$active = $db2;
	@passive = ($db);

	$self;
}

sub switch_bar {
	
}

1;