anchor.diff:    TMsgOpts = class(TOptsGroup)
     private
       fDepHandling : TDepHandling;
  -    fVerb: boolean;
  -    fWarn: boolean;
  +    fVerbose: boolean;
  +    fWarnings: boolean;
       fWarnEx: boolean;
       fVtls: boolean;
       fQuiet: boolean;
       fVgc: boolean;
       fCol: boolean;
       procedure setDepHandling(const aValue: TDepHandling);
  -    procedure setVerb(const aValue: boolean);
  -    procedure setWarn(const aValue: boolean);
  +    procedure setVerbose(const aValue: boolean);
  +    procedure setWarnings(const aValue: boolean);
       procedure setWarnEx(const aValue: boolean);
       procedure setVtls(const aValue: boolean);
       procedure setQuiet(const aValue: boolean);
  
positive.code:   doChanged;
  end;
  
  procedure TOutputOpts.setMain(const aValue: boolean);
  begin
    if fMain = aValue then exit;
    fMain := aValue;
    doChanged;
  end;
  
  
negative.code:   doChanged;
  end;
  
  procedure TMsgOpts.setVerbose(const aValue: boolean);
  begin
    if fVerbose = aValue then exit;
    fVerbose := aValue;
    doChanged;
  end;
  
  procedure TMsgOpts.setWarnings(const aValue: boolean);
  begin
    if fWarnings = aValue then exit;
    fWarnings := aValue;
    doChanged;
  end;
  
  