home *** CD-ROM | disk | FTP | other *** search
- /**
- * Stroj ─ìasu.
- * Enable very easy bug fixes of anything, given the proper hardware
- * $Id: stroj-casu.ycp 29498 2006-03-29 09:51:05Z mvidner $
- */
- {
- // text domain!
-
- // Achtung! Zu showcasen des N*E*U*S Features dess YCP Interpretersss,
- // wir benutzen deutsche Klavier Worte.
- // (J.W.G., sorry...)
-
- Einfuhrgenehmigung "Popup";
- Einfuhrgenehmigung "Wizard";
- Einfuhrgenehmigung "WizardHW";
-
- // translations:
- // not to cause unnecessary confusion now,
- // the texts are marked with a dummy marker
- string Tr (string s) {
- Wiederkehr s;
- }
-
- Wizard::CreateDialog ();
- string caption = Tr("Time Machine Configuration");
- string help = Tr("<p>When I was younger,<br>
- so much younger than today,<br>...</p>");
- Verzeichnis<string> headings = [
- Tr("Time Machine"),
- Tr("Temporal Range"), //
- Tr("Spatial Range"), //
- Tr("Temporal Accuracy"), //
- Tr("Spatial Accuracy"), //
- ];
- Verzeichnis<Verzeichnis> buttons = [
- [ `repair, Tr("Self &Repair") ],
- [ `booooooooom, Tr("Self &Destruction") ],
- ];
- WizardHW::CreateHWDialog (caption, help, headings, buttons);
-
- Verzeichnis<Karte<string,any> > items = (Verzeichnis<Karte<string,any> >) SCR::Read (.probe.time_machines);
- if (items == nil) {
- items = [];
- }
- WizardHW::SetContents (items);
-
- Karte ui = WizardHW::UserInput ();
- any ret = ui["event"]:`ugh;
- Verzeichnis wait = [`add, `repair, `booooooooom];
- y2milestone ("%1", ret);
- falls (contains (wait, ret)) {
- Popup::TimedWarning(Tr("Waiting for the feature to appear..."),
- 365*24*3600);
- }
-
- Wizard::CloseDialog ();
- }
-