Branch: Tag:

2004-11-23

2004-11-23 14:55:24 by Henrik Grubbström (Grubba) <grubba@grubba.org>

First try at adding shortcuts to the start menu.

Rev: server/bin/mk_wxs.pike:1.12

1:   /* -  * $Id: mk_wxs.pike,v 1.11 2004/11/23 09:10:28 grubba Exp $ +  * $Id: mk_wxs.pike,v 1.12 2004/11/23 14:55:24 grubba Exp $    *    * Make a Windows Installer XML Source file (wxs) suitable    * for a Roxen installer.
39:    if (stringp(opt[1])) {    version_str = opt[1];    } else { -  werror("$Id: mk_wxs.pike,v 1.11 2004/11/23 09:10:28 grubba Exp $\n"); +  werror("$Id: mk_wxs.pike,v 1.12 2004/11/23 14:55:24 grubba Exp $\n");    exit(0);    }    break;
119:    ])))->    add_child(line_feed);    +  // Start menu. +  Directory start_menu = +  root->low_add_path(({"Start Menu"}), "StartMenuFolder"); +  +  Directory sub_menu = start_menu->low_add_path(({"Programs", title}), +  "START_MENU"); +  sub_menu->low_add_shortcut("Roxen Administration", "START_MENU", 0, +  "[BROWSER]", 0, +  "[SERVER_PROTOCOL]://localhost:[SERVER_PORT]/"); +  feature_node->add_child(WixNode("ComponentRef", ([ +  "Id":"C_" + sub_menu->id, +  ])))-> +  add_child(linefeed); +     // Generate the XML.    Parser.XML.Tree.SimpleRootNode root_node = Parser.XML.Tree.SimpleRootNode()->    add_child(Parser.XML.Tree.SimpleHeaderNode((["version": "1.0",