home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / root / usr / share / YaST2 / clients / password.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  779 b   |  37 lines
  1. /**
  2.  * File:    clients/password.ycp
  3.  * Package:    yast2
  4.  * Summary:    Ask user for password
  5.  * Authors:    Michal Svec <msvec@suse.cz>
  6.  *
  7.  * $Id: password.ycp 14119 2004-02-11 10:03:43Z msvec $
  8.  *
  9.  * Return the password, if user entered one.
  10.  * Return nil, if user canceled or closed the window.
  11.  */
  12.  
  13. {
  14.  
  15. textdomain "base";
  16. import "Label";
  17.  
  18. term contents = `VBox(
  19.     /* TextEntry label */
  20.     `Password(`id(`pw), _("&Enter Password:")),
  21.     `HBox(
  22.     `PushButton(`id(`ok), `opt(`hstretch, `default), Label::OKButton()),
  23.     `PushButton(`id(`cancel), `opt(`hstretch), Label::CancelButton())
  24.     )
  25. );
  26.  
  27. UI::OpenDialog(contents);
  28. UI::SetFocus(`id(`pw));
  29. string ret = nil;
  30. if(UI::UserInput() == `ok)
  31.     ret = (string) UI::QueryWidget(`id(`pw), `Value);
  32. UI::CloseDialog();
  33. return ret;
  34.  
  35. /* EOF */
  36. }
  37.