LiveCode Forums.

Code: Select all

local sAllowEditingFlag = "FALSE"  -- have to use the quotes, otherwise a script compile error
local sMessageID

on mouseUp
  if (sAllowEditingFlag = FALSE) then
    put TRUE into sAllowEditingFlag
    send "editingTimeout" to me in 2 seconds
    put the result into sMessageID
  else
    put FALSE into sAllowEditingFlag
    // do your editing
  end if
end mouseUp

on mouseDoubleUp
  if (sAllowEditingFlag = TRUE) then
    put FALSE into sAllowEditingFlag
    cancel sMessageID
  end if
end mouseDoubleUp

on editingTimeout
  put FALSE into sAllowEditingFlag
end editingTimeout

Code: Select all

on mouseup
   wait 15
   if the mouseClick then
      set the locktext of me to "false"
      set the listbehavior of me to "false"
   end if
end mouseup

on mouseLeave
    set the locktext of me to "true"
      set the listbehavior of me to "true"
end mouseLeave

Code: Select all

local sClicked -- can declare here or at top
on mouseup
   if not sClicked then
      put true into sClicked
      send "clearClick" to me in 35 -- adjust timing as you see fit
   else
      local theKey
      if the dgProps["allow editing"] of the dgControl of me then
         switch the short name of the target
            case "Label"
               put "Label 1" into theKey
               EditFieldText the long ID of the target, the dgIndex of me, theKey
               break                 
         end switch
       put false into sClicked
      end if
   end if
   pass mouseUp
end mouseup

command clearClick
   put false into sClicked
end clearClick

Code: Select all

on mouseDoubleUp pMouseBtnNum
  ## Whatever you want to happen with doubleclick goes here. 
   
   pass mouseDoubleUp
end mouseDoubleUp


local sClickStarted --the milliseconds of the first click
on mouseup
   if not sClicked then
      put the milliseconds into sClickStarted -- store the milliseconds
      put true into sClicked --could probably drop this and just check of sClickStarted is empty /shrug
      send "clearClick" to me in 60 --if the double click interval is 500, then any interval longer than 1/2 sec, up to 1 full sec will enter edit mode
   else
      if the milliseconds - sClickStarted > the doubleclickinterval then -- do the interval check
         local theKey
         if the dgProps["allow editing"] of the dgControl of me then
            switch the short name of the target
               case "Label"
                  put "Label 1" into theKey
                  EditFieldText the long ID of the target, the dgIndex of me, theKey
                  break                 
            end switch

         end if
     put false into sClicked -- clear vars. Whether it was a double click or not, still clear here. 
      put empty into sClickStarted
      end if
 
   end if
   pass mouseUp
end mouseup

command clearClick
   put false into sClicked -- clears stray clicks longer than the max interval.  Should probably check pending messages and make sure these aren't stacked in queue
end clearClick