… | |
… | |
48 | } |
48 | } |
49 | sub bbox { |
49 | sub bbox { |
50 | my ($widget) = @_; |
50 | my ($widget) = @_; |
51 | } |
51 | } |
52 | |
52 | |
|
|
53 | package Client::TextView; |
|
|
54 | use strict; |
|
|
55 | our @ISA = qw/Client::Widget/; |
|
|
56 | |
|
|
57 | use SDL::OpenGL; |
|
|
58 | use SDL::OpenGL::Constants; |
|
|
59 | |
|
|
60 | sub add_line { |
|
|
61 | my ($self, $line) = @_; |
|
|
62 | push @{$self->{lines}}, $line; |
|
|
63 | } |
|
|
64 | |
|
|
65 | sub draw { |
|
|
66 | my ($self) = @_; |
|
|
67 | |
|
|
68 | } |
|
|
69 | |
53 | package Client::MapWidget; |
70 | package Client::MapWidget; |
54 | use strict; |
71 | use strict; |
55 | our @ISA = qw/Client::Widget/; |
72 | our @ISA = qw/Client::Widget/; |
56 | |
73 | |
57 | use SDL::OpenGL; |
74 | use SDL::OpenGL; |