home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
vxdemo.zip
/
MOVIES.$$$
/
PLAYONE.VRX
< prev
next >
Wrap
Text File
|
1993-06-18
|
640b
|
32 lines
/*:VRX Main
*/
/*
Syntax:
rc = PlayOne( <window>, <list name> )
Returns
1 OK
0 Error
*/
main:
signal on novalue
window = arg( 1 )
listName = arg( 2 )
rc = 0
movie = VRFileDialog( window, "Select a movie", "O", "*.AVI" )
if movie = "" then signal leave_play_one
my_id = VRMethod( "Application", "GetThreadID" )
title = "Thread" my_id || ":" movie
call VRMethod listName, "AddString", title
call MMMovie window, movie, 8
call VRMethod listName, "DeleteString", title
rc = 1
leave_play_one:
exit rc