DEFINITION MODULE MyWindow;

(*
        PART OF Windowed development program for Modula 2

        This creates, opens and maintains the DirUtil window.
        It contains a couple of other importable routines for
        user alteration.

        Written: 3/21/87 by Greg Browne

        Compiles on TDI's Modula-2 Compiler version 2.20a

 NOTES: I kept being bugged with RefreshWindow not being exported from
        Intuition as a flag. Then I found that it is either misspelled
        in the .def module (as  ResfreshWindow) or that it is supposed
        to mean ResetFreshWindow. Don't know whats up but it works now.

*)


(*--------------------------------------------------------------------*)


(* ---------------------------*)
(*     EXTERNAL PROCEDURES    *)
(* ---------------------------*)
PROCEDURE SlidePot():CARDINAL;
(*
  Function returns the current value of the VertPot of the slider
*)


PROCEDURE ResetSlider(bod:CARDINAL);
(*
   Resets slide gadget size to the size passed in
*)



PROCEDURE CloseMyWindow;
(*
  Closes the window and intuition and graphics bases if they are open
*)


PROCEDURE OpenMyWindow(VAR name:ARRAY OF CHAR):BOOLEAN;

(*
        The external primary procedure - sets up and opens the window
        or returns FALSE.  The window may be accessed through
        the import of MyWindowPtr

*)


END MyWindow.

