Mais ça concerne le GEM/AES !
Pour faire simple, si par exemple je reprend la routine de Claude Attard pour faire un REDRAW d'une fenêtre :
PROCEDURE redraw(f&,x&,y&,w&,h&)
LOCAL rx&,ry&,rw&,rh&,rdx&,rdy&,rdw&,rdh&,index&,xw&,yw&,ww&,hw&,fen&,yz&,hz&
fen&=f&
rdx&=x& ! Coordonn‚es rectangle … redessiner
rdy&=y&
rdw&=w&
rdh&=h&
~WIND_GET(fen&,4,xw&,yw&,ww&,hw&)
yz&=yw&+OB_H(adr_wmenu%,2)
hz&=hw&-OB_H(adr_wmenu%,2)
HIDEM
~WIND_UPDATE(1) ! Bloquer les fonctions de la souris
' Demande les coord. et dimensions du 1ø rectangle de la liste
~WIND_GET(buf&(3),11,rx&,ry&,rw&,rh&)
WHILE (rw& OR rh&) ! Tant qu'il y a largeur ou hauteur...
' Si intersection des deux zones
IF RC_INTERSECT(rdx&,rdy&,rdw&,rdh&,rx&,ry&,rw&,rh&)
' On commence par afficher la barre de menu
~OBJC_DRAW(adr_wmenu%,1,8,rx&,ry&,rw&,rh&)
CLIP rx&,ry&,rw&,rh& ! Clipping ON
'
GRAPHMODE 0
DEFFILL 0,0,0
PBOX xw&,yz&,xw&+ww&-1,yz&+hz&-1
TEXT xw&+10,yz&+10,"HELLO WORLD !"
'
CLIP OFF
ENDIF
' Rectangle suivant
~WIND_GET(fen&,12,rx&,ry&,rw&,rh&)
WEND
~WIND_SET(hwind&,2,CARD(SWAP(V:titre$)),CARD(V:titre$),0,0)
~WIND_UPDATE(0) ! D‚bloquer les fonctions de la souris
SHOWM ! Rappeler la souris
RETURN
Et bien celà fonctionne très bien sur un STE ou Falcon de base, la fenêtre est bien blanche !
MAIS sur un FALCON avec MINT+MYAES ou XAAES, bhé celà ne fonctionne pas !
Le fond de la fenetre reste désespérement vide et se remplie au fur et a mesure de tout ce qui peux passer devant !
Par contre le TEXT est bien pris en compte... C'est vraiment le PBOX qu'il n'aime pas !
Voilà pour la question !
