OpenEuphoria

Re: Spectre Setup

• Posted by Agent Spectre <Email at SPECTRESOFTWARE.CO.UK> Apr 03, 2000
• 462 views

yes this works for me too

try changing the setFont and md around... so md is called last

-----Original Message-----
From: Cuny, David at DSS <David.Cuny at DSS.CA.GOV>
To: EUPHORIA at LISTSERV.MUOHIO.EDU <EUPHORIA at LISTSERV.MUOHIO.EDU>
Date: Monday, April 03, 2000 5:47 PM
Subject: Re: Spectre Setup


>Pete King wrote:
>
>> 1.include all the necessary libs
>> 2. create a window with a static text label
>> 3. make a directory (like "c:\a\")
>> 4 change the font with setFont
>> 5. call winmain
>
>Here's the routine that I wrote:
>
>  constant
>    Win = create( Window, "Test", 0, 10, 10, 100, 100, 0 ),
>    Label = create( LText, "Text", Win, 1, 1, 100, 32, 0 )
>
>  ok=md("c:\\euphoria\\win32\\test")
>  setFont( Label, "Arial", 20, Normal )
>
>  WinMain( Win, Normal )
>
>It seems to work just fine for me. BTW, in the md function:
>
>   a = allocate_string(name)
>   poke(a,name)
>
>the poke is redundant.
>
>Maybe you can send me a snippet that you *know* doesn't work on your
>machine?
>
>-- David Cuny
>