home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / mui-2.1.lha / MUI-2.1 / Developer / Modula / txt / MuiD.mod < prev    next >
Encoding:
Modula Implementation  |  1994-06-05  |  2.2 KB  |  68 lines
  1. IMPLEMENTATION MODULE MuiD;
  2.  
  3.  
  4. (* Implementation-Module for MuiD
  5. ** done in 1993 by Christian "Kochtopf" Scholz
  6. *)
  7.  
  8.  
  9.         PROCEDURE mvWindowTopEdgeDelta(p:LONGINT): LONGINT;
  10.             BEGIN;
  11.                RETURN (-3-(p));
  12.             END mvWindowTopEdgeDelta;
  13.         PROCEDURE mvWindowWidthMinMax(p:LONGINT): LONGINT;
  14.             BEGIN;
  15.                RETURN (0-(p)); 
  16.             END mvWindowWidthMinMax;
  17.         PROCEDURE mvWindowWidthVisible(p:LONGINT): LONGINT; 
  18.             BEGIN; 
  19.                RETURN (-100-(p)); 
  20.             END mvWindowWidthVisible;
  21.         PROCEDURE mvWindowWidthScreen(p:LONGINT): LONGINT; 
  22.             BEGIN; 
  23.                RETURN (-200-(p)); 
  24.             END mvWindowWidthScreen;
  25.         PROCEDURE mvWindowHeightMinMax(p:LONGINT): LONGINT; 
  26.             BEGIN; 
  27.                RETURN (0-(p)); 
  28.             END mvWindowHeightMinMax;
  29.         PROCEDURE mvWindowHeightVisible(p:LONGINT): LONGINT; 
  30.             BEGIN; 
  31.                RETURN (-100-(p)); 
  32.             END mvWindowHeightVisible;
  33.         PROCEDURE mvWindowHeightScreen(p:LONGINT): LONGINT; 
  34.             BEGIN; 
  35.                RETURN (-200-(p)); 
  36.             END mvWindowHeightScreen;
  37.         PROCEDURE mvWindowAltTopEdgeDelta(p:LONGINT): LONGINT; 
  38.             BEGIN; 
  39.                RETURN (-3-(p)); 
  40.             END mvWindowAltTopEdgeDelta ;
  41.         PROCEDURE mvWindowAltWidthMinMax(p:LONGINT): LONGINT; 
  42.             BEGIN; 
  43.                RETURN (0-(p)); 
  44.             END mvWindowAltWidthMinMax;
  45.         PROCEDURE mvWindowAltWidthVisible(p:LONGINT): LONGINT; 
  46.             BEGIN; 
  47.                RETURN (-100-(p)); 
  48.             END mvWindowAltWidthVisible;
  49.         PROCEDURE mvWindowAltWidthScreen(p:LONGINT): LONGINT; 
  50.             BEGIN; 
  51.                RETURN (-200-(p));
  52.             END mvWindowAltWidthScreen;
  53.         PROCEDURE mvWindowAltHeightMinMax(p:LONGINT): LONGINT; 
  54.             BEGIN; 
  55.                RETURN (0-(p))
  56.             END mvWindowAltHeightMinMax;
  57.         PROCEDURE mvWindowAltHeightVisible(p:LONGINT): LONGINT; 
  58.             BEGIN; 
  59.                RETURN (-100-(p))
  60.             END mvWindowAltHeightVisible;
  61.         PROCEDURE mvWindowAltHeightScreen(p:LONGINT): LONGINT; 
  62.             BEGIN; 
  63.                RETURN (-200-(p))
  64.             END mvWindowAltHeightScreen;
  65.  
  66.  
  67. END MuiD.
  68.