home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / RAMSES 2.2 / RAMSES 2.2 Extras / M2LibExtra / HideTerminal.DEF next >
Encoding:
Modula Definition  |  1996-06-21  |  2.0 KB  |  69 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE HideTerminal;
  2.  
  3.   (*******************************************************************
  4.  
  5.     Module  HideTerminal     (Version 1.0)
  6.  
  7.               Copyright 1991 by Juerg Thoeny and Swiss
  8.               Federal Institute of Technology Zürich ETHZ
  9.  
  10.       Version written for:
  11.               MacMETH_V3.2    (1-Pass Modula-2 implementation)
  12.  
  13.       Purpose controls the visiblitity of the terminal window in
  14.               TerminalOut
  15.  
  16.       Remarks Each client should call SetVisible in his term procedure
  17.                            
  18.       Programming
  19.  
  20.           • Design
  21.               J. Thoeny         10/23/1992
  22.  
  23.           • Implementation
  24.               J. Thoeny         10/23/1992
  25.  
  26.               
  27.           Swiss Federal Institute of Technology Zurich ETHZ
  28.           CH-8092 Zurich
  29.           Switzerland
  30.  
  31.           Last revision of definition:  10/23/1992  JT
  32.  
  33.   *******************************************************************)
  34.  
  35.      FROM SYSTEM    IMPORT ADDRESS;
  36.  
  37.     VAR
  38.       fakeWindowPtr : ADDRESS;
  39.       
  40.       
  41.   (*-----------------------------------------------------------------
  42.     PROCEDURE  SetVisible
  43.     
  44.     Purpose Makes the terminal window in TerminalOut visible and has
  45.             no effect if the window is alredy visible
  46.   -----------------------------------------------------------------*)
  47.  
  48.   PROCEDURE SetVisible;
  49.   
  50.   (*-----------------------------------------------------------------
  51.     PROCEDURE  SetInvisible
  52.     
  53.     Purpose Makes the terminal window in TerminalOut invisible and has
  54.             no effect if the window is alredy invisible
  55.   -----------------------------------------------------------------*)
  56.  
  57.   PROCEDURE SetInvisible;
  58.   
  59.   (*-----------------------------------------------------------------
  60.     PROCEDURE  IsVisible
  61.     
  62.     Purpose Tells whether the terminal window in TerminalOut is visible
  63.             or not
  64.   -----------------------------------------------------------------*)
  65.  
  66.   PROCEDURE IsVisible (): BOOLEAN;
  67.   
  68. END HideTerminal.