| … | |
… | |
| 74 | $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]); |
74 | $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]); |
| 75 | $TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
75 | $TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
| 76 | |
76 | |
| 77 | # Test code #d# |
77 | # Test code #d# |
| 78 | unless ($tw) { # haha... |
78 | unless ($tw) { # haha... |
| 79 | my $frm = new Crossfire::Client::Widget::Frame; |
79 | $tw = new Crossfire::Client::Widget::FancyFrame; |
| 80 | $tw = new Crossfire::Client::Widget::Window; |
|
|
| 81 | $frm->add (my $te = new Crossfire::Client::Widget::TextEntry 0, 0, 10, $FONTSIZE, "Foo in the garden!"); |
|
|
| 82 | $tw->add ($frm); |
80 | $tw->add ( |
|
|
81 | my $te = new Crossfire::Client::Widget::Label |
|
|
82 | 0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!" |
|
|
83 | ); |
| 83 | |
84 | |
| 84 | $tw->move (0, $HEIGHT - 120); |
85 | $tw->move ($WIDTH - 200, 0); |
| 85 | $TOPLEVEL->add ($tw); |
86 | $TOPLEVEL->add ($tw); |
| 86 | $te->focus_in; |
|
|
| 87 | } |
87 | } |
| 88 | |
88 | |
| 89 | glClearColor 0, 0, 0, 0; |
89 | glClearColor 0, 0, 0, 0; |
| 90 | |
90 | |
| 91 | glEnable GL_TEXTURE_2D; |
91 | glEnable GL_TEXTURE_2D; |
