… | |
… | |
41 | |
41 | |
42 | our @GL_INIT; # hooks called on every gl init |
42 | our @GL_INIT; # hooks called on every gl init |
43 | |
43 | |
44 | our $ALT_ENTER_MESSAGE; |
44 | our $ALT_ENTER_MESSAGE; |
45 | |
45 | |
46 | our $tw; |
46 | our $tw; # Test widget #d# |
47 | |
47 | |
48 | sub init_screen { |
48 | sub init_screen { |
49 | $SDL_APP = new SDL::App |
49 | $SDL_APP = new SDL::App |
50 | -flags => SDL_ANYFORMAT | SDL_HWSURFACE, |
50 | -flags => SDL_ANYFORMAT | SDL_HWSURFACE, |
51 | -title => "Crossfire+ Client", |
51 | -title => "Crossfire+ Client", |
… | |
… | |
69 | |
69 | |
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 | $tw = new Crossfire::Client::Widget::Window; |
75 | $tw = new Crossfire::Client::Widget::Window; |
75 | $tw->add (my $lbl = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!"); |
76 | $tw->add (my $lbl = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!"); |
76 | # $tw = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!"; |
77 | # $tw = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!"; |
77 | |
78 | |
78 | $tw->move (0, $HEIGHT - 50); |
79 | $tw->move (0, $HEIGHT - 50); |
79 | $tw->activate; |
80 | $tw->activate; |
|
|
81 | # Test code end #d# |
80 | |
82 | |
81 | glClearColor 0, 0, 0, 0; |
83 | glClearColor 0, 0, 0, 0; |
82 | |
84 | |
83 | glEnable GL_TEXTURE_2D; |
85 | glEnable GL_TEXTURE_2D; |
84 | glShadeModel GL_FLAT; |
86 | glShadeModel GL_FLAT; |