!7

cmodule2 BEALogIn {
  S user, passwordStatus;
  
  visual
    makeForm3(
      "User", dm_textField user(),
      "Password", dm_label passwordStatus(),
      "", dm_button check());
      
  start {
    updatePasswordStatus();
  }
  
  S password() {
    ret loadTextFile(javaxSecretDir("bea-password.txt"));
  }
  
  void updatePasswordStatus {
    setField(passwordStatus := nempty(password()) ? "set" : "not set");
  }
  
  void check {
  
  }
}