1 - Amiga Magazine Online

a individuare l'evento (è il caso del gadget di chiu-
sura della finestra, che quando attivato invia un
messaggio di classe IDCMP-CLOSEWINDOW che
non necessita di ulteriori indicazioni). Quando in-
vece la stessa classe comprende eventi diversi, il
codice permette di distinguerli in maniera più detta-
gliata (l'interpretazione dei valori di codice dipende
dalla classe: per esempio, codici ASC per
IDCMP-VANILLAKEY). Infine, il qualficatore ripor-
ta lo stato dei tasti modificatori (maiuscole, alt, con-
trol, amiga) nel momento in cui l'evento è stato ge-
nerato, e l'indirizzo è relativo a un qualche oggetto
di Intuition (dipende dalla classe per esempio, alla
classe IDCMP-GADGETUP corrisponde l'indirizzo
del gadget selezionato).
Le funzioni che E fornisce per ottenere queste
informazioni sono:
codice := MsgCode()
qualificatore := MsgQualifierO
indirizzo := MsgIaddr()
tutte fanno riferimento all'ultimo messaggio ricevuto
da WaitIMessage( ).
Con l'uso di queste funzioni, il ciclo principale di
un programma E che usi Intuition potrebbe essere
così strutturato:
WHILE (classe:=WaitIMessage(£inestra))o
IDCMP-CLOSEWINDOW
SELECT classe
CASE . . . ...
CASE . . . . . .
ENDSELECT
ENDWHILE
Potete ritrovare questa struttura nell'esempio del listato 2.
Funzioni relative al mouse
L'ultimo gruppo di funzioni che esamineremo è dedica-
to alla lettura del mouse. La posizione del puntatore ri-
spetto a una finestra può essere ottenuta tramite:
in cui W è il puntatore alla finestra; le coordinate riportate
sono espresse in termini di punti dello schermo. La lettu-
ra del pulsante sinistro del mouse è invece affidata alla
funzione:
CONST BUFSIZE=GADGETSIZE*3 -> Buffer per i gadget
-> Vogliamo sapere da Intuition:
CONST IDCMP_CLOSEWINDOW=$200, -> - quando l'utente chiude la finestrz
IDCMP_GADGETUP=$40, -> - quando l'utente preme un gadget
IDCMP RAWKEY=$400 -> - quando l'utente preme un tasto
-> La-finestra deve a;ere:
CONST WFLG-CLOSEGADGET=8, -> - il gadget di chiusura
WFLG-DRAGBAR=2 -> - la barra di spostamento
PROC main()
DEF w,class
DEF iflags,wflags
DEF gbuf[BUFSIZE]:ARRAY,next,gad
/* Costruisce i flag con l'OR dei valori definiti */
iflags:=IDCMP-CLOSEWINDOW OR IDCMP-GADGETUP OR IDCMP-RAWKEY
wflags:=WFLG-CLOSEGADGET OR WFLG-DRAGBAR
/* Crea i 3 gadget. Si noti l'uso di gbuf e next */
/* apre la finestra e attende i messaggi */
IF w:=0penW(0,10,500,70,iflags,wflags,'Finestra di E',NIL,l,gbuf)
SetTopaz(8)
WHILE (class:=WaitIMessage(w))~~IDCMPPCLOSEWINDOW
SELECT class
CASE IDCMP-GADGETUP -> E' stato premuto un gadget
gad:=MsgIaddr()
TextF(10,45,'IDCMP~ADGETUP')
TextF(10,55,'qual=$\z\h[4], ind=$\z\h[8] (Gadget\d[l],
flag=\d[3])',
MsgQualifier(),g~d,gad[43],gad[l3])
CASE IDCMP-RAWKEY -> E stato premuto un tasto
TextF(lO,45,'IDCMPWKEY ')
TextF(10,55,'qual=$\z\h[4], code=$\h[4], ind=$\z\h[8]
ENDSELECT
ENDWHILE
CloseW(w)
ENDIF
ENDPROC
istato 2.
MsgQualifier(),MsgCode(),MsgIaddr())
che ritorna TRUE (-1) se il tasto è premuto, FALSE (O) al-
trimenti. È anche possibile attendere la pressione del ta-
sto sinistro con una chiamata a:
che può tornare utile in molti semplici casi. Per finire, E
mette a disposizione una funzione di basso livello (non
tiene conto di Intuition, ma si limita a leggere i registri
hardware) per interrogare lo stato di entrambi i tasti del
mouse. Si tratta di:
che ritorna una maschera binaria: il bit O indica il tasto si-
nistro, il bit 1 il tasto destro e il bit 2 (I1eventuale) tasto
centrale. Attenzione, però: questa funzione non dovrebbe
essere usata in programmi "normali", a meno di non ri-
nunciare al corretto multitasking di AmigaOS.
Per questo mese ci fermiamo qui: nell'attesa della prossi-
ma puntata, in cui parleremo di eccezioni e allocazione
dinamica, potete provare a realizzare un semplice pro-
gramma di disegno usando le funzioni che abbiamo vi-
sto. Buon divertimento! A
l