… | |
… | |
171 | . $_[1]->content->present ($_[0]) |
171 | . $_[1]->content->present ($_[0]) |
172 | } |
172 | } |
173 | |
173 | |
174 | sub view_verbatim { |
174 | sub view_verbatim { |
175 | (join "", |
175 | (join "", |
176 | map +("\t" x ($indent / 2)) . "$_\n", |
176 | map +("\t" x ($indent / 2)) . "<tt>$_</tt>\n", |
177 | split /\n/, CFClient::UI::Label::escape ($_[1])) |
177 | split /\n/, CFClient::UI::Label::escape ($_[1])) |
178 | . "\n" |
178 | . "\n" |
179 | } |
179 | } |
180 | |
180 | |
181 | sub view_textblock { |
181 | sub view_textblock { |
182 | ("\t" x ($indent / 2)) . "$_[1]\n\n" |
182 | ("\t" x ($indent / 2)) . "$_[1]\n\n" |
183 | } |
183 | } |
184 | |
184 | |
185 | sub view_head1 { |
185 | sub view_head1 { |
186 | "<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n" |
186 | "\n\n<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n" |
187 | . $_[1]->content->present ($_[0]) |
187 | . $_[1]->content->present ($_[0]) |
188 | }; |
188 | }; |
189 | |
189 | |
190 | sub view_head2 { |
190 | sub view_head2 { |
191 | "<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n" |
191 | "\n<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n" |
|
|
192 | . $_[1]->content->present ($_[0]) |
|
|
193 | }; |
|
|
194 | |
|
|
195 | sub view_head3 { |
|
|
196 | "\n<span size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n" |
192 | . $_[1]->content->present ($_[0]) |
197 | . $_[1]->content->present ($_[0]) |
193 | }; |
198 | }; |
194 | |
199 | |
195 | sub view_over { |
200 | sub view_over { |
196 | local $indent = $indent + $_[1]->indent; |
201 | local $indent = $indent + $_[1]->indent; |