Commits

Herbert Breunung  committed 52090d9

bit flef to config dialog

  • Participants
  • Parent commits 112d305

Comments (0)

Files changed (1)

File lib/Kephra/App/Dialog/Config.pm

 use strict;
 use warnings;
-
 use Wx;
-#use Wx::TreeBook;
 
 package Kephra::App::Dialog::Config;
 my $cache;
 	$button{lc $_} = Wx::Button->new( $dialog, -1, $_ ) for @button_label;
 	my $keysizer = Wx::BoxSizer->new( &Wx::wxHORIZONTAL );
 	$keysizer->AddStretchSpacer();
-	$keysizer->Add($button{lc $_}, 0, &Wx::wxGROW | &Wx::wxALL, 10) for @button_label;
+	$keysizer->Add($button{lc($_)}, 0, &Wx::wxGROW | &Wx::wxALL, 10) for @button_label;
 	my $sizer = Wx::BoxSizer->new( &Wx::wxVERTICAL );
 	$sizer->Add($tree, 1, Wx::wxGROW, 0);
-	#$sizer->Add(Wx::StaticBox->new($dialog, -1, [-1,-1], [-1,2]), 0 &Wx::wxGROW, 0);
+	$sizer->Add(Wx::StaticLine->new($dialog, -1, [-1,-1], [-1,2]), 0, &Wx::wxTOP | &Wx::wxGROW, 10);
 	$sizer->Add($keysizer, 0, &Wx::wxGROW, 0);
 	$dialog->SetSizer($sizer);
+
+	Wx::Event::EVT_BUTTON($dialog, $button{'accept'}, sub {
+		$dialog->EndModal(0);
+	});
+
 	$dialog;
 }