suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refine version info in resource files

Browse Source 
svn: r3263
This commit is contained in:
Matthew Flatt 2006-06-07 15:59:43 +00:00
parent fa179c9c7a
commit ed243d28d2
4 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/worksp/gc2/make.ss
View File

@ -246,10 +246,15 @@
srcs))]) srcs))])
(link-dll objs null null dll "" #f)) (link-dll objs null null dll "" #f))
(unless (file-exists? "mzscheme.res") (define (check-rc res rc)
(system- (string-append (unless (and (file-exists? res)
"rc /l 0x409 " (>= (file-or-directory-modify-seconds res)
"/fomzscheme.res ../mzscheme/mzscheme.rc"))) (file-or-directory-modify-seconds rc)))
(system- (string-append
"rc /l 0x409 /I ../../wxwindow/include/msw /I ../../wxwindow/contrib/fafa "
(format "/fo~a ~a" res rc)))))
(check-rc "mzscheme.res" "../mzscheme/mzscheme.rc")
(let ([objs (list (let ([objs (list
"mzscheme.res" "mzscheme.res"
@ -445,10 +450,7 @@
(wx-try "mred" "mred" "mrmain" #f "cxx" #t) (wx-try "mred" "mred" "mrmain" #f "cxx" #t)
(unless (file-exists? "mred.res") (check-rc "mred.res" "../mred/mred.rc")
(system- (string-append
"rc /l 0x409 /I ../../wxwindow/include/msw /I ../../wxwindow/contrib/fafa "
"/fomred.res ../mred/mred.rc")))
(let ([objs (list (let ([objs (list
"mred.res" "mred.res"

2
src/worksp/mred/mred.manifest
View File

@ -3,7 +3,7 @@
<assemblyIdentity <assemblyIdentity
version="1.0.0.0" version="1.0.0.0"
processorArchitecture="X86" processorArchitecture="X86"
name="Org.PLT-Scheme.MrEd " name="Org.PLT-Scheme.MrEd"
type="win32" type="win32"
/> />
<description>MrEd - Graphical PLT Scheme.</description> <description>MrEd - Graphical PLT Scheme.</description>

8
src/worksp/mred/mred.rc
View File

@ -36,13 +36,13 @@ BEGIN
BEGIN BEGIN
BLOCK "040904b0" BLOCK "040904b0"
BEGIN BEGIN
VALUE "CompanyName", "PLT Inc.\0" VALUE "CompanyName", "PLT Scheme Inc.\0"
VALUE "FileDescription", "mred\0" VALUE "FileDescription", "MrEd-based application\0"
VALUE "InternalName", "MrEd.exe\0"
VALUE "FileVersion", "349, 100, 0, 0\0" VALUE "FileVersion", "349, 100, 0, 0\0"
VALUE "InternalName", "mred\0"
VALUE "LegalCopyright", "Copyright © 1995-2006\0" VALUE "LegalCopyright", "Copyright © 1995-2006\0"
VALUE "OriginalFilename", "MrEd.exe\0" VALUE "OriginalFilename", "MrEd.exe\0"
VALUE "ProductName", "MrEd\0" VALUE "ProductName", "PLT Scheme\0"
VALUE "ProductVersion", "349, 100, 0, 0\0" VALUE "ProductVersion", "349, 100, 0, 0\0"
END END
END END

8
src/worksp/mzscheme/mzscheme.rc
View File

@ -45,13 +45,13 @@ BEGIN
BEGIN BEGIN
BLOCK "040904b0" BLOCK "040904b0"
BEGIN BEGIN
VALUE "CompanyName", "PLT Inc.\0" VALUE "CompanyName", "PLT Scheme Inc.\0"
VALUE "FileDescription", "mzscheme\0" VALUE "FileDescription", "MzScheme-based application\0"
VALUE "InternalName", "MzScheme.exe\0"
VALUE "FileVersion", "349, 100, 0, 0\0" VALUE "FileVersion", "349, 100, 0, 0\0"
VALUE "InternalName", "mzscheme\0"
VALUE "LegalCopyright", "Copyright <20>© 1995-2006\0" VALUE "LegalCopyright", "Copyright <20>© 1995-2006\0"
VALUE "OriginalFilename", "mzscheme.exe\0" VALUE "OriginalFilename", "mzscheme.exe\0"
VALUE "ProductName", "MzScheme\0" VALUE "ProductName", "PLT Scheme\0"
VALUE "ProductVersion", "349, 100, 0, 0\0" VALUE "ProductVersion", "349, 100, 0, 0\0"
END END
END END