home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxdemo.zip / MOVIES.$$$ / PLAYONE.VRX < prev    next >
Text File  |  1993-06-18  |  640b  |  32 lines
  1. /*:VRX         Main
  2. */
  3. /*
  4.     Syntax:
  5.         rc = PlayOne( <window>, <list name> )
  6.     Returns
  7.         1   OK
  8.         0   Error
  9. */
  10. main:
  11.     signal on novalue
  12.  
  13.     window = arg( 1 )
  14.     listName = arg( 2 )
  15.     
  16.     rc = 0
  17.     
  18.     movie = VRFileDialog( window, "Select a movie", "O", "*.AVI" )
  19.     if movie = "" then signal leave_play_one
  20.  
  21.     my_id = VRMethod( "Application", "GetThreadID" )
  22.     title = "Thread" my_id || ":" movie     
  23.     call VRMethod listName, "AddString", title
  24.     call MMMovie window, movie, 8
  25.     call VRMethod listName, "DeleteString", title
  26.  
  27.     rc = 1
  28.  
  29. leave_play_one: 
  30. exit rc
  31.  
  32.