Author: nextgens
Date: 2006-03-16 18:16:56 +0000 (Thu, 16 Mar 2006)
New Revision: 8266

Modified:
   trunk/apps/installer/build.xml
   trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
Log:
antinstaller : hopefully a shortcut will be created on the desktop now

Modified: trunk/apps/installer/build.xml
===================================================================
--- trunk/apps/installer/build.xml      2006-03-16 18:01:43 UTC (rev 8265)
+++ trunk/apps/installer/build.xml      2006-03-16 18:16:56 UTC (rev 8266)
@@ -48,6 +48,11 @@

                <echo message="Setting up the node"/>
                <antcall target="${target}"/>
+
+               <echo message="Creating shortcuts"/>
+               <exec os="windows" executable="CreateDesktopShortcut.vbs" 
dir="${installDir}/">
+                       <arg value="${installDir}"/>
+               </exec>
        </target>

        <target name="tgmain" >

Modified: 
trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
===================================================================
--- trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs     
2006-03-16 18:01:43 UTC (rev 8265)
+++ trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs     
2006-03-16 18:16:56 UTC (rev 8266)
@@ -1,16 +1,16 @@
 set args = WScript.Arguments
 num = args.Count

-INSTALL_PATH = args.Item(1)
+INSTALL_PATH = args.Item(0)

 Set Shell = CreateObject("WScript.Shell")
 DesktopPath = Shell.SpecialFolders("Desktop")
 Set link = Shell.CreateShortcut(DesktopPath & "\Freenet.lnk")
-link.Arguments = "-Xmx256M -cp freenet-ext.jar;freenet-cvs-snapshot.jar 
freenet.node.Node"
+link.Arguments = "-server -Xmx256M -cp 
freenet-ext.jar;freenet-cvs-snapshot.jar freenet.node.Node"
 link.Description = "The Free Network Project"
 link.HotKey = "CTRL+ALT+SHIFT+F"
 link.IconLocation = INSTALL_PATH & "\freenet.ico"
-link.TargetPath = "%JAVA_HOME%\bin\java.exe"
+link.TargetPath = "java"
 link.WindowStyle = 1
 link.WorkingDirectory = INSTALL_PATH
 link.Save


Reply via email to