home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
amigae
/
arismodules
/
blockinput
/
blockinput.e
next >
Wrap
Text File
|
1977-12-31
|
1KB
|
38 lines
OPT MODULE
MODULE 'exec/memory',
'intuition/intuition'
PROC copyListToChip(data)
DEF size, mem
size:=ListLen(data)*SIZEOF LONG
mem:=NewM(size, MEMF_CHIP)
CopyMemQuick(data, mem, size)
ENDPROC mem
EXPORT PROC beginWait(win, waitRequest,win_title=NIL)
DEF waitPointer
waitPointer:=copyListToChip([$00000000, -> Reserved, must be NIL
$040007C0, $000007C0, $01000380, $000007E0,
$07C01FF8, $1FF03FEC, $3FF87FDE, $3FF87FBE,
$7FFCFF7F, $7EFCFFFF, $7FFCFFFF, $3FF87FFE,
$3FF87FFE, $1FF03FFC, $07C01FF8, $000007E0,
$00000000 -> Reserved, must be NIL
])
InitRequester(waitRequest)
IF Request(waitRequest, win)
SetPointer(win, waitPointer, 16, 16, -6, 0)
IF win_title<>NIL THEN SetWindowTitles(win,win_title, -1)
RETURN TRUE
ELSE
RETURN FALSE
ENDIF
ENDPROC
EXPORT PROC endWait(win, waitRequest,win_title=NIL)
ClearPointer(win)
EndRequest(waitRequest, win)
IF win_title<>NIL THEN SetWindowTitles(win,win_title, -1)
ENDPROC