| … | |
… | |
| 102 | our $INVWIN; |
102 | our $INVWIN; |
| 103 | our $INV; |
103 | our $INV; |
| 104 | |
104 | |
| 105 | sub status { |
105 | sub status { |
| 106 | $STATUS_LINE->add ($_[0], pri => -10, group => "status", timeout => 20, color => [1, 1, 0, 1]); |
106 | $STATUS_LINE->add ($_[0], pri => -10, group => "status", timeout => 20, color => [1, 1, 0, 1]); |
| 107 | $CFClient::UI::ROOT->on_refresh ($STATUS_LINE => sub { |
107 | $CFClient::UI::ROOT->on_post_alloc ($STATUS_LINE => sub { |
| 108 | $STATUS_LINE->move (0, $HEIGHT - $STATUS_LINE->{h});#d# to in toplevel |
108 | $STATUS_LINE->move (0, $HEIGHT - $STATUS_LINE->{h});#d# to in toplevel |
| 109 | }); |
109 | }); |
| 110 | } |
110 | } |
| 111 | |
111 | |
| 112 | sub debug { |
112 | sub debug { |
| … | |
… | |
| 900 | }); |
900 | }); |
| 901 | |
901 | |
| 902 | $BUTTONBAR->show; |
902 | $BUTTONBAR->show; |
| 903 | |
903 | |
| 904 | # delay till geometry is constant |
904 | # delay till geometry is constant |
| 905 | $CFClient::UI::ROOT->on_refresh (startup => sub { |
905 | $CFClient::UI::ROOT->on_post_alloc (startup => sub { |
| 906 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
906 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
| 907 | }); |
907 | }); |
| 908 | force_refresh (); |
908 | force_refresh (); |
| 909 | } |
909 | } |
| 910 | } |
910 | } |
| … | |
… | |
| 1329 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
1329 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
| 1330 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
1330 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
| 1331 | |
1331 | |
| 1332 | $LOGVIEW->add_paragraph ($color[$color], |
1332 | $LOGVIEW->add_paragraph ($color[$color], |
| 1333 | join "\n", map "$time $_", split /\n/, $text); |
1333 | join "\n", map "$time $_", split /\n/, $text); |
| 1334 | $STATUS_LINE->add ($text, color => $color[$color], timeout => 60); |
1334 | |
|
|
1335 | $STATUS_LINE->add ($text, |
|
|
1336 | group => $text, |
|
|
1337 | color => $color[$color], |
|
|
1338 | timeout => 60, |
|
|
1339 | tooltip_font => $::FONT_FIXED, |
|
|
1340 | ); |
| 1335 | } |
1341 | } |
| 1336 | |
1342 | |
| 1337 | sub conn::drawextinfo { |
1343 | sub conn::drawextinfo { |
| 1338 | my ($self, $color, $type, $subtype, $message) = @_; |
1344 | my ($self, $color, $type, $subtype, $message) = @_; |
| 1339 | |
1345 | |
