DEFINITION PasswordFields; (* portable *)

 IMPORT Objects, TextFields;

 TYPE
  Frame = POINTER TO FrameDesc;
  FrameDesc = RECORD ( TextFields.TextFieldDesc ) 
  END;
 PROCEDURE Copy (VAR M: Objects.CopyMsg; from, to: Frame);
 PROCEDURE Handler (F: Objects.Object; VAR M: Objects.ObjMsg);
 PROCEDURE New;

END PasswordFields.