ACC SHELL

/**
 * 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 ();
}