… | |
… | |
15 | use Crossfire; |
15 | use Crossfire; |
16 | use Crossfire::Client; |
16 | use Crossfire::Client; |
17 | use Crossfire::Protocol; |
17 | use Crossfire::Protocol; |
18 | |
18 | |
19 | use Client::Util; |
19 | use Client::Util; |
|
|
20 | use Client::Widget; |
20 | |
21 | |
21 | our $VERSION = '0.1'; |
22 | our $VERSION = '0.1'; |
22 | |
23 | |
23 | our $CFG; |
24 | our $CFG; |
24 | our $CONN; |
25 | our $CONN; |
… | |
… | |
123 | }, |
124 | }, |
124 | SDL_VIDEOEXPOSE() => sub { |
125 | SDL_VIDEOEXPOSE() => sub { |
125 | refresh; |
126 | refresh; |
126 | }, |
127 | }, |
127 | SDL_KEYDOWN() => sub { |
128 | SDL_KEYDOWN() => sub { |
|
|
129 | # Client::Widget::feed_sdl_key_down_event ($SDL_EV); |
128 | }, |
130 | }, |
129 | SDL_KEYUP() => sub { |
131 | SDL_KEYUP() => sub { |
|
|
132 | # Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
130 | }, |
133 | }, |
131 | SDL_MOUSEMOTION() => sub { |
134 | SDL_MOUSEMOTION() => sub { |
132 | warn "sdl motion\n";#d# |
135 | warn "sdl motion\n";#d# |
133 | }, |
136 | }, |
134 | SDL_MOUSEBUTTONDOWN() => sub { |
137 | SDL_MOUSEBUTTONDOWN() => sub { |
|
|
138 | # Client::Widget::feed_sdl_button_down_event ($SDL_EV); |
135 | }, |
139 | }, |
136 | SDL_MOUSEBUTTONUP() => sub { |
140 | SDL_MOUSEBUTTONUP() => sub { |
|
|
141 | # Client::Widget::feed_sdl_button_up_event ($SDL_EV); |
137 | }, |
142 | }, |
138 | SDL_ACTIVEEVENT() => sub { |
143 | SDL_ACTIVEEVENT() => sub { |
139 | warn "active\n";#d# |
144 | warn "active\n";#d# |
140 | }, |
145 | }, |
141 | ); |
146 | ); |
… | |
… | |
204 | host => "crossfire.schmorp.de", |
209 | host => "crossfire.schmorp.de", |
205 | port => 13327, |
210 | port => 13327, |
206 | }; |
211 | }; |
207 | |
212 | |
208 | Client::Util::run_config_dialog |
213 | Client::Util::run_config_dialog |
209 | login => sub { print "Login $_[0] with $_[1]\n" }, |
214 | login => sub { start_game }, |
210 | logout => sub { print "Logout" }; |
215 | logout => sub { stop_game }, |
211 | |
216 | |
212 | main Gtk2; |
217 | main Gtk2; |
213 | |
|
|