1 | package Client::Widget; |
1 | package Crossfire::Client::Widget; |
2 | use strict; |
2 | use strict; |
3 | |
3 | |
4 | our $FOCUS; # the widget with current focus |
4 | our $FOCUS; # the widget with current focus |
5 | our %ACTIVE_WIDGETS; |
5 | our %ACTIVE_WIDGETS; |
6 | |
6 | |
… | |
… | |
77 | } |
77 | } |
78 | |
78 | |
79 | package Client::MapWidget; |
79 | package Client::MapWidget; |
80 | |
80 | |
81 | use strict; |
81 | use strict; |
|
|
82 | |
82 | our @ISA = qw/Client::Widget/; |
83 | our @ISA = qw/Client::Widget/; |
83 | |
84 | |
84 | use SDL::OpenGL; |
85 | use SDL::OpenGL; |
85 | use SDL::OpenGL::Constants; |
86 | use SDL::OpenGL::Constants; |
86 | |
87 | |