PopFile.def: Translation to XDS Modula-2

Last updated: 26. 1.1998, 21:19

<* +M2EXTENSIONS *>
DEFINITION MODULE PopFile;
(*------------------------------------------
   POPFILE.C -- Popup Editor File Functions
  ------------------------------------------*)


IMPORT Windows;
IMPORT FIO;
TYPE
  FILE  = FIO.File;
(*++++****************************************************************)
PROCEDURE Initialize (hwnd :   Windows.HWND);
(*********************************************************************)
(*++++****************************************************************)
PROCEDURE OpenDlg (hwnd            : Windows.HWND;
                   pstrFileName    : Windows.PSTR;
                   pstrTitleName   : Windows.PSTR) : Windows.BOOL;
(*********************************************************************)
(*++++****************************************************************)
PROCEDURE SaveDlg (hwnd         :  Windows.HWND;
                   pstrFileName :  Windows.PSTR;
                   pstrTitleName:  Windows.PSTR) : Windows.BOOL;
(*********************************************************************)
(*++++****************************************************************)
PROCEDURE Length (file   :  FILE) : Windows.LONG;
(*********************************************************************)
(*++++****************************************************************)
PROCEDURE Read (hwndEdit    :  Windows.HWND;
                strFileName :  ARRAY OF CHAR) : Windows.BOOL;
(*********************************************************************)
(*++++****************************************************************)
PROCEDURE Write (hwndEdit     :  Windows.HWND;
                 strFileName :  ARRAY OF CHAR) : Windows.BOOL;
(*********************************************************************)
END PopFile.