OpenEuphoria

RE: Win32Lib v0.60.6 available

• Posted by Derek Parnell <ddparnell at bigpond.com> Sep 21, 2004
• 456 views

CoJaBo wrote:
> 
> Derek Parnell wrote:
> > 
> > Elliott S. de Andrade wrote:
> > > 
> > > >From: Derek Parnell <guest at RapidEuphoria.com>
> > > >Reply-To: EUforum at topica.com
> > > >To: EUforum at topica.com
> > > >Subject: Win32Lib v0.60.6 available
> > > >Date: Mon, 20 Sep 2004 04:52:37 -0700
> > > >
> > > >posted by: Derek Parnell <ddparnell at bigpond.com>
> > > >
> > > 
> > >    Don't see any change with the IDE memory problem. No ideas?
> 
> I occasionally get a BSoD(Blue Screen of Deet) when starting IDE,
> but the computer turns off before I can read it(even though the
> restart after errors optin is turned off).
> After it starts up there is a ex.err file containing random
> garbagge(looks like fragments of deleted files), and everything
> runs fine for a while.

Hmmmm...could be the same thing. What Windows version etc you running?

> > That's right. No ideas. I can't reproduce the problem on either of the
> > two machines I have access to. I once had the problem but it went away
> > when I removed the IDE and downloaded the latest version. I know you
> > said you have done that but what more can I say? 
> > 
> > I had the problem.
> > I did something.
> > It went away.
> > I cannot make it happen again here.
> > 
> > So I don't know how to help you. 
> > 
> > Has *anyone* else got this problem with the IDE?
> Withe the latest IDE and Win32Lib, nothing hsappens when
> double-clickinhg in the form design window.
> This didn't happen with the previoud Qin32Lig.

Oooops! I added a last minute change and forgot to retest the IDE. I've
found the error in my code. You need to change findParentWindow() in
the win32lib.ew file.  It should look like this ...


----------------------------------------------------------
global function findParentWindow(integer id)
----------------------------------------------------------
    -- find the parent window
    if (id <= 0) or (ctrl_Parent[id] = 0) then 
        -- The specified control has no parent. 
        return 0
    end if

    -- loop until I hit top of the tree or a 'window'-type control.
while id and (ctrl_Type[id] != Window) and (isTopLevelWindow(id) = w32False)
    do
        -- move up
        id = ctrl_Parent[ id ]
    end while
    return id
end function
-- 
Derek Parnell
Melbourne, Australia