| … | |
… | |
| 79 | $TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
79 | $TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
| 80 | |
80 | |
| 81 | # Test code #d# |
81 | # Test code #d# |
| 82 | unless ($tw) { # haha... |
82 | unless ($tw) { # haha... |
| 83 | $tw = new Crossfire::Client::Widget::Animator; |
83 | $tw = new Crossfire::Client::Widget::Animator; |
| 84 | $tw->add (my $f = new Crossfire::Client::Widget::FancyFrame); |
|
|
| 85 | $f->add ( |
|
|
| 86 | my $te = new Crossfire::Client::Widget::Label |
84 | my $lbl1 = new Crossfire::Client::Widget::Label |
| 87 | 0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!" |
85 | 0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!"; |
| 88 | ); |
86 | my $lbl2 = new Crossfire::Client::Widget::Label |
|
|
87 | 0, 0, 10, $FONTSIZE, "LBL2"; |
| 89 | |
88 | |
|
|
89 | my $vb = new Crossfire::Client::Widget::VBox; |
|
|
90 | my $f = new Crossfire::Client::Widget::FancyFrame; |
|
|
91 | my $f2 = new Crossfire::Client::Widget::FancyFrame; |
|
|
92 | $f->add ($lbl1); |
|
|
93 | $f2->add ($lbl2); |
|
|
94 | $vb->add ($f); |
|
|
95 | $vb->add ($f2, 1); |
|
|
96 | |
|
|
97 | $tw->add ($vb); |
|
|
98 | $tw->w (400); |
|
|
99 | $tw->h (300); |
| 90 | $tw->move ($WIDTH - 200, 0); |
100 | $tw->move ($WIDTH - 200, 0); |
| 91 | $tw->moveto (0, 0); |
101 | $tw->moveto (0, 0); |
| 92 | $TOPLEVEL->add ($tw); |
102 | $TOPLEVEL->add ($tw); |
|
|
103 | |
|
|
104 | # $f->move ($WIDTH - 200, 0); |
|
|
105 | # $TOPLEVEL->add ($f); |
| 93 | } |
106 | } |
| 94 | |
107 | |
| 95 | glClearColor 0, 0, 0, 0; |
108 | glClearColor 0, 0, 0, 0; |
| 96 | |
109 | |
| 97 | glEnable GL_TEXTURE_2D; |
110 | glEnable GL_TEXTURE_2D; |
