OpenEuphoria

Hi Euphoria ,

New to this language but have hacked my way

to the following .......

When I choose the euphoria file type .ex it runs program selected.

If I choose euphoria file type .exw .... it does not run .

........... Code is pretty hopeless but I am trying to learn Why O.K. with .ex and not with .exw ???

I look forward to your reply ... in anticipation

yours Selgor

cheers.

CODE := below

 
constant FileTypes = { 
"dialog flags", {OFN_ALLOWMULTISELECT}, 
"Euphoria File", "*.ex", 
"Euphoria File", "*.exw"} 
 
procedure menuopen() 
    integer at, result     --was sat   could be rat cat mat whatever  
    sequence fName, fame 
        
    fName = getOpenFileName( MainWindow, "", FileTypes ) 
    if length( fName ) = 0 then 
        return 
    end if 
 
    setText( SLE, fName ) 
    setText( SLE, fName ) 
    setOpenFileName( fName )     
 
    if length( openfilename ) then 
          fame = fName 
 
       at = find( '.', fame ) 
       if at then 
            fame = fame[1..at-1] 
             fame &= ".ex" 
             result = system_exec( "ex \"" & fame & "\"",2 ) 
       elsif at then 
            fame = fame[1..at-1] 
             fame &= ".exw" 
             result = system_exec( "exw \"" & fame & "\"",2 ) 
        end if   
    end if   
--  end if 
end procedure