anchor.diff:      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;
  +    ListBox_History.OnDoubleClick := History_JumpTo;
   
       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.OnClick := History_JumpTo;
       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.OnClick := UnRedo_Click;
       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.OnClick := UnRedo_Click;
       Button_History_Redo.Hint := gResTexts[TX_MAPED_REDO_HINT] + ' (''Ctrl + Y'' or ''Ctrl + Shift + Z'')';
   
   
  
positive.code: end;
  
  
  procedure TKMapEdInterface.HistoryJumpTo(Sender: TObject);
  begin
    if ListBox_History.Selected then
      gGame.MapEditor.History.JumpTo(ListBox_History.ItemIndex);
  
negative.code:     procedure Update_Label_Coordinates;
      procedure MapTypeChanged(aIsMultiplayer: Boolean);
  
      procedure UnRedo_Click(Sender: TObject);
      procedure History_Click(Sender: TObject);
      procedure History_JumpTo(Sender: TObject);
      procedure History_ListChange(Sender: TObject);
      procedure History_MouseWheel(Sender: TObject; WheelSteps: Integer; var aHandled: Boolean);
    protected
  