… | |
… | |
70 | $ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Alt-Enter toggles fullscreen mode"; |
70 | $ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Alt-Enter toggles fullscreen mode"; |
71 | $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]); |
71 | $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]); |
72 | $ALT_ENTER_MESSAGE->activate; |
72 | $ALT_ENTER_MESSAGE->activate; |
73 | |
73 | |
74 | # Test code #d# |
74 | # Test code #d# |
|
|
75 | my $frm = new Crossfire::Client::Widget::Frame; |
75 | $tw = new Crossfire::Client::Widget::Window; |
76 | $tw = new Crossfire::Client::Widget::Window; |
76 | $tw->add (my $lbl = new Crossfire::Client::Widget::Label 0, 0, 10, $UIFONT, "Foo in the garden!"); |
77 | $frm->add (new Crossfire::Client::Widget::Label 0, 0, 10, $UIFONT, "Foo in the garden!"); |
77 | # $tw = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!"; |
78 | $tw->add ($frm); |
78 | |
79 | |
79 | $tw->move (0, 0); |
80 | $tw->move (0, $HEIGHT - 120); |
80 | $tw->activate; |
81 | $tw->activate; |
81 | # Test code end #d# |
82 | # Test code end #d# |
82 | |
83 | |
83 | glClearColor 0, 0, 0, 0; |
84 | glClearColor 0, 0, 0, 0; |
84 | |
85 | |
85 | glEnable GL_TEXTURE_2D; |
86 | glEnable GL_TEXTURE_2D; |
|
|
87 | glEnable GL_COLOR_MATERIAL; |
86 | glShadeModel GL_FLAT; |
88 | glShadeModel GL_FLAT; |
87 | glDisable GL_DEPTH_TEST; |
89 | glDisable GL_DEPTH_TEST; |
88 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
90 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
89 | |
91 | |
90 | $_->() for @GL_INIT; |
92 | $_->() for @GL_INIT; |