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.92 by root, Wed Jun 7 23:30:25 2006 UTC vs.
Revision 1.94 by elmex, Wed Jun 28 09:45:10 2006 UTC

292 $cb->($last_enter_count); 292 $cb->($last_enter_count);
293 $w->hide; 293 $w->hide;
294 $w = undef; 294 $w = undef;
295 } 295 }
296 ); 296 );
297 $entry->focus_in; 297 $entry->grab_focus;
298 $w->show; 298 $w->show;
299 299
300} 300}
301 301
302sub update_widgets { 302sub update_widgets {
457 my ($cb) = @_; 457 my ($cb) = @_;
458 458
459 my $w = new CFClient::UI::FancyFrame 459 my $w = new CFClient::UI::FancyFrame
460 title => "Bind Action", 460 title => "Bind Action",
461 x => "center", 461 x => "center",
462 y => "center"; 462 y => "center",
463 z => 1000;
463 464
464 $w->add (my $vb = new CFClient::UI::VBox); 465 $w->add (my $vb = new CFClient::UI::VBox);
465 $vb->add (new CFClient::UI::Label 466 $vb->add (new CFClient::UI::Label
466 text => "Press a modifier (CTRL, ALT and/or SHIFT) and a key." 467 text => "Press a modifier (CTRL, ALT and/or SHIFT) and a key."
467 ."You can only bind 0-9 and F1-F15 without modifiers." 468 ."You can only bind 0-9 and F1-F15 without modifiers."
488 ." directly without modifier! It would damage the completer handling." 489 ." directly without modifier! It would damage the completer handling."
489 ); 490 );
490 return; 491 return;
491 } 492 }
492 493
493 $entry->focus_out; 494 $entry->grab_focus;
494 495
495 $cb->($mod, $sym); 496 $cb->($mod, $sym);
496 497
497 $w->destroy 498 $w->destroy
498 }); 499 });
499 500
500 $entry->focus_in; 501 $entry->grab_focus;
501 $w->show; 502 $w->show;
502} 503}
503 504
504sub keycombo_to_name { 505sub keycombo_to_name {
505 my ($mod, $sym) = @_; 506 my ($mod, $sym) = @_;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines