sub
keymap {
my
$frame
=
shift
;
elements::proton::show::keyboard_map();
return
0;
if
( !
$Kephra::temp
{
'keymap'
}{
'dialog_active'
}
||
$Kephra::temp
{
'keymap'
}{
'dialog_active'
} == 0 ) {
$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_label
= Wx::Panel->new(
$keymap_win
, -1, [ 0, 0 ], [ 100, 22 ],, );
my
$sizer
= Wx::BoxSizer->new(wxVERTICAL);
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'
);
$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;