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 / vm_options_proposal.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  1.2 KB  |  59 lines
  1. /**
  2.  * Module:    vm_options_proposal.ycp
  3.  *
  4.  * Authors:    Ladislav Slezak <lslezak@suse.cz>
  5.  *
  6.  * Purpose:     Proposal for virtual machine options
  7.  *
  8.  * $Id: vm_options_proposal.ycp 29839 2006-04-07 05:12:29Z mgfritch $
  9.  *
  10.  */
  11. {
  12.     textdomain "vm";
  13.  
  14.     import "VM";
  15.     import "VM_Common";
  16.  
  17.     string func = (string) WFM::Args (0);
  18.     map param = (map) WFM::Args (1);
  19.     map ret = $[];
  20.  
  21.     if ( func == "MakeProposal" )
  22.     {
  23.     boolean force_reset      = param["force_reset"     ]:false;
  24.     boolean language_changed = param["language_changed"]:false;
  25.  
  26.     if (force_reset)
  27.     {
  28.         if (VM_Common::proposal_type == "install")
  29.         VM::ResetConfigName();
  30.         else
  31.         VM::ResetStartMode();
  32.     }
  33.  
  34.     return VM::getOptionsProposal();
  35.     }
  36.     else if ( func == "AskUser" )
  37.     {
  38.     boolean has_next = param["has_next"]:false;
  39.  
  40.     symbol result = (symbol) WFM::CallFunction ("inst_vm_options",
  41.                             [true, has_next]);
  42.  
  43.     ret = $[ "workflow_sequence" : result ];
  44.     }
  45.     else if ( func == "Description" )
  46.     {
  47.     ret =
  48.         $[
  49.           // this is a heading
  50.           "rich_text_title"    :    _("VM Properties"),
  51.           // this is a menu entry
  52.           "menu_title"    :    _("VM &Properties"),
  53.           "id"        :    "vm_options_stuff"
  54.         ];
  55.     }
  56.  
  57.     return ret;
  58. }
  59.