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 / installation.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  769 b   |  43 lines
  1. /**
  2.  * Module:    installation.ycp
  3.  *
  4.  * Authors:    Lukas Ocilka <locilka@suse.cz>
  5.  *
  6.  * Purpose:    Visual speeding-up the installation.
  7.  *        This client only initializes the UI
  8.  *        and calls the real installation.
  9.  *
  10.  * $Id:$
  11.  */
  12.  
  13. {
  14.     import "Wizard";
  15.     
  16.     // Initialize the UI
  17.     Wizard::CreateDialog ();
  18.     Wizard::SetContents (
  19.     // title
  20.     "",
  21.     // contents
  22.     `Empty(),
  23.     // help
  24.     "",
  25.     // has back
  26.     false,
  27.     // has next
  28.     false
  29.     );
  30.     Wizard::SetTitleIcon ("yast-inst-mode");
  31.     Wizard::DisableAbortButton ();
  32.  
  33.     // Call the real installation
  34.     y2milestone("=== installation ===");
  35.     any ret = WFM::CallFunction("installation_worker", WFM::Args());
  36.     y2milestone("=== installation ===");
  37.  
  38.     // Shutdown the UI
  39.     Wizard::CloseDialog();
  40.  
  41.     return ret;
  42. }
  43.