OpenEuphoria

eU4 do mistake, but without EX.ERR

• Posted by sergelli Oct 30, 2012
• 1217 views

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)