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.80 by elmex, Tue May 30 08:12:50 2006 UTC vs.
Revision 1.81 by elmex, Tue May 30 14:35:08 2006 UTC

… …
332 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ") 332 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ")
333 . "\n\n$tooltip_std" 333 . "\n\n$tooltip_std"
334 ); 334 );
335} 335}
336 336
337package CFClient::Recorder; 337package CFClient::Binder;
338
339our $RECORD_WINDOW;
340
341my $CMDBOX;
342my $CURRENT_CMDS;
343my $REC_BTN;
344 338
345my @ALLOWED_MODIFIER_KEYS = ( 339my @ALLOWED_MODIFIER_KEYS = (
346 (CFClient::SDLK_LSHIFT) => "LSHIFT", 340 (CFClient::SDLK_LSHIFT),
347 (CFClient::SDLK_LCTRL ) => "LCTRL", 341 (CFClient::SDLK_LCTRL ),
348 (CFClient::SDLK_LALT ) => "LALT", 342 (CFClient::SDLK_LALT ),
349 (CFClient::SDLK_LMETA ) => "LMETA", 343 (CFClient::SDLK_LMETA ),
350 344
351 (CFClient::SDLK_RSHIFT) => "RSHIFT", 345 (CFClient::SDLK_RSHIFT),
352 (CFClient::SDLK_RCTRL ) => "RCTRL", 346 (CFClient::SDLK_RCTRL ),
353 (CFClient::SDLK_RALT ) => "RALT", 347 (CFClient::SDLK_RALT ),
354 (CFClient::SDLK_RMETA ) => "RMETA", 348 (CFClient::SDLK_RMETA ),
355); 349);
356 350
357my %ALLOWED_MODIFIERS = ( 351my %ALLOWED_MODIFIERS = (
358 (CFClient::KMOD_LSHIFT) => "LSHIFT", 352 (CFClient::KMOD_LSHIFT) => "LSHIFT",
359 (CFClient::KMOD_LCTRL ) => "LCTRL", 353 (CFClient::KMOD_LCTRL ) => "LCTRL",
… …
384 CFClient::SDLK_F14, 378 CFClient::SDLK_F14,
385 CFClient::SDLK_F15, 379 CFClient::SDLK_F15,
386); 380);
387 381
388# this binding dialog asks for a key-combo to be pressed 382# this binding dialog asks for a key-combo to be pressed
389# and if successful it binds the modifier+symbol to the 383# and if successful it calls the $cb with $mod and $sym as args.
390# supplied actions in $cmd.
391# (Bindings are stored in $::CFG->{bindings}->{$mod}->{$sym})
392sub open_binding_dialog { 384sub open_binding_dialog {
393 my ($cmd) = @_; 385 my ($cb) = @_;
394 386
395 my $w = new CFClient::UI::FancyFrame 387 my $w = new CFClient::UI::FancyFrame
396 title => "Bind Action", 388 title => "Bind Action",
397 x => "center", 389 x => "center",
398 y => "center"; 390 y => "center";
… …
426 return; 418 return;
427 } 419 }
428 420
429 $entry->focus_out; 421 $entry->focus_out;
430 422
431 $::CFG->{bindings}->{$mod}->{$sym} = $cmd; 423 $cb->($mod, $sym);
432 $::STATUSBOX->add ("Bound actions to '".keycombo_to_name ($mod, $sym)."'. Don't forget 'Save Config'!");
433 424
434 $w->destroy 425 $w->destroy
435 }); 426 });
436 427
437 $entry->focus_in; 428 $entry->focus_in;
… …
441sub keycombo_to_name { 432sub keycombo_to_name {
442 my ($mod, $sym) = @_; 433 my ($mod, $sym) = @_;
443 434
444 my $mods = join '+', 435 my $mods = join '+',
445 map { $ALLOWED_MODIFIERS{$_} } 436 map { $ALLOWED_MODIFIERS{$_} }
446 grep { $_ & $mod } 437 grep { ($_ + 0) & ($mod + 0) }
447 keys %ALLOWED_MODIFIERS; 438 keys %ALLOWED_MODIFIERS;
448 $mods .= "+" if $mods ne ''; 439 $mods .= "+" if $mods ne '';
449 440
450 return $mods . CFClient::SDL_GetKeyName ($sym); 441 return $mods . CFClient::SDL_GetKeyName ($sym);
451} 442}
452 443
453sub clear_command_list {
454 $CMDBOX->clear () if $CMDBOX;
455}
456
457sub set_command_list {
458 my ($list) = @_;
459
460 return unless $CMDBOX;
461
462 $CMDBOX->clear ();
463 $CURRENT_CMDS = $list;
464
465 my $idx = 0;
466
467 for (@$list) {
468 $CMDBOX->add (my $hb = new CFClient::UI::HBox);
469
470 my $i = $idx;
471 $hb->add (new CFClient::UI::Button
472 text => "delete",
473 tooltip => "Deletes the action from the record",
474 on_activate => sub {
475 $CMDBOX->remove ($hb);
476 $list->[$i] = undef;
477 });
478
479 $hb->add (new CFClient::UI::Label text => $_);
480
481 $idx++
482 }
483}
484
485# if $show is 1 the recorder will be shown
486sub start {
487 my ($show) = @_;
488
489 $RECORD_WINDOW->show if $show;
490
491 $REC_BTN->set_text ("stop recording");
492 $REC_BTN->{recording} = 1;
493 clear_command_list;
494 $::CONN->start_record;
495}
496
497# if $autobind is 1 the recorder will be automatically
498# jump into the binding query and hide the recorder window
499sub stop {
500 my ($autobind) = @_;
501
502 $REC_BTN->set_text ("start recording");
503 $REC_BTN->{recording} = 0;
504
505 my $rec = $::CONN->stop_record;
506 return unless ref $rec eq 'ARRAY';
507 set_command_list ($rec);
508
509 if ($autobind) {
510 open_binding_dialog ([ grep { defined $_ } @$CURRENT_CMDS ]);
511 $RECORD_WINDOW->hide;
512 }
513}
514
515sub make_window {
516 $RECORD_WINDOW = new CFClient::UI::FancyFrame
517 req_y => 1,
518 req_x => -1,
519 title => "Action Recorder";
520
521 $RECORD_WINDOW->add (my $vb = new CFClient::UI::VBox);
522 $vb->add ($REC_BTN = new CFClient::UI::Button
523 text => "start recording",
524 tooltip => "Start/Stops recording of actions."
525 ."(CTRL+Insert Starts the recorder, Insert Stops recorder and binds automatically)"
526 ."All subsequent actions after the recording started will be captured."
527 ."The actions are displayed after the record was stopped."
528 ."To bind the action you have to click on the 'Bind' button",
529 on_activate => sub {
530 my ($btn) = @_;
531
532 unless ($btn->{recording}) {
533 start;
534 } else {
535 stop;
536 }
537 });
538 $vb->add ($CMDBOX = new CFClient::UI::VBox);
539 $vb->add (new CFClient::UI::Button
540 text => "bind",
541 tooltip => "This opens a query where you have to press the key combination to bind the recorded actions",
542 on_activate => sub {
543 open_binding_dialog ([ grep { defined $_ } @$CURRENT_CMDS ]);
544 });
545
546 $RECORD_WINDOW
547}
548
5491; 4441;
550 445
551=back 446=back
552 447
553=head1 AUTHOR 448=head1 AUTHOR

Diff Legend

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