anchor.diff:  
   init([Notebook, Parent]) ->
       try
  -	Panel = wxPanel:new(Notebook),
  +	TopP  = wxPanel:new(Notebook),
   	Main  = wxBoxSizer:new(?wxVERTICAL),
  +	Panel = wxPanel:new(TopP),
  +	GSzr  = wxBoxSizer:new(?wxVERTICAL),
   	BorderFlags = ?wxLEFT bor ?wxRIGHT,
  -	Carrier = make_win(alloc, Panel, Main, BorderFlags bor ?wxTOP),
  -	Utilz = make_win(utilz, Panel, Main, BorderFlags),
  -
  -	MemWin = {MemPanel,_} = create_mem_info(Panel),
  -	wxSizer:add(Main, MemPanel, [{flag, ?wxEXPAND bor BorderFlags bor ?wxBOTTOM},
  -				     {proportion, 1}, {border, 5}]),
  -	wxWindow:setSizer(Panel, Main),
  +	Carrier = make_win(alloc, Panel, GSzr, BorderFlags bor ?wxTOP),
  +	Utilz = make_win(utilz, Panel, GSzr, BorderFlags),
  +	wxWindow:setSizer(Panel, GSzr),
  +	wxSizer:add(Main, Panel, [{flag, ?wxEXPAND},{proportion,2}]),
  +
  +	MemWin = create_mem_info(TopP),
  +	wxSizer:add(Main, MemWin, [{flag, ?wxEXPAND bor BorderFlags bor ?wxBOTTOM},
  +				   {proportion, 1}, {border, 5}]),
  +	wxWindow:setSizer(TopP, Main),
   	Windows = [Carrier, Utilz],
   	PaintInfo = setup_graph_drawing(Windows),
  -	{Panel, #state{parent= Parent,
  -		       panel = Panel,
  -		       wins  = Windows,
  -		       mem   = MemWin,
  -		       paint = PaintInfo,
  -		       time  = setup_time()
  -		      }
  +	{TopP, #state{parent= Parent,
  +		      panel = Panel,
  +		      wins  = Windows,
  +		      mem   = MemWin,
  +		      paint = PaintInfo,
  +		      time  = setup_time()
  +		     }
   	}
       catch _:Err ->
   	    io:format("~p crashed ~p: ~p~n",[?MODULE, Err, erlang:get_stacktrace()]),
  
positive.code:     if Active ->
  	    update_alloc(S0, Info),
  	    State = precalc(S1),
  	    catch wxWindow:refresh(Panel),
  	    {noreply, State};
         true ->
  	    {noreply, S1}
  
negative.code: 		     Row + 1
  	     end,
      wx:foldl(Update, 0, Fields),
      wxWindow:thaw(Grid),
      Fields.
  
  alloc_info(SysInfo) ->
  