--- kgsueme/bin/kgsueme	2004/05/21 03:18:14	1.59
+++ kgsueme/bin/kgsueme	2004/05/29 06:38:24	1.60
@@ -43,30 +43,36 @@
 }
 
 if ($ENV{KGSUEME_DEBUG}) {
-   my $window = new Gtk2::Window 'toplevel';
-   my $chat = new superchat;
-
-   $window->add ($chat);
-   show_all $window;
-
-   $chat->append_text ("A\n");
-   $chat->append_text ("B\n");
-   $chat->append_text ("C\n");
-   $chat->append_text ("D\n");
-
-   $chat->{full}->clear;
-
-   $chat->append_text ("F\n");
-   $chat->append_text ("G\n");
-
-   main Gtk2;
-   
    use KGS::Constants;
 
    for (19) {
       my $game = new game size => $_;
+
+      $game->event_challenge (
+bless( {
+                type => 0,
+                user1 => bless( {
+                                  flags => 2633,
+                                  name => 'dorkusx'
+                                }, 'KGS::User' ),
+                rules => bless( {
+                                  count => 5,
+                                  time => 900,
+                                  timesys => 2,
+                                  interval => 30,
+                                  komi => '6.5',
+                                  size => 19,
+                                  ruleset => 0,
+                                  handicap => 2,
+                                }, 'KGS::Rules' ),
+                user2 => bless( {
+                                  flags => 436220808,
+                                  name => 'Nerdamus'
+                                }, 'KGS::User' )
+              }, 'KGS::Challenge' ));
+
       
-      if (1) {
+      if (0) {
          my $data = Storable::retrieve "board2.dat";
          while (my ($k, $v) = each %$data) {
             $game->{$k} = $v;
@@ -100,8 +106,9 @@
          $game->{cur_board}{label}[0][2] = "AWA";
          $game->{board}->set_board ($game->{cur_board});
       }
-      $game->{window}->show_all;
    }
+   main Gtk2;
+
 }
 
 our $app = new app;