This executable distribution of Aladdin Ghostscript 6.01
has had the following patches applied to fix two problems:
1. The setup program wrote the wrong version number on
  the shell links.
2. Ghostscript looked for registry variables under the wrong key.

Russell Lang
2000-03-20


diff -c ./dwsetup.cpp ../src/dwsetup.cpp
*** ./dwsetup.cpp	Thu Mar 09 08:40:40 2000
--- ../src/dwsetup.cpp	Sun Mar 19 08:15:58 2000
***************
*** 695,700 ****
--- 695,701 ----
  	char szProgram[MAXSTR];
  	char szArguments[MAXSTR];
  	char szDescription[MAXSTR];
+ 	char szDotVersion[MAXSTR];
  	
  	if (g_bQuit)
  		return FALSE;
***************
*** 716,722 ****
  		nGSversion = (p[0]-'0')*100 + (p[2]-'0')*10 + (p[3]-'0');
  	else if (strlen(p) == 3)
  		nGSversion = (p[0]-'0')*100 + (p[2]-'0')*10;
! 	sprintf(regkey2, "%d.%d", nGSversion / 100, nGSversion % 100);
  	
  	// copy files
  	if (!cinst.InstallFiles(g_bNoCopy, &g_bQuit)) {
--- 717,724 ----
  		nGSversion = (p[0]-'0')*100 + (p[2]-'0')*10 + (p[3]-'0');
  	else if (strlen(p) == 3)
  		nGSversion = (p[0]-'0')*100 + (p[2]-'0')*10;
!         strncpy(szDotVersion, p, sizeof(szDotVersion));
! 	strncpy(regkey2, szDotVersion, sizeof(regkey2));
  	
  	// copy files
  	if (!cinst.InstallFiles(g_bNoCopy, &g_bQuit)) {
***************
*** 775,782 ****
  	strcpy(szArguments, "\042-I");
  	strcat(szArguments, szLIB);
  	strcat(szArguments, "\042");
! 	sprintf(szDescription, "Ghostscript %d.%d", 
! 		nGSversion / 100, nGSversion % 100);
  	if (!cinst.StartMenuAdd(szDescription, szProgram, szArguments)) {
  		gs_addmess("Failed to add Start Menu item\n");
  		return FALSE;
--- 777,783 ----
  	strcpy(szArguments, "\042-I");
  	strcat(szArguments, szLIB);
  	strcat(szArguments, "\042");
! 	sprintf(szDescription, "Ghostscript %s", szDotVersion);
  	if (!cinst.StartMenuAdd(szDescription, szProgram, szArguments)) {
  		gs_addmess("Failed to add Start Menu item\n");
  		return FALSE;
***************
*** 785,792 ****
  	strcat(szProgram, "\\");
  	strcat(szProgram, cinst.GetMainDir());
  	strcat(szProgram, "\\doc\\Readme.htm");
! 	sprintf(szDescription, "Ghostscript Readme %d.%d", 
! 		nGSversion / 100, nGSversion % 100);
  	if (!cinst.StartMenuAdd(szDescription, szProgram, NULL)) {
  		gs_addmess("Failed to add Start Menu item\n");
  		return FALSE;
--- 786,792 ----
  	strcat(szProgram, "\\");
  	strcat(szProgram, cinst.GetMainDir());
  	strcat(szProgram, "\\doc\\Readme.htm");
! 	sprintf(szDescription, "Ghostscript Readme %s", szDotVersion);
  	if (!cinst.StartMenuAdd(szDescription, szProgram, NULL)) {
  		gs_addmess("Failed to add Start Menu item\n");
  		return FALSE;
diff -c ./gp_wgetv.c ../src/gp_wgetv.c
*** ./gp_wgetv.c	Thu Mar 09 08:40:42 2000
--- ../src/gp_wgetv.c	Mon Mar 20 07:13:48 2000
***************
*** 69,76 ****
  	    /* not Win32s */
  	    int code;
  	    char key[256];
! 	    sprintf(key, "Software\\%s\\%d.%d", gs_productfamily,
! 		    (int)(gs_revision / 100), (int)(gs_revision % 100));
  
  	    code = gp_getenv_registry(HKEY_CURRENT_USER, key, name, ptr, plen);
  	    if ( code <= 0 )
--- 69,82 ----
  	    /* not Win32s */
  	    int code;
  	    char key[256];
! 	    char dotversion[16];
! 	    
! 	    if (gs_revision % 100 == 0)
! 		sprintf(dotversion, "%d.0", (int)(gs_revision / 100));
! 	    else
! 		sprintf(dotversion, "%d.%02d", (int)(gs_revision / 100),
! 			(int)(gs_revision % 100));
! 	    sprintf(key, "Software\\%s\\%s", gs_productfamily, dotversion);
  
  	    code = gp_getenv_registry(HKEY_CURRENT_USER, key, name, ptr, plen);
  	    if ( code <= 0 )
