exerb 6.0.1

data/example/vr/vrmgdlayout.rb

@@ -0,0 +1,381 @@
+###################################
+#
+# vrmgdlayout.rb 
+#
+# Programmed by  yukimi_sake <yukimi_sake@mbi.nifty.com>
+# Copyright 2003-2004 Yukio Sakaue
+#
+###################################
+
+require 'vr/vrmargin'
+require 'vr/vrlayout2'
+
+module VRMarginedFrameUseable
+=begin
+== VRMarginedFrameUseable
+This is a extension of VRParent for enable to use WM_SIZE message handler.
+=== Extended methods
+--- setMarginedFrame(class,*args)
+    Register class on VRParent and setups WM_SIZE message handler.
+=end
+  
+  include VRMessageHandler
+  def vrinit
+    super
+    vrmarginedframe_init
+  end
+  
+  def vrmarginedframe_init
+    addHandler(WMsg::WM_SIZE,  "vrmgresize",  MSGTYPE::ARGLINTINT,nil)
+    acceptEvents [WMsg::WM_SIZE]
+  end
+  
+  def setMarginedFrame(klass,*args)
+    raise "Only one margined frame can set this window." if
+                                            @__regsterd_vr_margined_frame
+    if klass <= VRTwoPaneFrame
+      @__regsterd_vr_margined_frame=klass.new(args[0],args[1]).setup(self)
+    elsif klass <= VRGridLayoutFrame
+      @__regsterd_vr_margined_frame=klass.new(args[0],args[1])
+    else
+      @__regsterd_vr_margined_frame=klass.new
+    end
+    
+    def self.self_vrmgresize(w,h)
+      @__regsterd_vr_margined_frame.move(0,0,w,h) if
+                                                  @__regsterd_vr_margined_frame
+    end
+    sendMessage(WMsg::WM_SIZE, 0, MAKELPARAM(self.w, self.h))
+    @__regsterd_vr_margined_frame
+  end
+ 
+  module VRMgdLayoutFrame
+=begin
+== VRMgdLayoutFrame
+This is the extension of VRLayoutFrame.
+All classes are extended VRMargin which enables client's spacing.
+And following methods are available.
+=== Extended method of instance
+--- VRGridLayoutFrame#register(*cntl)
+    Allowd Arrays as arguments
+--- VRMgdFullsizeLayoutFrame#_vr_relayout
+    Redefined for that all clients are received same 'move(x,y,w,h)' method.
+=end
+    
+    include VRMargin
+    def initialize()
+      self.initMargin(0,0,0,0)
+      @_vr_layoutclients=[]
+      @_vr_lx,@_vr_ly,@_vr_lw,@_vr_lh = 0,0,10,10
+    end
+    def register(*cntl)
+      @_vr_layoutclients.concat(cntl.flatten.map{|i|
+        i.extend(VRMargin).initMargin(0,0,0,0)})
+      _vr_relayout
+    end
+  end
+    
+  class VRMgdVertLayoutFrame < VRVertLayoutFrame 
+    include VRMgdLayoutFrame
+  end
+  
+  class VRMgdHorizLayoutFrame < VRHorizLayoutFrame
+    include VRMgdLayoutFrame
+  end
+
+  class VRMgdFullsizeLayoutFrame < VRFullsizeLayoutFrame  
+    include VRMgdLayoutFrame    
+    def _vr_relayout
+      return if @_vr_layoutclients.size==0
+      @_vr_layoutclients.each_index do |i|
+        @_vr_layoutclients[i].move @_vr_lx, @_vr_ly,@_vr_lw,@_vr_lh
+      end
+    end
+  end
+
+  class VRMgdGridLayoutFrame < VRGridLayoutFrame
+    include VRMargin
+    def initialize(xs,ys)
+      self.initMargin(0,0,0,0)
+      super
+    end
+    def register(*cntl)
+      if cntl[0].is_a? Array
+        cntl.each{|i| i[0].extend(VRMargin).initMargin(0,0,0,0); super(*i)}
+      else
+        cntl[0].extend(VRMargin).initMargin(0,0,0,0)
+        super
+      end
+    end
+  end
+ 
+  module VRMgdTwoPaneFrame
+=begin
+== VRMgdTwoPaneFrame
+This is the extension of VRPaneFrame.
+All classes are extended VRMargin which enables client's spacing.
+And extended class has following methods and constants.
+
+=== Extended methods
+---position
+---position=
+   Position of splitter.
+   If it is a positive integer, it means the distance from the left or top edge.
+   If negative, it calculates opposite side.
+   If this value sets, 'ratio' will be reseted.
+   'ratio' and 'position' are exclusive each other.
+===R/W attributes
+---bevel
+   It is the form of the edge of a gap.You can draw it like below.
+    bevel=[[0x000000,0xffffff],[0xffffff,0x000000]]
+   First one is left/top feature,other is right/botm.
+   Drawn line in an order from an outside.
+   or
+    bevel=VRSplitter::BevelGroove1
+   see below constants.
+---gap
+   space between panes.
+===Class constants
+---BevelNone
+---BevelGroove1
+---BevelGroove2
+---BevelRaise1
+---BevelRaise2
+---BevelSunken1
+---BevelSunken2
+=end
+    include VRMargin
+    
+    BevelNone    = [[],[]]
+    BevelGroove1 = [[0x666666,0xffffff],[0xffffff,0x666666]]
+    BevelGroove2 = [[0x666666,0xffffff,0x666666,0xffffff],
+                    [0xffffff,0x666666,0xffffff,0x666666]]
+    BevelRaise1  = [[0xffffff],[0x666666]]
+    BevelRaise2  = [[0xffffff,0xffffff],[0x666666,0x666666]]
+    BevelSunken1 = [[0x666666],[0xffffff]]
+    BevelSunken2 = [[0x666666,0x666666],[0xffffff,0xffffff]]
+    
+    attr :ratio
+    attr :bevel
+    attr :position
+    
+    module VRTwoPaneFrame::VRTwoPaneFrameUsable
+      def _vr_twopaneframesinit
+        return if defined?(@_vr_twopaneframes)  # no init twice
+        @_vr_twopaneframes = Array.new
+        @_vr_current_tpframe=nil
+        addHandler(
+        WMsg::WM_LBUTTONUP,  "vrsepl2buttonup",  MSGTYPE::ARGINTSINTSINT,nil)
+        addHandler(
+        WMsg::WM_LBUTTONDOWN,"vrsepl2buttondown",MSGTYPE::ARGINTSINTSINT,nil)
+        addHandler(
+        WMsg::WM_MOUSEMOVE,  "vrsepl2mousemove",  MSGTYPE::ARGINTSINTSINT,nil)
+        addHandler(WMsg::WM_PAINT,  "vrsepl2paint",  MSGTYPE::ARGNONE,nil)
+        
+        acceptEvents [
+        WMsg::WM_LBUTTONUP,WMsg::WM_LBUTTONDOWN,WMsg::WM_MOUSEMOVE,
+        WMsg::WM_PAINT]
+      end
+      
+      def self_vrsepl2paint
+        @_vr_twopaneframes.each do |f|
+          f._vr_draw_bevel(self)
+        end
+      end
+      
+    end
+    
+    def initialize(pane1,pane2)
+      def set_margin_to_panes(pn)
+        if pn.is_a? Array
+          pn.each{|i| i.extend(VRMargin).initMargin(0,0,0,0)}
+        elsif pn
+          pn.extend(VRMargin).initMargin(0,0,0,0)
+        end
+      end
+      super
+      self.initMargin(0,0,0,0)
+      set_margin_to_panes(@pane1)
+      set_margin_to_panes(@pane2)
+      @bevel=BevelNone
+    end
+    
+    def position=(pos)
+      return unless pos.is_a?(Integer)
+      @position=pos
+      @ratio=nil
+      self._vr_relayout if @_vr_lw && @_vr_lh
+    end
+    
+    def ratio=(r)
+      return unless r.is_a?(Float) && ((0.0 <= r) && (r <= 1.0))
+      @ratio=r
+      @position=nil
+      self._vr_relayout if @_vr_lw && @_vr_lh
+    end
+    
+    def bevel=(b)
+      @bevel=b
+      self._vr_relayout if @_vr_lw && @_vr_lh
+    end
+      
+    def gap(); @separatorheight; end
+    def gap=(h)
+      @separatorheight=h
+      self._vr_relayout if @_vr_lw && @_vr_lh
+    end
+  end
+  
+  class VRMgdVertTwoPaneFrame < VRVertTwoPaneFrame
+    include VRMgdTwoPaneFrame
+    attr :uLimit,1
+    attr :lLimit,1
+    def initialize(p1,p2)
+      super
+      @uLimit = 0; @lLimit = 0
+    end
+    
+    def splitterDragging(x,y)
+      return if y<@separatorheight+@_vr_ly+@uLimit or
+                                     y>@_vr_ly+@_vr_lh-@separatorheight-@lLimit
+      if @ratio then
+        @ratio=(y-@_vr_ly).to_f/@_vr_lh
+      elsif @position < 0
+        @position = y - @_vr_lh - @_vr_ly
+      else
+        @position = y - @_vr_ly
+      end
+      
+      case(splitter_operation_type)
+      when SPLITTER_MOVEWINDOW
+        _vr_relayout(y-@_vr_ly)
+      when SPLITTER_DRAWLINE
+        w = window_parent
+        w.dopaint do |hdc|
+          w.setBrush(RGB(0x255,0x255,0x255))
+          if @_vr_splitter_last then
+            VRTwoPaneFrame::PatBlt.call(hdc,*@_vr_splitter_last) 
+          end
+          current=[@_vr_lx,y,@_vr_lw,@separatorheight,0x5a0049] # PATINVERT
+          VRTwoPaneFrame::PatBlt.call(hdc,*current)
+          @_vr_splitter_last = current
+        end
+      end
+    end
+    
+    def _vr_relayout(ys =
+      if @ratio then (@_vr_lh*@ratio).to_i
+      elsif @position < 0
+        @_vr_lh + @position
+      else
+        @position
+      end )
+      sh=(@separatorheight/2).to_i
+      @_vr_lxs,@_vr_lxe = @_vr_lx,@_vr_lx+@_vr_lw
+      @_vr_lys,@_vr_lye = @_vr_ly+ys-sh,@_vr_ly+ys+sh
+      if @pane1.is_a? Array
+        @pane1.each{|i| i.move(@_vr_lx,@_vr_ly,@_vr_lw,ys-sh)}
+      elsif @pane1
+        @pane1.move(@_vr_lx,@_vr_ly,@_vr_lw,ys-sh)
+      end
+      if @pane2.is_a? Array
+        @pane2.each{|i| i.move(@_vr_lx,@_vr_lys+@separatorheight, @_vr_lw,
+          @_vr_lh-ys-sh)}
+      elsif @pane2
+        @pane2.move(@_vr_lx,@_vr_lys+@separatorheight, @_vr_lw,@_vr_lh-ys-sh) 
+      end
+    end
+    
+    def _vr_draw_bevel(win)
+      return unless @_vr_lxs
+      win.dopaint do
+        @bevel[0].each_with_index{|cl,idx|
+          win.setPen(@bevel[0][idx],1)
+          win.grMoveTo(@_vr_lxs+idx,@_vr_lye-idx-1)
+          win.grLineTo(@_vr_lxs+idx,@_vr_lys+idx)
+          win.grLineTo(@_vr_lxe-idx,@_vr_lys+idx)
+          win.setPen(@bevel[1][idx],1)
+          win.grMoveTo(@_vr_lxe-idx-1,@_vr_lys+idx)
+          win.grLineTo(@_vr_lxe-idx-1,@_vr_lye-idx-1)
+          win.grLineTo(@_vr_lxs+idx,@_vr_lye-idx-1)
+        }
+      end
+    end
+  end
+  
+  class VRMgdHorizTwoPaneFrame < VRHorizTwoPaneFrame
+    include VRMgdTwoPaneFrame
+    attr :rLimit,1
+    attr :lLimit,1
+    def initialize(p1,p2)
+      super
+      @rLimit = 0; @lLimit = 0
+    end
+    def splitterDragging(x,y)
+      return if x<@separatorheight+@_vr_lx+@lLimit or
+                                      x>@_vr_lx+@_vr_lw-@separatorheight-@rLimit
+      if @ratio then
+        @ratio=(x-@_vr_lx).to_f/@_vr_lw
+      elsif @position < 0
+        @position = x - @_vr_lw - @_vr_lx
+      else
+        @position = x - @_vr_lx
+      end
+      case splitter_operation_type
+      when SPLITTER_MOVEWINDOW
+        _vr_relayout(x-@_vr_lx)
+      when SPLITTER_DRAWLINE
+        w = window_parent
+        w.dopaint do |hdc|
+          w.setBrush(RGB(0x255,0x255,0x255))
+          if @_vr_splitter_last then
+            VRTwoPaneFrame::PatBlt.call(hdc,*@_vr_splitter_last) 
+          end
+          current=[x,@_vr_ly,@separatorheight,@_vr_lh,0x5a0049] # PATINVERT
+          VRTwoPaneFrame::PatBlt.call(hdc,*current)
+          @_vr_splitter_last = current
+        end
+      end
+    end
+
+    def _vr_relayout(xs =
+      if @ratio then (@_vr_lw*@ratio).to_i
+      elsif @position < 0
+        @_vr_lw + @position
+      else
+        @position
+      end)
+      sh=(@separatorheight/2).to_i
+      @_vr_lxs,@_vr_lxe = @_vr_lx+xs-sh,@_vr_lx+xs+sh
+      @_vr_lys,@_vr_lye = @_vr_ly,@_vr_ly+@_vr_lh
+      
+      if @pane1.is_a? Array then
+        @pane1.each{|i| i.move(@_vr_lx,@_vr_ly,xs-sh,@_vr_lh)}
+      elsif @pane1
+        @pane1.move(@_vr_lx,@_vr_ly,xs-sh,@_vr_lh)
+      end
+      if @pane2.is_a? Array
+        @pane2.each{|i| i.move(@_vr_lxs+@separatorheight,@_vr_ly,
+           @_vr_lw-xs-sh, @_vr_lh)}
+      elsif @pane2
+        @pane2.move(@_vr_lxs+@separatorheight,@_vr_ly, @_vr_lw-xs-sh, @_vr_lh)
+      end
+    end
+    
+    def _vr_draw_bevel(win)
+      return unless @_vr_lxs
+      win.dopaint do
+        @bevel[0].each_with_index{|cl,idx|
+          win.setPen(@bevel[0][idx],1)
+          win.grMoveTo(@_vr_lxe-idx-1,@_vr_lys+idx+1)
+          win.grLineTo(@_vr_lxs+idx,@_vr_lys+idx+1)
+          win.grLineTo(@_vr_lxs+idx,@_vr_lye-idx)
+          win.setPen(@bevel[1][idx],1)
+          win.grMoveTo(@_vr_lxs+idx,@_vr_ly+@_vr_lh-idx-1)
+          win.grLineTo(@_vr_lxe-idx-1,@_vr_lye-idx-1)
+          win.grLineTo(@_vr_lxe-idx-1,@_vr_lys+idx)
+        }
+      end
+    end
+  end
+end

