OpenEuphoria

RE: Euphoria Database Browser

• Posted by Matt Lewis <matthewwalkerlewis at yahoo.com> Jul 23, 2003
• 598 views

Thanks, CK.  You can fix it by adding an if statement around setHandler:

if length(recent_menu) then
	setHandler( recent_menu[1..length(recent_menu)-1], w32HClick, orf)

end if

I've uploaded an updated copy, and also included my testing db (sql.edb),
which is the ARCHIVE.EDB provided by RDS that I've converted to EuSQL
format. It has a couple of [crude] forms included.

http://www14.brinkster.com/matthewlewis/projects.html

Matt Lewis

> From: C. K. Lester [mailto:cklester at yahoo.com]

> recent_menu is length(0) at the beginning, so this section 
> fails for me:
> 
> procedure open_recent_file( integer id, atom event, sequence params )
>     sequence swap
> 
>  id = find( id, recent_menu )
>     recent_files = {recent_files[id]} & recent_files[1..id-1] &
> recent_files[id+1..length(recent_files)]
>     update_recent()
>     do_open( recent_files[1][1] & recent_files[1][2] )
> end procedure
> orf = routine_id("open_recent_file")
> setHandler( recent_menu[1..length(recent_menu)-1], w32HClick, 
> orf) -- <--
> fails here