vruby 2004.08.07

data/lib/vr/clipboard.rb

@@ -0,0 +1,107 @@
+###################################
+#
+# clipboard.rb
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 2000-2002 Nishikawa,Yasuhiro
+#
+# More information at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+# (in Japanese)
+#
+###################################
+
+VR_DIR="vr/" unless defined?(::VR_DIR)
+require VR_DIR+'sysmod'
+require 'Win32API'
+
+class Clipboard
+=begin
+== Clipboard
+A class for handling clipboard.
+
+=== Class Method
+--- open(hwnd)
+    opens the clipboard and returns the instance.
+    When it is used in iterator style, clipboard is automatically closed
+    and returns whether it succeed to close clipboard or not.
+
+=== Methods
+--- close
+    Closes clipboard.
+--- enum_formats
+    Enums the clipboard formats to get from clipboard.
+--- getData(format)
+    Gets data in the ((|format|)) from clipboard.
+--- setData(format,data)
+    Sets data into the clipboard. (clipboard is cleared before set)
+--- getText
+    same as getData(VR_CF_TEXT)
+--- setText(string)
+    same as setData(VR_CF_TEXT, ((|string|)) )
+=end
+
+  include ClipboardFormat
+  GetClipboardData = Win32API.new('user32','GetClipboardData','I','L')
+  SetClipboardData = Win32API.new('user32','SetClipboardData','IL','L')
+  EnumClipboardFormats = Win32API.new('user32','EnumClipboardFormats','I','I')
+  OpenClipboard = Win32API.new('user32','OpenClipboard','L','I')
+  CloseClipboard = Win32API.new('user32','CloseClipboard','V','I')
+  EmptyClipboard = Win32API.new('user32','EmptyClipboard','V','I')
+
+#
+  VR_CF_TEXT = CF_OEMTEXT # modify if you like to use CF_TEXT than CF_OEMTEXT
+
+  def self.open(*args)
+    r = self.new(*args)
+    if iterator?
+      yield r
+      r.close
+    else
+      return r
+    end
+  end
+
+  def initialize(hwnd)
+    @hwnd = hwnd
+    @opened = (OpenClipboard.call(hwnd)!=0)
+    raise "fail to open clipboard" unless defined?(@opened)
+  end
+
+  def close
+    @opened = (CloseClipboard.call() == 0)
+  end
+
+  def getData(uformat)
+    raise "Clipboard not opened" unless defined?(@opened)
+    gmem = GetClipboardData.call(uformat.to_i)
+    raise "GetData failed" if gmem==0
+    GMEM::Get(gmem) if gmem!=0
+  end
+
+  def setData(uformat,data)
+    raise "Clipboard not opened" unless defined? @opened
+    EmptyClipboard.call
+    gmem = GMEM::AllocStr(66,data)
+    SetClipboardData.call(uformat,gmem)
+#    GMEM::Free(gmem)
+  end
+
+  def getText
+    r=getData(VR_CF_TEXT)
+    r.split(/\0/,0)[0]
+  end
+
+  def setText(str)
+    setData VR_CF_TEXT,str.to_s
+  end
+
+  def enum_formats
+    r=0
+    while true do
+      r=EnumClipboardFormats.call(r)
+      break if r==0
+      yield r 
+    end
+  end
+end
+
+

data/lib/vr/compat/rubycompat.rb

