… | |
… | |
221 | $kbd_setup->add (new CFPlus::UI::FancyFrame |
221 | $kbd_setup->add (new CFPlus::UI::FancyFrame |
222 | label => "Edit Macro", |
222 | label => "Edit Macro", |
223 | child => (my $editor = new CFPlus::UI::Table col_expand => [0, 1]), |
223 | child => (my $editor = new CFPlus::UI::Table col_expand => [0, 1]), |
224 | ); |
224 | ); |
225 | |
225 | |
226 | $editor->add (0, 1, new CFPlus::UI::Label |
226 | $editor->add_at (0, 1, new CFPlus::UI::Label |
227 | text => "Trigger", |
227 | text => "Trigger", |
228 | tooltip => $tooltip_trigger, |
228 | tooltip => $tooltip_trigger, |
229 | can_hover => 1, |
229 | can_hover => 1, |
230 | can_events => 1, |
230 | can_events => 1, |
231 | ); |
231 | ); |
232 | $editor->add (0, 2, new CFPlus::UI::Label |
232 | $editor->add_at (0, 2, new CFPlus::UI::Label |
233 | text => "Actions", |
233 | text => "Actions", |
234 | tooltip => $tooltip_commands, |
234 | tooltip => $tooltip_commands, |
235 | can_hover => 1, |
235 | can_hover => 1, |
236 | can_events => 1, |
236 | can_events => 1, |
237 | ); |
237 | ); |
238 | |
238 | |
239 | $editor->add (1, 2, my $textedit = new CFPlus::UI::TextEdit |
239 | $editor->add_at (1, 2, my $textedit = new CFPlus::UI::TextEdit |
240 | text => macro_to_text $macro, |
240 | text => macro_to_text $macro, |
241 | tooltip => $tooltip_commands, |
241 | tooltip => $tooltip_commands, |
242 | on_changed => sub { |
242 | on_changed => sub { |
243 | $macro->{action} = macro_from_text $macro, $_[1]; |
243 | $macro->{action} = macro_from_text $macro, $_[1]; |
244 | }, |
244 | }, |
245 | ); |
245 | ); |
246 | |
246 | |
247 | $editor->add (1, 1, my $accel = new CFPlus::UI::Button |
247 | $editor->add_at (1, 1, my $accel = new CFPlus::UI::Button |
248 | text => trigger_to_string $macro, |
248 | text => trigger_to_string $macro, |
249 | tooltip => "To change the trigger for a macro, activate this button.", |
249 | tooltip => "To change the trigger for a macro, activate this button.", |
250 | on_activate => sub { |
250 | on_activate => sub { |
251 | my ($accel) = @_; |
251 | my ($accel) = @_; |
252 | trigger_edit $macro, sub { |
252 | trigger_edit $macro, sub { |
… | |
… | |
255 | 1 |
255 | 1 |
256 | }, |
256 | }, |
257 | ); |
257 | ); |
258 | |
258 | |
259 | my $recording; |
259 | my $recording; |
260 | $editor->add (1, 3, new CFPlus::UI::Button |
260 | $editor->add_at (1, 3, new CFPlus::UI::Button |
261 | text => "Start Recording", |
261 | text => "Start Recording", |
262 | tooltip => "Start/Stop command recording: when recording, " |
262 | tooltip => "Start/Stop command recording: when recording, " |
263 | . "actions and commands you invoke are appended to this macro. " |
263 | . "actions and commands you invoke are appended to this macro. " |
264 | . "You can only record when you are logged in.", |
264 | . "You can only record when you are logged in.", |
265 | on_destroy => sub { |
265 | on_destroy => sub { |