OpenEuphoria

Re: Menu - line underneath

• Posted by Derek Parnell <ddparnell at bigpond.com> Mar 11, 2003
• 496 views

On Tue, 11 Mar 2003 16:34:03 +1000, <caroline at austarnet.com.au> wrote:

>
>> Try this URL:
>>
> http://www.listfilter.com/cgi- 
> bin/esearch.exu?fromMonth=1&fromYear=7&toMonth
> =1&toYear=7&postedBy=robert+craig&keywords=windows+gui+version
>> It will probably wrap. The patch is at the end of the first message.
>
> I've looked here, thank you, but still (probably stupidly) can't work out
> what to download - I am running the v2.3 release, which is for the newer
> windows, not Win 3.1.
>

Run this small program. If it prints out "0 4 0 0" then you are running the 
later Windows version.
Otherwise you can run it with the -fix command line option to fixup the 
exe.

------
include file.e
include get.e
integer fh                    sequence bytes
object void
sequence cmd

fh = open("c:\\euphoria\\bin\\exw.exe", "rb")
bytes = get_bytes(fh, 20)
printf(1, "Was: %d %d %d %d\n", bytes[8..11])
close(fh)

cmd = command_line()
if find("-fix", cmd) then
	fh = open("c:\\euphoria\\bin\\exw.exe", "ub")
	void = seek(fh, 8)
	puts(fh, {0,4,0,0})
	close(fh)
	puts(1, "Has now been fixed.\n")
end if


-------------

cheers,
Derek Parnell