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.103 by root, Sun Jul 23 08:58:43 2006 UTC vs.
Revision 1.106 by root, Mon Jul 24 04:24:42 2006 UTC

… …
59 59
60sub CFClient::Guard::DESTROY { 60sub CFClient::Guard::DESTROY {
61 ${$_[0]}->() 61 ${$_[0]}->()
62} 62}
63 63
64package CFClient::PodToPango; 64sub asxml($) {
65 local $_ = $_[0];
65 66
66use base Pod::POM::View::Text; 67 s/&/&/g;
68 s/>/>/g;
69 s/</&lt;/g;
67 70
68our $VERSION = 1; # bump if resultant formatting changes 71 $_
69
70our $indent = 0;
71
72*view_seq_code =
73*view_seq_bold = sub { "<b>$_[1]</b>" };
74*view_seq_italic = sub { "<i>$_[1]</i>" };
75*view_seq_space =
76*view_seq_link =
77*view_seq_index = sub { CFClient::UI::Label::escape ($_[1]) };
78
79sub view_seq_text {
80 my $text = $_[1];
81 $text =~ s/\s+/ /g;
82 CFClient::UI::Label::escape ($text)
83}
84
85sub view_item {
86 ("\t" x ($indent / 4))
87 . $_[1]->title->present ($_[0])
88 . "\n\n"
89 . $_[1]->content->present ($_[0])
90}
91
92sub view_verbatim {
93 (join "",
94 map +("\t" x ($indent / 2)) . "<tt>$_</tt>\n",
95 split /\n/, CFClient::UI::Label::escape ($_[1]))
96 . "\n"
97}
98
99sub view_textblock {
100 ("\t" x ($indent / 2)) . "$_[1]\n\n"
101}
102
103sub view_head1 {
104 "\n\n<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
105 . $_[1]->content->present ($_[0])
106};
107
108sub view_head2 {
109 "\n<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
110 . $_[1]->content->present ($_[0])
111};
112
113sub view_head3 {
114 "\n<span size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
115 . $_[1]->content->present ($_[0])
116};
117
118sub view_over {
119 local $indent = $indent + $_[1]->indent;
120 $_[1]->content->present ($_[0])
121} 72}
122 73
123package CFClient::Database; 74package CFClient::Database;
124 75
125our @ISA = BerkeleyDB::Btree::; 76our @ISA = BerkeleyDB::Btree::;
… …
219# -Filename => "database", 170# -Filename => "database",
220# -Subname => $table, 171# -Subname => $table,
221 -Property => DB_CHKSUM, 172 -Property => DB_CHKSUM,
222 -Flags => DB_CREATE | DB_UPGRADE, 173 -Flags => DB_CREATE | DB_UPGRADE,
223 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error" 174 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
224}
225
226my $pod_cache = db_table "pod_cache";
227
228sub load_pod($$$$) {
229 my ($path, $filtertype, $filterversion, $filtercb) = @_;
230
231 stat $path
232 or die "$path: $!";
233
234 my $phash = join ",", $filterversion, $CFClient::PodToPango::VERSION, (stat _)[7,9];
235
236 my ($chash, $pom) = eval { @{ Storable::thaw $pod_cache->get ("$path/$filtertype") } };
237
238 return $pom if $chash eq $phash;
239
240 my $pod = do {
241 local $/;
242 open my $pod, "<:utf8", $_[0]
243 or die "$_[0]: $!";
244 <$pod>
245 };
246
247 #utf8::downgrade $pod;
248
249 $pom = $filtercb-> (Pod::POM->new->parse_text ($pod));
250
251 $pod_cache->put ("$path/$filtertype" => Storable::nfreeze [$phash, $pom]);
252
253 $pom
254}
255
256sub pod_to_pango($) {
257 my ($pom) = @_;
258
259 $pom->present ("CFClient::PodToPango")
260}
261
262sub pod_to_pango_list($) {
263 my ($pom) = @_;
264
265 [
266 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
267 split /\n/, $pom->present ("CFClient::PodToPango")
268 ]
269} 175}
270 176
271package CFClient::Layout; 177package CFClient::Layout;
272 178
273$CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Layout"} = sub { 179$CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Layout"} = sub {
… …
390 ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], 296 ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }],
391 ) 297 )
392 : ( 298 : (
393 ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }], 299 ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }],
394 ["$move_prefix all", sub { $::CONN->send ("move $targ $self->{tag} 0") }], 300 ["$move_prefix all", sub { $::CONN->send ("move $targ $self->{tag} 0") }],
395 ["$move_prefix <n>", 301 ["$move_prefix &lt;n&gt;",
396 sub { 302 sub {
397 do_n_dialog (sub { $::CONN->send ("move $targ $self->{tag} $_[0]") }) 303 do_n_dialog (sub { $::CONN->send ("move $targ $self->{tag} $_[0]") })
398 } 304 }
399 ] 305 ]
400 ) 306 )
… …
413 . "Middle click - apply\n" 319 . "Middle click - apply\n"
414 . "Shift-Middle click - lock/unlock\n" 320 . "Shift-Middle click - lock/unlock\n"
415 . "Right click - further options" 321 . "Right click - further options"
416 . "</small>\n"; 322 . "</small>\n";
417 323
324 my $bg = $self->{flags} & F_CURSED ? [1 , 0 , 0, 0.5]
325 : $self->{flags} & F_MAGIC ? [0.2, 0.2, 1, 0.5]
326 : undef;
327
418 $self->{face_widget} ||= new CFClient::UI::Face 328 $self->{face_widget} ||= new CFClient::UI::Face
419 can_events => 1, 329 can_events => 1,
420 can_hover => 1, 330 can_hover => 1,
421 anim => $self->{anim}, 331 anim => $self->{anim},
422 animspeed => $self->{animspeed}, # TODO# must be set at creation time 332 animspeed => $self->{animspeed}, # TODO# must be set at creation time
423 on_button_down => $button_cb, 333 on_button_down => $button_cb,
424 ; 334 ;
335 $self->{face_widget}{bg} = $bg;
425 $self->{face_widget}{face} = $self->{face}; 336 $self->{face_widget}{face} = $self->{face};
426 $self->{face_widget}{anim} = $self->{anim}; 337 $self->{face_widget}{anim} = $self->{anim};
427 $self->{face_widget}{animspeed} = $self->{animspeed}; 338 $self->{face_widget}{animspeed} = $self->{animspeed};
428 $self->{face_widget}->set_tooltip ( 339 $self->{face_widget}->set_tooltip (
429 "<b>Face/Animation.</b>\n" 340 "<b>Face/Animation.</b>\n"
… …
438 ellipsise => 2, 349 ellipsise => 2,
439 align => -1, 350 align => -1,
440 on_button_down => $button_cb, 351 on_button_down => $button_cb,
441 ; 352 ;
442 my $desc = CFClient::Item::desc_string $self; 353 my $desc = CFClient::Item::desc_string $self;
354 $self->{desc_widget}{bg} = $bg;
443 $self->{desc_widget}->set_text ($desc); 355 $self->{desc_widget}->set_text ($desc);
444 $self->{desc_widget}->set_tooltip ("<b>$desc</b>.\n$tooltip_std"); 356 $self->{desc_widget}->set_tooltip ("<b>$desc</b>.\n$tooltip_std");
445 357
446 $self->{weight_widget} ||= new CFClient::UI::Label 358 $self->{weight_widget} ||= new CFClient::UI::Label
447 can_events => 1, 359 can_events => 1,
448 can_hover => 1, 360 can_hover => 1,
449 ellipsise => 0, 361 ellipsise => 0,
450 align => 0, 362 align => 0,
451 on_button_down => $button_cb, 363 on_button_down => $button_cb,
452 ; 364 ;
365 $self->{weight_widget}{bg} = $bg;
453 $self->{weight_widget}->set_text (CFClient::Item::weight_string $self); 366 $self->{weight_widget}->set_text (CFClient::Item::weight_string $self);
454
455 $self->{weight_widget}->set_tooltip ( 367 $self->{weight_widget}->set_tooltip (
456 "<b>Weight</b>.\n" 368 "<b>Weight</b>.\n"
457 . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ") 369 . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ")
458 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ") 370 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ")
459 . "\n\n$tooltip_std" 371 . "\n\n$tooltip_std"

Diff Legend

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