“doc” (Col. : Science Sup 17x24) — 2007/7/19 — 18:18 — page 165 — #175
i
i
i
i
i
i
i
i
3.7 Les besoins non déclaratifs
165
declare In Out
A1=proc {$} X in {In get(X)} {Out set(X)} end
A2=proc {$} {W close} end
D=td(title:"Simple text I/O interface"
lr(label(text:"Input :")
text(handle:In tdscrollbar:true glue:nswe)
glue:nswe)
lr(label(text:"Output :")
text(handle:Out tdscrollbar:true glue:nswe)
glue:nswe)
lr(button(text:"Do It" action:A1 glue:nswe)
button(text:"Quit" action:A2 glue:nswe)
glue:we))
W={QTk.build D} {W show}
Figure 3.14 Une interface graphique simple pour l’entrée/sortie du texte.
Figure 3.15 Une capture d’écran de l’interface.
a six gadgets (deux label, deux text, deux button) arrangés avec td et lr. La
fonction QTk.build prend la description D, construit la fenêtre et crée les objets
manipulateurs In et Out. Comparez l’enregistrement D de la figure 3.14 avec la
capture d’écran dans la figure 3.15.
Il y a deux procédures d’action, A1 et A2, une pour chaque bouton. L’action A1 est
attachée au bouton « Do It ». Cliquer sur le bouton appelle A1, ce qui transfère du
texte du premier gadget texte vers le deuxième gadget texte. L’appel {In get(X)}
obtient le texte du premier gadget texte et le renvoie dans X. Ensuite {Out set(X)}
met le texte X dans le deuxième gadget texte. L’action A2 est attachée au bouton
« Quit ». Elle appelle {W close}, ce qui ferme la fenêtre de façon permanente.
© Dunod – La photocopie non autorisée est un délit