home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd2.bin / suse / inst-sys / lib / YaST2 / clients / inst_update.ycp < prev    next >
Encoding:
Text File  |  2000-03-30  |  421 b   |  25 lines
  1. {
  2.     term contents = `Label ( "Update" );
  3.   
  4.   UI(`SetWizardContents(_("Dummy"), contents,
  5.  
  6. _("<p>
  7. This is a dummy test module.
  8. It does nothing.
  9. </p>
  10. <p>
  11. Should you ever read this text in a real YaST2 environment (even
  12. during Beta testing), please report it immediately. 
  13. </p>
  14. "), Args(0), Args(1)));
  15.  
  16.   any ret = nil;
  17.  
  18.   repeat
  19.   {
  20.     ret = UI(`UserInput());
  21.   } until (ret == `next || ret == `back);
  22.  
  23.   return ret;
  24. }
  25.