Staging
v0.5.1
swh:1:snp:635f4099902912592851108bcac178ff574f7c5f
Raw File
Tip revision: 399502c0ba39f545fcdf6230e2e163961c655480 authored by cvs2svn on 09 October 1997, 23:32:24 UTC
This commit was manufactured by cvs2svn to create tag 'r15a4'.
Tip revision: 399502c
VerySimplePlayer.py
"""VerySimplePlayer converted to python

Jack Jansen, CWI, December 1995
"""

import Qt
import QuickTime
import Qd
import QuickDraw
import Evt
import Events
import Win
import Windows
import macfs
import sys

# XXXX maxbounds = (40, 40, 1000, 1000)

def main():
	print 'hello world' # XXXX
	# skip the toolbox initializations, already done
	# XXXX Should use gestalt here to check for quicktime version
	Qt.EnterMovies()
	
	# Get the movie file
	fss, ok = macfs.StandardGetFile(QuickTime.MovieFileType)
	if not ok:
		sys.exit(0)
		
	# Open the window
	bounds = (175, 75, 175+160, 75+120)
	theWindow = Win.NewCWindow(bounds, fss.as_tuple()[2], 0, 0, -1, 1, 0)
	# XXXX Needed? SetGWorld((CGrafPtr)theWindow, nil)
	Qd.SetPort(theWindow)
	
	# Get the movie
	theMovie = loadMovie(fss)
	
	# Relocate to (0, 0)
	bounds = theMovie.GetMovieBox()
	bounds = 0, 0, bounds[2]-bounds[0], bounds[3]-bounds[1]
	theMovie.SetMovieBox(bounds)
	
	# Create a controller
	theController = theMovie.NewMovieController(bounds, QuickTime.mcTopLeftMovie)
	
	# Get movie size and update window parameters
	rv, bounds = theController.MCGetControllerBoundsRect()
	theWindow.SizeWindow(bounds[2], bounds[3], 0)   # XXXX or [3] [2]?
	Qt.AlignWindow(theWindow, 0)
	theWindow.ShowWindow()
	
	# XXXX MCDoAction(theController, mcActionSetGrowBoxBounds, &maxBounds)
	theController.MCDoAction(QuickTime.mcActionSetKeysEnabled, '1')
	
	# XXXX MCSetActionFilterWithRefCon(theController, movieControllerEventFilter, (long)theWindow)
	
	done = 0
	while not done:
		gotone, evt = Evt.WaitNextEvent(-1, 0)
		(what, message, when, where, modifiers) = evt
##		print what, message, when, where, modifiers # XXXX
		
		if theController.MCIsPlayerEvent(evt):
			continue
			
		if what == Events.mouseDown:
			part, whichWindow = Win.FindWindow(where)
			if part == Windows.inGoAway:
				done = whichWindow.TrackGoAway(where)
			elif part == Windows.inDrag:
				Qt.DragAlignedWindow(whichWindow, where, (0, 0, 4000, 4000))
		elif what == Events.updateEvt:
			whichWindow = Win.WhichWindow(message)
			if not whichWindow:
				# Probably the console window. Print something, hope it helps.
				print 'update'
			else:
				Qd.SetPort(whichWindow)
				whichWindow.BeginUpdate()
				Qd.EraseRect(whichWindow.GetWindowPort().portRect)
				whichWindow.EndUpdate()
			
def loadMovie(theFile):
	"""Load a movie given an fsspec. Return the movie object"""
	movieResRef = Qt.OpenMovieFile(theFile, 1)
	movie, d1, d2 = Qt.NewMovieFromFile(movieResRef, 0, QuickTime.newMovieActive)
	return movie
	
if __name__ == '__main__':
	main()
	
back to top