… | |
… | |
80 | 1 |
80 | 1 |
81 | }; |
81 | }; |
82 | |
82 | |
83 | init_screen; |
83 | init_screen; |
84 | |
84 | |
|
|
85 | my $v = new Crossfire::Client::Widget::Table; |
|
|
86 | $v->add (0, 0, $label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "T"); |
|
|
87 | $v->add (0, 1, $label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "TT"); |
|
|
88 | $v->add (0, 2, $label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "TTT"); |
85 | $label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "Testü[]"; |
89 | $v->add (1, 1, $label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "Testü[]"); |
|
|
90 | $v->size_request; |
|
|
91 | my $f = new Crossfire::Client::Widget::Frame; |
|
|
92 | $f->add ($v); |
|
|
93 | $f->activate; |
|
|
94 | |
|
|
95 | # $v->add ($label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "Testü[]"); |
|
|
96 | # $v->add ($label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "Testü[]!!"); |
|
|
97 | # $v->activate; |
|
|
98 | # $f->add ($v);#$label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "Testü[]"); |
86 | $label->activate; |
99 | # $label->activate; |
87 | |
100 | |
88 | $CONN = new conn |
101 | $CONN = new conn |
89 | host => $CFG->{host}, |
102 | host => $CFG->{host}, |
90 | port => $CFG->{port}, |
103 | port => $CFG->{port}, |
91 | user => $CFG->{user}, |
104 | user => $CFG->{user}, |