# HG changeset patch
# User Jan Nieuwenhuizen <janneke@gnu.org>
# Date 1296667466 -3600
# Node ID 51635cbba4b0e4f9535a9424fcd1028372eea7ae
# Parent  834c939b7f86c5efdb30657654c7e452e41a8bd5
schikkers-list.nsi: more desktop invocation tests.

diff -r 834c939b7f86 -r 51635cbba4b0 nsis/schikkers-list.nsi
--- a/nsis/schikkers-list.nsi	Wed Feb 02 18:23:54 2011 +0100
+++ b/nsis/schikkers-list.nsi	Wed Feb 02 18:24:26 2011 +0100
@@ -272,6 +272,9 @@
 	CreateShortCut "$SMPROGRAMS\Schikkers-List\Schikkers-List.lnk" \
 		"$INSTDIR\usr\bin\schikkers-list.scm" ""\
  		"$INSTDIR\usr\share\guile\site\ikli\images\ikli.ico" 0 SW_SHOWNORMAL
+	CreateShortCut "$SMPROGRAMS\Schikkers-List\Schikkers-List-NOQUOTE.lnk" \
+		$INSTDIR\usr\bin\schikkers-list.scm ""\
+ 		"$INSTDIR\usr\share\guile\site\ikli\images\ikli.ico" 0 SW_SHOWNORMAL
 	CreateShortCut "$SMPROGRAMS\Schikkers-List\Schikkers-List Website.lnk" \
 		"http://schikkers-list.org/" "" \
 		"firefox.exe" 0
@@ -290,6 +293,9 @@
 	CreateShortCut "$DESKTOP\Schikkers-List.lnk" \
 		"$INSTDIR\usr\bin\schikkers-list.scm" ""\
  		"$INSTDIR\usr\share\guile\site\ikli\images\ikli.ico" 0 SW_SHOWNORMAL
+	CreateShortCut "$DESKTOP\Schikkers-List-NOQUOTE.lnk" \
+		$INSTDIR\usr\bin\schikkers-list.scm ""\
+ 		"$INSTDIR\usr\share\guile\site\ikli\images\ikli.ico" 0 SW_SHOWNORMAL
 FunctionEnd
 
 Function registry_python
@@ -335,13 +341,15 @@
 	;;StrCmp $R0 "" 0 scm_auto_file
 	WriteRegStr HKCR "Guile\shell" "" "open"
 	# %1 is the GUILE command, so must be quoted bo the space
-	WriteRegExpandStr HKCR "Guile\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" "%1" %2 %3 %4 %5 %6 %7 %8 %9'
+	;;	WriteRegExpandStr HKCR "Guile\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" "%1" %2 %3 %4 %5 %6 %7 %8 %9'
+	WriteRegExpandStr HKCR "Guile\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" %1 %2 %3 %4 %5 %6 %7 %8 %9'
 
 ;;scm_auto_file:
 	ReadRegStr $R0 HKCR "scm_auto_file\shell\open\command" ""
 	;;StrCmp $R0 "" 0 scm_end
 	WriteRegStr HKCR "scm_auto_file\shell" "" "open"
 	# %1 is the GUILE command, so must be quoted bo the space
-	WriteRegExpandStr HKCR "scm_auto_file\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" "%1" %2 %3 %4 %5 %6 %7 %8 %9'
+	;;	WriteRegExpandStr HKCR "scm_auto_file\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" "%1" %2 %3 %4 %5 %6 %7 %8 %9'
+	WriteRegExpandStr HKCR "scm_auto_file\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" %1 %2 %3 %4 %5 %6 %7 %8 %9'
 ;;scm_end:	
 FunctionEnd