source: python/trunk/Mac/Demo/quicktime/VerySimplePlayer.py

Last change on this file was 2, checked in by Yuri Dario, 15 years ago

Initial import for vendor code.

  • Property svn:eol-style set to native
File size: 3.0 KB
Line 
1"""VerySimplePlayer converted to python
2
3Jack Jansen, CWI, December 1995
4"""
5
6from Carbon import Qt
7from Carbon import QuickTime
8from Carbon import Qd
9from Carbon import QuickDraw
10from Carbon import Evt
11from Carbon import Events
12from Carbon import Win
13from Carbon import Windows
14from Carbon import File
15import EasyDialogs
16import sys
17
18# XXXX maxbounds = (40, 40, 1000, 1000)
19
20def main():
21 print 'hello world' # XXXX
22 # skip the toolbox initializations, already done
23 # XXXX Should use gestalt here to check for quicktime version
24 Qt.EnterMovies()
25
26 # Get the movie file
27 fss = EasyDialogs.AskFileForOpen(wanted=File.FSSpec) # Was: QuickTime.MovieFileType
28 if not fss:
29 sys.exit(0)
30
31 # Open the window
32 bounds = (175, 75, 175+160, 75+120)
33 theWindow = Win.NewCWindow(bounds, fss.as_tuple()[2], 0, 0, -1, 1, 0)
34 # XXXX Needed? SetGWorld((CGrafPtr)theWindow, nil)
35 Qd.SetPort(theWindow)
36
37 # Get the movie
38 theMovie = loadMovie(fss)
39
40 # Relocate to (0, 0)
41 bounds = theMovie.GetMovieBox()
42 bounds = 0, 0, bounds[2]-bounds[0], bounds[3]-bounds[1]
43 theMovie.SetMovieBox(bounds)
44
45 # Create a controller
46 theController = theMovie.NewMovieController(bounds, QuickTime.mcTopLeftMovie)
47
48 # Get movie size and update window parameters
49 rv, bounds = theController.MCGetControllerBoundsRect()
50 theWindow.SizeWindow(bounds[2], bounds[3], 0) # XXXX or [3] [2]?
51 Qt.AlignWindow(theWindow, 0)
52 theWindow.ShowWindow()
53
54 # XXXX MCDoAction(theController, mcActionSetGrowBoxBounds, &maxBounds)
55 theController.MCDoAction(QuickTime.mcActionSetKeysEnabled, '1')
56
57 # XXXX MCSetActionFilterWithRefCon(theController, movieControllerEventFilter, (long)theWindow)
58
59 done = 0
60 while not done:
61 gotone, evt = Evt.WaitNextEvent(0xffff, 0)
62 (what, message, when, where, modifiers) = evt
63## print what, message, when, where, modifiers # XXXX
64
65 if theController.MCIsPlayerEvent(evt):
66 continue
67
68 if what == Events.mouseDown:
69 part, whichWindow = Win.FindWindow(where)
70 if part == Windows.inGoAway:
71 done = whichWindow.TrackGoAway(where)
72 elif part == Windows.inDrag:
73 Qt.DragAlignedWindow(whichWindow, where, (0, 0, 4000, 4000))
74 elif what == Events.updateEvt:
75 whichWindow = Win.WhichWindow(message)
76 if not whichWindow:
77 # Probably the console window. Print something, hope it helps.
78 print 'update'
79 else:
80 Qd.SetPort(whichWindow)
81 whichWindow.BeginUpdate()
82 Qd.EraseRect(whichWindow.GetWindowPort().GetPortBounds())
83 whichWindow.EndUpdate()
84
85def loadMovie(theFile):
86 """Load a movie given an fsspec. Return the movie object"""
87 movieResRef = Qt.OpenMovieFile(theFile, 1)
88 movie, d1, d2 = Qt.NewMovieFromFile(movieResRef, 0, QuickTime.newMovieActive)
89 return movie
90
91if __name__ == '__main__':
92 main()
Note: See TracBrowser for help on using the repository browser.