move textbox script

[Mark Wieder]

Bob-

I'm sure someone will chime in with a better way, but here's what I
do to drag buttons around:

local bIsDragging
local mouseDownObject

on mouseDown
  if the name of the target contains "button" then
    put true into bIsDragging
    put the target into mouseDownObject
  end if
  pass mouseDown
end mouseDown

on mouseRelease
  put false into bIsDragging
end mouseRelease

on mouseUp
  put false into bIsDragging
end mouseUp

on mouseMove x,y
  if bIsDragging = true then
    set the loc of mouseDownObject to x,y
  end if
end mouseMove

-- 
-Mark Wieder
 mwieder at ahsoftware.net