Forum » » Création-Développement » » MHE Beta
Posté : 18-11-2013 08:30
Fichier envoyé
Bizarre cette histoire sous Morphos!!!
Il y a des commandes avec lesquels ça fonctionne et d'autres non... Est-ce que Arexx est le même sous morphos ? Est-ce qu'il y a des commandes Arexx inconnu sous Morphos?
Ma partie est ici :
RECHERCHENODE:
if xget(lp,active)~=2 then do
Test=""
Aide=xget(ListingDesCommandes,activeentry)
Test=Left(Aide,1)
If Test="@" then do
Test="at"
Aide=Test""Aide
end
AideModifier=compress(Aide,".()@")
CheminDuGuide="Hollywood:Help/"
FichierDuGuide="Hollywood.guide"
If AideGuide=1 then CheminDuGuide="Hollywood:Help/"
If AideGuide=1 then FichierDuGuide="Hollywood.guide"
if AideGuide=2 then CheminDuGuide="MUIRoyale
ocs/"
if AideGuide=2 then FichierDuGuide="MUIRoyale.guide"
call domethod("app","ShowHelp","win",CheminDuGuide""FichierDuGuide,AideModifier)
end
return
J'avoue que les tests if sont lourdingue, mais j'optimise pas encore le code, je veux déjà que ça fonctionne aussi bien sous Morphos que sur AOS
Je pense que c'est peut être la commande Arexx "Compress" qui embête le monde... Vous en pensez quoi de ce bout de code?
Merci de l'aide et des retours
Pour ceux qui ont Morphos, l'archive est à la même adresse, même lien
Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=1662&forum=14