| … | |
… | |
| 35 | our $APPDIR = "$LIBDIR/kgsueme"; |
35 | our $APPDIR = "$LIBDIR/kgsueme"; |
| 36 | our $IMGDIR = "$LIBDIR/images"; |
36 | our $IMGDIR = "$LIBDIR/images"; |
| 37 | our $SNDDIR = "$LIBDIR/sounds"; |
37 | our $SNDDIR = "$LIBDIR/sounds"; |
| 38 | |
38 | |
| 39 | for (qw(util.pl gtk.pl image.pl sound.pl user.pl gamelist.pl userlist.pl challenge.pl |
39 | for (qw(util.pl gtk.pl image.pl sound.pl user.pl gamelist.pl userlist.pl challenge.pl |
| 40 | board.pl game.pl room.pl roomlist.pl appwin.pl)) { |
40 | board.pl game.pl room.pl roomlist.pl app.pl)) { |
| 41 | require "$APPDIR/$_"; |
41 | require "$APPDIR/$_"; |
| 42 | } |
42 | } |
| 43 | } |
43 | } |
| 44 | |
44 | |
| 45 | our $appwin = new appwin; |
45 | our $app = new app; |
| 46 | |
46 | |
| 47 | if (0) { |
47 | if (0) { |
| 48 | use KGS::Constants; |
48 | use KGS::Constants; |
| 49 | |
49 | |
| 50 | for (19) { |
50 | for (19) { |
| … | |
… | |
| 80 | } |
80 | } |
| 81 | } |
81 | } |
| 82 | |
82 | |
| 83 | main Gtk2; |
83 | main Gtk2; |
| 84 | |
84 | |
| 85 | $appwin->destroy; |
85 | $app->destroy; |
| 86 | |
86 | |
| 87 | Gtk2->main_iteration while Gtk2->events_pending; |
87 | Gtk2->main_iteration while Gtk2->events_pending; |
| 88 | |
88 | |
| 89 | 1; |
89 | 1; |
| 90 | |
90 | |
