1 | package Client::Widget; |
1 | package Crossfire::Client::Widget; |
|
|
2 | |
2 | use strict; |
3 | use strict; |
3 | |
4 | |
4 | our $FOCUS; # the widget with current focus |
5 | our $FOCUS; # the widget with current focus |
5 | our %ACTIVE_WIDGETS; |
6 | our %ACTIVE_WIDGETS; |
6 | |
7 | |
… | |
… | |
59 | } |
60 | } |
60 | |
61 | |
61 | package Client::TextView; |
62 | package Client::TextView; |
62 | |
63 | |
63 | use strict; |
64 | use strict; |
|
|
65 | |
64 | our @ISA = qw/Client::Widget/; |
66 | our @ISA = qw/Client::Widget/; |
65 | |
67 | |
66 | use SDL::OpenGL; |
68 | use SDL::OpenGL; |
67 | use SDL::OpenGL::Constants; |
69 | use SDL::OpenGL::Constants; |
68 | |
70 | |
… | |
… | |
77 | } |
79 | } |
78 | |
80 | |
79 | package Client::MapWidget; |
81 | package Client::MapWidget; |
80 | |
82 | |
81 | use strict; |
83 | use strict; |
|
|
84 | |
82 | our @ISA = qw/Client::Widget/; |
85 | our @ISA = qw/Client::Widget/; |
83 | |
86 | |
84 | use SDL::OpenGL; |
87 | use SDL::OpenGL; |
85 | use SDL::OpenGL::Constants; |
88 | use SDL::OpenGL::Constants; |
86 | |
89 | |
… | |
… | |
124 | glDisable GL_TEXTURE_2D; |
127 | glDisable GL_TEXTURE_2D; |
125 | glDisable GL_BLEND; |
128 | glDisable GL_BLEND; |
126 | } |
129 | } |
127 | |
130 | |
128 | 1; |
131 | 1; |
|
|
132 | |