… | |
… | |
61 | our $STATUS_LINE; |
61 | our $STATUS_LINE; |
62 | our $DEBUG_STATUS; |
62 | our $DEBUG_STATUS; |
63 | |
63 | |
64 | sub status { |
64 | sub status { |
65 | $STATUS_LINE->set_text ($_[0]); |
65 | $STATUS_LINE->set_text ($_[0]); |
66 | my ($w, $h) = $STATUS_LINE->size_request; |
|
|
67 | $STATUS_LINE->size_allocate (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $h, $w, $h); |
66 | $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h}); |
68 | } |
67 | } |
69 | |
68 | |
70 | sub debug { |
69 | sub debug { |
71 | $DEBUG_STATUS->set_text ($_[0]); |
70 | $DEBUG_STATUS->set_text ($_[0]); |
72 | my ($w, $h) = $DEBUG_STATUS->size_request; |
71 | $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h}); |
73 | $DEBUG_STATUS->size_allocate ($WIDTH - $w, 0, $w, $h); |
|
|
74 | } |
72 | } |
75 | |
73 | |
76 | sub start_game { |
74 | sub start_game { |
77 | status "logging in..."; |
75 | status "logging in..."; |
78 | |
76 | |