Masquer le texte de l'Edit d'une fenetre Message_Input

dim a$
label mdp,action,etoile
button 50:caption 50,"Mot de passe":on_click 50,mdp
form 100:hide 100:left 100,100:top 100,100:width 100,286:height 100,140:caption 100,"Donnée à Entrer"
command_target_is 100
alpha 110:left 110,10:top 110,10:caption 110,"Indiquez votre code"
edit 120:left 120,10:top 120,30:width 120,250:on_change 120,etoile
button 130:left 130,50:top 130,60:caption 130,"OK":on_click 130,action
button 140:left 140,135:top 140,60:caption 140,"Cancel":on_click 140,action
end

mdp:
show 100
a$="":text 120,"":set_focus 120:secret_on 120
return

action:
if clicked(130)=1 then message "mot de passe "+a$+" accepté"
if clicked(140)=1 then hide 100
return

etoile:
a$=text$(120)
return

dim a$
label action

width 0, 290: height 0, 130 : caption 0,"Entrer le mot de passe"
edit 120:left 120,10:top 120,20:width 120,250:secret_on 120
button 130:left 130,80:top 130,50:caption 130,"OK":on_click 130,action
end

action:
  if clicked(130)=1 then a$=text$(120) : message "mot de passe "+a$+" accepté"
  a$="":text 120,"":set_focus 120
return

' mot_de_passe.bas

label ident, passnon, passoui

dim id$, pwd$, pwdok%

button 1 : top 1,10 : left 1,10 : caption 1,"Identifier" : on_click 1,ident



form 1000 : hide 1000 : caption 1000,"Identification" : width 1000,400
alpha 1001 : parent 1001,1000 : top 1001,20 : left 1001,10 : caption 1001,"Identifiant:"
edit 1002 : parent 1002,1000 : top 1002,20 : left 1002,150 : width 1002,200
alpha 1003 : parent 1003,1000 : top 1003,50 : left 1003,10 : caption 1003,"Mot de passe:"
edit 1004 : parent 1004,1000 : top 1004,50 : left 1004,150 : width 1004,200
  secret_on 1004
button 1005 : parent 1005,1000 : top 1005,80 : left 1005,10 : caption 1005,"Abandon"
  on_click 1005,passnon
button 1006 : parent 1006,1000 : top 1006,80 : left 1006,280 : caption 1006,"Validation"
  on_click 1006,passoui



end

ident:
  pwdok% = 0
  inactive 0
  show 1000
  return

passnon:
  hide 1000
  active 0
  to_foreground 0
  id$ = ""
  pwd$ = ""
  pwdok% = 0
  return
 
passoui:
  if text$(1002)="" then return
  if text$(1004)="" then return
  hide 1000
  active 0
  to_foreground 0
  id$ = text$(1002)
  pwd$ = text$(1004)
  pwdok% = 1
 
  message "id="+id$+"  pwd="+pwd$  : ' ligne à supprimer
 
  return