… | |
… | |
1012 | my ($self, $visible) = @_; |
1012 | my ($self, $visible) = @_; |
1013 | $refresh->() if $visible; |
1013 | $refresh->() if $visible; |
1014 | }; |
1014 | }; |
1015 | |
1015 | |
1016 | $BIND_WINDOW->add (my $vb = new CFClient::UI::VBox); |
1016 | $BIND_WINDOW->add (my $vb = new CFClient::UI::VBox); |
|
|
1017 | $vb->add ($binding_list); |
|
|
1018 | $vb->add (my $hb = new CFClient::UI::HBox); |
1017 | $vb->add (new CFClient::UI::Button |
1019 | $hb->add (new CFClient::UI::Button |
1018 | text => "record new", |
1020 | text => "record new", |
|
|
1021 | expand => 1, |
1019 | tooltip => "This button opens the binding editor with an empty binding.", |
1022 | tooltip => "This button opens the binding editor with an empty binding.", |
1020 | on_activate => sub { |
1023 | on_activate => sub { |
1021 | $::BIND_EDITOR->set_binding (undef, undef, [], |
1024 | $::BIND_EDITOR->set_binding (undef, undef, [], |
1022 | sub { |
1025 | sub { |
1023 | my ($mod, $sym, $cmds) = @_; |
1026 | my ($mod, $sym, $cmds) = @_; |
… | |
… | |
1030 | }); |
1033 | }); |
1031 | $::BIND_WINDOW->hide; |
1034 | $::BIND_WINDOW->hide; |
1032 | $::BIND_EDITOR->show; |
1035 | $::BIND_EDITOR->show; |
1033 | }, |
1036 | }, |
1034 | ); |
1037 | ); |
1035 | $vb->add ($binding_list); |
1038 | $hb->add (new CFClient::UI::Button |
|
|
1039 | text => "close", |
|
|
1040 | tooltip => "Closes the binding window", |
|
|
1041 | expand => 1, |
|
|
1042 | on_activate => sub { |
|
|
1043 | $::BIND_WINDOW->hide; |
|
|
1044 | } |
|
|
1045 | ); |
|
|
1046 | |
1036 | $refresh->(); |
1047 | $refresh->(); |
1037 | $BIND_WINDOW |
1048 | $BIND_WINDOW |
1038 | } |
1049 | } |
1039 | |
1050 | |
1040 | sub make_help_window { |
1051 | sub make_help_window { |
… | |
… | |
1196 | tooltip => "View Documentation"); |
1207 | tooltip => "View Documentation"); |
1197 | |
1208 | |
1198 | $BUTTONBAR->add (new CFClient::UI::Flopper |
1209 | $BUTTONBAR->add (new CFClient::UI::Flopper |
1199 | text => "Bindings", |
1210 | text => "Bindings", |
1200 | other => make_binding_window, |
1211 | other => make_binding_window, |
1201 | tooltip => "Lets you delete bindings you have made with the recorder" |
1212 | tooltip => |
|
|
1213 | "Lets you define, edit and delete bindings." |
|
|
1214 | ."There is a shortcut for making bindings: LCTRL+Insert opens the binding editor " |
|
|
1215 | ."with nothing set and the recording started. After doing the actions you " |
|
|
1216 | ."want to record press Insert and you will be asked to press a key-combo." |
|
|
1217 | ."After pressing the combo the binding will be saved automatically and the " |
|
|
1218 | ."binding editor closes" |
1202 | ); |
1219 | ); |
1203 | |
1220 | |
1204 | $BUTTONBAR->add (new CFClient::UI::Button |
1221 | $BUTTONBAR->add (new CFClient::UI::Button |
1205 | text => "Quit", |
1222 | text => "Quit", |
1206 | tooltip => "Terminates the program", |
1223 | tooltip => "Terminates the program", |