home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma37.dms / ma37.adf / ColorsRT / ColorsRT.e < prev    next >
Encoding:
Text File  |  1995-05-09  |  1.4 KB  |  42 lines
  1.  
  2. /*                              ColorsRT                                  */
  3.  
  4. /*                         Autor:  Piotr Godek                            */
  5.  
  6. /* Program zastëpuje inny,o nazwie Colors,znajdujâcy sië w katalogu Tools */
  7.  
  8. MODULE 'intuition/intuition','intuition/screens','intuition/intuitionbase',
  9.        'reqtools','libraries/reqtools','gadtools','libraries/gadtools'
  10.  
  11. ENUM ER_NONE,ER_KICK,ER_REQ,ER_GAD,ER_VIS
  12.  
  13. DEF scr:PTR TO screen,ibase:PTR TO intuitionbase,vis,lock
  14.  
  15. PROC main() HANDLE
  16.  VOID '$VER: Colors 2.0 (17.03.95) by Peter Godek'
  17.  IF KickVersion(37)=0 THEN Raise(ER_KICK)
  18.  IF (reqtoolsbase:=OpenLibrary('reqtools.library',38))=0 THEN Raise(ER_REQ)
  19.  IF (gadtoolsbase:=OpenLibrary('gadtools.library',37))=0 THEN Raise(ER_GAD)
  20.  lock:=LockIBase(0)
  21.  ibase:=intuitionbase
  22.  scr:=ibase.firstscreen
  23.  UnlockIBase(lock)
  24.  IF (vis:=GetVisualInfoA(scr,0))=0 THEN Raise(ER_VIS)
  25.  RtPaletteRequestA('Select colors',0,[RTPA_COLOR,0,RT_SCREEN,scr,0])
  26.  Raise(ER_NONE)
  27. EXCEPT
  28.  IF vis THEN FreeVisualInfo(vis)
  29.  IF reqtoolsbase THEN CloseLibrary(reqtoolsbase)
  30.  IF gadtoolsbase THEN CloseLibrary(gadtoolsbase)
  31.  SELECT exception
  32.         CASE ER_KICK
  33.              WriteF('Required Kickstart V37 or higher !!!\n')
  34.         CASE ER_REQ
  35.              WriteF('Couldn''t open reqtools.library v38+ !!!\n')
  36.         CASE ER_REQ
  37.              WriteF('Couldn''t open gadtools.library v37+ !!!\n')
  38.         CASE ER_REQ
  39.              WriteF('Couldn''t lock visual info !!!\n')
  40.  ENDSELECT
  41. ENDPROC
  42.