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 / include / runlevel / wizard.ycp < prev   
Text File  |  2006-11-29  |  3KB  |  132 lines
  1. /**
  2.  * File:    wizard.ycp
  3.  * Module:    System Services (Runlevel) (formerly known as Runlevel Editor)
  4.  * Summary:    Wizards definitions
  5.  * Authors:    Petr Blahos <pblahos@suse.cz>, 2001
  6.  *        Martin Lazar <mlazar@suse.cz>, 2004
  7.  *
  8.  * $Id: wizard.ycp 29302 2006-03-23 08:13:06Z locilka $
  9.  *
  10.  */
  11. {
  12. textdomain "runlevel";
  13.  
  14. import "RunlevelEd";
  15. import "Wizard";
  16. import "Sequencer";
  17. import "Confirm";
  18.  
  19. include "runlevel/ui.ycp";
  20.  
  21. symbol ReadDialog() ``{
  22. //    Wizard::RestoreHelp(HELPS["read"]:"");
  23.  
  24.     // checking for root permissions
  25.     if (!Confirm::MustBeRoot())
  26.     return `abort;
  27.  
  28.     boolean ret = RunlevelEd::Read();
  29.     return ret ? `next : `abort;
  30. }
  31.  
  32. /**
  33.  * Write settings dialog
  34.  * @return `abort if aborted and `next otherwise
  35.  */
  36. symbol WriteDialog() ``{
  37. //    Wizard::RestoreHelp(HELPS["write"]:"");
  38.     boolean ret = RunlevelEd::Write();
  39.     return ret ? `next : `abort;
  40. }
  41.  
  42.  
  43. symbol MainSequence() {
  44.  
  45.     map aliases = $[
  46.         "complex" : ``(ComplexDialog ()),
  47.     "simple" : ``(SimpleDialog ()),
  48.     ];
  49.  
  50.     map main_sequence = $[
  51.     "ws_start" : "simple", //TODO implement DecideComplexity
  52.     "simple" : $[
  53.             `next : `finish,
  54.         `abort : `abort,
  55.             `complex : "complex",
  56.     ],
  57.     "complex" : $[
  58.             `next : `finish,
  59.         `abort : `abort,
  60.             `simple : "simple",
  61.     ],
  62.     ];
  63.  
  64.  
  65.     symbol ret = Sequencer::Run (aliases, main_sequence);
  66.     
  67.     return ret;
  68.  
  69. }
  70.  
  71. symbol RunlevelSequence() {
  72.  
  73.     map aliases = $[
  74.     "read"  : [ ``( ReadDialog() ), true ],
  75.     "main"    :   ``( MainSequence() ),
  76.     "write" : [ ``( WriteDialog() ), true ]
  77.     ];
  78.  
  79.     map sequence = $[
  80.     "ws_start" : "read",
  81.     "read" : $[
  82.         `abort    : `abort,
  83.         `next    : "main"
  84.     ],
  85.     "main" : $[
  86.         `cancel    : `abort,
  87.         `abort    : `abort,
  88.         `finish    : "write"
  89.     ],
  90.     "write" : $[
  91.         `abort    : `abort,
  92.         `next    : `next
  93.     ]
  94.     ];
  95.  
  96.     Wizard::CreateDialog ();
  97.     Wizard::SetDesktopIcon("runlevel");
  98.     Wizard::DisableBackButton ();
  99.     Wizard::RestoreHelp (getHelpProgress ());
  100.  
  101.     symbol ret = Sequencer::Run (aliases, sequence);
  102.  
  103.     UI::CloseDialog();
  104.     return ret;
  105. }
  106.  
  107. symbol RunlevelAutoSequence() {
  108.  
  109.     map aliases = $[
  110.     "auto" :          ``(AutoDialog ()),
  111.     ];
  112.  
  113.     map auto_sequence = $[
  114.     "ws_start" : "auto",
  115.     "auto" : $[ `next : `finish, `abort : `abort ],
  116.     ];
  117.  
  118.  
  119.     Wizard::CreateDialog ();
  120.     Wizard::SetDesktopIcon("runlevel");
  121.     Wizard::DisableBackButton ();
  122.     Wizard::RestoreHelp (getHelpProgress ());
  123.  
  124.     symbol ret = Sequencer::Run (aliases, auto_sequence);
  125.     
  126.     UI::CloseDialog();
  127.     return ret;
  128.  
  129. }
  130.  
  131. }
  132.