home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum8.lzh / PROGRAMME / MODULA / WINDOW / area.def next >
Text File  |  1989-01-19  |  15KB  |  246 lines
  1. (*
  2. -------------------------------------------------------------------------------
  3. @@@@@@@@@@@@@@@@@@@@@*)  DEFINITION  MODULE  Area;  (*@@@@@@@@@@@@@@@@@@@@@@@@@
  4. -------------------------------------------------------------------------------
  5. -------------------------------------------------------------------------------
  6. | Kurzbeschreibung   | minimales Fenstersystem fuer Textbildschirme           |
  7. |                    |                                                        |
  8. ---------------------+---------------------------------------------------------
  9. | Programm - Version |  2.2   |   Text - Version        |   V#031             |
  10. ---------------------+--------+-------------------------+----------------------
  11. | Modulholder        |  WS    |   Urversion     |  WS   |   August 88         |
  12. ---------------------+---------------------------------------------------------
  13. | System - Version   | OS-9, Miele-Modula-2 3.5                               |
  14. ---------------------+---------------------------------------------------------
  15. | Copyright          | Freigegeben fuer nichtkommerzielle Nutzung             |
  16. |                    |  durch Teilnehmer am EFFO                              |
  17. ---------------------+---------------------------------------------------------
  18. | Hardware           | GEPARD 68010, 1 MByte RAM, 80Zeichen-Textkarte         |
  19. ---------------------+---------------------------------------------------------
  20. | besondere Importe  |                                                        |
  21. -------------------------------------------------------------------------------
  22. | Autoren            |  WS    | Werner Stehling, Seilerwis 3,                 |
  23. |                    |        | CH-8606 Greifensee, Tel. 01/256 42 21         |
  24. ---------------------+---------------------------------------------------------
  25. |   U P D A T E S    |                                                        |
  26. ----------------------                                                        |
  27. |   Datum   Version  Autor  Bemerkungen                                       |
  28. | --------  -------  -----  -----------                                       |
  29. | 10. 8.88    1.1      WS   dynamische Fensterverwaltung unter GDOS           |
  30. | 17. 8.88    1.1      WS   Prozeduren zur Zahlenausgabe                      |
  31. | 12.12.88    2.0      WS   Umstellung auf OS-9                               |
  32. | 15.12.88    2.0      WS   Aufteilung in area und areaIO                     |
  33. | 27. 1.89    2.1      WS   GetAreaPar mit VAR bereich                        |
  34. |  7. 2.89    2.2      WS   SetTemp und EndTemp neu                           |
  35. |  9. 2.89    2.2      WS   ResetAktiv definiert zum Beschleunigen            |
  36. |                                                                             |
  37. -------------------------------------------------------------------------------
  38. | Modul-Beschreibung |                                                        |
  39. ----------------------                                                        |
  40. | Auf dem Bildschirm koennen einzelne Fenster definiert werden. Angegeben     |
  41. | werden die Position des ersten Zeichens oben links sowie die aktuelle Breite|
  42. | und Hoehe in Char. Um jedes Fenster wird ein Rahmen gezeichnet, d.h. der    |
  43. | benoetigte Schirmplatz ist in allen Dimensionen um 2 Positionen groesser.   |
  44. | Beim Einrichten und modifizieren der Fensterparameter werden alle Groessen  |
  45. | ueberprueft und evtl so modifiziert, dass das gesamte Fenster immer auf dem |
  46. | Bildschirm positioniert ist.                                                |
  47. |                                                                             |
  48. | Input und Output passiert immmer im gerade aktiven Fenster.                 |
  49. | Wenn keine Area aktiv ist, geht der Output normal auf                       |
  50. | den ganzen Bildschirm. D.h. SetAktiv (NIL) oder Loeschen des gerade aktiven |
  51. | Fensters schalten auf den normalen Output um; um den ganzen Schirm wird kein|
  52. | Rahmen gezeichnet.                                                          |
  53. |                                                                             |
  54. | Es ist nicht moeglich, auf ein gerade nicht aktives Fenster zu schreiben.   |
  55. | Die Eingabe und Ausgabefunktionen funktionieren wie die bekannten aus dem   |
  56. | Modul Console nur eben auf das aktive Fenster beschraenkt. Folgende Tasten  |
  57. | werden von der Read-Routine direkt behandelt:                               |
  58. |                                                                             |
  59. | LeftKey, RightKey, UpKey, DownKey : Cursorbewegung mit Wraparound und Scroll|
  60. | DELKey, BSKey : Loeschen des Zeichen unter bzw. links vom Cursor            |
  61. | INSKey : ein Leerzeichen an der Position des Cursors einfuegen              |
  62. | CRKey  : an der Position des Cursors wird eine neue Zeile eingefuegt        |
  63. | HomeKey: Fensterinhalt loeschen, Cursor in die linke obere Ecke             |
  64. |                                                                             |
  65. | Die Positionierung im Fenster geschieht immer mit relativen Koordinaten     |
  66. | modulo der Fensterdimensionen; der Nullpunkt ist oben links.                |
  67. |                                                                             |
  68. | Zum Rahmenzeichnen werden die Gepard-ueblichen Zeichen verwendet. Sie       |
  69. | sind als Konstante definiert und koennen                                    |
  70. | bei Bedarf geaendert werden. Die Dimensionierung von 'RahmTyp' fuer das     |
  71. | Array 'ersatz' muss dann gegebenenfalls angepasst werden.                   |
  72. |                                                                             |
  73. | Dieses Modul enthaelt neben den Prozeduren zur Fensterverwaltung nur die    |
  74. | primitiven Character-Ein- und Ausgabefunktionen. Prozeduren analog zu InOut |
  75. | fuer die formatierte Ein- und Ausgabe befinden sich im Modul AreaIO.        |
  76. |                                                                             |
  77. |                                                                             |
  78. | W A R N U N G :                                                             |
  79. | ===============                                                             |
  80. | Die Prozeduren dieses Moduls und darauf aufbauender Module duerfen nicht    |
  81. | gemeinsam mit anderen I/O-Prozeduren (z.B. aus InOut) verwendet werden, da  |
  82. | ueber den Bildschirm-Inhalt und die Cursorpositionen separat Buch gefuehrt  |
  83. | wird.                                                                       |
  84. -------------------------------------------------------------------------------
  85. *)
  86.  
  87. EXPORT  QUALIFIED   Area, MakeArea, SetAktiv, ResetAktiv, GetAktiv,
  88.                     GetAreaPar, PositArea, SaveScreen, SetTemp, EndTemp,
  89.                     DimArea, ReturnArea, ReturnAll, ClearScreen, ClearArea,
  90.                     ClearToEOL, ClearLine, GotoXY, GetXY,
  91.                     WriteLn, Write, WriteString, BusyRead, Read,
  92.                     DeleteOne, InsertChar,
  93.                     CRKey, DelKey, BSKey, HTab, INSKey, UndoKey,
  94.                     LeftKey, RightKey, DownKey, UpKey, HomeKey, ESCKey,
  95.                     maxx, maxy;
  96.  
  97. CONST   maxx    = 79;           (* Bildschirmgroesse                    *)
  98.         maxy    = 23;        
  99.  
  100.         CRKey   = \$0D;         (* Cursor- und Editier-Tasten           *)
  101.         DelKey  = \$04;
  102.         BSKey   = \$08;
  103.         HTab    = \$09;
  104.         INSKey  = \$0A;
  105.         UndoKey = \$18;
  106.         ESCKey  = \$1B;
  107.         LeftKey = \$02;
  108.         RightKey= \$06;
  109.         DownKey = \$0E;
  110.         UpKey   = \$10;
  111.         HomeKey = \$15;
  112.  
  113. TYPE    Screen = ARRAY [0..(maxx+1)*(maxy+1)-1] OF CHAR;
  114.      (* leichtere Umdimensionierung und Cursorverwaltung im linearen Array *)
  115.  
  116.         Area   = POINTER TO area;
  117.         area   = RECORD
  118.                    nextarea     : Area;         (* verkettete Liste     *)
  119.                    arealen      : CARDINAL;     (* Groesse von inarea   *)
  120.                    xmin, ymin   : CARDINAL;     (* linke obere Ecke     *)
  121.                    breite, hoehe: CARDINAL;
  122.                    xcurs, ycurs : CARDINAL;     (* Cursor im Fenster    *)
  123.                    inarea       : Screen        (* Fensterinhalt        *)
  124.                  END;
  125.                (* fuer inarea wird nur der wirklich benoetigte Platz der
  126.                   Groesse 'breite * hoehe' angefordert                  *)
  127.         
  128. (*==========================================================================*)
  129. (****   Prozeduren zur Fensterverwaltung                                 ****)
  130. (*==========================================================================*)
  131. (*--------------------------------------------------------------------------*)
  132.     PROCEDURE  MakeArea (x0, y0, dx, dy : CARDINAL) : Area;
  133.  
  134. (* neuen Bereich auf dem Schirm einrichten                                  *)
  135. (* x0 und y0 sind die Position des ersten Characters oben links             *)
  136. (* dx und dy sind die wahre Breite und Hoehe; der Rahmen zaehlt zusaetzlich *)
  137. (* die linke obere Ecke des Rahmens wird bei (x0-1,y0-1), die rechte untere *)
  138. (* bei der absoluten Bildschirmposition (x0+dx+1,y0+dy+1) gezeichnet        *)
  139. (*--------------------------------------------------------------------------*)
  140.         PROCEDURE  SetAktiv (bereich : Area);
  141.  
  142. (* der weitere Output geht in Area bereich. bereich wird neu gezeichnet.    *)
  143. (*--------------------------------------------------------------------------*)
  144.         PROCEDURE  ResetAktiv (bereich : Area);
  145.  
  146. (* der weitere Output geht wieder in Area bereich. bereich und sein Rahmen  *)
  147. (* werden allerdings nicht neu gezeichnet. Diese Prozedur sollte nur dann   *)
  148. (* verwendet werden, wenn mit Sicherheit  bereich  auf dem Schirm nicht     *)
  149. (* zerstoert wurde.                                                         *)
  150. (*--------------------------------------------------------------------------*)
  151.         PROCEDURE  GetAktiv (VAR bereich : Area);
  152.  
  153. (* gibt den Zeiger auf die aktive Area zurueck                              *)
  154. (*--------------------------------------------------------------------------*)
  155.         PROCEDURE  SetTemp (bereich : Area);
  156.  
  157. (* Rettet den absoluten Bildschirmbereich auf den Stack, bevor der neue     *)
  158. (* Bereich angezeigt wird. Restaurieren durch EndTemp. Sonst wie SetAktiv.  *)
  159. (*--------------------------------------------------------------------------*)
  160.         PROCEDURE  EndTemp;
  161.  
  162. (* Holt den zuletzt geretteten Bildschirm vom Stack                         *)
  163. (*--------------------------------------------------------------------------*)
  164.     PROCEDURE  GetAreaPar (bereich : Area; VAR x0, y0, dx, dy : CARDINAL);
  165.  
  166. (* return die Parameter der Area  bereich; bereich = NIL : der aktiven Area *)
  167. (*--------------------------------------------------------------------------*)
  168.         PROCEDURE  PositArea (VAR bereich : Area; x0, y0 : CARDINAL);
  169.  
  170. (* Fenster  nach x0, y0 verschieben                                         *)
  171. (*--------------------------------------------------------------------------*)
  172.         PROCEDURE  DimArea (VAR bereich : Area; dx, dy : CARDINAL);
  173.  
  174. (* Fenstergroesse neu festlegen                                             *)
  175. (*--------------------------------------------------------------------------*)
  176.         PROCEDURE  ReturnArea (bereich : Area);
  177.  
  178. (* Speicherplatz von bereich zurueckgeben                                   *)
  179. (*--------------------------------------------------------------------------*)
  180.         PROCEDURE  ReturnAll;
  181.  
  182. (* Alle Areas zurueckgeben                                                  *)
  183.  
  184. (*==========================================================================*)
  185. (****   Prozeduren fuer die Ein- und Ausgabe von Zeichen                 ****)
  186. (*==========================================================================*)
  187. (*--------------------------------------------------------------------------*)
  188.         PROCEDURE  ClearScreen;
  189.  
  190. (* loescht den gesamten Bildschirm, aber nicht die (verborgenen) Fenster-   *)
  191. (* inhalte                                                                  *)
  192. (*--------------------------------------------------------------------------*)
  193.         PROCEDURE  ClearArea;
  194.  
  195. (* loescht das aktive Fenster                                               *)
  196. (*--------------------------------------------------------------------------*)
  197.         PROCEDURE  ClearToEOL;
  198.  
  199. (* Loeschen der Zeile von der Cursorposition bis zum Ende                   *)
  200. (*--------------------------------------------------------------------------*)
  201.         PROCEDURE  ClearLine;
  202.  
  203. (* Loeschen der Zeile, in der der Cursor steht                              *)
  204. (*--------------------------------------------------------------------------*)
  205.         PROCEDURE  GotoXY (x0, y0 : CARDINAL);
  206.  
  207. (* in der aktiven Area modulo Fenstergroesse;                               *)
  208. (*--------------------------------------------------------------------------*)
  209.         PROCEDURE  GetXY (VAR x0, y0 : CARDINAL);
  210.  
  211. (* relative Cursorkoordinaten im Fenster                                    *)
  212. (*--------------------------------------------------------------------------*)
  213.         PROCEDURE  WriteLn;
  214. (*--------------------------------------------------------------------------*)
  215.         PROCEDURE  Write (ch : CHAR);
  216.  
  217. (* schreibt ch an die Cursorposition im aktiven Fenster                     *)
  218. (*--------------------------------------------------------------------------*)
  219.         PROCEDURE  WriteString (VAR s : ARRAY OF CHAR);
  220. (*--------------------------------------------------------------------------*)
  221.         PROCEDURE  BusyRead (VAR ch : CHAR);
  222.  
  223. (* naechstes Zeichen von der Tatstatur ohne Echo und ohne Interpretation    *)
  224. (*--------------------------------------------------------------------------*)
  225.         PROCEDURE  Read (VAR ch : CHAR);
  226.  
  227. (* Zeichen von Tatstatur holen; Interpretation von Cursor,Home,DEL,BS,INS   *)
  228.  
  229. (*==========================================================================*)
  230. (****   Hilfsprozeduren fuer weitere Area-Module                         ****)
  231. (*==========================================================================*)
  232. (*--------------------------------------------------------------------------*)
  233.         PROCEDURE  DeleteOne;
  234. (*--------------------------------------------------------------------------*)
  235.         PROCEDURE  InsertChar (num : CARDINAL);
  236. (*--------------------------------------------------------------------------*)
  237.         PROCEDURE  SaveScreen (x0, y0, dx, dy : CARDINAL);
  238.  
  239. (* Rettet den absoluten Bildschirm von (x0,y0) bis (x0+dx,y0+dy) auf den    *)
  240. (* Stack.                                                                   *)
  241. (*--------------------------------------------------------------------------*)
  242.  
  243. END  Area.
  244.  
  245.  
  246.