[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Macro.pm

Comparing deliantra/Deliantra-Client/DC/Macro.pm (file contents):
Revision 1.1 by root, Sat Dec 9 02:21:25 2006 UTC vs.
Revision 1.5 by root, Sat Dec 9 23:06:39 2006 UTC

    $window->grab_focus;
    $window->show;
 }
+# find macro by event
+sub match_event($) {
+   my ($ev) = @_;
+   grep {
+      if (my $key = $_->{accelkey}) {
+         $key->[1] == $ev->{sym}
+            && $key->[0] == ($ev->{mod} & $MODIFIER_MASK)
+      } else {
+         0
+      }
+   } @{ $::PROFILE->{macro} || [] }
+}
 sub keyboard_setup {
    my $kbd_setup = new CFPlus::UI::VBox;
    $kbd_setup->add (my $list = new CFPlus::UI::VBox);
          0
       },
    );
    $list->add (new CFPlus::UI::FancyFrame
-      label => "Bindings",
+      label => "Macros",
-      child => (my $macros = new CFPlus::UI::Table),
+      child => (my $macros = new CFPlus::UI::VBox),
    );
    my $refresh;
    my $tooltip_common = "\n\n<small>Left click - edit macro\nMiddle click - invoke macro\nRight click - further options</small>";
             }
          },
       );
    };
+   $macros->add (new CFPlus::UI::Button
+      text    => "New Macro",
+      tooltip => "Creates a new, empty, macro you can edit.",
+      on_activate => sub {
+         my $macro = { };
+         push @{ $::PROFILE->{macro} }, $macro;
+         $edit_macro->($macro);
+      },
+   );
+   $macros->add (my $macrolist = new CFPlus::UI::Table col_expand => [0, 1]);
    $REFRESH_MACRO_LIST = $refresh = sub {
-      $macros->clear;
+      $macrolist->clear;
-      $macros->add (0, 0, new CFPlus::UI::Label
+      $macrolist->add (0, 1, new CFPlus::UI::Label
          text    => "Trigger",
          align   => 0,
          tooltip => $tooltip_trigger . $tooltip_common,
       );
-      $macros->add (1, 0, new CFPlus::UI::Label
+      $macrolist->add (1, 1, new CFPlus::UI::Label
          text    => "Commands",
          tooltip => $tooltip_commands . $tooltip_common,
       );
       for my $idx (0 .. $#{$::PROFILE->{macro} || []}) {
          my $macro = $::PROFILE->{macro}[$idx];
-         my $y = $idx + 1;
+         my $y = $idx + 2;
          my $macro_cb = sub {
             my ($widget, $ev) = @_;
             if ($ev->{button} == 1) {
             }
             1
          };
-         $macros->add (0, $y, new CFPlus::UI::Label
+         $macrolist->add (0, $y, new CFPlus::UI::Label
             text       => trigger_to_string $macro,
             tooltip    => $tooltip_trigger . $tooltip_common,
             align      => 0,
             can_hover  => 1,
             can_events => 1,
             on_button_down => $macro_cb,
          );
-         $macros->add (1, $y, new CFPlus::UI::Label
+         $macrolist->add (1, $y, new CFPlus::UI::Label
-            text       => (join "; ", @{ $macro->{action} }),
+            text       => (join "; ", @{ $macro->{action} || [] }),
             tooltip    => $tooltip_commands . $tooltip_common,
             expand     => 1,
             ellipsise  => 3,
             can_hover  => 1,
             can_events => 1,
 }
 # this is a shortcut method that asks for a binding
 # and then just binds it.
 sub quick_macro {
-   my ($self, $cmds, $end_cb) = @_;
+   my ($cmds, $end_cb) = @_;
    my $macro = {
       action => $cmds,
    };
    trigger_edit $macro, sub {
       if ($_[0]) {
          push @{ $::PROFILE->{macro} }, $macro;
          $REFRESH_MACRO_LIST->();
       }

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/Deliantra-Client/DC/Macro.pm (file contents): Revision 1.1 by root, Sat Dec 9 02:21:25 2006 UTC vs. Revision 1.5 by root, Sat Dec 9 23:06:39 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Macro.pm (file contents):
Revision 1.1 by root, Sat Dec 9 02:21:25 2006 UTC vs.
Revision 1.5 by root, Sat Dec 9 23:06:39 2006 UTC