You can use this code in combination with a view that gets user input
such as requests to load and play a particular MCI file. For example, a
simple view might have two push buttons, Load file and Play
file, and use a file selection prompter for selecting an MCI
file.
The runMCI script might read:
runMCI | mci file | mci := (self subpartNamed: 'Media Control Interface1'). file := (self subpartNamed: 'File Selection Prompter1') selectedFileName. mci send: 'open digitalvideo wait'. mci send: 'load digitalvideo ',file,' wait'. mci send: 'play digitalvideo wait'. mci send: 'close digitalvideo wait'.
For the connections, you do the following: