home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd2.bin / suse / inst-sys / lib / YaST2 / clients / remoteinstall.ycp < prev    next >
Encoding:
Text File  |  2000-03-30  |  1.1 KB  |  38 lines
  1. {
  2.   // Menuentry for the YaST2 menu
  3.   if (Args() == [ "get_menuentry" ]) 
  4.      return [ "#remoteinstall",
  5.      $[
  6.        `menuentry    : UI(_("YaST2/Remote Install")),
  7.        `arguments    : [ ],
  8.        `widget       : 
  9.        `VBox(`RichText(UI(_(
  10.        "Launch this module, if you want to install a
  11. computer with YaST2 that is connected to this computer
  12. via serial null modem cable."))),
  13.          `Frame(UI(_("Choose the serial interface to use")),
  14.             `VSquash(`HBox(
  15.             `Bottom(`PushButton(`id("/dev/ttyS0"), "/dev/ttyS&0")),
  16.             `Bottom(`PushButton(`id("/dev/ttyS1"), "/dev/ttyS&1")),
  17.             `Bottom(`HBox(`Bottom(`PushButton(`id(`otherb), UI(_("&Other:")))),
  18.                       `TextEntry(`id(`otherd), 
  19.                          `opt(`shrinkable), 
  20.                          UI(_("Device")), 
  21.                          "/dev/ttyS2")))
  22.             )
  23.             )
  24.          )
  25.        ),
  26.        `codefragment : 
  27.        `` {
  28.      string device = "";
  29.      if (is(widgetid, string)) device = widgetid;
  30.      else if (widgetid == `otherb) device = UI(`QueryWidget(`id(`otherd), `Value));
  31.      string modulename = "serial(115200):" + device;
  32.      CallModule(modulename, []);
  33.      CallModule(modulename, []);
  34.        }
  35.      ]
  36.      ];
  37. }
  38.