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.77 by root, Mon May 29 21:54:15 2006 UTC vs.
Revision 1.89 by root, Mon Jun 5 21:10:03 2006 UTC

… …
24use utf8; 24use utf8;
25 25
26use Carp (); 26use Carp ();
27use AnyEvent (); 27use AnyEvent ();
28use BerkeleyDB; 28use BerkeleyDB;
29use Pod::POM ();
30use Storable (); # finally
31
32package CFClient::PodToPango;
33
34use base Pod::POM::View::Text;
35
36our $VERSION = 1; # bump if resultant formatting changes
37
38our $indent = 0;
39
40*view_seq_code =
41*view_seq_bold = sub { "<b>$_[1]</b>" };
42*view_seq_italic = sub { "<i>$_[1]</i>" };
43*view_seq_space =
44*view_seq_link =
45*view_seq_index = sub { CFClient::UI::Label::escape ($_[1]) };
46
47sub view_seq_text {
48 my $text = $_[1];
49 $text =~ s/\s+/ /g;
50 CFClient::UI::Label::escape ($text)
51}
52
53sub view_item {
54 ("\t" x ($indent / 4))
55 . $_[1]->title->present ($_[0])
56 . "\n"
57 . $_[1]->content->present ($_[0])
58}
59
60sub view_verbatim {
61 (join "",
62 map +("\t" x ($indent / 2)) . "<tt>$_</tt>\n",
63 split /\n/, CFClient::UI::Label::escape ($_[1]))
64 . "\n"
65}
66
67sub view_textblock {
68 ("\t" x ($indent / 2)) . "$_[1]\n\n"
69}
70
71sub view_head1 {
72 "\n\n<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
73 . $_[1]->content->present ($_[0])
74};
75
76sub view_head2 {
77 "\n<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
78 . $_[1]->content->present ($_[0])
79};
80
81sub view_head3 {
82 "\n<span size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
83 . $_[1]->content->present ($_[0])
84};
85
86sub view_over {
87 local $indent = $indent + $_[1]->indent;
88 $_[1]->content->present ($_[0])
89}
90
91package CFClient::Database;
92
93our @ISA = BerkeleyDB::Btree::;
94
95sub get($$) {
96 my $data;
97
98 $_[0]->db_get ($_[1], $data) == 0
99 ? $data
100 : ()
101}
102
103my %DB_SYNC;
104
105sub put($$$) {
106 my ($db, $key, $data) = @_;
107
108 $DB_SYNC{$db} = AnyEvent->timer (after => 5, cb => sub { $db->db_sync });
109
110 $db->db_put ($key => $data)
111}
112
113package CFClient;
29 114
30sub find_rcfile($) { 115sub find_rcfile($) {
31 my $path; 116 my $path;
32 117
33 for (grep !ref, @INC) { 118 for (grep !ref, @INC) {
… …
68 } 153 }
69 154
70 close CFG; 155 close CFG;
71} 156}
72 157
73mkdir "$Crossfire::VARDIR/cfplus", 0777;
74
75our $DB_ENV; 158our $DB_ENV;
76 159
77{ 160{
78 use strict; 161 use strict;
79 162
163 mkdir "$Crossfire::VARDIR/cfplus", 0777;
80 my $recover = $BerkeleyDB::db_version >= 4.4 164 my $recover = $BerkeleyDB::db_version >= 4.4
81 ? eval "DB_REGISTER | DB_RECOVER" 165 ? eval "DB_REGISTER | DB_RECOVER"
82 : 0; 166 : 0;
83 167
84 $DB_ENV = new BerkeleyDB::Env 168 $DB_ENV = new BerkeleyDB::Env
… …
86 -Cachesize => 1_000_000, 170 -Cachesize => 1_000_000,
87 -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt", 171 -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt",
88# -ErrPrefix => "DATABASE", 172# -ErrPrefix => "DATABASE",
89 -Verbose => 1, 173 -Verbose => 1,
90 -Flags => DB_CREATE | DB_RECOVER | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN | $recover, 174 -Flags => DB_CREATE | DB_RECOVER | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN | $recover,
91 -SetFlags => DB_AUTO_COMMIT | DB_LOG_AUTOREMOVE | DB_TXN_WRITE_NOSYNC, 175 -SetFlags => DB_AUTO_COMMIT | DB_LOG_AUTOREMOVE,
92 or die "unable to create/open database home $Crossfire::VARDIR/cfplus: $BerkeleyDB::Error"; 176 or die "unable to create/open database home $Crossfire::VARDIR/cfplus: $BerkeleyDB::Error";
93} 177}
94 178
95sub db_table($) { 179sub db_table($) {
96 my ($table) = @_; 180 my ($table) = @_;
… …
105 -Property => DB_CHKSUM, 189 -Property => DB_CHKSUM,
106 -Flags => DB_CREATE | DB_UPGRADE, 190 -Flags => DB_CREATE | DB_UPGRADE,
107 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error" 191 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
108} 192}
109 193
194my $pod_cache = db_table "pod_cache";
195
196sub load_pod($$$$) {
197 my ($path, $filtertype, $filterversion, $filtercb) = @_;
198
199 stat $path
200 or die "$path: $!";
201
202 my $phash = join ",", $filterversion, $CFClient::PodToPango::VERSION, (stat _)[7,9];
203
204 my ($chash, $pom) = eval { @{ Storable::thaw $pod_cache->get ("$path/$filtertype") } };
205
206 return $pom if $chash eq $phash;
207
208 my $pod = do {
209 local $/;
210 open my $pod, "<:utf8", $_[0]
211 or die "$_[0]: $!";
212 <$pod>
213 };
214
215 #utf8::downgrade $pod;
216
217 $pom = $filtercb-> (Pod::POM->new->parse_text ($pod));
218
219 $pod_cache->put ("$path/$filtertype" => Storable::nfreeze [$phash, $pom]);
220
221 $pom
222}
223
110sub pod_to_pango($) { 224sub pod_to_pango($) {
111 my ($pom) = @_; 225 my ($pom) = @_;
112 226
113 $pom->present ("CFClient::PodToPango") 227 $pom->present ("CFClient::PodToPango")
114} 228}
… …
120 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "], 234 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
121 split /\n/, $pom->present ("CFClient::PodToPango") 235 split /\n/, $pom->present ("CFClient::PodToPango")
122 ] 236 ]
123} 237}
124 238
125package CFClient::PodToPango;
126
127use base Pod::POM::View::Text;
128
129our $indent = 0;
130
131*view_seq_code =
132*view_seq_bold = sub { "<b>$_[1]</b>" };
133*view_seq_italic = sub { "<i>$_[1]</i>" };
134*view_seq_space =
135*view_seq_link =
136*view_seq_index = sub { CFClient::UI::Label::escape ($_[1]) };
137
138sub view_seq_text {
139 my $text = $_[1];
140 $text =~ s/\s+/ /g;
141 CFClient::UI::Label::escape ($text)
142}
143
144sub view_item {
145 ("\t" x ($indent / 4))
146 . $_[1]->title->present ($_[0])
147 . "\n"
148 . $_[1]->content->present ($_[0])
149}
150
151sub view_verbatim {
152 (join "",
153 map +("\t" x ($indent / 2)) . "<tt>$_</tt>\n",
154 split /\n/, CFClient::UI::Label::escape ($_[1]))
155 . "\n"
156}
157
158sub view_textblock {
159 ("\t" x ($indent / 2)) . "$_[1]\n\n"
160}
161
162sub view_head1 {
163 "\n\n<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
164 . $_[1]->content->present ($_[0])
165};
166
167sub view_head2 {
168 "\n<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
169 . $_[1]->content->present ($_[0])
170};
171
172sub view_head3 {
173 "\n<span size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
174 . $_[1]->content->present ($_[0])
175};
176
177sub view_over {
178 local $indent = $indent + $_[1]->indent;
179 $_[1]->content->present ($_[0])
180}
181
182package CFClient::Database;
183
184our @ISA = BerkeleyDB::Btree::;
185
186sub get($$) {
187 my $data;
188
189 $_[0]->db_get ($_[1], $data) == 0
190 ? $data
191 : ()
192}
193
194my %DB_SYNC;
195
196sub put($$$) {
197 my ($db, $key, $data) = @_;
198
199 $DB_SYNC{$db} = AnyEvent->timer (after => 5, cb => sub { $db->db_sync });
200
201 $db->db_put ($key => $data)
202}
203
204package CFClient::Item; 239package CFClient::Item;
205 240
206use strict; 241use strict;
207use Crossfire::Protocol::Constants; 242use Crossfire::Protocol::Constants;
243
244my $last_enter_count = 1;
208 245
209sub desc_string { 246sub desc_string {
210 my ($self) = @_; 247 my ($self) = @_;
211 248
212 my $desc = 249 my $desc =
… …
238 my $weight = ($self->{nrof} || 1) * $self->{weight}; 275 my $weight = ($self->{nrof} || 1) * $self->{weight};
239 276
240 $weight < 0 ? "?" : $weight * 0.001 277 $weight < 0 ? "?" : $weight * 0.001
241} 278}
242 279
280sub do_n_dialog {
281 my ($cb) = @_;
282
283 my $w = new CFClient::UI::FancyFrame;
284 $w->add (my $vb = new CFClient::UI::VBox x => "center", y => "center");
285 $vb->add (new CFClient::UI::Label text => "Enter item count:");
286 $vb->add (my $entry = new CFClient::UI::Entry
287 text => $last_enter_count,
288 on_activate => sub {
289 my ($entry) = @_;
290 $last_enter_count = $entry->get_text;
291 $cb->($last_enter_count);
292 $w->hide;
293 $w = undef;
294 }
295 );
296 $entry->focus_in;
297 $w->show;
298
299}
300
243sub update_widgets { 301sub update_widgets {
244 my ($self) = @_; 302 my ($self) = @_;
245 303
246 my $button_cb = sub { 304 my $button_cb = sub {
247 my (undef, $ev, $x, $y) = @_; 305 my (undef, $ev, $x, $y) = @_;
248 306
307 my $targ = $::CONN->{player}{tag};
308
309 if ($self->{container} == $::CONN->{player}{tag}) {
310 $targ = $::CONN->{open_container};
311 }
312
249 if (($ev->{mod} & CFClient::KMOD_SHIFT) && $ev->{button} == 1) { 313 if (($ev->{mod} & CFClient::KMOD_SHIFT) && $ev->{button} == 1) {
250 my $targ = $::CONN->{player}{tag};
251
252 if ($self->{container} == $::CONN->{player}{tag}) {
253 $targ = $::CONN->{open_container};
254 }
255
256 $::CONN->send ("move $targ $self->{tag} 0"); 314 $::CONN->send ("move $targ $self->{tag} 0")
315 if $targ || !($self->{flags} & F_LOCKED);
316 } elsif (($ev->{mod} & CFClient::KMOD_SHIFT) && $ev->{button} == 2) {
317 $self->{flags} & F_LOCKED
318 ? $::CONN->send ("lock " . pack "CN", 0, $self->{tag})
319 : $::CONN->send ("lock " . pack "CN", 1, $self->{tag})
257 } elsif ($ev->{button} == 1) { 320 } elsif ($ev->{button} == 1) {
258 $::CONN->send ("examine $self->{tag}"); 321 $::CONN->send ("examine $self->{tag}");
259 } elsif ($ev->{button} == 2) { 322 } elsif ($ev->{button} == 2) {
260 $::CONN->send ("apply $self->{tag}"); 323 $::CONN->send ("apply $self->{tag}");
261 } elsif ($ev->{button} == 3) { 324 } elsif ($ev->{button} == 3) {
… …
269 ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], 332 ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }],
270 ) 333 )
271 : ( 334 : (
272 ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }], 335 ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }],
273 ["drop", sub { $::CONN->send ("move $::CONN->{open_container} $self->{tag} 0") }], 336 ["drop", sub { $::CONN->send ("move $::CONN->{open_container} $self->{tag} 0") }],
337 ["move n",
338 sub {
339 do_n_dialog (sub { $::CONN->send ("move $targ $self->{tag} $_[0]") })
340 }
341 ]
274 ) 342 )
275 ), 343 ),
276 ); 344 );
277 345
278 CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev); 346 CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev);
… …
283 351
284 my $tooltip_std = "<small>" 352 my $tooltip_std = "<small>"
285 . "Left click - examine item\n" 353 . "Left click - examine item\n"
286 . "Shift-Left click - " . ($self->{container} ? "move or drop" : "take") . " item\n" 354 . "Shift-Left click - " . ($self->{container} ? "move or drop" : "take") . " item\n"
287 . "Middle click - apply\n" 355 . "Middle click - apply\n"
356 . "Shift-Middle click - lock/unlock\n"
288 . "Right click - further options" 357 . "Right click - further options"
289 . "</small>\n"; 358 . "</small>\n";
290 359
291 $self->{face_widget} ||= new CFClient::UI::Face 360 $self->{face_widget} ||= new CFClient::UI::Face
292 can_events => 1, 361 can_events => 1,
… …
331 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ") 400 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ")
332 . "\n\n$tooltip_std" 401 . "\n\n$tooltip_std"
333 ); 402 );
334} 403}
335 404
336package CFClient::Recorder; 405package CFClient::Binder;
337
338our $RECORD_WINDOW;
339
340my $CMDBOX;
341my $CURRENT_CMDS;
342my $REC_BTN;
343 406
344my @ALLOWED_MODIFIER_KEYS = ( 407my @ALLOWED_MODIFIER_KEYS = (
345 (CFClient::SDLK_LSHIFT) => "LSHIFT", 408 CFClient::SDLK_LSHIFT,
346 (CFClient::SDLK_LCTRL ) => "LCTRL", 409 CFClient::SDLK_LCTRL ,
347 (CFClient::SDLK_LALT ) => "LALT", 410 CFClient::SDLK_LALT ,
348 (CFClient::SDLK_LMETA ) => "LMETA", 411 CFClient::SDLK_LMETA ,
349 412
350 (CFClient::SDLK_RSHIFT) => "RSHIFT", 413 CFClient::SDLK_RSHIFT,
351 (CFClient::SDLK_RCTRL ) => "RCTRL", 414 CFClient::SDLK_RCTRL ,
352 (CFClient::SDLK_RALT ) => "RALT", 415 CFClient::SDLK_RALT ,
353 (CFClient::SDLK_RMETA ) => "RMETA", 416 CFClient::SDLK_RMETA ,
354); 417);
355 418
356my %ALLOWED_MODIFIERS = ( 419my %ALLOWED_MODIFIERS = (
357 (CFClient::KMOD_LSHIFT) => "LSHIFT", 420 CFClient::KMOD_LSHIFT => "LSHIFT",
358 (CFClient::KMOD_LCTRL ) => "LCTRL", 421 CFClient::KMOD_LCTRL => "LCTRL",
359 (CFClient::KMOD_LALT ) => "LALT", 422 CFClient::KMOD_LALT => "LALT",
360 (CFClient::KMOD_LMETA ) => "LMETA", 423 CFClient::KMOD_LMETA => "LMETA",
361 424
362 (CFClient::KMOD_RSHIFT) => "RSHIFT", 425 CFClient::KMOD_RSHIFT => "RSHIFT",
363 (CFClient::KMOD_RCTRL ) => "RCTRL", 426 CFClient::KMOD_RCTRL => "RCTRL",
364 (CFClient::KMOD_RALT ) => "RALT", 427 CFClient::KMOD_RALT => "RALT",
365 (CFClient::KMOD_RMETA ) => "RMETA", 428 CFClient::KMOD_RMETA => "RMETA",
366); 429);
367 430
368my %DIRECT_BIND_CHARS = map { $_ => 1 } qw/0 1 2 3 4 5 6 7 8 9/; 431my %DIRECT_BIND_CHARS = map { $_ => 1 } qw/0 1 2 3 4 5 6 7 8 9/;
369my @DIRECT_BIND_KEYS = ( 432my @DIRECT_BIND_KEYS = (
370 CFClient::SDLK_F1, 433 CFClient::SDLK_F1,
… …
383 CFClient::SDLK_F14, 446 CFClient::SDLK_F14,
384 CFClient::SDLK_F15, 447 CFClient::SDLK_F15,
385); 448);
386 449
387# this binding dialog asks for a key-combo to be pressed 450# this binding dialog asks for a key-combo to be pressed
388# and if successful it binds the modifier+symbol to the 451# and if successful it calls the $cb with $mod and $sym as args.
389# supplied actions in $cmd.
390# (Bindings are stored in $::CFG->{bindings}->{$mod}->{$sym})
391sub open_binding_dialog { 452sub open_binding_dialog {
392 my ($cmd) = @_; 453 my ($cb) = @_;
393 454
394 my $w = new CFClient::UI::FancyFrame 455 my $w = new CFClient::UI::FancyFrame
395 title => "Bind Action"; 456 title => "Bind Action",
457 x => "center",
458 y => "center";
396 459
397 $w->add (my $vb = new CFClient::UI::VBox); 460 $w->add (my $vb = new CFClient::UI::VBox);
398 $vb->add (new CFClient::UI::Label 461 $vb->add (new CFClient::UI::Label
399 text => "Press a modifier (CTRL, ALT and/or SHIFT) and a key." 462 text => "Press a modifier (CTRL, ALT and/or SHIFT) and a key."
400 ."You can only bind 0-9 and F1-F15 without modifiers." 463 ."You can only bind 0-9 and F1-F15 without modifiers."
… …
423 return; 486 return;
424 } 487 }
425 488
426 $entry->focus_out; 489 $entry->focus_out;
427 490
428 $::CFG->{bindings}->{$mod}->{$sym} = $cmd; 491 $cb->($mod, $sym);
429 $::STATUSBOX->add ("Bound actions to '".keycombo_to_name ($mod, $sym)."'. Don't forget 'Save Config'!");
430 492
431 $w->destroy 493 $w->destroy
432 }); 494 });
433 495
434 $entry->focus_in; 496 $entry->focus_in;
435 $w->center;
436 $w->show; 497 $w->show;
437} 498}
438 499
439sub keycombo_to_name { 500sub keycombo_to_name {
440 my ($mod, $sym) = @_; 501 my ($mod, $sym) = @_;
441 502
442 my $mods = join '+', 503 my $mods = join '+',
443 map { $ALLOWED_MODIFIERS{$_} } 504 map { $ALLOWED_MODIFIERS{$_} }
444 grep { $_ & $mod } 505 grep { ($_ + 0) & ($mod + 0) }
445 keys %ALLOWED_MODIFIERS; 506 keys %ALLOWED_MODIFIERS;
446 $mods .= "+" if $mods ne ''; 507 $mods .= "+" if $mods ne '';
447 508
448 return $mods . CFClient::SDL_GetKeyName ($sym); 509 return $mods . CFClient::SDL_GetKeyName ($sym);
449} 510}
450 511
451sub clear_command_list { 512package CFClient::Pickup;
452 $CMDBOX->clear () if $CMDBOX; 513# some pickup constants
453} 514sub PU_NOTHING { 0x00000000 }
454 515
455sub set_command_list { 516sub PU_DEBUG { 0x10000000 }
456 my ($list) = @_; 517sub PU_INHIBIT { 0x20000000 }
518sub PU_STOP { 0x40000000 }
519sub PU_NEWMODE { 0x80000000 }
457 520
458 return unless $CMDBOX; 521sub PU_RATIO { 0x0000000F }
459 522
460 $CMDBOX->clear (); 523sub PU_FOOD { 0x00000010 }
461 $CURRENT_CMDS = $list; 524sub PU_DRINK { 0x00000020 }
525sub PU_VALUABLES { 0x00000040 }
526sub PU_BOW { 0x00000080 }
462 527
463 my $idx = 0; 528sub PU_ARROW { 0x00000100 }
529sub PU_HELMET { 0x00000200 }
530sub PU_SHIELD { 0x00000400 }
531sub PU_ARMOUR { 0x00000800 }
464 532
465 for (@$list) { 533sub PU_BOOTS { 0x00001000 }
466 $CMDBOX->add (my $hb = new CFClient::UI::HBox); 534sub PU_GLOVES { 0x00002000 }
535sub PU_CLOAK { 0x00004000 }
536sub PU_KEY { 0x00008000 }
467 537
468 my $i = $idx; 538sub PU_MISSILEWEAPON { 0x00010000 }
469 $hb->add (new CFClient::UI::Button 539sub PU_ALLWEAPON { 0x00020000 }
470 text => "delete", 540sub PU_MAGICAL { 0x00040000 }
471 tooltip => "Deletes the action from the record", 541sub PU_POTION { 0x00080000 }
472 on_activate => sub {
473 $CMDBOX->remove ($hb);
474 $list->[$i] = undef;
475 });
476 542
477 $hb->add (new CFClient::UI::Label text => $_); 543sub PU_SPELLBOOK { 0x00100000 }
544sub PU_SKILLSCROLL { 0x00200000 }
545sub PU_READABLES { 0x00400000 }
546sub PU_MAGIC_DEVICE { 0x00800000 }
478 547
479 $idx++ 548sub PU_NOT_CURSED { 0x01000000 }
480 }
481}
482 549
483# if $show is 1 the recorder will be shown 550sub PU_JEWELS { 0x02000000 }
484sub start {
485 my ($show) = @_;
486 551
487 $RECORD_WINDOW->show if $show;
488
489 $REC_BTN->set_text ("stop recording");
490 $REC_BTN->{recording} = 1;
491 clear_command_list;
492 $::CONN->start_record;
493}
494
495# if $autobind is 1 the recorder will be automatically
496# jump into the binding query and hide the recorder window
497sub stop {
498 my ($autobind) = @_;
499
500 $REC_BTN->set_text ("start recording");
501 $REC_BTN->{recording} = 0;
502
503 my $rec = $::CONN->stop_record;
504 return unless ref $rec eq 'ARRAY';
505 set_command_list ($rec);
506
507 if ($autobind) {
508 open_binding_dialog ([ grep { defined $_ } @$CURRENT_CMDS ]);
509 $RECORD_WINDOW->hide;
510 }
511}
512
513sub make_window {
514 $RECORD_WINDOW = new CFClient::UI::FancyFrame
515 req_y => 1,
516 req_x => -1,
517 title => "Action Recorder";
518
519 $RECORD_WINDOW->add (my $vb = new CFClient::UI::VBox);
520 $vb->add ($REC_BTN = new CFClient::UI::Button
521 text => "start recording",
522 tooltip => "Start/Stops recording of actions."
523 ."(CTRL+Insert Starts the recorder, Insert Stops recorder and binds automatically)"
524 ."All subsequent actions after the recording started will be captured."
525 ."The actions are displayed after the record was stopped."
526 ."To bind the action you have to click on the 'Bind' button",
527 on_activate => sub {
528 my ($btn) = @_;
529
530 unless ($btn->{recording}) {
531 start;
532 } else {
533 stop;
534 }
535 });
536 $vb->add ($CMDBOX = new CFClient::UI::VBox);
537 $vb->add (new CFClient::UI::Button
538 text => "bind",
539 tooltip => "This opens a query where you have to press the key combination to bind the recorded actions",
540 on_activate => sub {
541 open_binding_dialog ([ grep { defined $_ } @$CURRENT_CMDS ]);
542 });
543
544 $RECORD_WINDOW
545}
546 552
5471; 5531;
548 554
549=back 555=back
550 556

Diff Legend

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