File Coverage

lib/Kephra/Dialog/Keymap.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	2	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	0	2	0.0
total	8	46	17.3

package Kephra::Dialog::Keymap;
our $VERSION = '0.02';

use strict;
use warnings;


sub keymap {
	my $frame = shift;

	elements::proton::show::keyboard_map();
	return 0;

	if ( !$Kephra::temp{keymap}{dialog_active}
		|| $Kephra::temp{keymap}{dialog_active} == 0 ) {

		# init win mit grunddesign
		$Kephra::temp{'keymap'}{'dialog_active'} = 1;
		my $l18n = Kephra::Localisation::strings()->{dialogs}{keyboard_map};
		my $keymap_win = Wx::Frame->new(
			$frame, -1, ' ' . $l18n->{title},
			[ 10,  10 ], [ 420, 460 ],
			&Wx::wxNO_FULL_REPAINT_ON_RESIZE | &Wx::wxSYSTEM_MENU | &Wx::wxCAPTION |
			&Wx::wxMINIMIZE_BOX | &Wx::wxCLOSE_BOX | &Wx::wxRESIZE_BORDER,
		);
		$frame->{keymap_win} = $keymap_win;
		Kephra::App::Window::load_icon( $keymap_win,
			Kephra::API::settings()->{main}{icon} );
		$keymap_win->SetBackgroundColour(&Wx::wxWHITE);

	  #my $keymap_ground = Wx::Panel->new($keymap_win, -1, [0,0], [-1,-1], ,);
		my $keymap_label
			= Wx::Panel->new( $keymap_win, -1, [ 0, 0 ], [ 100, 22 ],, );
		my $sizer = Wx::BoxSizer->new(&Wx::wxVERTICAL);

		#inhalt
		my $keymap_list = Wx::Grid->new(
			$keymap_win, -1,
			[ 0,  22 ], [ -1, -1 ],
			&Wx::wxWANTS_CHARS,,
		);
		$keymap_list->AppendCols( 3, 0 );
		$keymap_list->AppendRows( 3, 0 );
		$keymap_list->SetColLabelValue( 1, 'Beschreibung' );
		$keymap_list->SetRowLabelValue( 2, 'Kombintion' );

		#$keymap_list->AppendRows(3, 1);SetColLabelValue and SetRowLabelValue
		$sizer->Add( $keymap_label, 0, &Wx::wxTOP | &Wx::wxGROW,    0 );
		$sizer->Add( $keymap_list,  1, &Wx::wxBOTTOM | &Wx::wxGROW, 0 );
		$keymap_win->SetSizer($sizer);
		$keymap_win->SetAutoLayout(1);
		$keymap_win->Centre(&Wx::wxBOTH);
		$keymap_win->Show(1);

		Wx::Event::EVT_CLOSE( $keymap_win, \&quit_keymap_dialog );

		sub quit_keymap_dialog {
			my ( $win, $event ) = @_;

			$Kephra::temp{'keymap'}{'dialog_active'} = 0;
			$win->Destroy();
		}

		} else {
		$frame->{'keymap_win'}->Iconize(0);
		$frame->{'keymap_win'}->Raise();
	}
}

1;