home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / Namnlös.e < prev    next >
Encoding:
Text File  |  1999-09-27  |  390 b   |  26 lines
  1. OPT MODULE
  2.  
  3. MODULE '*/leifoo/mythread'
  4.  
  5. OBJECT thread
  6.    mothertask
  7.    isrunning:INT
  8.    proctobethread
  9. ENDOBJECT
  10.  
  11. PROC thread(proc) OF thread
  12.    self.proctobethread := proc
  13.    self.mothertask := FindTask(0)
  14.    self.isrunning := FALSE
  15. ENDPROC
  16.  
  17. PROC start(pri=NIL, tags=NIL) OF thread
  18.    birth(self.proctobethread, pri, tags)
  19. ENDPROC
  20.  
  21. PROC ready() OF thread IS cutstring(self.mothertask)
  22.  
  23.  
  24.  
  25.  
  26.