exerb 6.0.1

data/example/msgbox.rb

@@ -0,0 +1,14 @@
+
+#==============================================================================#
+# $Id: msgbox.rb,v 1.2 2003/12/09 16:36:38 yuya Exp $
+#==============================================================================#
+
+require 'Win32API'
+
+#==============================================================================#
+
+message_box = Win32API.new('user32', 'MessageBoxA', 'LPPI', 'I')
+message_box.call(0, 'Message Box', 'Example', 0)
+
+#==============================================================================#
+#==============================================================================#

data/example/rubytk.rb

@@ -0,0 +1,22 @@
+
+#==============================================================================#
+# $Id: rubytk.rb,v 1.3 2006/07/06 04:26:40 yuya Exp $
+#==============================================================================#
+require "tk"
+
+#==============================================================================#
+
+TkButton.new(nil, 
+             :text => 'hello',
+             :command => proc{print "hello\n"}).pack(:fill=>'x')
+
+TkButton.new(nil,
+             :text => 'quit',
+             :command => proc{exit}).pack(:fill=>'x')
+
+#==============================================================================#
+
+Tk.mainloop
+
+#==============================================================================#
+#==============================================================================#

data/example/runtime.rb

@@ -0,0 +1,19 @@
+
+#==============================================================================#
+# $Id: runtime.rb,v 1.3 2005/05/05 07:31:57 yuya Exp $
+#==============================================================================#
+
+printf("RUBY_VERSION          = %s\n", RUBY_VERSION)
+printf("RUBY_RELEASE_DATE     = %s\n", RUBY_RELEASE_DATE)
+printf("ExerbRuntime.filepath = %s\n", ExerbRuntime.filepath) if $Exerb
+printf("ExerbRuntime.filename = %s\n", ExerbRuntime.filename) if $Exerb
+
+printf("Dir.pwd                      = %s\n", Dir.pwd)
+printf("__FILE__                     = %s\n", __FILE__)
+printf("File.expand_path(__FILE__)   = %s\n", File.expand_path(__FILE__))
+printf("File.absolute_path(__FILE__) = %s\n", File.absolute_path(__FILE__))
+
+printf("ARGV                         = %s\n", ARGV)
+
+#==============================================================================#
+#==============================================================================#

data/example/vr/clipboard.rb

@@ -0,0 +1,106 @@
+###################################
+#
+# clipboard.rb
+# Programmed by nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 2000-2005  Nishikawa,Yasuhiro
+#
+# More information at http://vruby.sourceforge.net/index.html
+#
+###################################
+
+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/example/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/example/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/example/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/example/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/example/vr/contrib/inifile.rb

@@ -0,0 +1,116 @@
+###############################
+#
+# contrib/inifile.rb
+#
+# These modules/classes are contributed by Yukimi_Sake-san.
+# Distributed at http://vruby.sourceforge.net/index.html
+#
+###############################
+
+
+class Inifile < Hash
+=begin
+===Inifile
+It makes inifile like Window's in working directory or absolute path.
+
+     [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=""
+    if File.dirname(iniFilename) == "."
+      @fn = Dir.getwd + "/" + iniFilename
+    else
+      @fn = iniFilename
+    end
+    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/example/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://vruby.sourceforge.net/index.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.
+#====================================================================#