| … | |
… | |
| 786 | bg => [0, 0, 0, 0.5], |
786 | bg => [0, 0, 0, 0.5], |
| 787 | user_w => int $::WIDTH / 3, |
787 | user_w => int $::WIDTH / 3, |
| 788 | user_h => int $::HEIGHT / 5, |
788 | user_h => int $::HEIGHT / 5, |
| 789 | child => (my $vbox = new CFClient::UI::VBox); |
789 | child => (my $vbox = new CFClient::UI::VBox); |
| 790 | |
790 | |
| 791 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |
791 | $vbox->add ($LOGVIEW); |
| 792 | expand => 1, |
|
|
| 793 | font => $FONT_FIXED, |
|
|
| 794 | fontsize => $::CFG->{log_fontsize}, |
|
|
| 795 | ); |
|
|
| 796 | |
792 | |
| 797 | $vbox->add (my $input = new CFClient::UI::Entry |
793 | $vbox->add (my $input = new CFClient::UI::Entry |
| 798 | connect_focus_in => sub { |
794 | connect_focus_in => sub { |
| 799 | my ($input, $prev_focus) = @_; |
795 | my ($input, $prev_focus) = @_; |
| 800 | |
796 | |
| … | |
… | |
| 914 | } |
910 | } |
| 915 | } |
911 | } |
| 916 | }); |
912 | }); |
| 917 | $MAPWIDGET->show; |
913 | $MAPWIDGET->show; |
| 918 | $MAPWIDGET->focus_in; |
914 | $MAPWIDGET->focus_in; |
|
|
915 | |
|
|
916 | $LOGVIEW = new CFClient::UI::TextView |
|
|
917 | expand => 1, |
|
|
918 | font => $FONT_FIXED, |
|
|
919 | fontsize => $::CFG->{log_fontsize}, |
|
|
920 | ; |
| 919 | |
921 | |
| 920 | $BUTTONBAR = new CFClient::UI::HBox; |
922 | $BUTTONBAR = new CFClient::UI::HBox; |
| 921 | |
923 | |
| 922 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); |
924 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); |
| 923 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); |
925 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); |
