OpenEuphoria

RE: Bugs in latest IDE (0.18.6o)

• Posted by "Judith" <camping at txcyber.com> Feb 18, 2004
• 572 views

Derek,

Here is a little demo. If you run it without entering a file type it will
give you an error message.
~judith

include Win32Lib.ew
without warning

----------------------------------------------------------------------------
----
--  Window Window1
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 342,
197, 0, 0 )
constant EditText2 = createEx( EditText, "EditText2", Window1, 16, 44, 288,
24, 0, 0 )
constant LText3 = createEx( LText, "File opened is:", Window1, 16, 16, 288,
28, 0, 0 )
constant PushButton4 = createEx( PushButton, "Open File", Window1, 88, 84,
152, 32, 0, 0 )
---------------------------------------------------------
----------------------------------------------------------------------------
----
procedure PushButton4_onClick (integer self, integer event, sequence
params)--params is ()
 sequence fName,FileTypes
 FileTypes           = {"ProjectFile","*.prj"}

 fName = getOpenFileName( Window1, current_dir() & "\\*.prj", FileTypes )

    -- entered a file name?
    if length( fName ) = 0 then
        return
    end if

 setText(EditText2,fName)
end procedure
setHandler( PushButton4, w32HClick, routine_id("PushButton4_onClick"))


WinMain( Window1,Normal )