LiveCode Forums.

Code: Select all

local sLastLoc, sTrack,sdepTime --•• jmb 130210 add local sdepTime

on mouseUp
   put the ticks into sdepTime --•• jmb 130210 
   --breakpoint
   if sTrack is "" then put false into sTrack
   if sTrack is false then 
      put true into sTrack
      set the brushcolor to black
      set the brush to 8
      choose brush tool
      
      put the mouseLoc into sLastLoc
      send trackMouse to me in 25 milliseconds
   end if
end mouseUp

on mouseLeave
   put false into sTrack
   choose browse tool
end mouseLeave

on trackMouse
   if sTrack then
      -- once in paint mode the image does not get mouseUp/mouseDown messages
      -- that is why you have to end painting differently
      -- here I use the optionKey = Alt-key on windows
      if the optionkey is down then
         choose browse tool
         put false into sTrack
         exit trackMouse
      end if
      put the mouseLoc into tLoc
      
      --•• bernd
      --          drag from sLastLoc to tLoc
      --         put tLoc into sLastLoc
      --•• bernd end
      
      --•• JMB 130210
      if sLastLoc <>tLoc then
         drag from sLastLoc to tLoc
         put tLoc into sLastLoc
         put the ticks into sdepTime
      else
         if the ticks >sdepTime+180 then --•• after 3 seconds no move set the tool to browse
            choose browse tool
            exit to top
         end if
      end if
      --•••  JMB 130210 end
      
      if "trackMouse" is not in the pendingmessages then
         send trackMouse to me in 45 milliseconds -- change time as appropriate
      end if
   end if
end trackMouse

Code: Select all

   if the ticks >sdepTime+180 then --•• after 3 seconds no move set the tool to browse
            choose browse tool
             put false into sTrack -- Added this BN
            exit to top
         end if