{
    import "String";
    import "Wizard";

    string rt	= "Index: Kiwi.ycp
===================================================================
--- Kiwi.ycp    (revision 65660)
+++ Kiwi.ycp    (working copy)";

    rt	= String::EscapeTags (rt);

    list<string> rt_l	= (list<string>) maplist (string line, splitstring (rt, "\n"), {
	if (String::StartsWith (line, "+"))
	{
	    line	= sformat ("<font color=blue>%1</font>", line);
	}
	else if (String::StartsWith (line, "-"))
	{
	    line	= sformat ("<font color=red>%1</font>", line);
	}
	return line;
    });

    rt = mergestring (rt_l, "<br>");

    term contents = `VBox (
        `RichText(`id(`rt), rt),
        `RichText(`id(`rt2), "<tt>" + rt + "</tt>")
    );
    Wizard::OpenAcceptDialog ();
    Wizard::SetContents ("diff", contents, "", true, true);
    UI::UserInput();
    Wizard::CloseDialog();
}