---

Forum » » Création-Développement » » Editeur Hollywood

---

Posté : 13-05-2013 09:46

Pour ouvrir une fenêtre :

Il faut :
-la créér
-l'ajouter à l'app
-lui mettre un Notify pour la fermeture (Dispose)
-l'ouvrir

J'avais fait ce truc il y a qq mois, il fonctionnait mais je ne l'ai pas retesté.

Voila, dis moi si ça marche !


????app.SubWindow.1="cwin"
?????cwin.ID="CWIN"
?????cwin.Title="fenetre?2"
?????cwin.Contents="cmgroup"
????????cmgroup.FixHeight=800????
?????????cmgroup.FixWidth=600????
?????cmgroup.0="groupeChaine2"
???????????????????groupeChaine2.class="group"??????????????????
????????????????????groupeChaine2columns=2
????????????????????groupeChaine2.0=label("Texte?:")
????????????????????groupeChaine2.1="textChaine2"
?????????????????????????textChaine2.class="string"
??????????????????????textChaine2.frame="text"
?????????????????????????textChaine2.background="textback"
?????????????????????????textChaine2.contents="zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz z"

???obj=NewObj("window","cwin")

???call?DoMethod("cmgroup","InitChange")?
???call?add("app","cwin")
???call?Notify("cwin","CloseRequest",1,"app","Return","call?CloseFonction")
???call?DoMethod("cmgroup","ExitChange")

???call?set("cwin","Open",1)


et surtout ne pas oublier de la Disposer à la fin sinon AOS ne va pas aimer


CloseFonction:?procedure?expose?.?


??call?DoMethod("cmgroup","InitChange")
??????call?remove(cwin)
????call?KillNotify("cwin","app")
????call?Dispose("cwin")
?return




Message édité par : zzd10h / 13-05-2013 09:47

---

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=1507&forum=14