OpenEuphoria

Re: W98 crash running Calculat.exw from Judith's IDE

• Posted by petelomax at blueyonder.co.uk Jan 16, 2002
• 536 views

OK, I have hacked it down to the following:-

include Win32lib.ew
without warning
constant Calcw = create( Window, "Calc", 0, 78, 40, 246, 282, 0)
constant Table2 = create( PushButton, "9", Calcw, 74, 4, 30, 30, 0)
setHint( Table2,"9")
    
procedure screen_event( integer iMsg, atom lParam, atom wParam )    
  seq loc                  
  loc=getRect(Calcw)  
end procedure    
onEvent[Screen] = routine_id("screen_event")   

WinMain( Calcw, Normal )

-- If I comment out EITHER the setHint or the getRect It no longer
crashes when I close the window. I don't know enuf about win32lib yet
to trace it any further.

-- Does this close ok on your machine, Irv?

Pete