Games-Sudoku-Component-TkPlayer

 view release on metacpan or  search on metacpan

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

    my $check = $this->{check_tmp}->();
    $this->{check_tmp}->(0);
    foreach my $row (1..$size) {
      foreach my $col (1..$size) {
        $this->_set_button($sdk, $wgt, $row, $col);
      }
    }
    $this->{check_tmp}->($check);
    $this->{message}->(q{Solve this!});

    $mw->Unbusy;
  }

  sub load_game {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    my $file = $mw->getOpenFile;

    if (defined $file && -f $file) {

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

      my $check = $this->{check_tmp}->();
      $this->{check_tmp}->(0);
      foreach my $row (1..$size) {
        foreach my $col (1..$size) {
          $this->_set_button($sdk, $wgt, $row, $col);
        }
      }
      $this->{check_tmp}->($check);
      $this->{message}->(q{Loaded!});
    }
    $mw->Unbusy;
  }

  sub save_game {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    my $file = $mw->getSaveFile;

    if (defined $file and open my $fh, '>', $file) {
      print $fh $sdk->table->as_string;
      close $fh;

      $this->{message}->(q{Saved!});
    }

    $mw->Unbusy;
  }

  sub lock {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    $sdk->table->lock_all;
    $this->_update_lock_status($mw, $sdk, $wgt);
    $this->{message}->(q{Locked});

    $mw->Unbusy;
  }

  sub clear {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    $sdk->clear;
    $this->unlock($mw, $sdk, $wgt);

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

    my $check = $this->{check_tmp}->();
    $this->{check_tmp}->(0);
    foreach my $row (1..$size) {
      foreach my $col (1..$size) {
        $this->_set_button($sdk, $wgt, $row, $col);
      }
    }
    $this->{check_tmp}->($check);
    $this->{message}->(q{Cleared});

    $mw->Unbusy;
  }

  sub unlock {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    $sdk->table->unlock_all;
    $this->_update_lock_status($mw, $sdk, $wgt);
    $this->{message}->(q{Unlocked});

    $mw->Unbusy;
  }

  sub rewind_all {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    $sdk->rewind_all;
    $sdk->status->turn_to_ok;

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

    my $check = $this->{check_tmp}->();
    $this->{check_tmp}->(0);
    foreach my $row (1..$size) {
      foreach my $col (1..$size) {
        $this->_set_button($sdk, $wgt, $row, $col);
      }
    }
    $this->{check_tmp}->($check);
    $this->{message}->(q{Rewinded});

    $mw->Unbusy;
  }

  sub _update_lock_status {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    my $table = $sdk->table;
    my $size  = $table->size;

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

    foreach my $row (1..$size) {
      foreach my $col (1..$size) {
        my $id = ($row - 1) * $size + ($col - 1);
        $this->configure_button($wgt, $id, 
          $table->cell($row, $col)->is_locked
        );
      }
    }
    $this->{check_tmp}->($check);

    $mw->Unbusy;
  }

  sub _set_button {
    my ($this, $sdk, $wgt, $row, $col) = @_;

    my $value  = $sdk->table->cell($row,$col)->value;
    my $locked = $sdk->table->cell($row,$col)->is_locked;
    my $size   = $sdk->table->size;
    my $id     = ($row - 1) * $size + ($col - 1);

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

    my $check_on = $this->{check_tmp}->();
    foreach my $row (1..$size) {
      foreach my $col (1..$size) {
        my $id = ($row - 1) * $size + ($col - 1);
        $this->configure_button_color($wgt, $id, 
          $check_on && $sdk->table->cell($row,$col)->tmpvalue ?
            'red' : 'gray',
        );
      }
    }
    $mw->Unbusy;
  }

  sub find_next {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    my $next = $sdk->table->find_next;

    if ($next) {
      my $size = $sdk->table->size;
      my $row  = $next->row;
      my $col  = $next->col;
      my $id   = ($row - 1) * $size + ($col - 1);
      $this->configure_button_color($wgt, $id, 'yellow');
      $this->{message}->(q{Try this.})
    }
    else {
      $this->{message}->(q{I have no idea. Try some.})
    }
    $mw->Unbusy;
  }

  sub configure_button {
    my ($this, $wgt, $id, $locked) = @_;

    $wgt->{buttons}->[$id]->configure(
      -font => [
        -weight => $locked ? 'bold' : 'normal',
        -family => 'courier',
        -size   => 25,

lib/Games/Sudoku/Component/TkPlayer/Controller.pm  view on Meta::CPAN

    until($status->is_finished) {
      $this->_do_next($mw, $sdk, $wgt, 1);
      $mw->update;
    }
    if ($status->is_solved) {
      $this->{message}->(q{OK, here you are!});
    }
    if ($status->is_giveup) {
      $this->{message}->(q{Sorry I can't solve!});
    }
    $mw->Unbusy;
  }

  sub do_next {
    my ($this, $mw, $sdk, $wgt) = @_;

    $mw->Busy(-recurse => 1);

    $this->_do_next($mw, $sdk, $wgt, 0);

    $mw->Unbusy;
  }

  sub _do_next {
    my ($this, $mw, $sdk, $wgt, $silent) = @_;

    my $item   = $sdk->next;
    my $status = $sdk->status;

    if ($status->is_ok) {
      $this->_set_button($sdk, $wgt, $item->row, $item->col) if $item;