@@ -0,0 +1,18 @@
+require 'Win32API'
+
+if RUBY_VERSION < "1.6"  # for 1.5 or 1.4
+  def Win32API.new(dll,func,args,retval)
+    args = args.split(//) if args.is_a?(String)
+    super dll,func,args,retval
+  end
+  class Object
+    alias class :type
+  end
+
+elsif RUBY_VERSION < "1.7" # for 1.6
+
+
+#elsif RUBY_VERSION < "1.8" # for 1.7
+
+end
+

data/lib/vr/compat/vrcomctl.rb

@@ -0,0 +1,12 @@
+class VRUpdown < VRNotifyControl
+  alias vrinitnew vrinit
+  undef vrinitnew
+  def vrinit
+    super
+    addNotifyHandler(WMsg::UDN_DELTAPOS,"deltapos",
+                    MSGTYPE::ARGSTRUCT,WStruct::NM_UPDOWN)
+    addNotifyHandler(WMsg::UDN_DELTAPOS,"changed",
+                    MSGTYPE::ARGSTRUCT,WStruct::NM_UPDOWN)
+    addFilterArg WMsg::UDN_DELTAPOS,"TF"
+  end
+end

data/lib/vr/compat/vrcontrol.rb

@@ -0,0 +1,50 @@
+unless defined?(VREdit) then
+  raise "compatibility file must be loaded after its original one."
+end
+
+class VREdit
+  alias vrinitnew vrinit
+  undef vrinitnew
+  def vrinit
+    super
+    addCommandHandler(0x300,"change",MSGTYPE::ARGNONE,nil) 
+    addCommandHandler(0x300,"changed",MSGTYPE::ARGNONE,nil)
+  end
+end
+
+class VRListbox
+  alias vrinitnew vrinit
+  undef vrinitnew
+  def vrinit
+    super
+    addCommandHandler(WMsg::LBN_SELCHANGE, "selchange",MSGTYPE::ARGNONE,nil)
+    addCommandHandler(WMsg::LBN_SELCHANGE, "selchanged",MSGTYPE::ARGNONE,nil)
+    set_liststrings
+  end
+
+  alias getCount      :countStrings
+  alias selectedIndex :selectedString
+  alias getString     :getTextOf
+  alias itemString    :getTextOf
+  alias setItemData   :setDataOf
+  alias getItemData   :getDataOf
+end
+
+class VRCombobox
+  alias vrinitnew vrinit
+  undef vrinitnew
+  def vrinit
+    super
+    set_liststrings
+    addCommandHandler(WMsg::CBN_SELCHANGE, "selchange",MSGTYPE::ARGNONE,nil)
+    addCommandHandler(WMsg::CBN_SELCHANGE, "selchanged",MSGTYPE::ARGNONE,nil)
+  end
+
+  alias getCount      :countStrings
+  alias selectedIndex :selectedString
+  alias getString     :getTextOf
+  alias itemString    :getTextOf
+  alias setItemData   :setDataOf
+  alias getItemData   :getDataOf
+
+end

data/lib/vr/compat/vrmmedia.rb

@@ -0,0 +1,24 @@
+unless defined?(VREdit) then
+  raise "compatibility file must be loaded after its original one."
+end
+
+
+class VRMediaView
+  def vr_e_compatibility
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYMODE,"modechange",MSGTYPE::ARGINT,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYSIZE, "sizechange",MSGTYPE::ARGNONE,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYMEDIA,"mediachange",MSGTYPE::ARGSTRING,nil)
+  end
+
+  alias vrinitnew vrinit
+  undef vrinitnew
+  def vrinit
+    super
+    vr_e_compatibility
+    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
+end
+

data/lib/vr/contrib/inifile.rb

