--- deliantra/Deliantra-Client/DC/Pod.pm 2006/09/12 20:48:45 1.15 +++ deliantra/Deliantra-Client/DC/Pod.pm 2007/12/26 20:46:39 1.16 @@ -1,4 +1,4 @@ -package CFPlus::Pod; +package dc::Pod; use strict; use utf8; @@ -14,7 +14,7 @@ my $MA_SEP = "\x{fcd1}"; my $MA_END = "\x{fcd2}"; -*wiki = Storable::retrieve CFPlus::find_rcfile "docwiki.pst"; +*wiki = Storable::retrieve dc::find_rcfile "docwiki.pst"; sub goto_document($) { $goto_document->(split /\//, $_[0]); @@ -116,7 +116,7 @@ link => sub { my ($par, $text, $link) = @_; - "" . (CFPlus::asxml $text) . "" + "" . (dc::asxml $text) . "" }, ); @@ -138,7 +138,7 @@ image => sub { my ($par, $path, $flags) = @_; - push @{ $par->{widget} }, new CFPlus::UI::Image path => $path, + push @{ $par->{widget} }, new dc::UI::Image path => $path, $flags & 1 ? (max_h => $::FONTSIZE) : (); "\x{fffc}" @@ -146,14 +146,14 @@ link => sub { my ($par, $text, $link) = @_; - push @{ $par->{widget} }, new CFPlus::UI::Label - markup => "" . (CFPlus::asxml $text) . "", + push @{ $par->{widget} }, new dc::UI::Label + markup => "" . (dc::asxml $text) . "", fontsize => 0.8, can_hover => 1, can_events => 1, padding_x => 0, padding_y => 0, - tooltip => "Go to " . (CFPlus::asxml $link) . "", + tooltip => "Go to " . (dc::asxml $link) . "", on_button_up => sub { goto_document $link; };