OpenEuphoria

Re: Spectre Setup

• Posted by "Cuny, David at DSS" <David.Cuny at DSS.CA.GOV> Apr 03, 2000
• 495 views

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