home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / ArisModules / Blockinput / blockinput.e next >
Text File  |  1995-08-18  |  1KB  |  38 lines
  1. OPT MODULE
  2.  
  3. MODULE 'exec/memory',
  4.        'intuition/intuition'
  5.  
  6. PROC copyListToChip(data)
  7.   DEF size, mem
  8.   size:=ListLen(data)*SIZEOF LONG
  9.   mem:=NewM(size, MEMF_CHIP)
  10.   CopyMemQuick(data, mem, size)
  11. ENDPROC mem
  12.  
  13. EXPORT PROC beginWait(win, waitRequest,win_title=NIL)
  14.   DEF waitPointer
  15.   waitPointer:=copyListToChip([$00000000,   -> Reserved, must be NIL
  16.                                $040007C0,  $000007C0,  $01000380,  $000007E0,
  17.                                $07C01FF8,  $1FF03FEC,  $3FF87FDE,  $3FF87FBE,
  18.                                $7FFCFF7F,  $7EFCFFFF,  $7FFCFFFF,  $3FF87FFE,
  19.                                $3FF87FFE,  $1FF03FFC,  $07C01FF8,  $000007E0,
  20.                                $00000000    -> Reserved, must be NIL
  21.                               ])
  22.   InitRequester(waitRequest)
  23.   IF Request(waitRequest, win)
  24.     SetPointer(win, waitPointer, 16, 16, -6, 0)
  25.     IF win_title<>NIL THEN SetWindowTitles(win,win_title, -1)
  26.     RETURN TRUE
  27.   ELSE
  28.     RETURN FALSE
  29.   ENDIF
  30. ENDPROC
  31.  
  32. EXPORT PROC endWait(win, waitRequest,win_title=NIL)
  33.   ClearPointer(win)
  34.   EndRequest(waitRequest, win)
  35.   IF win_title<>NIL THEN SetWindowTitles(win,win_title, -1)
  36. ENDPROC
  37.  
  38.