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

Comparing deliantra/Deliantra-Client/DC/Pod.pm (file contents):
Revision 1.7 by root, Sun Aug 13 18:48:56 2006 UTC vs.
Revision 1.8 by root, Sun Aug 13 19:47:05 2006 UTC

 package CFPlus::Pod;
 use strict;
+use utf8;
 use Storable;
 our $VERSION = 1;
+our $on_link = sub { };
 our %wiki;
 my $MA_BEG = "\x{fcd0}";
 my $MA_SEP = "\x{fcd1}";
 my $MA_END = "\x{fcd2}";
       my ($par, $path) = @_;
       "<small>img</small>"
    },
    link => sub {
-      my ($par, $link) = @_;
+      my ($par, $text, $link) = @_;
-      "<big>" . (CFPlus::asxml $link) . "</big>"
+      "<span foreground='#ffff00'>↺</span><span foreground='#c0c0ff' underline='single'>" . (CFPlus::asxml $text) . "</span>"
    },
 );
 sub as_label(@) {
    thaw_section @_, %as_label;
    image => sub {
       my ($par, $path) = @_;
       push @{ $par->{widget} }, new CFPlus::UI::Image path => $path;
-      "\x{FFFC}"
+      "\x{fffc}"
    },
    link => sub {
-      my ($par, $link) = @_;
+      my ($par, $text, $link) = @_;
-      "<big>" . (CFPlus::asxml $link) . "</big>"
+      push @{ $par->{widget} }, new CFPlus::UI::Label
+         markup     => "<span foreground='#ffff00'>↺</span><span foreground='#c0c0ff' underline='single'>" . (CFPlus::asxml $text) . "</span>",
+         size       => 0.8,
+         can_hover  => 1,
+         can_events => 1,
+         padding_x  => 0,
+         padding_y  => 0,
+         on_button_up => sub {
+            $on_link->(split /\//, $link);
+         };
+      "\x{fffc}"
    },
 );
 sub as_paragraphs(@) {
    thaw_section @_, %as_paragraphs;

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