anchor.diff:      wxPanel:connect(Canvas, left_up),
       wxPanel:connect(Canvas, right_up),
       wxPanel:connect(Canvas, size),
  -    wxPanel:connect(Canvas, paint),
  +    Self = self(),
  +    wxPanel:connect(Canvas, paint, [{callback,  %% Needed on windows
  +				     fun(Ev, _) -> 
  +					     DC = wxPaintDC:new(Canvas),
  +					     wxPaintDC:destroy(DC),
  +					     Self ! Ev
  +				     end}]),
       wxPanel:connect(Canvas, key_down),
       wxPanel:connect(Canvas, kill_focus),
       wxPanel:connect(Canvas, enter_window, [{skip, true}]), 
  
positive.code: 
  clear_canvas(S) ->
      DC = wxClientDC:new(S#state.canvas),
      wxDC:clear(DC),
      {CanvasW, CanvasH} = wxPanel:getSize(S#state.canvas),
      wxSizer:recalcSizes(S#state.canvas_sizer),
  
negative.code: %%
  %% %CopyrightBegin%
  %% 
  %% Copyright Ericsson AB 2000-2010. All Rights Reserved.
  %% 
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  