home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser-CD 1999 January / STC_CD_01_1999.iso / heft1298 / ins_list.txt
Text File  |  2000-01-08  |  871b  |  49 lines
  1. Insider-Artikel Heft 12/98:
  2.  
  3. Listing 1
  4. =========
  5.  
  6. int appl_xgetinfo(int type, int *out1, int *out2, int *out3, int *out4)
  7. {
  8.     static int has_agi = ((_GemParBlk.global[0] == 0x0399
  9.                              && get_cookie('MagX',NULL))
  10.                              || (_GemParBlk.global[0] >= 0x0400)
  11.                              || (appl_find("?AGI") >= 0));
  12.  
  13.     return(has_agi ? appl_getinfo(type,out1,out2,out3,out4) : 0);
  14. }
  15.  
  16.  
  17.  
  18. Listing 2
  19. =========
  20.  
  21.     int out1,out2,out3,out4;
  22.     int has_magic_objects = 0;
  23.  
  24.     if (appl_xgetinfo(13,&out1,&out2,&out3,&out4))
  25.     {
  26.         has_magic_objects = (out4 & 0x0004);
  27.     }
  28.     
  29.     if (has_magic_objects)
  30.     {
  31.         /* MagiC-kompatible Objekte vorhanden */
  32.     }
  33.     
  34.     
  35.  
  36. Listing 3
  37. =========
  38.  
  39. int out1,out2;
  40.     
  41.     if (objc_sysvar(0,MENUCOL,0,0,&out1,&out2))
  42.     {
  43.         /* in out1 steht der Farbindex *
  44.          * der Menü-Hintergrundfarbe   */
  45.     }
  46.  
  47.     
  48.     
  49.