home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / HELLO1 / HELLO.PAS < prev   
Pascal/Delphi Source File  |  1993-01-09  |  2KB  |  53 lines
  1. {    Beispielapplikation für ACS
  2.     "HELLO"
  3.     27.09.91 Stefan Bachert (Pure C)
  4.     02.01.92 Michael Schlüter (Pure Pascal)
  5.     Letzte Änderung: 02.01.93
  6. }
  7.  
  8. PROGRAM hello_word;
  9.  
  10. {$X+}
  11.  
  12. USES ACS;
  13.  
  14. FUNCTION hello_make(para: Pointer): AwindowPtr; FORWARD;
  15.                                                     { Mu₧ vorher Definiert werden }
  16. {$I HELLO.I}                                        { ACS-File wird geladen }
  17.  
  18. { ----------------------------------------------------------------- }
  19. { Erzeugt ein Hello-World Fenster                                    }
  20. { ----------------------------------------------------------------- }
  21. FUNCTION hello_make(para: Pointer): AwindowPtr;
  22. VAR        wi        : AWindowPtr;
  23. BEGIN
  24.     wi := Awi_create(@HELLO);                        { Erzeuge Fenster }
  25.     IF wi <> NIL THEN                                { Wenn OK dann }
  26.         wi^.open(wi);                                { Öffne das Fenster }
  27.     hello_make := wi;                                { Fensterpointer zurückgeben }
  28. END;
  29.  
  30. { ----------------------------------------------------------------- }
  31. { ACS Initialisieren und NEU-Ikon auf den Desktop legen                }
  32. { ----------------------------------------------------------------- }
  33. FUNCTION init_acs: INTEGER;
  34. VAR        wi        : AwindowPtr;
  35. BEGIN
  36.     wi := Awi_root;                            { Root window }
  37.     IF (wi <> NIL) THEN                        { Wenn alles klar }
  38.     BEGIN
  39.         wi^.service (wi, AS_NEWCALL, @@HELLO.create);{ NEU-Ikon anlegen }
  40.         wi := @HELLO;                        { Zeiger auf Hellofensterstruktur }
  41.         wi^.create(NIL);                    { Erzeuge sofort ein Fenster }
  42.         init_acs := OK;
  43.     END
  44.     ELSE
  45.       init_acs := FAIL;                        { Das ging daneben }
  46. END;
  47.  
  48. { ----------------------------------------------------------------- }
  49. { Hauptprogramm                                                        }
  50. { ----------------------------------------------------------------- }
  51. BEGIN                                        { ACS }
  52.     start_acs (init_acs, @ACSdescr);        { und los }
  53. END.