Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

use strict;
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 $keymap_win = Wx::Frame->new(
$frame,
-1,
' ' . $Kephra::localisation{'dialogs'}{'keyboard_map'}{'title'},
[ 10, 10 ],
[ 420, 460 ],
wxNO_FULL_REPAINT_ON_RESIZE | wxSYSTEM_MENU | wxCAPTION
| wxMINIMIZE_BOX | wxCLOSE_BOX | wxRESIZE_BORDER,
);
$frame->{'keymap_win'} = $keymap_win;
Kephra::App::Window::load_icon( $keymap_win,
$Kephra::config{'main'}{'icon'} );
$keymap_win->SetBackgroundColour(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(wxVERTICAL);
#inhalt
my $keymap_list = Wx::Grid->new(
$keymap_win, -1,
[ 0, 22 ],
[ -1, -1 ],
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, wxTOP | wxGROW, 0 );
$sizer->Add( $keymap_list, 1, wxBOTTOM | wxGROW, 0 );
$keymap_win->SetSizer($sizer);
$keymap_win->SetAutoLayout(1);
$keymap_win->Centre(wxBOTH);
$keymap_win->Show(1);
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;