|
|
Title Bar MIAW
Added on 6/10/1999
|
Title Bar MIAW
property pMouseDown, pStartLoc
on beginSprite me
set pMouseDown = 0
end
on mouseDown me
set pMouseDown = 1
set lMH = the mouseH
set lMV = the mouseV
set pStartLoc = rect(lMH, lMV, lMH, lMV)
end
on exitFrame me
if pMouseDown then
set lMH = the mouseH
set lMV = the mouseV
set lMouseLoc = rect(lMH, lMV, lMH, lMV)
set lDiff = lMouseLoc - pStartLoc
set lMovieName = the movieName
repeat with w in the windowList
set lPathToWin = the filename of w
if lPathToWin contains lMovieName then
set lRectOfWin = the rect of w
set lRectOfWin = lRectOfWin + lDiff
set the rect of w = lRectOfWin
updatestage
exit repeat
end if
end repeat
end if
end
on mouseUp me
set pMouseDown = 0
end
on mouseUpOutside me
set pMouseDown = 0
end
on getBehaviorDescription
set lText = ""
put "--======= Title Bar MIAW behavior =======--" & RETURN after lText
put "This behavior makes a sprite act as if it " after lText
put "were a window"s title bar. In other words, " after lText
put "the sprite which receives this behavior will " after lText
put "move the MIAW which the sprite is in around. " after lText
put "If the sprite is not inside of a MIAW then " after lText
put "nothing will happen. " & RETURN & RETURN after lText
put "NOTE: The sprite can be any size and shape " after lText
put "that you like, however, if you use the " after lText
put "companion Windowshade MIAW behavior then be " after lText
put "aware that the rect of your title bar is " after lText
put "very important." & RETURN & RETURN after lText
put "As always, if you use this behavior I would " after lText
put "like a mention in your credits. Enjoy." & RETURN & RETURN after lText
put "/// © Rett Crocker 1997 \" & RETURN after lText
put "\ r3tt@mindspring.com ///" & RETURN after lText
return lText
end
|
|