1 - Amiga Magazine Online

Colour(primo piano, sfondo=O)
che imposta i colori di primopiano e di sfondo per tutte
le funzioni che non hanno un parametro colore esplicito,
come per esempio la TextF( ). I parametri devono indica-
re il numero di registro colore che si intende utilizzare, il
cui valore è limitato dal tipo di schermo su cui si opera.
Per finire, è possibile cambiare la rastport di disegno con
la funzione:
vecchia := SetStdRast(nuova)
che imposta stdmst a nuova, e al tempo stesso ritorna il
vecchio valore. nuova deve essere una RastPort valida,
che puo essere ottenuta dal campo rastport di uno scher-
mo o dal campo vport di una finestra.
Nel listato 1 potete vedere un semplice esempio di uso
di queste funzioni, che mette a frutto quanto abbiamo
già appreso riguardo alla ricorsione;per inciso, notate co-
me tutti i triangoli siano disegnati da Box( ), che traccia
soltanto rettangoli!
PROC main()
DEF s
IF s:=0penS(640,512,1,$8004,'Schenno di E')
ric1(60,20,240)
Delay(500)
CloseS ( s )
ENDIF
ENDPROC
PROC ricl(x,y,len)
IF len>O
Box(x,y,x+len,y+len)
ricl(x+len,y,len/Z)
ricl(x+len,y+len,len/Z)
ricl(x,y+len,len/2)
ENDIF
ENDPROC
Gadget e altro
Abbiamo visto che la OpenW( ) ha fra i suoi parametri
un puntatore a una lista di gadget. Questa lista può esse-
re costruita "a mano", come era d'uso con 1'AmigaOS 1.3,
compilando le strutture gadget di Intuition, oppure trami-
te il ricorso alla gadtools.library o ad altre librerie analo-
ghe, non ultima la "EasyGUI" di E, di cui parleremo in
futuro.
Per evitare queste complicazioni, E offre la funzione
Gadget( ), i cui parametri sono i seguenti:
nuovobuf:=Gadget( precbuf, buffer, id,
tipo, x, Y,
larghezza, testo )
i parametri precbuf e buffer servono alla funzione per
costruire la lista di gadget, e vedremo fra poco un esem-
pio del loro uso; basterà dire che il buffer allocato deve
avere dimensione pari al prodotto del numero di gadget
che si intendono allocare per la costante predefinita
GADGETSIZE. L'id è semplicemente un identificatore nu-
merico che serve a riconoscere il gadget, mentre tipo in-
dica (appunto) il tipo di di gadget: O indica un normale
"pulsante", 1 indica un pulsante booleano e 3 un pulsan-
te booleano selezionato. Come già per le altre funzioni, x
e y indicano le coordinate del gadget, relative alla fine-
stra, e 1ar;ghezza deve essere sufficiente a contenere il te-
sto indicato.
Purtroppo, la funzione Gadget( ) può soltanto creare p~il-
santi (i cosiddetti "button gadget"), ma nessuno degli altri
tipi ormai familiari (liste, "radio button", "checkmark",
ecc.). inoltre, i gadget creati sono particolarmente brutti,
e non esibiscono il look 3D che caratterizza tutto l'Ami-
gaOS dalla versione 2: in altre parole, è bene usare la
Gadget( ) soltanto in utility estremamente semplici, o a
scopo personale, preferendo l'uso della gadtools.library o
di una delle sue equivalenti per programmi destinati a
una piti ampia diffusione.
Ed eccoci finalmente alla ricezione e interpretazione dei
messaggi di Intuition, richiesti tramite i flag IDCMP della
finestra. La funzione più interessante che E mette a di-
sposizione a questo riguardo è:
che preleva un messaggio, sospendendo l'applicazione
finché esso non arriva. Ciascun messaggio trasporta quat-
tro informazioni fondamentali, dette classe (class), codice
(code), qualficatore (qualifier) e indirizzo (address). La
classe indica il tipo di evento che si è verificato, e corri-
sponde ai jlag IDCMP; spesso la sola classe è sufficiente