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 / inst_test_workflow.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  808 b   |  37 lines
  1. /**
  2.  * Module:    inst_info.ycp
  3.  *
  4.  * Authors:    Arvin Schnell <arvin@suse.de>
  5.  *
  6.  * Purpose:    Show info in existent.
  7.  *
  8.  * $Id: inst_test_workflow.ycp 27936 2006-02-13 20:01:14Z olh $
  9.  */
  10.  
  11. {
  12.  
  13.     textdomain "installation";
  14.  
  15.     import "Label";
  16.     import "Report";
  17.     import "Wizard";
  18.     import "ProductControl";
  19.     import "GetInstArgs";
  20.  
  21.     map args = GetInstArgs::argmap();
  22.  
  23.     string caption = "Client: " + args["step_name"]:"none";
  24.     string help = "Nothing here";
  25.  
  26.     term contents = `VBox(
  27.             `Label("id: " + args["step_id"]:"none" )
  28.             );
  29.  
  30.     //Wizard::SetContents (caption, contents, help, GetInstArgs::enable_back(), GetInstArgs::enable_next());
  31.     Wizard::SetContents (caption, contents, help, true, true);
  32.  
  33.     symbol button = (symbol) UI::UserInput();
  34.  
  35.     return button;
  36. }
  37.