--- deliantra/Deliantra-Client/DC/Pod.pm	2006/08/14 03:04:18	1.11
+++ deliantra/Deliantra-Client/DC/Pod.pm	2006/08/14 18:46:07	1.12
@@ -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 * 0.8) : ();
 
       "\x{fffc}"
    },