A Field Trip to the Sky (Demo)/Mac_Sunburst_AFieldTripToTheSky-Demo.iso/DIR/SHARED.DIR/01112_Script_MIAWS

Text File | 1996-03-27 | 913b | 36 lines

--ïï openModalMIAW ïï
on openModalMIAW theMIAWName

  -- create the window w/ the name as .dir file
  set theWindow to window theMIAWName
  set the filename of theWindow to theMIAWName
  -- hide it
  set the visible of theWIndow to FALSE
  -- make it plain
  set the windowType of theWindow to 2
  -- make it modal
  set the modal of theWIndow to TRUE
  -- position it
  set r to the rect of theWindow

  set w to getAt(r,3) - getAt(r,1)
  set h to getAt(r,4) - getAt(r,2)
  set x to (the stageRight + the stageLeft)/2
  set y to (the stageBottom + the stageTop)/2
  set r to rect(x-w/2,y-h/2,x-w/2 + w,y-h/2+h)

  set the rect of theWindow to r

  -- open it and start it
  open theWindow
  set the visible of theWindow to FALSE

  return theWindow
end

-- ïï closeModalMIAW ïï
on closeModalMIAW theMIAWName
  close window theMIAWName
  forget window theMIAWName
end