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 / bootloader / zipl / widgets.ycp
Encoding:
Text File  |  2006-11-29  |  1.4 KB  |  78 lines
  1. /**
  2.  * File:
  3.  *      include/bootloader/zipl/widgets.ycp
  4.  *
  5.  * Module:
  6.  *      Bootloader installation and configuration
  7.  *
  8.  * Summary:
  9.  *      Widgets specific for ZIPL bootloader
  10.  *
  11.  * Authors:
  12.  *      Jiri Srain <jsrain@suse.cz>
  13.  *
  14.  * $Id: widgets.ycp 27748 2006-02-08 15:15:11Z jplack $
  15.  *
  16.  */
  17.  
  18.  
  19. {
  20.  
  21. textdomain "bootloader";
  22.  
  23. import "Label";
  24. import "Mode";
  25. import "BootCommon";
  26. import "TablePopup";
  27. include "bootloader/routines/popups.ycp";
  28.  
  29.  
  30. /**
  31.  * Init function of widget
  32.  * @param widget string id of the widget
  33.  */
  34. void ZIPLTargetInit (string widget) {
  35.     UI::ChangeWidget (`id (widget), `Value,
  36.     BootCommon::current_section["target"]:"");
  37. }
  38.  
  39. /**
  40.  * Store function of a widget
  41.  * @param widget string widget key
  42.  * @param event map event that caused the operation
  43.  */
  44. void ZIPLTargetStore (string widget, map event) {
  45.     BootCommon::current_section["target"] = (string)
  46.     UI::QueryWidget (`id (widget), `Value);
  47. }
  48.  
  49. /**
  50.  * Cache for Widgets function
  51.  */
  52. map<string,map<string,any> > _widgets = nil;
  53.  
  54. /**
  55.  * Get widgets specific for ZIPL
  56.  * @return a map describing all ZIPL-specific widgets
  57.  */
  58. global map<string,map<string,any> > Widgets () {
  59.     if (_widgets == nil)
  60.     {
  61.     _widgets = $[
  62.         // ugly, but then there is no need to replace dialog
  63.         // used for ZIPL target
  64.         "vga" : $[
  65.         // text entry
  66.         "label" : _("ZIPL &Target"),
  67.         "widget" : `textentry,
  68.         "init" : ZIPLTargetInit,
  69.         "store" : ZIPLTargetStore,
  70.         ],
  71.     ];
  72.     }
  73.     return _widgets;
  74. }
  75.  
  76.  
  77. }
  78.