% Nom du fichier: Password.sim % Description: Exemple d'utilisation d'ItemWindows % On demande un nom d'usager et un mot de passe % Le texte inscrit comme mot de passe sera cache par des '*' % Auteur: JPH % Date: Le 29 juillet 1997 % Version: 1.1 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow ("Login") DO BEGIN REF(Button) OK; REF(TextItemWindow) Login; REF(TextItemWindow) Password; SetSize(300, 120); Login :- MakeTextItem("Login", 10).PlaceAt(100, 10); Password :- MakeTextItem("Password", 15).PlaceBelow(Login); Password.NoEcho; !Le mot de passe sera cache ("bulleted"); OK :- MakeButton("OK").PlaceDownRight; Show; OK.wait; % Affichage des valeurs courantes OutText("Login: " & Login.Get); OutImage; OutText("Password: " & Password.Get); OutImage; END; END;