anchor.diff:  
   {$R *.lfm}
   
  +{ TwinMain }
  +
  +PROCEDURE TwinMain.mnuWireSquareClick(Sender: TObject);
  +BEGIN
  +      winSize.Show;
  +end;
  +
   END.
   
  
positive.code: INTERFACE
  
  USES
          Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus;
  
  TYPE
  
  
negative.code: 				mnuWireSquare: TMenuItem;
  				mnuSorted1faze: TMenuItem;
  				mnuMain: TMainMenu;
  				PROCEDURE mnuWireSquareClick(Sender: TObject);
          PRIVATE
                  { private declarations }
          PUBLIC
  