ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.59 by elmex, Tue May 23 17:30:18 2006 UTC vs.
Revision 1.60 by root, Tue May 23 23:14:44 2006 UTC

… …
131 my ($pom) = @_; 131 my ($pom) = @_;
132 132
133 $pom->present ("CFClient::PodToPango") 133 $pom->present ("CFClient::PodToPango")
134} 134}
135 135
136sub pod_to_pango_list($) {
137 my ($pom) = @_;
138
139 [
140 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
141 split /\n/, $pom->present ("CFClient::PodToPango")
142 ]
143}
144
136package CFClient::PodToPango; 145package CFClient::PodToPango;
137 146
138use base Pod::POM::View::Text; 147use base Pod::POM::View::Text;
139 148
140our $indent = 0; 149our $indent = 0;
… …
168 177
169sub view_textblock { 178sub view_textblock {
170 ("\t" x ($indent / 2)) . "$_[1]\n\n" 179 ("\t" x ($indent / 2)) . "$_[1]\n\n"
171} 180}
172 181
182sub view_head1 {
183 "<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
184 . $_[1]->content->present ($_[0])
185};
186
173sub view_head2 { 187sub view_head2 {
174 "<big>" . $_[1]->title->present ($_[0]) . "</big>\n\n" 188 "<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
175 . $_[1]->content->present ($_[0]) 189 . $_[1]->content->present ($_[0])
176}; 190};
177 191
178sub view_over { 192sub view_over {
179 local $indent = $indent + $_[1]->indent; 193 local $indent = $indent + $_[1]->indent;

Diff Legend

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