home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / python / !Python / Lib / RiscLib / py / colourdbox next >
Encoding:
Text File  |  1995-09-25  |  682 b   |  28 lines
  1. # Colour dbox interface
  2.  
  3. from swi import *
  4. from toolbox import *
  5.  
  6. cblock=block(2,[0,0])
  7. cmblock=block(2,[4,0])
  8.  
  9. class ColourDBox(TBObject):
  10.       def setcolour(self,colour):
  11.           global cblock
  12.           if colour&0xff:
  13.              swi(0x64ec6,"1ii0",self.id,2)
  14.           else:
  15.              cblock[1]=colour
  16.              swi(0x44ec6,"0iib",self.id,2,cblock)
  17.       def getcolour(self):
  18.           global cblock
  19.           none=swi(0x64ec6,"0iibi;i",self.id,3,cblock,8)
  20.           if none&1: 
  21.              return -1
  22.           return cblock[0]
  23.       def setcolourmodel(self,model):
  24.           global cmblock
  25.           cmblock[1]=model
  26.           swi(0x64ec6,"0iib",self.id,4,cmblock)
  27.  
  28.