Hey! I just discovered interesting opportunity in (S)XEmacs.  That is
video glyphs, i.e. glyphs running video inside.  Just try out this
code:
    (defun lg-video-glyph (file &optional w h)
      "Create video glyph to play FILE.
    Optionally you can specify width and height by passing W and H args."
      (let* ((gg (make-glyph [subwindow]))
             (prc (start-process "mplayer" nil "mplayer"
                                 "-wid" (int-to-string
                                         (subwindow-xid
                                          (glyph-image-instance gg)))
                                 (expand-file-name file))))
        (resize-subwindow
         (glyph-image-instance gg) (or w 200) (or h 140))
        (put gg 'mplayer-proc prc)
        gg))
    (setq gg (lg-video-glyph "~/crypt/video/kunfu-panda.mp4"))
    (set-extent-end-glyph
     (make-extent (point) (point))
     gg)
than you are able to resize video glyph with sexp like this:
    (resize-subwindow (glyph-image-instance gg) WIDTH HEIGHT)
Most interesting is that if you point the cursor inside that glyph you
can control mplayer as normal, i mean you can rewind, pause, change
volume, etc, and OSD works as well
thanks
-- 
lg
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta