home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / new / dev / obero / palette / palettetest.mod < prev    next >
Text File  |  1994-07-18  |  1KB  |  56 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    PaletteTest.mod
  3.     :Author.     Daniel Amor
  4.     :Address.    Ludwigstr. 124, D-70197 Stuttgart, Germany
  5.     :Version.    1.01
  6.     :Date.       31-May-94
  7.     :Copyright.  PD
  8.     :Language.   Oberon-2
  9.     :Translator. Amiga Oberon 3.0
  10.     :Imports.    Palette [da].
  11.     :Contents.   Testet Palette-Fenster.
  12. ---------------------------------------------------------------------------*)
  13.  
  14. MODULE PaletteTest;
  15.  
  16. IMPORT I:   Intuition,
  17.        gt:  GadTools,
  18.        e:   Exec,
  19.        u:   Utility,
  20.        pal: Palette,
  21.        req: Requests;
  22.  
  23. VAR Scr        : I.ScreenPtr;
  24.     VisualInfo : e.APTR;
  25.     ColRec     : pal.colourRecord;
  26.  
  27. PROCEDURE SetupScreen (): INTEGER;
  28.  
  29. BEGIN
  30.   Scr := I.LockPubScreen (NIL);  IF Scr = NIL THEN RETURN 1 END;
  31.  
  32.   VisualInfo := gt.GetVisualInfo (Scr, u.done);
  33.   IF VisualInfo = NIL THEN RETURN 2 END;
  34.  
  35.   RETURN 0;
  36. END SetupScreen;
  37.  
  38. PROCEDURE CloseDownScreen;
  39.  
  40. BEGIN
  41.   IF VisualInfo # NIL THEN
  42.     gt.FreeVisualInfo (VisualInfo);
  43.     VisualInfo := NIL;
  44.   END;
  45.   IF Scr # NIL THEN
  46.     I.UnlockPubScreen (NIL, Scr);
  47.     Scr := NIL;
  48.   END;
  49. END CloseDownScreen;
  50.  
  51. BEGIN
  52.   IF SetupScreen()=0 THEN pal.ShowPalette(Scr,ColRec,3); END;
  53. CLOSE
  54.   CloseDownScreen;
  55. END PaletteTest.
  56.