@@ -0,0 +1,111 @@
+###############################
+#
+# contrib/inifile.rb
+#
+# These modules/classes are contributed by Yukimi_Sake-san.
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+
+class Inifile < Hash
+=begin
+===Inifile
+It makes inifile like Window's in working directory
+[section]
+key=value
+...
+
+===Methods
+---deletekey(section,key)
+  Delete ((|key|)) and associated value in ((|section|)).
+---erasesection(section)
+  Erase ((|section|)) and associated keys and values.
+---read( section, key, [default=""])
+  Read value associated ((|key|)) in ((|section|)).
+  If ((|section|)) or ((|key|)) not exists ,value uses ((|default|)).
+---write( section, key, value)
+  Write ((|value|)) in assiciated ((|key|)) and ((|section|)).
+  If ((|section|)) or ((|key|)) not exists , make them.
+---frash
+  Write into ((|inifilename|)) of instance.
+=end
+  def initialize(iniFilename) #privatemethod. Use "new(inFilename)" instead.
+    sec={}
+    section=""
+    @fn = Dir.getwd + "/" + iniFilename
+    if File.exist?(@fn) then
+      f=open @fn
+      f.each do |t|
+        if t =~ /\[.+\]/ then
+          section= t.sub(/\[(.+)\]/,'\1').strip
+          sec={section=>{}}
+          self.update sec
+        elsif t =~/.+=/ then
+          a=t.split(/=/)
+          val={a[0].strip=>a[1].strip}
+          self[section].update(val)
+        end
+      end
+      f.close
+    end
+  end
+
+  def deletekey(section,key)
+    self[section.strip].delete(key)
+  end
+
+  def erasesection(section)
+    self.delete(section)
+  end
+
+  def read( section, key, default="")
+    if self[section] && r=self[section][key] then r else default end
+  end
+
+  def write( section, key, value)
+    self.update({section.strip=>{}}) if self[section.strip] == nil
+    self[section.strip].update({key.strip => (value.to_s).strip})
+  end
+
+  def flash
+    f=open @fn,"w"
+    self.each do |k,v|
+      f.write'['+k+']' +"\n"
+      v.each do |k1,v1|
+         f.write k1+"="+v1.to_s+"\n"
+      end
+    end
+    f.close
+  end
+
+end
+
+=begin sample
+require 'inifile'
+
+ini =  Inifile.new ("test.ini") # generate instance and read if
+                                # targetfile exists
+
+p "writing as method"
+ini.write "section1","key11",11
+ini.write "section1","key12",12
+ini.write "section2","key21",21
+ini.write "section2","key22",22
+ini.write "section3","key31",31
+ini.write "section3","key32",32
+p ini.read "section1","key11",101
+p ini.read("section1","key13",103)
+p ini.read("section2","key22",202)
+p ini.read("section2","key23",203)
+p ini.read("section3","key32",302)
+p ini.read("section3","key33",303)
+p "writing as Hash"
+p ini["section1"]["key11"]
+p ini["section2"]
+#ini.deletekey("section1","key12")
+#ini.erasesection("section1")
+
+ini.flash  # now update inifile
+
+=end

data/lib/vr/contrib/msgboxconst.rb

@@ -0,0 +1,55 @@
+###############################
+#
+# contrib/msgboxconst.rb
+#
+# These modules/classes are contributed by Yuya-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+#====================================================================#
+# WConst Module
+module WConst
+
+  MB_USERICON             = 128
+  MB_ICONASTERISK         = 64
+  MB_ICONEXCLAMATION      = 0x30
+  MB_ICONWARNING          = 0x30
+  MB_ICONERROR            = 16
+  MB_ICONHAND             = 16
+  MB_ICONQUESTION         = 32
+  MB_OK                   = 0
+  MB_ABORTRETRYIGNORE     = 2
+  MB_APPLMODAL            = 0
+  MB_DEFAULT_DESKTOP_ONLY = 0x20000
+  MB_HELP                 = 0x4000
+  MB_RIGHT                = 0x80000
+  MB_RTLREADING           = 0x100000
+  MB_TOPMOST              = 0x40000
+  MB_DEFBUTTON1           = 0
+  MB_DEFBUTTON2           = 256
+  MB_DEFBUTTON3           = 512
+  MB_DEFBUTTON4           = 0x300
+  MB_ICONINFORMATION      = 64
+  MB_ICONSTOP             = 16
+  MB_OKCANCEL             = 1
+  MB_RETRYCANCEL          = 5
+  MB_SERVICE_NOTIFICATION = 0x40000
+  MB_SETFOREGROUND        = 0x10000
+  MB_SYSTEMMODAL          = 4096
+  MB_TASKMODAL            = 0x2000
+  MB_YESNO                = 4
+  MB_YESNOCANCEL          = 3
+  MB_ICONMASK             = 240
+  MB_DEFMASK              = 3840
+  MB_MODEMASK             = 0x00003000
+  MB_MISCMASK             = 0x0000c000
+  MB_NOFOCUS              = 0x00008000
+  MB_TYPEMASK             = 15
+
+end
+
+#====================================================================#
+# End of source.
+#====================================================================#

