anchor.diff:    inherited HandleLMouseUp(x, y, shiftstate);
   end;
   
  +procedure TfpgPageControl.HandleRMouseUp(x, y: integer; shiftstate: TShiftState);
  +begin
  +  inherited HandleRMouseUp(x, y, shiftstate);
  +//  ShowDefaultPopupMenu(x, y, ShiftState);
  +  if not Assigned(FPopupMenu) then
  +  begin
  +    FPopupMenu := TfpgPopupMenu.Create(self);
  +    FPopupMenu.AddMenuItem('Close Tab', '', @pmCloseTab);
  +  end;
  +  FPopupMenu.ShowAt(self, x, y);
  +end;
  +
   procedure TfpgPageControl.HandleKeyPress(var keycode: word;
     var shiftstate: TShiftState; var consumed: boolean);
   var
  
positive.code:   end;  { case }
  end;
  
  procedure TfpgPageControl.OrderSheets;
  begin
    FPages.Sort(@SortCompare);
  
negative.code:   fpg_base,
    fpg_main,
    fpg_widget,
    fpg_button,
    fpg_menu;
    
  type
    // forward declaration
  