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 / hwinfo / system_settings_ui.ycp < prev   
Encoding:
Text File  |  2006-11-29  |  3.4 KB  |  147 lines
  1. /**
  2.  *
  3.  * Module:    System Settings UI Handling
  4.  *
  5.  * Author:    Lukas Ocilka <locilka@suse.cz>
  6.  *
  7.  * $Id: system_settings_ui.ycp 33530 2006-10-20 11:08:26Z lslezak $
  8.  *
  9.  * System Settings for PCI ID, I/O Scheduler, Serial Console, etc.
  10.  */
  11.  
  12. {
  13.     import "Progress";
  14.     import "SystemSettings";
  15.  
  16.     // ReadSettings()
  17.     include "hwinfo/newid.ycp";
  18.  
  19.     textdomain "tune";
  20.  
  21.     /* Short sleep between reads or writes */
  22.     integer sl = 500;
  23.  
  24.     define symbol ReadSystemSettingsDialog () {
  25.     string caption = _("Reading the Configuration");
  26.  
  27.     // FIXME: s390: disable reading PCI IDs
  28.     Progress::New ( caption, " ", 2, [
  29.             _("Read the PCI ID settings"),
  30.         _("Read the system settings"),
  31.         ],
  32.         [
  33.         _("Reading the PCI ID settings..."),
  34.             _("Reading the system settings..."),
  35.             _("Finished"),
  36.         ],
  37.         _("<p><b><big>Reading the Configuration</big></b><br>
  38. Please wait...</p>")
  39.     );
  40.  
  41.     boolean progress_orig = nil;
  42.  
  43.     Progress::NextStage();
  44.     progress_orig = Progress::set(false);
  45.     // calling PCI ID Read()
  46.     ReadSettings();
  47.     Progress::set(progress_orig);
  48.  
  49.     Progress::NextStage();
  50.     progress_orig = Progress::set(false);
  51.     /*
  52.      * I have to admit that this is very ugly but it is here
  53.      * to avoid of the very long starting time of the yast module
  54.      * because the Storage module (which is imported by the Bootloader (imported by the SystemSettings module))
  55.      * has a Read() function call in its constructor.
  56.      */
  57.     SystemSettings::Read();
  58.     Progress::set(progress_orig);
  59.  
  60.     Progress::NextStage();
  61.     sleep(2 * sl);
  62.  
  63.     return `next;
  64.     }
  65.  
  66.     define symbol WriteSystemSettingsDialog () {
  67.     string caption = _("Saving the Configuration");
  68.     Progress::New ( caption, " ", 2, [
  69.             _("Save the PCI ID settings"),
  70.         _("Save the system settings"),
  71.         ],
  72.         [
  73.         _("Saving the PCI ID settings..."),
  74.             _("Saving the system settings..."),
  75.             _("Finished"),
  76.         ],
  77.         _("<p><b><big>Saving the Configuration</big></b><br>
  78. Please wait...</p>")
  79.     );
  80.  
  81.     boolean progress_orig = nil;
  82.  
  83.     Progress::NextStage();
  84.     progress_orig = Progress::set(false);
  85.     // calling PCI ID Write()
  86.     WriteSettings();
  87.     Progress::set(progress_orig);
  88.  
  89.     sleep(sl);
  90.  
  91.     Progress::NextStage();
  92.     progress_orig = Progress::set(false);
  93.  
  94.     // activate the current configuration
  95.     SystemSettings::Activate();
  96.  
  97.     // save the configuration
  98.     SystemSettings::Write();
  99.  
  100.     Progress::set(progress_orig);
  101.  
  102.     Progress::NextStage();
  103.     sleep(2 * sl);
  104.  
  105.     return `next;
  106.     }
  107.  
  108.  
  109.     define symbol HandleElevatorSettings (string key, map event) {
  110.     y2milestone("Key: %1, Event: %2", key, event);
  111.     return nil;
  112.     }
  113.  
  114.     void InitElevatorSettings(string value)
  115.     {
  116.     UI::ChangeWidget(`id("elevator"), `Value, SystemSettings::GetIOScheduler());
  117.     }
  118.  
  119.     void StoreElevatorSettings(string key, map event)
  120.     {
  121.     y2milestone("Key: %1, Event: %2", key, event);
  122.     string elevator_new = (string) UI::QueryWidget(`id("elevator"), `Value);
  123.  
  124.     SystemSettings::SetIOScheduler(elevator_new);
  125.     }
  126.  
  127.     define void InitSysRqSettings (string key) {
  128.     UI::ChangeWidget(`id("sysrq"), `Value, SystemSettings::GetSysRqKeysEnabled());
  129.     }
  130.  
  131.     define void StoreSysRqSettings (string key, map event) {
  132.     y2milestone("Key: %1, Event: %2", key, event);
  133.  
  134.     boolean sysrq_new = (boolean) UI::QueryWidget(`id("sysrq"), `Value);
  135.     if (SystemSettings::GetSysRqKeysEnabled() != sysrq_new) {
  136.         SystemSettings::SetSysRqKeysEnabled(sysrq_new);
  137.     }
  138.     }
  139.  
  140.     define symbol HandleSerialConsoleSettings (string key, map event) {
  141.     y2milestone("Key: %1, Event: %2", key, event);
  142.     return nil;
  143.     }
  144.  
  145. }
  146.  
  147.