--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/07/24 08:23:28	1.67
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/07/30 12:51:32	1.68
@@ -263,6 +263,12 @@
       $sktbl->add (4, 0, new CFClient::UI::Label text => "Lvl.", align => 1);
       $sktbl->add (5, 0, new CFClient::UI::Label text => "Skill", expand => 1);
 
+      my $TOOLTIP_ALL = "\n\n<small>Left click - ready skill\nMiddle click - use spell\nRight click - further options</small>";
+
+      my @TOOLTIP_LVL  = (tooltip => "<b>Level</b>. The level of the skill.$TOOLTIP_ALL", can_events => 1, can_hover => 1);
+      my @TOOLTIP_EXP  = (tooltip => "<b>Experience</b>. The experience points you have in this skill.$TOOLTIP_ALL", can_events => 1, can_hover => 1);
+      my @TOOLTIP_NAME = (tooltip => "<b>Name</b>. The name of the skill.$TOOLTIP_ALL", can_events => 1, can_hover => 1);
+
       my ($x, $y) = (0, 1);
       for (
          sort { $stats->{$b->[0]}[1] <=> $stats->{$a->[0]}[1] or $a->[1] cmp $b->[1] }
@@ -272,11 +278,32 @@
       ) {
          my ($idx, $name) = @$_;
 
+         my $spell_cb = sub {
+            my ($widget, $ev) = @_;
+
+            if ($ev->{button} == 1) {
+               $::CONN->user_send ("ready_skill $name");
+            } elsif ($ev->{button} == 2) {
+               $::CONN->user_send ("use_skill $name");
+            } elsif ($ev->{button} == 3) {
+               (new CFClient::UI::Menu
+                  items => [
+                     ["bind <i>ready_skill $name</i> to a key"   => sub { $::BIND_EDITOR->do_quick_binding (["ready_skill $name"]) }],
+                     ["bind <i>use_skill $name</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["use_skill $name"]) }],
+                  ],
+               )->popup ($ev);
+            } else {
+               return 0;
+            }
+
+            1
+         };
+
          $sktbl->add ($x * 3 + 0, $y, $self->{stat_widget_exp}{$idx} = new CFClient::UI::Label
-            text => "0", align => 1, font => $::FONT_FIXED, fg => [1, 1, 0]);
+            text => "0", align => 1, font => $::FONT_FIXED, fg => [1, 1, 0], on_button_down => $spell_cb, @TOOLTIP_EXP);
          $sktbl->add ($x * 3 + 1, $y, $self->{stat_widget_lvl}{$idx} = new CFClient::UI::Label
-            text => "0", align => 1, font => $::FONT_FIXED, fg => [0, 1, 0], padding_x => 4);
-         $sktbl->add ($x * 3 + 2, $y, new CFClient::UI::Label text => $name);
+            text => "0", align => 1, font => $::FONT_FIXED, fg => [0, 1, 0], padding_x => 4, on_button_down => $spell_cb, @TOOLTIP_LVL);
+         $sktbl->add ($x * 3 + 2, $y, new CFClient::UI::Label text => $name, on_button_down => $spell_cb, @TOOLTIP_NAME);
 
          $x++ and ($x, $y) = (0, $y + 1);
       }