data/example/vr/vrmmedia.rb

@@ -0,0 +1,287 @@
+###################################
+#
+# vrmmedia.rb
+# Programmed by nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 1999-2005  Nishikawa,Yasuhiro
+#
+# More information at http://vruby.sourceforge.net/index.html
+#
+# Good Reference: vfw.h
+#
+###################################
+
+VR_DIR="vr/" unless defined?(::VR_DIR)
+require VR_DIR+'vrcontrol'
+require 'Win32API'
+
+=begin
+= VisualuRuby(tmp) modules for MCI
+=end
+
+
+#if RUBY_VERSION<"1.4.4" then   # Quick Hacking..
+#  require 'DLLManager'
+#  DLLManager.load("msvfw32.dll")
+#end
+
+MCIWndRegisterClass = Win32API.new("msvfw32","MCIWndRegisterClass",[],"I")
+MCIWndRegisterClass.call
+
+
+module VRMediaViewContainer
+=begin
+== VRMediaViewContainer
+This module provides a message handler for MCI messages.
+VRForm includes this module automatically loading "vrmmedia.rb".
+=end
+  include VRMessageHandler
+
+  def vrinit
+    super
+    mediaviewcontainerinit
+  end
+
+  def mediaviewcontainerinit
+    addHandler(VRMediaView::MCIWNDM_NOTIFYMODE,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    addHandler(VRMediaView::MCIWNDM_NOTIFYERROR,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    addHandler(VRMediaView::MCIWNDM_NOTIFYSIZE,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    addHandler(VRMediaView::MCIWNDM_NOTIFYMEDIA,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    acceptEvents [ VRMediaView::MCIWNDM_NOTIFYMODE,
+                   VRMediaView::MCIWNDM_NOTIFYSIZE,
+                   VRMediaView::MCIWNDM_NOTIFYMEDIA,
+                   VRMediaView::MCIWNDM_NOTIFYERROR  ]
+
+    addNoRelayMessages [ VRMediaView::MCIWNDM_NOTIFYMODE,
+                         VRMediaView::MCIWNDM_NOTIFYSIZE,
+                         VRMediaView::MCIWNDM_NOTIFYMEDIA,
+                         VRMediaView::MCIWNDM_NOTIFYERROR  ]
+  end
+
+  def self_mmnotifies(msg)
+    ct=@_vr_mediaviewers_hwnd[msg.wParam]
+    return unless ct
+    messageid=msg.msg
+
+    return unless ct._vr_mmhandlers and ct._vr_mmhandlers[messageid] 
+
+    ct._vr_mmhandlers[messageid].each do |shandler|
+      args=msgarg2handlerarg(shandler[1],msg,shandler[2])
+      ct.__send__(shandler[0],*args) if ct.respond_to?(shandler[0])
+      msg.retval = controlmsg_dispatching(ct,shandler[0],*args)
+    end
+  end
+
+  def addControl(*args)
+    @_vr_mediaviewers_hwnd={} unless defined?(@_vr_mediaviewers_hwnd)
+    a=super
+    @_vr_mediaviewers_hwnd[a.hWnd]=a if a.is_a?(VRMediaView)
+    return a
+  end
+end
+
+module VRContainersSet
+  include VRMediaViewContainer
+  INITIALIZERS.push :mediaviewcontainerinit
+end
+
+
+#####
+
+module VRMediaViewModeNotifier
+  include VRMediaViewContainer
+
+=begin
+== VRMediaViewModeNotifier
+This module is to use another event handlers for mci.
+These new handlers are not relayed to parent by VRMessageParentRelayer.
+(Use setnotifier() as setnotifier("cname1_cname2))
+
+=== Methods
+--- setnotifier(cname)
+    This enables ((<VRMediaView>))'s other event handlers such as cname_stopped,
+    cname_playing,cname_paused and cname_open, named after 
+    ((<VRMediaView>))#modestring.
+=end
+
+  def setnotifier(cname)
+    instance_eval(
+      "def "+cname+"_modechanged(n)\n" +
+      "  fname='#{cname}_'+@#{cname}.modestring(n) \n" +
+       " __send__(fname) if respond_to?(fname) \n" +
+      "end\n"
+    )
+  end
+end
+
+
+class VRMediaView < VRControl
+=begin
+== VRMediaView
+This is a control window to play multimedia files.
+
+=== Methods
+--- mediaopen(filename,flag=0)
+    Open mediafile as filename.
+--- mediaclose
+    Close mediafile.
+--- mode
+    Return current mode number.
+--- modestring(n)
+    Return description for mode number #n
+--- errorstring
+    Return error description
+--- play
+--- pause
+--- stop
+--- eject
+--- step(n=1)
+--- seek(pos)
+--- seekHome
+--- seekEnd
+--- playable?
+--- ejectable?
+--- window?
+--- length
+--- position
+--- volume
+--- volume=(vl)
+--- speed
+--- speed=
+--- zoom
+--- zoom=
+
+=== Event Handlers
+--- ????_onerror()
+--- ????_modechanged(newmode)
+--- ????_sizechanged()
+--- ????_mediachanged(str)
+=end
+
+
+  attr :_vr_mmhandlers
+
+  MCI_CLOSE = 0x0804
+  MCI_PLAY  = 0x0806
+  MCI_SEEK  = 0x0807
+  MCI_STOP  = 0x0808
+  MCI_PAUSE = 0x0809
+  MCI_STEP  = 0x080E
+
+  MCIWNDM_GETPOSITION  = (WMsg::WM_USER + 102)    # A message
+  MCIWNDM_GETLENGTH    = (WMsg::WM_USER + 104)
+  MCIWNDM_GETMODE      = (WMsg::WM_USER + 106)    # A message
+  MCIWNDM_EJECT        = (WMsg::WM_USER + 107)
+  MCIWNDM_SETZOOM      = (WMsg::WM_USER + 108)
+  MCIWNDM_GETZOOM      = (WMsg::WM_USER + 109)
+  MCIWNDM_SETVOLUME    = (WMsg::WM_USER + 110)
+  MCIWNDM_GETVOLUME    = (WMsg::WM_USER + 111)
+  MCIWNDM_SETSPEED     = (WMsg::WM_USER + 112)
+  MCIWNDM_GETSPEED     = (WMsg::WM_USER + 113)
+
+  MCIWNDM_GETERROR     = (WMsg::WM_USER + 128)    # A message
+
+  MCIWNDM_CAN_PLAY     = (WMsg::WM_USER + 144)
+  MCIWNDM_CAN_WINDOW   = (WMsg::WM_USER + 145)
+  MCIWNDM_CAN_EJECT    = (WMsg::WM_USER + 148)
+  MCIWNDM_CAN_CONFIG   = (WMsg::WM_USER + 149)
+  MCIWNDM_SETOWNER     = (WMsg::WM_USER + 152)
+  MCIWNDM_OPEN         = (WMsg::WM_USER + 153)    # A message
+
+  MCIWNDM_NOTIFYMODE   = (WMsg::WM_USER + 200)  # wparam = hwnd, lparam = mode
+  MCIWNDM_NOTIFYSIZE   = (WMsg::WM_USER + 202)  # wparam = hwnd
+  MCIWNDM_NOTIFYMEDIA  = (WMsg::WM_USER + 203)  # wparam = hwnd, lparam = fn
+  MCIWNDM_NOTIFYERROR  = (WMsg::WM_USER + 205)  # wparam = hwnd, lparam = error
+
+  MCIWNDF_NOPLAYBAR       = 0x0002
+  MCIWNDF_NOAUTOSIZEMOVIE = 0x0004
+  MCIWNDF_NOMENU          = 0x0008
+
+  MCIWNDF_SIMPLE          = 0xe
+
+  WINCLASSINFO = ["MCIWndClass",0x5500 | 0x400 | 0x880 ] 
+                                  #notify:mode,error,size,media
+
+  def addMMHandler(msg,handlername,handlertype,argparsestr)
+    @_vr_mmhandlers={} unless defined? @_vr_mmhandlers
+    @_vr_mmhandlers[msg]=[] unless @_vr_mmhandlers[msg]
+    @_vr_mmhandlers[msg].push [handlername,handlertype,argparsestr]
+  end
+
+  def deleteMMHandler(msg,handlername)
+    return false unless defined?(@_vr_mmhandlers) and @_vr_mmhandlers[msg]
+    @_vr_mmhandlers.delete_if do |shandler|
+      shandler[0] != (PREHANDLERSTR+handlername).intern
+    end
+  end
+
+  def vrinit
+    super
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYERROR,"onerror",MSGTYPE::ARGINT,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYMODE,"modechanged",MSGTYPE::ARGINT,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYSIZE, "sizechanged",MSGTYPE::ARGNONE,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYMEDIA,"mediachanged",MSGTYPE::ARGSTRING,nil)
+  end
+
+  def mediaopen(filename,flag=0)
+    sendMessage  MCIWNDM_OPEN,flag,filename
+    sendMessage  MCIWNDM_SETOWNER,@parent.hWnd,0
+  end
+
+  def play()         sendMessage MCI_PLAY,0,0 end
+  def pause()        sendMessage MCI_PAUSE,0,0 end
+  def stop()         sendMessage MCI_STOP,0,0 end
+  def mediaclose()   sendMessage MCI_CLOSE,0,0 end
+  def eject()        sendMessage MCI_EJECT,0,0 end
+  def step(n=1)      sendMessage MCI_STEP,0,n.to_i end
+  def seek(pos)      sendMessage MCI_SEEK,0,pos.to_i end
+  def seekHome()     sendMessage MCI_SEEK,0,-1 end
+  def seekEnd()      sendMessage MCI_SEEK,0,-2 end
+
+  def playable?()    sendMessage(MCIWNDM_CAN_PLAY,0,0)!=0 end
+  def ejectable?()   sendMessage(MCIWNDM_CAN_EJECT,0,0)!=0 end
+  def window?()      sendMessage(MCIWNDM_CAN_WINDOW,0,0)!=0 end
+
+  def length()       sendMessage MCIWNDM_GETLENGTH,0,0 end
+  def position()     sendMessage MCI_SEEK,0,0 end
+  
+  def volume=(vl)    sendMessage MCIWNDM_SETVOLUME,0,vl.to_i end
+  def volume()       sendMessage MCIWNDM_GETVOLUME,0,0 end
+  def speed=(sp)     sendMessage MCIWNDM_SETSPEED,0,sp.to_i end
+  def speed()        sendMessage MCIWNDM_GETSPEED,0,0 end
+  def zoom=(zm)      sendMessage MCIWNDM_SETZOOM,0,zm.to_i end
+  def zoom()         sendMessage MCIWNDM_GETZOOM,0,0 end
+  
+  def mode
+    p="\0                               "  #32bytes
+    sendMessage MCIWNDM_GETMODE,31,p
+    p
+  end
+  
+  def modestring(n)
+    case n
+      when 524; "not_ready"
+      when 525; "stopped"
+      when 526; "playing"
+      when 527; "recording"
+      when 528; "seeking"
+      when 529; "paused"
+      when 530; "open"
+      else;     "unknown_mode"
+    end
+  end
+  
+  def errorstring
+    p="\0                               "*8  #256bytes
+    sendMessage MCIWNDM_GETERROR,255,p
+    p
+  end
+  
+end
+
+if VR_COMPATIBILITY_LEVEL then
+  require VR_DIR + 'compat/vrmmedia.rb'
+end