| … | |
… | |
| 120 | require File::Path; |
120 | require File::Path; |
| 121 | |
121 | |
| 122 | File::Path::mkpath (File::Basename::dirname ($mappath)); |
122 | File::Path::mkpath (File::Basename::dirname ($mappath)); |
| 123 | open my $fh, ">:raw:perlio", "$mappath.meta" |
123 | open my $fh, ">:raw:perlio", "$mappath.meta" |
| 124 | or die "$mappath.meta: $!\n"; |
124 | or die "$mappath.meta: $!\n"; |
| 125 | print $fh CFPlus::to_json $meta; |
125 | print $fh CFPlus::encode_json $meta; |
| 126 | close $fh; |
126 | close $fh; |
| 127 | open my $fh, ">:raw:perlio:utf8", $mappath |
127 | open my $fh, ">:raw:perlio:utf8", $mappath |
| 128 | or die "$mappath: $!\n"; |
128 | or die "$mappath: $!\n"; |
| 129 | print $fh $map; |
129 | print $fh $map; |
| 130 | close $fh; |
130 | close $fh; |
| … | |
… | |
| 475 | $self->{root}->on_post_alloc (prepare => sub { $self->refresh_hook }); |
475 | $self->{root}->on_post_alloc (prepare => sub { $self->refresh_hook }); |
| 476 | |
476 | |
| 477 | return unless $self->{list}; |
477 | return unless $self->{list}; |
| 478 | |
478 | |
| 479 | my $focused = $CFPlus::UI::FOCUS == $self |
479 | my $focused = $CFPlus::UI::FOCUS == $self |
| 480 | || $CFPlus::UI::FOCUS == $::COMPLETER{entry}; |
480 | || $CFPlus::UI::FOCUS == $::COMPLETER->{entry}; |
| 481 | |
481 | |
| 482 | return |
482 | return |
| 483 | unless $focused || !$::FAST; |
483 | unless $focused || !$::FAST; |
| 484 | |
484 | |
| 485 | glCallList $self->{list}; |
485 | glCallList $self->{list}; |
