--- deliantra/Deliantra-Client/DC/Pod.pm	2006/08/13 18:48:56	1.7
+++ deliantra/Deliantra-Client/DC/Pod.pm	2006/08/13 19:47:05	1.8
@@ -1,11 +1,13 @@
 package CFPlus::Pod;
 
 use strict;
+use utf8;
 
 use Storable;
 
 our $VERSION = 1;
 
+our $on_link = sub { };
 our %wiki;
 
 my $MA_BEG = "\x{fcd0}";
@@ -98,9 +100,9 @@
       "<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>"
    },
 );
 
@@ -124,12 +126,23 @@
 
       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}"
    },
 );