data/lib/vr/contrib/toolbar.rb

@@ -0,0 +1,378 @@
+###############################
+#
+# contrib/toolbar.rb
+#
+# These modules/classes are contributed by Yukimi_Sake-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+module WMsg
+# WM_USER                 = 0x400
+  TB_ENABLEBUTTON         = WM_USER + 1
+  TB_CHECKBUTTON          = WM_USER + 2
+  TB_PRESSBUTTON          = WM_USER + 3
+  TB_HIDEBUTTON           = WM_USER + 4
+  TB_INDETERMINATE        = WM_USER + 5
+  TB_ISBUTTONENABLED      = WM_USER + 9
+  TB_ISBUTTONCHECKED      = WM_USER + 10
+  TB_ISBUTTONPRESSED      = WM_USER + 11
+  TB_ISBUTTONHIDDEN       = WM_USER + 12
+  TB_ISBUTTONINDETERMINATE = WM_USER + 13
+  TB_SETSTATE             = WM_USER + 17
+  TB_GETSTATE             = WM_USER + 18
+  TB_ADDBITMAP            = WM_USER + 19
+  TB_ADDBUTTONS           = WM_USER + 20
+  TB_INSERTBUTTON         = WM_USER + 21
+  TB_DELETEBUTTON         = WM_USER + 22
+  TB_GETBUTTON            = WM_USER + 23
+  TB_BUTTONCOUNT          = WM_USER + 24
+  TB_COMMANDTOINDEX       = WM_USER + 25
+  TB_SAVERESTOREA         = WM_USER + 26
+  TB_SAVERESTOREW         = WM_USER + 76
+  TB_CUSTOMIZE            = WM_USER + 27
+  TB_ADDSTRINGA           = WM_USER + 28
+  TB_GETITEMRECT          = WM_USER + 29
+  TB_BUTTONSTRUCTSIZE     = WM_USER + 30
+  TB_SETBUTTONSIZE        = WM_USER + 31
+  TB_SETBITMAPSIZE        = WM_USER + 32
+  TB_AUTOSIZE             = WM_USER + 33
+  TB_GETTOOLTIPS          = WM_USER + 35
+  TB_SETTOOLTIPS          = WM_USER + 36
+  TB_SETPARENT            = WM_USER + 37
+  TB_SETROWS              = WM_USER + 39
+  TB_GETROWS              = WM_USER + 40
+  TB_GETBITMAPFLAGS       = WM_USER + 41
+  TB_SETCMDID             = WM_USER + 42
+  TB_CHANGEBITMAP         = WM_USER + 43
+  TB_GETBITMAP            = WM_USER + 44
+  TB_GETBUTTONTEXTA       = WM_USER + 45
+  TB_REPLACEBITMAP        = WM_USER + 46
+  TB_SETINDENT            = WM_USER + 47
+  TB_SETIMAGELIST         = WM_USER + 48
+  TB_GETIMAGELIST         = WM_USER + 49
+  TB_LOADIMAGES           = WM_USER + 50
+  TB_GETRECT              = WM_USER + 51 # wParam is the Cmd instead of index
+  TB_SETHOTIMAGELIST      = WM_USER + 52
+  TB_GETHOTIMAGELIST      = WM_USER + 53
+  TB_SETDISABLEDIMAGELIST = WM_USER + 54
+  TB_GETDISABLEDIMAGELIST = WM_USER + 55
+  TB_SETSTYLE             = WM_USER + 56
+  TB_GETSTYLE             = WM_USER + 57
+  TB_GETBUTTONSIZE        = WM_USER + 58
+  TB_SETBUTTONWIDTH       = WM_USER + 59
+  TB_SETMAXTEXTROWS       = WM_USER + 60
+  TB_GETTEXTROWS          = WM_USER + 61
+  TB_GETBUTTONTEXTW       = WM_USER + 75
+  TB_ADDSTRINGW           = WM_USER + 77
+
+  TBBF_LARGE              = 1
+
+  TB_GETBUTTONINFO      = WM_USER + 65
+  TB_SETBUTTONINFO      = WM_USER + 66
+
+
+  TBN_FIRST               = -700
+  TBN_GETBUTTONINFO       = TBN_FIRST-0
+  TBN_BEGINDRAG           = TBN_FIRST-1
+  TBN_ENDDRAG             = TBN_FIRST-2
+  TBN_BEGINADJUST         = TBN_FIRST-3
+  TBN_ENDADJUST           = TBN_FIRST-4
+  TBN_RESET               = TBN_FIRST-5
+  TBN_QUERYINSERT         = TBN_FIRST-6
+  TBN_QUERYDELETE         = TBN_FIRST-7
+  TBN_TOOLBARCHANGE       = TBN_FIRST-8
+  TBN_CUSTHELP            = TBN_FIRST-9
+  TBN_GETBUTTONINFOW      = TBN_FIRST-20
+end
+
+module WConst
+  TBSTATE_CHECKED       = 1
+  TBSTATE_PRESSED       = 2
+  TBSTATE_ENABLED       = 4
+  TBSTATE_HIDDEN        = 8
+  TBSTATE_INDETERMINATE = 16
+  TBSTATE_WRAP          = 32
+
+  TBSTYLE_BUTTON        = 0
+  TBSTYLE_SEP           = 1
+  TBSTYLE_CHECK         = 2
+  TBSTYLE_GROUP         = 4
+  TBSTYLE_CHECKGROUP    = (TBSTYLE_GROUP|TBSTYLE_CHECK)
+  TBSTYLE_TOOLTIPS      = 256
+  TBSTYLE_WRAPABLE      = 512
+  TBSTYLE_ALTDRAG       = 1024
+  TBSTYLE_FLAT          = 2048
+
+
+  TBIF_IMAGE = 0x00000001
+  TBIF_TEXT  = 0x00000002
+  TBIF_STATE = 0x00000004
+  TBIF_STYLE = 0x00000008
+  TBIF_LPARAM = 0x00000010
+  TBIF_COMMAND = 0x00000020
+  TBIF_SIZE = 0x00000040
+end
+
+module WStruct
+    TB_BUTTON = "IICCCCLI"
+                  # int iBitmap;int idCommand; BYTE fsState; BYTE fsStyle;
+                  # BYTE[2] fsReserved; DWORD dwData;int iString;
+    TBNOTIFY = NMHDR+"I"+TB_BUTTON+"IP"
+                  # NMHDR hdr; int iItem; TBBUTTON tbButton;
+                  # int cchText; LPTSTR pszText;
+    TBADDBITMAP="UU"
+                  #HINSTANCE hInst; UINT nID;
+
+end
+
+module VRToolbarUseable
+=begin
+== VRToolbarUseable
+  If you include this module in parent, you can solve the fault of a notify
+  events at the time of including a VRComCtlContainer, since toolbar buttons
+  are set to _vr_toolbar_buttons which is an original variable.
+  When not including this module , toolbar buttons are set to _vr_contorols
+  for back compatibility.
+=end
+  require 'vr/vrcontrol'
+  include VRStdControlContainer
+  attr :_vr_toolbar_buttons
+  alias self_wmcommand_org self_wmcommand
+
+  def self_wmcommand(msg)
+    if @_vr_toolbar_buttons then
+      tbbid=LOWORD(msg.wParam)
+      tbbmid=HIWORD(msg.wParam)
+      c = @_vr_toolbar_buttons[tbbid]
+      if c then
+        c._vr_cmdhandlers[tbbmid].each{|shandler|
+          args=msgarg2handlerarg(shandler[1],msg,shandler[2])
+          c.send(shandler[0],*args) if c.respond_to?(shandler[0])
+          msg.retval = controlmsg_dispatching(c,shandler[0],*args)
+        } if c._vr_cmdhandlers and c._vr_cmdhandlers[tbbmid]
+      end
+    end
+    self_wmcommand_org(msg)
+  end
+
+  def registerToolbarButton(c,name,id)
+    @_vr_toolbar_buttons = {} unless @_vr_toolbar_buttons
+    c.etc= id
+    c.name=name
+    @_vr_toolbar_buttons[id]=c
+  end
+
+end
+
+class VRToolbar < VRNotifyControl
+=begin
+== VRToolbar
+This class represents Toolbar.
+
+=== Methods
+--- insertButton(i,name,style=TBSTYLE_BUTTON)
+    Inserts a button as ((|i|))-th button. ((|style|)) can be
+    a constant in WConst such as TBSTYLE_BUTTON (default),
+    TBSTYLE_SEP (separator), TBSTYLE_CHECK,...
+--- addButton(style)
+    Adds a button at last of the buttons.
+--- deleteButton(i)
+    Deletes a button at ((|i|))-th.
+--- clearButtons
+    Deletes all buttons.
+--- countButtons
+    Counts buttons.
+--- setImagelist(imglist)
+    Sets the imagelist for the toolbar. ((|imglist|)) must be an instance of
+    SWin::Imagelist.
+--- setParent(hwnd)
+    Sets the window to nofify command messages.
+--- autoSize
+    Resizes toolbar.
+--- indeterminateOf(i,bool=true)
+    Sets the indeterminate state of the ((|i|))-th button.
+--- commandToIndex(id)
+    Retrieves the index number for the button whose id is ((|id|)).
+    This id is used in WM_COMMAND messages.
+--- enableButton(i,bool=true)
+    Enables or disables the ((|i|))-th button.
+--- getButtonStateOf(id)
+    Gets the state of the button whose id is ((|id|)).
+--- setButtonStateOf(i,state)
+    Sets the state of the button whose id is ((|id|)).
+--- setButtons(buttons)
+    Sets the array of ((|button|)) to a tool bar at once.
+    ((|button|)) must be an array of ((|[name,style]|))
+--- enumButtons
+    Yields all toolbar buttons which are instance of
+    VRToolbar::VRToolbarButton.
+=== Event Handler
+--- ????_clicked
+    Fired when the button clicked.
+
+== VRToolbar::VRToolbarButton
+This class is for each toolbar buttons. This resemble menus in using it.
+
+=== Methods
+--- state
+    Returns the state of the button.
+--- checked?
+    Returns true if the button is checked/pushed.
+=end
+
+  include WConst
+
+  class VRToolbarButton
+    attr :name,1
+    attr :etc,1
+    attr :index
+    attr :toolbar
+
+    def _vr_cmdhandlers
+    {0=>[["clicked",MSGTYPE::ARGNONE,nil]]}
+    end
+
+    def initialize(i,toolbar)
+      @index,@toolbar = i,toolbar
+    end
+
+    def state
+      @toolbar.getButtonStateOf(@etc)
+    end
+
+    def checked?
+      (state&1)==1
+    end
+
+  end
+
+  def VRToolbar.Controltype() ["ToolbarWindow32",0] end
+
+  def vrinit
+    super
+    sendMessage WMsg::TB_BUTTONSTRUCTSIZE ,20,0
+    if defined?(VRTooltip) and defined?(@parent.tooltip) and @parent.tooltip then
+      sendMessage WMsg::TB_SETTOOLTIPS,@parent.tooltip.hWnd,0
+    end
+  end
+
+  def setButtonText(i,text)
+    if text.length>0 then
+      iid = indexToCommand(i)
+      tbi = [4*8,WConst::TBIF_TEXT,iid,0,0,0,text,text.length].pack("llllilpl")
+      sendMessage WMsg::TB_SETBUTTONINFO,i,tbi
+    end
+  end
+
+  def insertButton(i,name,tbStyle=TBSTYLE_BUTTON)
+    @_vr_tbbuttons = -1 unless defined?(@_vr_tbbuttons)
+    @_vr_tbbuttons += 1 unless tbStyle == TBSTYLE_SEP
+    id = @parent.newControlID
+    tbb=@screen.application.arg2cstructStr(WStruct::TB_BUTTON,
+                    @_vr_tbbuttons,id,
+                    ((tbStyle == TBSTYLE_SEP)? 0 : 4),tbStyle,0,0,0,0)
+    sendMessage WMsg::TB_INSERTBUTTON,i,tbb
+    i = commandToIndex(id)
+    r=VRToolbarButton.new(i,self)
+    if @parent.respond_to?(:registerToolbarButton) then
+      @parent.registerToolbarButton(r,name,id)
+    else
+      @parent.registerControl(r,name,id)
+    end
+    r
+  end
+
+  def addButton(name,tbStyle=TBSTYLE_BUTTON)
+    insertButton(0xffff,name,tbStyle)
+  end
+
+  def deleteButton(i)
+    sendMessage WMsg::TB_DELETEBUTTON,i,0
+  end
+
+  def countButtons
+    r=sendMessage WMsg::TB_BUTTONCOUNT,0,0
+  end
+
+  def clearButtons
+    (countButtons-1).downto(0) do |i|
+    deleteButton(i)
+    refresh
+    end
+  end
+
+  def setParent(win)
+    hwnd = if win.is_a?(SWin::Window) then win.hwnd else win end
+    sendMessage WMsg::TB_SETPARENT,hwnd,0
+  end
+
+  def autoSize
+    sendMessage WMsg::TB_AUTOSIZE ,0,0
+    refresh
+  end
+
+  def indeterminateOf(i,bool=true)
+    sendMessage WMsg::TB_INDETERMINATE,i,(if bool then -1 else 0 end)
+  end
+
+  def setImagelist(imagelist)
+    raise "not Imagelist" unless imagelist.is_a?(SWin::Imagelist)
+    self.properties["imagelist"]=imagelist
+    sendMessage WMsg::TB_SETIMAGELIST,0,imagelist.himagelist
+    refresh
+  end
+
+  def setDisabledImagelist(imagelist)
+    raise "not Imagelist" unless imagelist.is_a?(SWin::Imagelist)
+    self.properties["disabled_imagelist"]=imagelist
+    sendMessage WMsg::TB_SETDISABLEDIMAGELIST,0,imagelist.himagelist
+    refresh
+  end
+  
+  def commandToIndex(id)
+    sendMessage WMsg::TB_COMMANDTOINDEX,id,0
+  end
+
+  def indexToCommand(i)
+    getButton(i)[1]
+  end
+
+  def checked?(i)
+    (getButtonStateOf(i) & 1)==1
+  end
+
+  def setButtonStateOf(id,state)
+    sendMessage WMsg::TB_SETSTATE,id,state
+  end
+
+  def getButtonStateOf(id)
+    sendMessage WMsg::TB_GETSTATE,id,0
+  end
+
+  def enableButton(id,bool=true)
+    sendMessage WMsg::TB_ENABLEBUTTON,id,(if bool then 1 else 0 end)
+  end
+
+  def getButton(i)
+    tbb=@screen.application.arg2cstructStr(WStruct::TB_BUTTON,
+                                            0,0,0,0,0,0,0,0)
+    sendMessage WMsg::TB_GETBUTTON ,i ,tbb
+    @screen.application.unpack(tbb,WStruct::TB_BUTTON)
+  end
+
+  def setButtons(a)
+    a.each{|i| addButton(i[0], (i[1] ? i[1] : TBSTYLE_BUTTON))}
+  end
+
+  def enumButtons
+    raise "Use VRToolbarUseable" unless parent.respond_to? :_vr_toolbar_buttons
+    n = countButtons
+    raise "unknown error" unless n == parent._vr_toolbar_buttons.size
+    parent._vr_toolbar_buttons.each{|key,val|
+      yield val
+    }
+  end
+
+end