anchor.diff:  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %% Local functions
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  -
  -do_move(#state{solver_state=newgame}=State) ->
  -    newgame(State);
  -do_move(#state{solver_state=SState, board=Board}=State) ->
  -    {NewSState, Events, NewBoard} = solver:step(SState, Board),
  -    lists:foreach(fun(E) -> draw_event(E, State) end, Events),
  -    refresh(State),
  -    %io:format("Events: ~p~n", [Events]),
  -    {noreply, State#state{solver_state=NewSState, board=NewBoard}}.
   
   create_and_draw_board({Rows, Cols, Mines}, Bitmap) ->
       Board = board:new(Rows, Cols, Mines),
  
positive.code: newgame(#state{bitmap=Bitmap, config=Config} = State) ->
      Board = create_and_draw_board(Config, Bitmap),
      refresh(State),
      {noreply, State#state{board=Board, solver_state=flag}}.
  
  solver_event(Fun, #state{board=Board}=State) ->
      {Events, NewBoard} = solver:Fun(Board),
      lists:foreach(fun(E) -> draw_event(E, State) end, Events),
      refresh(State),
      %io:format("Events: ~p~n", [Events]),
      {noreply, State#state{board=NewBoard}}.
  
  icon_filename({empty, 0}) -> "0.gif";
  icon_filename({empty, 1}) -> "1.gif";
  
negative.code:     State = #state{config=Config, bitmap=Bitmap, board=Board, mode=screensaver},
      Frame = wxFrame:new(Server, ?wxID_ANY, "MinesweepErl", []),
      refresh(State),
      schedule_move(State),
      {Frame, State#state{frame=Frame}};
  do_init([Server, {Rows, Cols, _Mines}=Config]) ->
      Frame = wxFrame:new(Server, ?wxID_ANY, "MinesweepErl",
  