LiveCode Forums.

Code: Select all

local doMove = false

on mouseDown
   put true into doMove
   put the loc of me into fld "fSTART"
   put the loc of me into fld "fFINISH"
   reset the templateGraphic
   if there is not a graphic "LYNE" then
      create grc "LYNE"
   end if
   
   -- set layer to be able to click again into "me" 
   -- otherwise "me" is partially covered by "LYNE"
   set the layer of grc "LYNE" to the layer of me -1
   
   set the style of grc "LYNE" to "line"
   set the lineSize of grc "LYNE" to 4
   --   set the height of grc "LYNE" to 100
   --   set the width of grc "LYNE" to 100
   --send "choose browse tool" to me
   choose "browse" tool -- I think it is not needed; how would you get here in edit mode
   put fld "fSTART" into XSTART
   set the points of grc "LYNE" to (XSTART & cr & XSTART)
end mouseDown

on mouseMove
   if doMove then
      put the mouseLoc into fld "fFINISH"
      set the points of grc "LYNE" to field "fStart" & cr & the mouseLoc
   end if
end mouseMove

on mouseUp
   put fld "fSTART" into XSTART
   put fld "fFINISH" into XFIN
   set the points of grc "LYNE" to (XSTART & cr & XFIN)
   put false into doMove
end mouseUp

-- you are outside of the starting object and it will only get a mouseRelease
on mouseRelease
   mouseUp
end mouseRelease