OpenEuphoria

Re: [ANN] win32lib update - call for testers

• Posted by CChris <christian.cuvier at agri?u?ture.gouv.fr> Oct 31, 2007
• 657 views

Bob Thompson wrote:
> 
>  
> > Strange, as I can run your test file with n=10000000 without a crash... I'll
> > check this further, but there is hardly a clue abou the origin of he
> > problem.
> > Emailing you the whole distribution, it may help.
> > 
> > CChris
> 
> OK, the original demo still crashes with 70.2.
> 
> However, I think the problem lies with setIndex(edit, {1, 0}). If I replace
> this with
> setIndex(edit, {1, length(buffer) +1}) it works fine. 
> 
> Modified test programme below;
> 
> Regards,
> 
> Bob
> 
> include Win32lib.ew
> without warning
> 
> constant win = createEx(Window, "Demo", 0, 20, 20, 400, 280, 0, 0)
> constant edit = createEx(RichEdit, "", win, 0, 0, w32Edge, w32Edge, 0, 0)
> constant Menu_Edit           = createEx(Menu,     "Menu",        win,      
> 0, 1, 0, 0, 0, 0)
> constant MenuItem_Cut        = createEx(MenuItem, "Cu&t",        Menu_Edit,
> 0, 2, 0, 0, 0, 0)
> constant MenuItem_Paste      = createEx(MenuItem, "&Paste",      Menu_Edit,
> 0, 3, 0, 0, 0, 0)
> constant MenuItem_Delete     = createEx(MenuItem, "&Delete",     Menu_Edit,
> 0, 4, 0, 0, 0, 0)
> constant MenuItem_Select_All = createEx(MenuItem, "Select&All",  Menu_Edit,
> 0, 5, 0, 0, 0, 0)
> --===================================
> 
> sequence buffer
> 
> --===================================
> --Cut
> procedure Cut(atom self, atom event, sequence params)
> cut(edit)
> end procedure
> setHandler(MenuItem_Cut, w32HClick, routine_id("Cut"))
> --===================================
> --Paste
> procedure Paste(atom self, atom event, sequence params)
> paste(edit)
> end procedure
> setHandler(MenuItem_Paste, w32HClick, routine_id("Paste"))
> --===================================
> --Delete
> procedure Delete(atom self, atom event, sequence params)
> clear(edit)
> end procedure
> setHandler(MenuItem_Delete, w32HClick, routine_id("Delete"))
> --===================================
> --Select All
> procedure Select_All(atom self, atom event, sequence params)
> 
> --setIndex(edit, {1, 0})--crashes
> setIndex(edit, {1, length(buffer) +1})--OK
> 
> end procedure
> setHandler(MenuItem_Select_All, w32HClick, routine_id("Select_All"))
> --===================================
> 
> constant n = 5000000
> 
> buffer = repeat('a', n) & repeat('z', n)
> setText(edit, buffer)
> 
> WinMain(win, Normal)

Oh I see. I'll look into it this week.

CChris