anchor.diff:      FSubMenu: TfpgPopupMenu;
       FText: TfpgString;
       FVisible: boolean;
  +    FChecked: boolean;
       procedure   SetEnabled(const AValue: boolean);
       procedure   SetHotKeyDef(const AValue: TfpgHotKeyDef);
       procedure   SetSeparator(const AValue: boolean);
       procedure   SetText(const AValue: TfpgString);
       procedure   SetVisible(const AValue: boolean);
  +    procedure   SetChecked(const AValue: boolean);
     public
       constructor Create(AOwner: TComponent); override;
       procedure   Click;
  
positive.code:   TfpgMenuBar = class;
    
    
    TfpgMenuItem = class(TComponent, ICommandHolder)
    private
      FCommand: ICommand;
      FEnabled: boolean;
  
negative.code:     procedure   DrawText(ACanvas: TfpgCanvas; x, y: TfpgCoord);
      function    GetCommand: ICommand;
      procedure   SetCommand(ACommand: ICommand);
      property    Checked: boolean read FChecked write SetChecked;
      property    Text: TfpgString read FText write SetText;
      property    HotKeyDef: TfpgHotKeyDef read FHotKeyDef write SetHotKeyDef;
      property    Separator: boolean read FSeparator write SetSeparator;
  