subr movie_pop_cb
 ;10/28/2000 - generalize for multiple movies
 if $mv_multi_play_flag then {
  for i=1, $num_movies do {
   xtpopup, eval('$movie_form'+string(i))
   }
 } else {
  if no_movie() then return
  xtpopup, $movie_form0
 }
 ;also pop the clocks by doing an un manage and then a manage
 ; if $mv_analog_flag then {
 ;	 xtunmanage,xtparent($movie_clock_widget)
 ;	 xtmanage, xtparent($movie_clock_widget)
 ;	 }
 ;if $mv_date_flag then {
 ;	 xtunmanage,$movie_date_widget
 ;	 xtmanage, $movie_date_widget
 ;	 }
 ;11/13/2000 - the clocks are now children of $mvplaywidget, so we
 ;should be able to raise them by just doing ...
 xtpopup, $mvplaywidget
 endsubr
 ;========================================================