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 / dirinstall_options_proposal.ycp < prev    next >
Text File  |  2006-11-29  |  2KB  |  72 lines
  1. /**
  2.  * Module:    dirinstall_options_proposal.ycp
  3.  *
  4.  * Author:    Anas Nashif <nashif@suse.de>
  5.  *
  6.  * Purpose:     Proposal for dirinstall options
  7.  */
  8. {
  9.     textdomain "packager";
  10.  
  11.     import "DirInstall";
  12.     import "HTML";
  13.  
  14.     string func  = (string) WFM::Args(0);
  15.     map    param = (map) WFM::Args(1);
  16.     map    ret   = $[];
  17.  
  18.     if ( func == "MakeProposal" )
  19.     {
  20.     boolean force_reset      = param["force_reset"     ]:false;
  21.     boolean language_changed = param["language_changed"]:false;
  22.  
  23.     // call some function that makes a proposal here:
  24.     //
  25.     // DummyMod::MakeProposal( force_reset );
  26.  
  27.  
  28.     if (force_reset)
  29.     {
  30.         DirInstall::target = "";
  31.             DirInstall::runme_at_boot = false;
  32.     }
  33.  
  34.     list<string> tmp = [];
  35.         string color = "red";
  36.  
  37.     ret = $[ "preformatted_proposal" : DirInstall::Propose()
  38.     ];
  39.     }
  40.     else if ( func == "AskUser" )
  41.     {
  42.     boolean has_next = param["has_next"]:false;
  43.  
  44.     // call some function that displays a user dialog
  45.     // or a sequence of dialogs here:
  46.     //
  47.  
  48.     symbol result = (symbol) WFM::CallFunction ("dirinstall_options", [true, has_next]);
  49.  
  50.     // Fill return map
  51.  
  52.     ret = $[ "workflow_sequence" : result ];
  53.     }
  54.     else if ( func == "Description" )
  55.     {
  56.     // Fill return map.
  57.     //
  58.     // Static values do just nicely here, no need to call a function.
  59.  
  60.     ret =
  61.         $[
  62.           // this is a heading
  63.           "rich_text_title"    :    _("Options"),
  64.           // this is a menu entry
  65.           "menu_title"    :    _("&Options"),
  66.           "id"        :    "dirinstall_options_stuff"
  67.         ];
  68.     }
  69.  
  70.     return ret;
  71. }
  72.