Source

Kephra / lib / Kephra / App / Bar / Search.pm

Full commit
use strict;
use warnings;
use Wx;

use Kephra::App::ToolBar;

package Kephra::App::Bar::Search;
our @ISA = 'Wx::Panel';

sub new {
	my( $class, $parent) = @_;
	my $panel = $class->SUPER::new($parent, -1, [-1,-1],[-1, -1]);
	my $bar = Kephra::App::ToolBar::compile(['combobox'], $panel);
#print $searchbar;
	my $sizer = Wx::BoxSizer->new( &Wx::wxVERTICAL );
	$sizer->Add($bar, 1, &Wx::wxGROW, 0);
	$panel->SetSizer($sizer);

    return $panel;
}


1;