OpenEuphoria

1. eU4 do mistake, but without EX.ERR

• Posted by sergelli Oct 30, 2012
• 1395 views
• Last edited Oct 31, 2012

Below is a summary of a longer program.

There's a deliberate mistake.

Using EU4, the program aborts, but the EX.ERR file, do not appear. With Eu3, the EX.ERR file, appears normally.

Perhaps it is appropriate to look at this problem ..

 
include WIN32lib.ew 
constant version="1 inicio" 
        ,FONTWH={10,10} 
        -------        NOME ,    pix SIZE, pix COLUNA      == campos do ListView 
        ,STRUC={{      "Cod",04*FONTWH[1],0           } 
               ,{"Descrição",25*FONTWH[1],04*FONTWH[1]} 
               ,{    "Valor",07*FONTWH[1],29*FONTWH[1]} 
               ,{    "Quant",06*FONTWH[1],36*FONTWH[1]} 
               ,{    "Total",10*FONTWH[1],42*FONTWH[1]}} 
        ,NOME=1 
        ,SIZE=2 
        ,COLUNA=3 
        ,headerStruc={STRUC[1][NOME..SIZE] 
                     ,STRUC[2][NOME..SIZE] 
                     ,STRUC[3][NOME..SIZE] 
                     ,STRUC[4][NOME..SIZE] 
                     ,STRUC[5][NOME..SIZE]} 
        ,WIN1  =create(Window,"Pedido - "&version,0,00,00,900,720,0)  -- col,lin 
,WinSize={Default,Default, 550, 430} 
 integer LvBdados 
-------------------------------------------------------------------------------------------------------------- 
procedure MyLV_onClick(integer xx, integer yy, sequence parms)  
 for i = 1 to 2 do 
  VOID= addLVItem(LvBdados, 0,{"1111","22222","33333","44444"})            -- yes, do mistake 
-- VOID= addLVItem(LvBdados, 0,{"1111","22222","33333","44444","55555"})  --no mistake 
 end for             
end procedure 
-------------------------------------------------------------------------------------------------------------- 
procedure aaaa() 
 LvBdados=create(ListView,headerStruc,WIN1, 2,44,WinSize[3]-20,WinSize[4]-80, 
                            w32or_all({LVS_REPORT,LVS_SHOWSELALWAYS,LVS_NOSORTHEADER})) 
 setFont( LvBdados, "Courier New",10,900  ) 
 setLVStyle(LvBdados, { LVS_EX_GRIDLINES 
                       ,LVS_EX_HEADERDRAGDROP 
                       }) 
 setVisible({LvBdados},1) 
 setHandler(LvBdados, w32HClick,routine_id("MyLV_onClick")) 
end procedure 
-------------------------------------------------------------------------------------------------------------- 
aaaa() 
WinMain(WIN1,Normal) 

3. Re: eU4 do mistake, but without EX.ERR

• Posted by sergelli Nov 01, 2012
• 1307 views

You are right!

This problem only happens with Wine under Linux.
I switched aversion of wine, and returned to work without error

Thank you Andreas.