OpenEuphoria

Re: Phix : Issue with EuWinGui

• Posted by ChrisB (moderator) Apr 17, 2020
• 991 views

Also there might be an issue with inproc or infunc, so

global procedure SetPicture(atom ctrl, atom ctrltype, sequence imagepath) 
    sgv() 
    v3_c_proc(setpicture,{ctrl,ctrltype,imagepath}) 
    ggv() 
end procedure 

calls

setpicture =            inproc(EWG,"SetPicture",{AM,AM,SQ}) 

function infunc(atom dll, sequence name, sequence args, atom result) 
integer handle 
    -- INSERT THIS --  
    --handle = machine_func(51, {dll, name, args, result})  
    handle = v3_define_c_func(dll, name, args, result) 
    -- END OF INSERT --  
    if handle= -1 then 
        infail(name) 
    else 
        return handle 
    end if 
end function 
 
function inproc(atom dll, sequence name, sequence args) 
integer handle 
    -- INSERT THIS --  
    --handle = machine_func(51, {dll, name, args, 0})  
    handle = v3_define_c_proc(dll, name, args) 
    -- END OF INSERT --  
    if handle= -1 then 
        infail(name) 
    else 
        return handle 
    end if 
end function 
 

The inserts I think were done By Jim Brown (I think) who created euconvert.dll to shim some changes that were needed to allow euwingui to run with the uewingui.dll

As I said, I'm stumped now.

Cheers

Chris