Hi David, 

try the srcipt below. Iam currently using it to resize the stage of a stub 
movie to the size of the screen -  a kind of fake-full-screen if you will, as 
the stub displays a nice background image, in front of which the actual movie 
sits.

the lines you are probably most interested are:

newRect = the deskTopRectList[1]
(the stage).rect = newRect


====================================
global gOldStage, gMovie

on startMovie
  
  -- resize BG
  gOldStage = the stage.Rect
  
  newRect = the deskTopRectList[1]
  (the stage).Rect = newRect
  (the stage).rect = newRect
  
  put newRect
  
  tLAcross = newRect[3]/2 - 416
  tLDown = newRect[4]/2 - 312
  tRAcross = newRect[3]/2 + 416
  tRDown = newRect[4]/2 + 312
  
  put tLAcross, tLDown, tRAcross, tRDown
  
  -- open movie
  gMovie = window "Front"
  set gMovie.rect to rect(tLAcross, tLDown, tRAcross, tRDown)
  set gMovie.titleVisible to FALSE
  open gMovie
  
end startMovie


on stopMovie
  
  -- close window
  gMovie.forget()
  
  -- resize stage back
  (the stage).Rect = gOldStage
  
end stopMovie

================================================

___________________________________________________
Meet other people who share your interests.

http://www.homemaster.net - Homemaster. Come Together. Online.

[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!]

Reply via email to