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()
93