URGENT cherche tuto RXmui

[sinisrus]

sinisrus

#9148

salut je cherche des tutos Rxmui pour avancé dans mon nouveau projet

j’aimerai savoir si parmi vous vous avez connaissance de tuto englais / français autre que sur les exemples d’alfi (le gars qui a fait rxmui)

– magazine

– site internet

merci d’avance

[sinisrus]

sinisrus

#140082

Voici le seul tuto français RxMui dispo sur obligement malheureusement il est bugé si quelqu’un pouvait faire la correction ça m’aiderai grandement dans mon apprentissage merci d’avance

/******** ligne obligatoire car c’est de l’ARexx *********/

l= »rmh.library »

if ~show(« L »,l) then

if ~addlib(l,0,-30) then exit

if AddLibrary(« rxmui.library »)~=0 then exit

call CreateApp

call HandleApp

/* never reached */

/*********************/

HandleApp: procedure

ctrl_c=2**12

do forever

call NewHandle(« app », »h »,ctrl_c)

if and(h.signals,ctrl_c)>0 then exit

select

when h.event= »QUIT » then exit

otherwise interpret h.event

end

end

/* never reached */

/********* Toutes les lignes ci-dessus sont obligatoires ************/

CreateApp: procedure

app.SubWindow= »WIN »

WIN.class= »bwin »

WIN.contents= »GROS_BOUTON »

GROS_BOUTON.CLASS »DTPIC »

GROS_BOUTON.transparent=1

GROS_BOUTON.inputmode= »relverify »

GROS_BOUTON.FILE= »DH0:Images/dessin.iff »

if NewObj(« Application », »app »)>0 then exit

call Notify(« GROS_BOUTON.0″, »pressed »,1, »app », »Return », »call AFFICHER »)

call Notify(« win », »CloseRequest »,1, »app », »ReturnID », »quit »)

call set(« WIN », »open »,1)

Return

/************************/

AFFICHER: procedure

say « CA MARCHE »

return

/************************/