OpenEuphoria

2. Win32Lib bug...maybe...I think...

• Posted by Chris Bensler <bensler at mailops.com> Feb 04, 2001
• 455 views

I've taken the liberty of FWD'ing this msg to the new list.. A response is much
more
likely to appear here than on the old list..

---------- Original Message ----------------------------------
From:         Jonas and Kristin Temple <jktemple at YHTI.NET>
<EUPHORIA at LISTSERV.MUOHIO.EDU>
Date:         Sat, 3 Feb 2001 14:03:57 -0600

I have been really struggling with this one and thought it was in my code until
I get the
registered version of Euphoria and it showed me the error was in a routine in 
Win32Lib.  Here's the sequence of events to re-produce the bug:

- Run the code I've included.
- There are two buttons, one labeled "Test, No Clear" and the other "Test, with
Clear".
The difference is whether or not the eraseItems routine is used to clear the
list view
control in the subsequence window.
- With no items in the list view in the main window, click either test button
and drag the
window around the screen.  No problem.
- Close the second window, click the add item to add one or more items to the
main
list view control.
- Now click "Test, No Clear".  Drag the second window around the screen.  No 
problem.  
- Close the second window, click "Test, With Clear".  Drag the second window 
around and eventually the program wil crash in the fDoLVN_GETDISPINFO routine.  
The crash usually happens when the window is moved so some portion of the list 
view in the main window becomes visible.

Again, I'm not certain if I'm doing something wrong but the bug ONLY happens
when
you call eraseItems for the list view control in the second window AND items are
in
the list view control in the main window.  How about that for obscure?  I'm
working on
a database order entry application and using list views are pretty central in my
design.  This is definitely keeping me from proceeding.

Since I'm on the subject, here's what I'd like to see added/changed in list view
controls:
- A removeColumns() routine to remove all the columns in a list view.  There are
some circustances where it would be nice to rebuild the columns.
- Ability to specify where to add the item using addLVItem routine.  The
function
currently uses 0 as the parameter of where to add the item.  If you are adding
items
from a database the first one you added is always the last one in the list.  It
would be
nice to have more control over that.  I have changed this myself in Win32Lib but
I want
to stick with the official version.
- I don't have particulars about this one, but there seems to be a problem when 
retrieving a list view item and the user has clicked a column header to change
the
sort order of the items.  I don't think the internal sequence for the list view
is being
resorted.  Sorry I can't provide more detail.

It may seem like I'm focusing in on list view controls but I have been using
them so
much I have found these limitations.  I would like to say that I really
appreciate all the
work the different people have been doing to Win32Lib.  I am grateful for their
efforts.

Jonas

Here's the code:

include Win32Lib.ew 

without warning

global atom MainWin_x, MainWin_y, MainWin_cx, MainWin_cy,

MaintWin_cx, MaintWin_cy

-- Starting values for window size/position 

MainWin_x = 100

MainWin_y = 100

MainWin_cx = 550

MainWin_cy = 450

MaintWin_cx = 550

MaintWin_cy = 300 

global constant

MainWin = create( Window, "Job History", 0, MainWin_x, MainWin_y, MainWin_cx, 
MainWin_cy, 0)

-- Constants for main window

global constant

TestNo = create( PushButton, "Test, No Clear", MainWin, 5, 5, 90, 30, 0),

TestYes = create( PushButton, "Test, With Clear", MainWin, 5, 35, 90, 30, 0),

AddItem = create( PushButton, "Add Item", MainWin, 5, 65, 90, 30, 0),

ClearItem = create( PushButton, "Clear Item", MainWin, 5, 95, 90, 30, 0),

JobList = createEx( ListView, {"Job Name", "Job Number", "Customer",

"Status"},

MainWin, 100, 25, MainWin_cx - 50, MainWin_cy - 50, LVS_REPORT,

LVS_EX_FULLROWSELECT)


-- Window MaintWin 

global constant MaintWin = create( Window, "Job History View", MainWin, 1, 1,
800,
500, WS_DLGFRAME)

global constant Static1 = create( LText, "Job Number:", MaintWin, 8, 12, 76, 20,
0 )

global constant JobNumberEdit = create( EditText, "", MaintWin, 88, 12, 88, 20,
0 )

global constant Static2 = create( LText, "Job Name:", MaintWin, 8, 44, 76, 20, 0
)

global constant JobNameEdit = create( EditText, "", MaintWin, 88, 44, 212, 20, 0
)

