hey list --
having major problems understanding border xtra. the code and readme aren't
xactly intuitive. I'm trying to turn off the border on the stage. I am not
really sure where to place the code and am not really sure what is out of
date (most of it seems kind of old code). any help would be appreciated. Or
if there is a different way... thanks
carol
on startMovie
global gmac, gsep, stageborderon
if the machinetype = 256 then
set gsep = "\"
set gmac = 0
else
set gsep = ":"
set gmac = 1
end if
put "Movie started"
global stageborderOn
set stageborderOn = TRUE
initborderxtra
end
on stopmovie
closeborderxtra
end
on initborderxtra
global gsep, gmac, myborder
if not gmac then
if the runmode = "Author" then
if the platform contains "32" then
openxlib(the moviepath & "xtras" & gsep & "border.x32")
else
openxlib(the moviepath & "xtras" & gsep & "border.x16")
end if
end if
set myborder = new(xtra "border")
end if
end
on switchborder
global stageborderOn, myborder, gmac
-- get new borderstate
if gmac then
alert "You cannot switch the Stage border on or off on the Mac during
editing or runtime. You may switch the border off for the Projector by
patching the Projector with the chekbox " & quote & "Borderless stage" &
quote & " checked."
else
if stageborderOn = TRUE then
set stageborderOn = FALSE
put "the stageborder is now off"
else
set stageborderOn = TRUE
put "the stageborder is now on"
end if
-- set border
set i=getAppWin (myBorder)
set j=getStageWin (myBorder,i)
setBorder (myBorder, j, stageborderOn)
end if
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email
[EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for
learning and helping with programming Lingo. Thanks!]
