LiveCode Forums.

Code: Select all

on mouseDown
   set the loc of this stack to the screenmouseloc
end mouseDown

Code: Select all

on moveStack
   wait 10 milliseconds with messages
end moveStack

Code: Select all

on mouseMove 
   lock screen
   if sgDragging is true then 
      set the left of this stack to item 1 of globalloc(the mouseLoc) - sgLeftOffset 
      set the top of this stack to item 2 of globalloc(the mouseLoc) - sgTopOffset 
      
      -- added by me. Despite being 0 ms, gives enough time for other messages to kick in
      -- 10 milliseconds wait makes it a bit jumpy on my system but 0 seems to work well. 
      wait 0 milliseconds with messages 
      
   end if 
   unlock screen 
end mouseMove

Code: Select all

local tReading,tOut
on openCard
   -- I set my parameters to match the arduino script
   set the serialcontrolstring to "baud=115200 parity=N data=8 stop=1" 
   doconnect -- call connect handler
end openCard

on closecard
   if tReading then dodisconnect -- call disconnect handler
end closecard

command toggleConnect 
    -- this is a called by a button to toggle connection status. 
    -- I turn it off when I want to upload a new script, back on to test.
   if tReading then
      dodisconnect
   set the label of button "tConB" to "Disconnected"
   else
      doconnect
      set the label of button "tConB" to "Connected"
      end if
end toggleConnect

 -- just sends an A. 
 --I have a script or two for the arduino that grab the A and figure out what to do with it
command turnon
   if tReading then  write "A" to file "COM3:"
end turnon

--same as above. sends o
command turnoff
   if tReading then write "o" to file "COM3:"
end turnoff

--sends b
command makeBlink
   if tReading then write "b" to file "COM3:"
end makeBlink

--connects, toggles a connection flag (tReading), starts readloop.
command doconnect 
   put true into tReading
   open file "COM3:" for update
   set the label of button "tConB" to "Connected"
   readLoop
end doconnect

-- disconnects, sets flag to false so readloop will exit
command dodisconnect
   put false into tReading
   close file "COM3:"
   set the label of button "tConB" to "Disconnected"
end dodisconnect

--if tReading then
--reads from com3 till empty.  
--if theres something there, put it into my field. 
--calls itself in 50 milliseconds
command readLoop
   if tReading then
      read from file "COM3:" until empty
      if it is not empty then put it after tOut
      send readLoop to me in 50 milliseconds
   else
      put empty into tOut -- "outField"
   end if
   if the number of lines in tOut > 20 then
      delete line 1 to -21 of tOut -- just limits the amount of data to show
   end if
   lock screen
   put tOut into field "outField" -- puts the data into the field
   unlock screen
end readLoop

Code: Select all

local sgDragging, sgLeftOffset, sgTopOffset

on mouseDown 
    put item 1 of the mouseLoc into sgLeftOffset 
    put item 2 of the mouseLoc into sgTopOffset 
    wait 0 milliseconds with messages
    put true into sgDragging 
end mouseDown

on mouseMove 
    lock screen
    if sgDragging is true then 
        set the left of this stack to item 1 of globalloc(the mouseLoc) - sgLeftOffset 
        set the top of this stack to item 2 of globalloc(the mouseLoc) - sgTopOffset 
    end if 
    unlock screen 
end mouseMove

on mouseRelease 
    put false into sgDragging 
end mouseRelease

on mouseUp 
    put false into sgDragging 
end mouseUp

Code: Select all

   if the number of lines in tOut > 20 then
      delete line 1 to -21 of tOut -- just limits the amount of data to show
   end if

Code: Select all

command moveButton
   if tDir is empty then put "up" into tDir
   lock moves
   if tDir is "down" then 
      move button 2 from 100,100 to 100,300 in 2 seconds without waiting
      move button 3 from 200,100 to 200,300 in 2 seconds without waiting
      put "up" into tDir
   else
      move button 2 from 100,300 to 100,100 in 2 seconds without waiting
      move button 3 from 200,300 to 200,100 in 2 seconds without waiting
      put "down" into tDir
   end if
   unlock moves
end moveButton