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

Diff Legend

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