--- deliantra/Deliantra-Client/DC/Pod.pm 2006/08/13 21:46:10 1.9
+++ deliantra/Deliantra-Client/DC/Pod.pm 2006/08/18 01:01:01 1.14
@@ -25,7 +25,7 @@
return 1 unless @path;
- my $kw = pop @path;
+ my $kw = lc pop @path;
$node = $node->{parent}
or return 0;
@@ -38,14 +38,14 @@
return unless @path;
- my $kw = pop @path;
+ my $kw = lc pop @path;
# TODO: make sure results are unique
grep { is_prefix_of $_, @path }
map @$_,
$kw eq "*" ? @wiki{sort keys %wiki}
- : grep $_, $wiki{$kw}
+ : $wiki{$kw} || ()
}
sub full_path_of($) {
@@ -136,9 +136,10 @@
my %as_paragraphs = (
image => sub {
- my ($par, $path) = @_;
+ my ($par, $path, $flags) = @_;
- push @{ $par->{widget} }, new CFPlus::UI::Image path => $path;
+ push @{ $par->{widget} }, new CFPlus::UI::Image path => $path,
+ $flags & 1 ? (max_h => $::FONTSIZE) : ();
"\x{fffc}"
},
@@ -147,7 +148,7 @@
push @{ $par->{widget} }, new CFPlus::UI::Label
markup => "↺" . (CFPlus::asxml $text) . "",
- size => 0.8,
+ fontsize => 0.8,
can_hover => 1,
can_events => 1,
padding_x => 0,