OpenEuphoria

Re: WIN2000 and Win32Lib (0.51)

• Posted by Brian Broker <bkb at CNW.COM> Sep 19, 2000
• 395 views

On Tue, 19 Sep 2000 13:36:31 -0400, Renzo Beggia wrote:

>Hello,
>
>I have a big problem,
>
>Win32lib (0.51) and Win2000 (ME) don't seem to work together!!
>
>
>for example :a openfile or savefile box doesn't even open on win2000!!
>
>on Win95 and Win 98 it works fine.(haven't tested NT4.0)
>what is the difference with Windows 2000 ????
>Can anyone help me please ?? Thank you.
>
>
>Win32Lib should be Win2000 compatible don't you think ?!
>
>
>Renzo
>From Belgium
>
>
>ps: if anyone wants to test it on Win2000 or NT4.0 ,mail me
>    i'll send you the files (300Kb)

I have been unable to confirm this bug using Win32Lib version 0.51 and
Windows 2000.

The following test program seems to work just fine:

include win32lib51.ew

constant
  Win1 = create( Window, "Window", 0, Default, Default, 300, 200, 0 ),
  Btn1 = create( PushButton, "Open", Win1, 10, 10, 40, 25, 0 ),
  Btn2 = create( PushButton, "Save", Win1, 60, 10, 40, 25, 0 ),
  Lab1 = create( LText, "", Win1, 10, 50, 280, 25, 0 ),
  Lab2 = create( LText, "", Win1, 10, 80, 280, 25, 0 )

----------

procedure onBtn1()
  sequence fname

  fname = getOpenFileName( Win1, "", {"Any File", "*.*"} )
  setText( Lab1, "Open: " & fname )
  shellExecute( "open", fname, 0 )
end procedure
onClick[Btn1] = routine_id( "onBtn1" )

----------

procedure onBtn2()
  sequence fname

  fname = getSaveFileName( Win1, "", {"Any File", "*.*"} )
  setText( Lab2, "Save: " & fname )
end procedure
onClick[Btn2] = routine_id( "onBtn2" )

-----------------------
WinMain( Win1, Normal )
-----------------------

-- Brian