URGENT cherche tuto RXmui

• 

  sinisrus

  11 décembre 2010 à 11h29 #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

  17 décembre 2010 à 12h06 #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

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