Blender Volume 3 #4/Blender_3_4.iso/BLENDER/FILES/Shared.Cst/00058.ls

Text File | 1997-01-01 | 2.3 KB | 80 lines

--WINDOW SCRIPTS

--CONTROLPANEL WINDOWS
on CONTROLS
  global CONTROLWINDOW, DEST
  if objectP(CONTROLWINDOW) then
    forget CONTROLWINDOW
  end if
  set horzOrigin to the stageleft + 458
  set vertOrigin to the stagetop + 0
  set CONTROLWINDOWrect to rect (horzOrigin, vertOrigin, horzOrigin + 182, vertOrigin + 60)
  set CONTROLWINDOW to window "CONTROLS.DIR"
  set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  set the fileName of CONTROLWINDOW to "CONTROLS.DIR"
  set the titleVisible of CONTROLWINDOW to FALSE
  set the modal of CONTROLWINDOW to FALSE
  set the windowType of CONTROLWINDOW to 2
  open CONTROLWINDOW
end


--SURE YOU WANT TO QUIT? DIALOGUE
on endMOVIE
  global CONTROLWINDOW, DEST
  if objectP(CONTROLWINDOW) then
    forget CONTROLWINDOW
  end if
  set horzOrigin to the stageleft + 160
  set vertOrigin to the stagetop + 130
  set CONTROLWINDOWrect to rect (horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin + 220)
  set CONTROLWINDOW to window "CONTROL.DIR"
  set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  set the fileName of CONTROLWINDOW to "CONTROL.DIR"
  set the titleVisible of CONTROLWINDOW to FALSE
  set the modal of CONTROLWINDOW to FALSE
  set the windowType of CONTROLWINDOW to 2
  open CONTROLWINDOW
end


--HELPSCREEN
on HELPMOVIE
  global CONTROLWINDOW2, DEST
  set horzOrigin to the stageleft - 288
  set vertOrigin to the stageTop + 100
  set CONTROLWINDOW2rect to rect (horzOrigin, vertOrigin, horzOrigin + 430, vertOrigin + 206)
  set CONTROLWINDOW2 to window "HELP.DIR"
  set the rect of CONTROLWINDOW2 to CONTROLWINDOW2rect
  set the fileName of CONTROLWINDOW2 to "HELP.DIR"
  set the titleVisible of CONTROLWINDOW2 to FALSE
  set the windowType of CONTROLWINDOW2 to 2
  open CONTROLWINDOW2
  set the modal of CONTROLWINDOW2 to FALSE
end


--DISPOSE OF WINDOWS
on stopMovie
  global gOpSys, TRACKINGflag
  finishMovie
  if gOpSys <> #PIP then
    if  TRACKINGflag <> FALSE then
      trackTimeStop
    end if
  end if
end

on finishMovie
  global CONTROLWINDOW, CONTROLWINDOW2, gHelpTrue
  set gHelpTrue = 0
  set the modal of window "CONTROL.DIR" to FALSE
  set the modal of window "CONTROLS.DIR" to FALSE
  set the modal of window "HELP.DIR" to FALSE
  if objectP(CONTROLWINDOW) then
    forget CONTROLWINDOW
  end if
  if objectP(CONTROLWINDOW2) then
    forget CONTROLWINDOW2
  end if
end