anchor.diff:  end;
   
   
  -procedure TKMapEdInterface.UnRedoClick(Sender: TObject);
  +procedure TKMapEdInterface.UnRedo_Click(Sender: TObject);
   begin
     if (Sender = Button_Undo)
       or (Sender = Button_History_Undo) then
  
positive.code:     ListBox_History := TKMListBox.Create(PopUp_History, 10, 10, PopUp_History.Width - 20, PopUp_History.Height - 50, fntMetal, bsGame);
      ListBox_History.AutoHideScrollBar := True;
      ListBox_History.OnChange := History_ListChange;
      ListBox_History.OnDoubleClick := HistoryJumpTo;
  
      Button_History_JumpTo := TKMButton.Create(PopUp_History, 10, ListBox_History.Bottom + 5,
                                                               ListBox_History.Width, 20, gResTexts[TX_MAPED_HISTORY_JUMP_TO], bsGame);
      Button_History_JumpTo.OnClick := HistoryJumpTo;
      Button_History_JumpTo.Hint := gResTexts[TX_MAPED_HISTORY_JUMP_TO_HINT];
  
      Button_History_Undo := TKMButton.Create(PopUp_History, 10, PopUp_History.Height - 10, (ListBox_History.Width div 2) - 7, 20, '<< Undo', bsGame);
      Button_History_Undo.OnClick := UnRedoClick;
      Button_History_Undo.Hint := gResTexts[TX_MAPED_UNDO_HINT]+ ' (''Ctrl + Z'')';
  
      Button_History_Redo := TKMButton.Create(PopUp_History, PopUp_History.Width - 10 - Button_History_Undo.Width,
                                                             Button_History_Undo.Top, Button_History_Undo.Width, 20, 'Redo >>', bsGame);
      Button_History_Redo.OnClick := UnRedoClick;
      Button_History_Redo.Hint := gResTexts[TX_MAPED_REDO_HINT] + ' (''Ctrl + Y'' or ''Ctrl + Shift + Z'')';
  
  
  
negative.code: end;
  
  
  procedure TKMapEdInterface.History_Click(Sender: TObject);
  begin
    PopUp_History.Visible := not PopUp_History.Visible;
  
  