LiveCode Forums

Code: Select all

on mousedown
   local repeatcounter
   put the mouseloc into tempmouseloc
   repeat while the mouse is down
      wait 2 ticks
      if the mouseloc is not tempmouseloc then pass mousedown
      put repeatcounter+1 into repeatcounter
      if repeatcounter > 10 then 
         
         set the rect of me to the rect of widget "utopia"
         put the left of me into xmini
         put the width of me into xmaxi
         put the top of me into ymini
         put the height of me into ymaxi
         
         put the region of widget "utopia" into tempregion
         set the itemDelimiter to comma
         
         
         put item 1 of tempregion into latcenter 
         put item 2 of tempregion into loncenter
         put item 3 of tempregion into latspan
         put item 4 of tempregion into lonspan
         put latcenter + latspan/2 into latmini
         put loncenter - lonspan/2 into lonmini
         put latcenter - latspan/2 into latmaxi
         put loncenter + lonspan/2 into lonmaxi
         
         put latmaxi-latmini into latdiff
         put lonmaxi-lonmini into londiff
         
         put the mouseh into xposition
         put the mousev into yposition
         
         put (latmini+(yposition-ymini)/ymaxi*latdiff) into currentlat
         put (lonmini+(xposition-xmini)/xmaxi*londiff) into currentlon
         ask "name of the marker"
         if the result is "Cancel" then exit mousedown
         
         put the markers of widget "utopia" into tMarkers
         put currentlat & comma & currentlon into tMarkers [it]["coordinates"]
         put it into tMarkers[it]["title"]
         set the markers of widget "utopia" to tMarkers
         
         exit repeat
      end if
   end repeat
end mousedown