global constant Static3 = create( LText, "Contact:", MaintWin, 8, 76, 76, 20, 0
)

global constant JobContactEdit = create( EditText, "", MaintWin, 88, 76, 212,
20, 0 )

global constant Static4 = create( LText, "Address:", MaintWin, 8, 108, 76, 20, 0
)

global constant JobAddressEdit = create( EditText, "", MaintWin, 88, 108, 212,
20, 0 )

global constant Static5 = create( LText, "City:", MaintWin, 8, 140, 76, 20, 0 )

global constant JobCityEdit = create( EditText, "", MaintWin, 88, 140, 212, 20,
0 )

global constant Static6 = create( LText, "State:", MaintWin, 8, 172, 76, 20, 0 )

global constant JobStateEdit = create( EditText, "", MaintWin, 88, 172, 48, 20,
0 )

global constant Static7 = create( LText, "Zip:", MaintWin, 144, 172, 36, 20, 0 )

global constant JobZipEdit = create( EditText, "", MaintWin, 184, 172, 116, 20,
0 )

global constant Static8 = create( LText, "Phone:", MaintWin, 8, 204, 76, 20, 0 )

global constant JobPhoneEdit = create( EditText, "", MaintWin, 88, 204, 150, 20,
0 )

global constant Static9 = create( LText, "Estimated $ for Quoted Work:",
MaintWin, 324,
44, 150, 20, 0 )

global constant Static10 = create( LText, "Actual $ for Complete Work:",
MaintWin, 324,
76, 150, 20, 0 )

global constant JobEstimateEdit = create( EditText, "", MaintWin, 476, 44, 150,
20, 0 )

global constant JobActualEdit = create( EditText, "", MaintWin, 476, 76, 150,
20, 0 )

global constant JobStatusGroup = create( Group, "Job Status:", MaintWin, 324,
108,
200, 112, 0 )

global constant StatusQuote = create( Radio, "Quoted", MaintWin, 328, 124, 150,
20, 0 )

global constant StatusRejected = create( Radio, "Rejected", MaintWin, 328, 156,
150,
20, 0 )

global constant StatusComplete = create( Radio, "Completed", MaintWin, 328, 188,
150,
20, 0 )

global constant JobDetailList = create( ListView, 

{"Description","Line","Quantity","Price Per Unit",

"Estimated Amount","Actual Amount","Estimator",

"Installer","Line Status","Sched Install Date","Actual Install Date"}, 

MaintWin, 8, 232,736, 180, LVS_REPORT+LVS_SHOWSELALWAYS)

global constant OkayButton = create( PushButton, "Okay", MaintWin, 648, 20, 90,
30, 0 )

global constant CancelButton = create( PushButton, "Cancel", MaintWin, 648, 60,
90,
30, 0 )

global constant AddItemButton = create( PushButton, "Add Item", MaintWin, 536,
108,
90, 30, 0 )

global constant EditItemButton = create( PushButton, "Edit Item", MaintWin, 536,
144,
90, 30, 0 )

global constant DeleteItemButton = create( PushButton, "Delete Item", MaintWin,
536,
180, 90, 30, 0 )


procedure MainWin_onResize(atom style, atom new_cx, atom new_cy) 

if style != SIZE_MINIMIZED then 

-- Store new window size co-ordinates

MainWin_cx = new_cx

MainWin_cy = new_cy 

setSize(JobList, MainWin_cx - 100, MainWin_cy - 100)

end if

end procedure

onResize[ MainWin ] = routine_id("MainWin_onResize")

--


procedure TestNo_onClick() 

-- Display the job maintenance window

openWindow(MaintWin, Modal) 

end procedure

onClick[ TestNo ] = routine_id("TestNo_onClick")

procedure TestYes_onClick() 

eraseItems(JobDetailList)

-- Display the job maintenance window

openWindow(MaintWin, Modal) 

end procedure

onClick[ TestYes ] = routine_id("TestYes_onClick")


procedure AddItem_onClick() 

atom lv_item

lv_item = addLVItem(JobList, 0, {"1","1",

"1","Quoted"})

end procedure

onClick[ AddItem ] = routine_id("AddItem_onClick")


procedure ClearItem_onClick() 

eraseItems(JobList)

end procedure

onClick[ ClearItem ] = routine_id("ClearItem_onClick")

WinMain(MainWin, Maximize)