[Oberon] ETH Oberon, source NetSystem.SetUser*.

[R. S. Doiel]

I was thinking the password inone of the few modal interactions. If so you
need to handle the case where the password command is envoked but the user
decided not to enter it. Could that be the reason?


...

IF pwd[0] = 0X THEN (* no pwd specified *)
 IF entered[0] = 0X THEN (* prompt first time *)
    InputStr("Enter password: ", FALSE, entered);
    IF entered[0] = 0X THEN RETURN END (* esc *)
 END;

...
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.inf.ethz.ch/pipermail/oberon/attachments/20210606/2b462544/attachment.html>