home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d1xx / d174 / tunnel / myscreen.mod < prev    next >
Encoding:
Modula Implementation  |  1989-02-04  |  2.3 KB  |  91 lines
  1. (*
  2. This module initializes the window and screen for
  3.  any program.
  4.  
  5. Created: 5/24/86 by Richie Bielak
  6.  
  7. Modified: 08/Feb/88 by Garth Thornton
  8.  
  9. Copyright (c) 1986 by Richard Bielak
  10.  
  11. This program maybe freely copied. But please
  12. leave my name in. Thanks.....Richie
  13.  
  14. *)
  15. IMPLEMENTATION MODULE MyScreen;
  16.  
  17. FROM SYSTEM    IMPORT ADR, BYTE, ADDRESS, SETREG;
  18. FROM Intuition IMPORT
  19.      WindowFlags, NewWindow, IDCMPFlags, IDCMPFlagSet, WindowFlagSet,
  20.      WindowPtr, ScreenPtr, CustomScreen;
  21. FROM Windows   IMPORT OpenWindow, ReportMouse;
  22. FROM Views     IMPORT Hires, ModeSet;
  23. FROM Screens   IMPORT OpenScreen, NewScreen;
  24.  
  25. VAR
  26.   NULL : ADDRESS;
  27.   MyWindow : NewWindow;
  28.   MyScreen : NewScreen;
  29.   ScreenName : ARRAY [0..20] OF CHAR;
  30.  
  31.   
  32. (* ++++++++++++++++++++++++++++++++++++++++ *)
  33. PROCEDURE SetUpScreen (VAR wp : WindowPtr;
  34.                        VAR sp : ScreenPtr;
  35.                        width, height, depth : INTEGER;
  36.                        modes : ModeSet);
  37.  
  38. (* +++++++++++++++++++++++++++++++++++++++ *)
  39. PROCEDURE InitScreen (VAR s : NewScreen);
  40.   BEGIN
  41.     ScreenName := "GT";
  42.     WITH s DO
  43.       LeftEdge := 0; TopEdge := 0; 
  44.       Width := width; Height := height;
  45.       Depth := depth;
  46.       DetailPen := BYTE (0); BlockPen := BYTE (1);
  47.       ViewModes := modes;
  48.       Type := CustomScreen;
  49.       Font := NULL;
  50.       DefaultTitle := ADR (ScreenName);
  51.       Gadgets := NULL;
  52.       CustomBitMap := NULL
  53.     END;
  54.   END InitScreen;
  55.  
  56. (* +++++++++++++++++++++++++++++++++++++++ *)
  57. PROCEDURE InitWindow (VAR w : NewWindow; sp : ScreenPtr);
  58.   BEGIN
  59.     WITH w DO
  60.       LeftEdge := 0; TopEdge := 0; Width := width; Height := height;
  61.       DetailPen := BYTE (0);
  62.       BlockPen := BYTE (1);
  63.       Title := NULL;
  64.       Flags := WindowFlagSet {Activate, Borderless, BackDrop,
  65.                        ReportMouseFlag};
  66.       IDCMPFlags := MyIDCMPFlagSet;
  67.       Type := CustomScreen;
  68.       CheckMark := NULL;
  69.       FirstGadget := NULL;
  70.       Screen := sp;
  71.       BitMap := NULL;
  72.       MinWidth := 10; MinHeight := 10;
  73.       MaxWidth := width; MaxHeight := height;
  74.     END
  75.   END InitWindow;
  76.  
  77.   BEGIN
  78.     InitScreen (MyScreen);
  79.     (* Define a new screen *)
  80.     sp := OpenScreen (ADR(MyScreen));
  81.     InitWindow (MyWindow, sp);
  82.     (* Now open the window *)
  83.     wp := OpenWindow (MyWindow);
  84.   END SetUpScreen;
  85.  
  86. BEGIN
  87.   NULL := 0;
  88. END MyScreen.
  89.  
  90.  
  91.