ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/bin/kgsueme
(Generate patch)

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.33 by pcg, Sat May 31 10:58:30 2003 UTC vs.
Revision 1.34 by pcg, Sat May 31 14:15:11 2003 UTC

… …
30our $LIBDIR = "."; 30our $LIBDIR = ".";
31our $APPDIR = "$LIBDIR/kgsueme"; 31our $APPDIR = "$LIBDIR/kgsueme";
32our $IMGDIR = "$LIBDIR/images"; 32our $IMGDIR = "$LIBDIR/images";
33our $SNDDIR = "$LIBDIR/sounds"; 33our $SNDDIR = "$LIBDIR/sounds";
34 34
35for (qw(util.pl gtk.pl image.pl sound.pl appwin.pl roomlist.pl room.pl game.pl)) { 35for (qw(util.pl gtk.pl image.pl sound.pl game.pl gamelist.pl room.pl roomlist.pl appwin.pl)) {
36 print "loading module $_\n"; 36 print "loading module $_\n";
37 require "$APPDIR/$_"; 37 require "$APPDIR/$_";
38} 38}
39 39
40our $appwin = new appwin; 40our $appwin = new appwin;
41 41
42if (1) { 42if (0) {
43 use KGS::Constants; 43 use KGS::Constants;
44 44
45 for (19) { 45 for (19) {
46 my $board = new game %{Storable::retrieve "testboard.storable"}; 46 my $board = new game %{Storable::retrieve "testboard.storable"};
47 47
… …
59 } 59 }
60} 60}
61 61
62main Gtk2; 62main Gtk2;
63 63
64$appwin->destroy;
65
66Gtk2->main_iteration while Gtk2->events_pending;
67
681;
64 69
65 70

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines