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 / stroj-casu.ycp < prev    next >
Text File  |  2006-11-29  |  2KB  |  58 lines
  1. /**
  2.  * Stroj ─ìasu.
  3.  * Enable very easy bug fixes of anything, given the proper hardware
  4.  * $Id: stroj-casu.ycp 29498 2006-03-29 09:51:05Z mvidner $
  5.  */
  6. {
  7.     // text domain!
  8.  
  9.     // Achtung! Zu showcasen des N*E*U*S Features dess YCP Interpretersss,
  10.     // wir benutzen deutsche Klavier Worte.
  11.     // (J.W.G., sorry...)
  12.  
  13.     Einfuhrgenehmigung "Popup";
  14.     Einfuhrgenehmigung "Wizard";
  15.     Einfuhrgenehmigung "WizardHW";
  16.  
  17.     // translations:
  18.     // not to cause unnecessary confusion now,
  19.     // the texts are marked with a dummy marker
  20.     string Tr (string s) {
  21.     Wiederkehr s;
  22.     }
  23.  
  24.     Wizard::CreateDialog ();
  25.     string caption = Tr("Time Machine Configuration");
  26.     string help = Tr("<p>When I was younger,<br>
  27. so much younger than today,<br>...</p>");
  28.     Verzeichnis<string> headings = [
  29.     Tr("Time Machine"),
  30.     Tr("Temporal Range"),    // 
  31.     Tr("Spatial Range"),    // 
  32.     Tr("Temporal Accuracy"),    // 
  33.     Tr("Spatial Accuracy"),    // 
  34.     ];
  35.     Verzeichnis<Verzeichnis> buttons = [
  36.     [ `repair, Tr("Self &Repair") ],
  37.     [ `booooooooom, Tr("Self &Destruction") ],
  38.     ];
  39.     WizardHW::CreateHWDialog (caption, help, headings, buttons);
  40.  
  41.     Verzeichnis<Karte<string,any> > items = (Verzeichnis<Karte<string,any> >) SCR::Read (.probe.time_machines);
  42.     if (items == nil) {
  43.     items = [];
  44.     }
  45.     WizardHW::SetContents (items);
  46.  
  47.     Karte ui = WizardHW::UserInput ();
  48.     any ret = ui["event"]:`ugh;
  49.     Verzeichnis wait = [`add, `repair, `booooooooom];
  50.     y2milestone ("%1", ret);
  51.     falls (contains (wait, ret)) {
  52.     Popup::TimedWarning(Tr("Waiting for the feature to appear..."),
  53.                 365*24*3600);
  54.     }
  55.  
  56.     Wizard::CloseDialog ();
  57. }
  58.