… | |
… | |
84 | our $CONSOLE; |
84 | our $CONSOLE; |
85 | our $METASERVER; |
85 | our $METASERVER; |
86 | our $LOGIN_BUTTON; |
86 | our $LOGIN_BUTTON; |
87 | our $QUIT_DIALOG; |
87 | our $QUIT_DIALOG; |
88 | our $HOST_ENTRY; |
88 | our $HOST_ENTRY; |
|
|
89 | our $SERVER_INFO; |
89 | |
90 | |
90 | our $SETUP_DIALOG; |
91 | our $SETUP_DIALOG; |
91 | our $SETUP_NOTEBOOK; |
92 | our $SETUP_NOTEBOOK; |
92 | our $SETUP_SERVER; |
93 | our $SETUP_SERVER; |
93 | our $SETUP_KEYBOARD; |
94 | our $SETUP_KEYBOARD; |
… | |
… | |
1075 | on_changed => sub { |
1076 | on_changed => sub { |
1076 | my ($self, $value) = @_; |
1077 | my ($self, $value) = @_; |
1077 | $CFG->{say_command} = $value; |
1078 | $CFG->{say_command} = $value; |
1078 | } |
1079 | } |
1079 | ); |
1080 | ); |
|
|
1081 | |
|
|
1082 | $vbox->add (new CFClient::UI::Label |
|
|
1083 | text => "Server Info", |
|
|
1084 | fontsize => 1.2, |
|
|
1085 | padding_y => 8, |
|
|
1086 | fg => [1, 1, 0, 1], |
|
|
1087 | ); |
|
|
1088 | |
|
|
1089 | $vbox->add ($SERVER_INFO = new CFClient::UI::Label ellipsise => 0); |
1080 | |
1090 | |
1081 | $vbox |
1091 | $vbox |
1082 | } |
1092 | } |
1083 | |
1093 | |
1084 | sub message_window { |
1094 | sub message_window { |