OpenEuphoria

1. Dave, how do I detect double clicks on List items?

• Posted by Derek Brown <Cyrusbrown at AOL.COM> Sep 07, 1999
• 501 views
• Last edited Sep 08, 1999

Dave,
  What I'm trying to do is open a window that edits list items when you
double click them.  I already have a pushbutton to do it, but for sake of
shortcut the double click would be nice.
  First I tried by making a variable called clicked.  Here is the onChange
routine for the list:

  if clicked = getIndex(List01) then
    openWindow(Win2,Modal)
  else
    clicked = getIndex(List01)
  end if

  The only problem is the program runs through the above procedure twice.  So
it then put in a skip variable, which alternates between off and on.  If skip
= off then it will do the above, else skip = on.  However, now it takes five
clicks to open Win2.  Below is the test code I used.  I'm trying to put this
feature in all my lists for my game, so if I can figure out the problem in
the test I can translate it easily.
  Any suggestions?

Thanks,
Derek Brown

include win32lib.ew
without warning

integer clicked, skip
with trace
--trace(1)

constant
  Win = create(Window,"Win",0,100,100,300,300,0),
  Win2 = create(Window,"Win2",0,150,150,150,150,0),
  List01 = create(List,"",Win,10,10,200,250,0)

procedure OpenWin()
  addItem(List01,"ONE")
  addItem(List01,"TWO")
  addItem(List01,"THREE")
  addItem(List01,"FOUR")
  addItem(List01,"FIVE")
  clicked = 0
  skip = 0
  setIndex(List01,1)
end procedure

procedure Update()
  if skip = 0 then skip = 1 else skip = 0 end if
  if skip = 0 then
    if clicked = getIndex(List01) then
      openWindow(Win2,Modal)
      clicked = 0
    else
      clicked = getIndex(List01)
    end if
  end if
end procedure

procedure CloseWin2()
  clicked = 0
end procedure

onOpen[Win] = routine_id("OpenWin")
onChange[List01] = routine_id("Update")
onClose[Win2] = routine_id("CloseWin2")

WinMain(Win,Normal)