| … | |
… | |
| 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 { |
