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

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

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

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

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

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

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

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

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