… | |
… | |
20 | my ($class, %arg) = @_; |
20 | my ($class, %arg) = @_; |
21 | |
21 | |
22 | my $self = $class->SUPER::new (%arg, |
22 | my $self = $class->SUPER::new (%arg, |
23 | setup_req => { |
23 | setup_req => { |
24 | extmap => 1, |
24 | extmap => 1, |
|
|
25 | excmd => 1, |
25 | %{$arg{setup_req} || {}}, |
26 | %{$arg{setup_req} || {}}, |
26 | }, |
27 | }, |
27 | ); |
28 | ); |
28 | |
29 | |
29 | $self->{map_widget}->clr_commands; |
30 | $self->{map_widget}->clr_commands; |
… | |
… | |
633 | $LAST_QUERY = $prompt; |
634 | $LAST_QUERY = $prompt; |
634 | |
635 | |
635 | $self->{query}-> ($self, $flags, $prompt); |
636 | $self->{query}-> ($self, $flags, $prompt); |
636 | } |
637 | } |
637 | |
638 | |
|
|
639 | our @CF_COLOR = ( |
|
|
640 | [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00], |
|
|
641 | [1.00, 1.00, 1.00], |
|
|
642 | [0.50, 0.50, 1.00], #[0.00, 0.00, 0.55] |
|
|
643 | [1.00, 0.00, 0.00], |
|
|
644 | [1.00, 0.54, 0.00], |
|
|
645 | [0.11, 0.56, 1.00], |
|
|
646 | [0.93, 0.46, 0.00], |
|
|
647 | [0.18, 0.54, 0.34], |
|
|
648 | [0.56, 0.73, 0.56], |
|
|
649 | [0.80, 0.80, 0.80], |
|
|
650 | [0.75, 0.61, 0.20], |
|
|
651 | [0.99, 0.77, 0.26], |
|
|
652 | [0.74, 0.65, 0.41], |
|
|
653 | ); |
|
|
654 | |
638 | sub drawinfo { |
655 | sub drawinfo { |
639 | my ($self, $color, $text) = @_; |
656 | my ($self, $color, $text) = @_; |
640 | |
657 | |
641 | my @color = ( |
658 | my $fg = $CF_COLOR[$color % @CF_COLOR]; |
642 | [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00], |
|
|
643 | [1.00, 1.00, 1.00], |
|
|
644 | [0.50, 0.50, 1.00], #[0.00, 0.00, 0.55] |
|
|
645 | [1.00, 0.00, 0.00], |
|
|
646 | [1.00, 0.54, 0.00], |
|
|
647 | [0.11, 0.56, 1.00], |
|
|
648 | [0.93, 0.46, 0.00], |
|
|
649 | [0.18, 0.54, 0.34], |
|
|
650 | [0.56, 0.73, 0.56], |
|
|
651 | [0.80, 0.80, 0.80], |
|
|
652 | [0.75, 0.61, 0.20], |
|
|
653 | [0.99, 0.77, 0.26], |
|
|
654 | [0.74, 0.65, 0.41], |
|
|
655 | ); |
|
|
656 | |
|
|
657 | my $fg = $color[$color % @color]; |
|
|
658 | |
659 | |
659 | $self->logprint ("info: ", $text); |
660 | $self->logprint ("info: ", $text); |
660 | |
661 | |
661 | ## try to create single paragraphs of multiple lines sent by the server |
662 | ## try to create single paragraphs of multiple lines sent by the server |
662 | # no longer neecssary with TRT servers |
663 | # no longer neecssary with TRT servers |