| … | |
… | |
| 110 | $CFClient::UI::TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
110 | $CFClient::UI::TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
| 111 | |
111 | |
| 112 | $MAPWIDGET = new CFClient::UI::MapWidget; |
112 | $MAPWIDGET = new CFClient::UI::MapWidget; |
| 113 | $CFClient::UI::TOPLEVEL->add ($MAPWIDGET); |
113 | $CFClient::UI::TOPLEVEL->add ($MAPWIDGET); |
| 114 | $MAPWIDGET->focus_in; |
114 | $MAPWIDGET->focus_in; |
| 115 | |
|
|
| 116 | # Test code #d# |
|
|
| 117 | unless ($tw) { # haha... |
|
|
| 118 | my $w = new CFClient::UI::Window |
|
|
| 119 | w => 300, h => 300, |
|
|
| 120 | child => (my $frame = new CFClient::UI::FancyFrame); |
|
|
| 121 | $CFClient::UI::TOPLEVEL->add ($w); |
|
|
| 122 | |
|
|
| 123 | $frame->add (my $vbox = new CFClient::UI::VBox); |
|
|
| 124 | |
|
|
| 125 | $vbox->add (new CFClient::UI::Entry text => "hallo"); |
|
|
| 126 | $vbox->add (new CFClient::UI::Slider); |
|
|
| 127 | |
|
|
| 128 | $tw = new CFClient::UI::Animator x => $WIDTH - 200, w => 600, h => 300; |
|
|
| 129 | my $lbl1 = new CFClient::UI::Label text => "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!"; |
|
|
| 130 | my $lbl2 = new CFClient::UI::Label text => "LBL2"; |
|
|
| 131 | my $vb = new CFClient::UI::VBox; |
|
|
| 132 | my $f = new CFClient::UI::FancyFrame; |
|
|
| 133 | my $f2 = new CFClient::UI::FancyFrame; |
|
|
| 134 | $f->add ($lbl1); |
|
|
| 135 | $f2->add ($lbl2); |
|
|
| 136 | $vb->add ($f); |
|
|
| 137 | $vb->add ($f2, 1); |
|
|
| 138 | |
|
|
| 139 | $tw->add ($vb); |
|
|
| 140 | $tw->moveto (0, 0); |
|
|
| 141 | $CFClient::UI::TOPLEVEL->add ($tw); |
|
|
| 142 | |
|
|
| 143 | # $f->move ($WIDTH - 200, 0); |
|
|
| 144 | # $CFClient::UI::TOPLEVEL->add ($f); |
|
|
| 145 | } |
|
|
| 146 | } |
115 | } |
| 147 | |
116 | |
| 148 | sub destroy_screen { |
117 | sub destroy_screen { |
| 149 | remove Glib::Source $SDL_TIMER; |
118 | remove Glib::Source $SDL_TIMER; |
| 150 | undef $SDL_APP; |
119 | undef $SDL_APP; |
| … | |
… | |
| 196 | |
165 | |
| 197 | glMatrixMode GL_PROJECTION; |
166 | glMatrixMode GL_PROJECTION; |
| 198 | glLoadIdentity; |
167 | glLoadIdentity; |
| 199 | glOrtho 0, $WIDTH, $HEIGHT, 0, -10000 , 10000; |
168 | glOrtho 0, $WIDTH, $HEIGHT, 0, -10000 , 10000; |
| 200 | glMatrixMode GL_MODELVIEW; |
169 | glMatrixMode GL_MODELVIEW; |
|
|
170 | glLoadIdentity; |
| 201 | |
171 | |
| 202 | glClear GL_COLOR_BUFFER_BIT; |
172 | glClear GL_COLOR_BUFFER_BIT; |
| 203 | |
173 | |
| 204 | $CFClient::UI::TOPLEVEL->draw; |
174 | $CFClient::UI::TOPLEVEL->draw; |
| 205 | |
175 | |
