global gTextHold, gStageUHCursor, gNoteArchive, NPWindowRect
on startMovie
NotePadSetup()
end
on NotePadSetup
if voidp(gNoteArchive) then
set the text of field "notes" to EMPTY
else
set the text of field "notes" to gNoteArchive
end if
end
on closeWindow
set gNoteArchive to the text of field "notes"
set NPWindowRect to the rect of window "Notepad"
tell the stage
forget(window "Notepad")
end tell
end
on copyIT
set gTextHold to EMPTY
set gTextHold to the selection
set the text of member 6 to gTextHold
copyToClipBoard(member 6)
end
on pasteIt
if the selStart > 0 then
set the text of field "notes" to char 1 to the selStart of field "notes" & gTextHold & char the selEnd + 1 to the number of chars in field "notes" of field "notes"
pasteClipBoardInto(member 6)
else
pasteClipBoardInto(member 6)
set pasteholder to the text of field 6
set noteholder to the text of field "notes"
set newNote to noteholder & RETURN & pasteholder
set the text of field "notes" to newNote
end if
end
on clearIt
set gTextHold to "----"
set the text of field "notes" to "----"
copyToClipBoard(member "notes")
end
on printIT
print(the text of member "notes")
end
on rollabel
if rollOver(2) then
puppetSprite(5, 1)
set the loc of sprite 5 to point(the mouseH, the mouseV) + 20
else
set the loc of sprite 5 to point(-9999, -9999)
updateStage()
puppetSprite(5, 0)
end if
end
on cmdDown
if the commandDown then
case the key of
"v":
pasteIt()
"c":
copyIT()
end case
end if
end
on clickButton action
set spritenum to the clickOn
set castMember to the member of sprite spritenum
set Castname to the name of member castMember
set castNum to the castLibNum of member castMember
puppetSprite(spritenum, 1)
repeat while the mouseDown
if rollOver(spritenum) then
set the member of sprite spritenum to member (Castname && "dn") of castLib castNum
