1. Herbert Breunung
  2. Kephra

Source

Kephra / lib / snippets.pl

#!usr/bin/perl
use v5.12;
use warnings;

SnippetLib->new->MainLoop;

package SnippetLib;
use Wx;
use Wx::STC;
use Wx::DND;
use base qw(Wx::App);

sub OnInit {
	my $app   = shift;
	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__, [-1,-1], [1000,800]);
	
	my $ed = Wx::StyledTextCtrl->new($frame, -1);
	my $slib = Wx::TreeCtrl->new($frame, -1, [-1,-1], [100,-1], &Wx::wxTR_SINGLE | &Wx::wxTR_HIDE_ROOT,);


	my $sizer = Wx::BoxSizer->new(&Wx::wxHORIZONTAL);
	$sizer->Add($ed, 1, &Wx::wxGROW);
	$sizer->Add($slib, 0);
	$frame->SetSizer($sizer);
	$frame->Show(1);
	$app->SetTopWindow($frame);
	1;
}