home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 037.lha / DU / MyWindow.def < prev    next >
Text File  |  1987-05-16  |  1KB  |  59 lines
  1. DEFINITION MODULE MyWindow;
  2.  
  3. (*
  4.         PART OF Windowed development program for Modula 2
  5.  
  6.         This creates, opens and maintains the DirUtil window.
  7.         It contains a couple of other importable routines for
  8.         user alteration.
  9.  
  10.         Written: 3/21/87 by Greg Browne
  11.  
  12.         Compiles on TDI's Modula-2 Compiler version 2.20a
  13.  
  14.  NOTES: I kept being bugged with RefreshWindow not being exported from
  15.         Intuition as a flag. Then I found that it is either misspelled
  16.         in the .def module (as  ResfreshWindow) or that it is supposed
  17.         to mean ResetFreshWindow. Don't know whats up but it works now.
  18.  
  19. *)
  20.  
  21.  
  22. (*--------------------------------------------------------------------*)
  23.  
  24.  
  25. (* ---------------------------*)
  26. (*     EXTERNAL PROCEDURES    *)
  27. (* ---------------------------*)
  28. PROCEDURE SlidePot():CARDINAL;
  29. (*
  30.   Function returns the current value of the VertPot of the slider
  31. *)
  32.  
  33.  
  34. PROCEDURE ResetSlider(bod:CARDINAL);
  35. (*
  36.    Resets slide gadget size to the size passed in
  37. *)
  38.  
  39.  
  40.  
  41. PROCEDURE CloseMyWindow;
  42. (*
  43.   Closes the window and intuition and graphics bases if they are open
  44. *)
  45.  
  46.  
  47. PROCEDURE OpenMyWindow(VAR name:ARRAY OF CHAR):BOOLEAN;
  48.  
  49. (*
  50.         The external primary procedure - sets up and opens the window
  51.         or returns FALSE.  The window may be accessed through
  52.         the import of MyWindowPtr
  53.  
  54. *)
  55.  
  56.  
  57. END MyWindow.
  58.  
  59.