wrb 2.0.0

data/lib/wrb/documents/wrb.css

@@ -0,0 +1,228 @@
+BODY { 
+	background: white;
+	font: 10pt "Meiryo";
+	margin-left: 2%;
+	margin-right: 2%;
+}
+
+H1 {
+	max-width: 700;
+	font-size: 150%;
+	color: white;
+	background: #0086BF;
+	padding-left: 0.4em;
+	padding-right: 0.4em;
+}
+
+H2 {
+	max-width: 700;
+	font-size: 120%;
+	color: white;
+	background: #00A2E8;
+	padding-left: 0.4em;
+	padding-right: 0.4em;
+}
+
+H3 {
+	max-width: 700;
+	font-size: 120%;
+	background: #A4E3FF;
+	padding-left: 0.4em;
+}
+
+H4 {
+	max-width: 700;
+	font-size: 100%;
+	background: #D2F1FF;
+	padding-left: 0.4em;
+}
+
+SPAN.gohome{
+	float: right;
+	float: bottom;
+	font: 9pt "Meiryo";
+}
+
+SPAN.srclink {
+	font: 10pt "Meiryo";
+	font-weight: normal;
+}
+
+SPAN.ralign {
+	float: right;
+	color: #007F00;
+}
+
+P.fixedh {
+	height: 144px;
+}
+
+A {
+	font-weight: bold;
+	text-decoration: none;
+}
+A:link {
+	color: blue;
+}
+A:visited {
+	color: blue;
+}
+
+P {
+	max-width: 700;
+	padding-left: 1.0em;
+}
+
+DL {
+	margin-left: 1.0em;
+}
+
+DD{
+	color: #007F00;
+	margin-bottom: 0.5em;
+	max-width: 640;
+}
+
+UL {
+	margin-top: 0px;
+	margin-bottom: 8px;
+	padding-top: 0px;
+	padding-bottom: 0px;
+}
+		
+LI {
+	margin-top: 0px;
+	margin-bottom: 8px;
+	padding-top: 0px;
+	padding-bottom: 0px;
+}
+
+CODE {
+	font-family: monospace;
+}
+
+TABLE {
+	font: 10pt "Meiryo";
+	table-layout: fixed;
+	max-width: 700;
+	padding-left: 1em;
+	padding-right: 1em;
+}
+
+TH {
+	width: 700;
+	background-color: #D2F1FF;
+	font-weight :normal;
+	padding: 0;
+}
+
+TD.sign {
+	background-color: #D2F1FF;
+	width: 20%;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+}
+
+TD.sign1 {
+	background: #D2F1FF;
+	width: 20%;
+	padding-left: 1.5em;
+	padding-right: 0.5em;
+}
+TD.sign12 {
+	color: White;
+	background-color: #00A2E8;
+	width: 20%;
+	padding-left: 1.5em;
+	padding-right: 0.5em;
+}
+
+TD.sign2 {
+	color: white;
+	background-color: #00A2E8;
+	width: 20%;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+}
+
+A.sign2 {
+}
+A.sign2:visited {
+	color: white;
+}
+A.sign2:link {
+	color: white;
+}
+
+TD.name {
+	background-color: #D2F1FF;
+	width: 15%;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+	font-weight: bold;
+}
+
+TD.name1 {
+	background-color: #D2F1FF;
+	width: 15%;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+}
+
+TD.type {
+	background-color: #F0FBFF;
+	width: 15%;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+	font: 9pt Meiryo
+}
+
+TD.desc {
+	width: 700pt;
+	background-color: #F0FBFF;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+	font: 9pt Meiryo
+}
+
+.imgright {
+  	float: right;
+	margin-left: 0.5em;
+	border-left: 1em solid white;
+}
+
+PRE.cd {
+	font: 10pt Consolas;
+	margin: 1em;
+	padding-left: 0.5em;
+	padding-right: 0.5em;
+	border: 1pt solid black;
+	max-width: 660;
+	max-height: 240;
+	overflow: auto;
+}
+
+SPAN.kwd{
+	color: #0000FF;
+}
+SPAN.cmt{
+	color: #007F00;
+}
+SPAN.str{
+	color: #7F0000;
+}
+SPAN.sym{
+	color: #7f7f00;
+}
+
+SPAN.cm1{
+	font: 9pt Meiryo
+}
+
+SPAN.spl{
+	font-weight: normal
+}
+
+CODE{
+	font: 10pt Consolas;
+}

data/lib/wrb/gmem.rb

@@ -0,0 +1,26 @@
+# Global memory operarion
+
+require 'wrb'
+
+module WR
+  API.defun 'GlobalAlloc(UINT uFlags,SIZE_T dwBytes)'
+  API.defun 'GlobalReAlloc(HGLOBAL hMem,SIZE_T dwBytes,UINT uFlags)'
+  API.defun 'GlobalSize(HGLOBAL hMem)'
+  API.defun 'GlobalFlags(HGLOBAL hMem)'
+  API.defun 'GlobalLock(HGLOBAL hMem)'
+  API.defun 'GlobalHandle(LPCVOID pMem)'
+  API.defun 'GlobalUnlock(HGLOBAL hMem)'
+  API.defun 'GlobalFree(HGLOBAL hMem)'
+  API.defun 'GlobalCompact(DWORD dwMinFree)'
+  API.defun 'GlobalFix(HGLOBAL hMem)'
+  API.defun 'GlobalUnfix(HGLOBAL hMem)'
+  API.defun 'GlobalWire(HGLOBAL hMem)'
+  API.defun 'GlobalUnWire(HGLOBAL hMem)'
+  API.loadlib 'ntdll'
+  API.defun 'memcpy(dst, src, len)'
+  API.defun 'memset(dst, fill, len)'
+  API.defun 'memcmp(dst, src, len)'
+  module RWin::API
+    
+  end
+end

data/lib/wrb/imecommon.rb

@@ -0,0 +1,59 @@
+# Common module for IME
+
+require 'wrb'
+module WR
+  
+  module ModIME
+    # IME control
+    RWin::API.loadlib 'imm32'
+    RWin::API.defun 'ImmSetOpenStatus','LL'
+    RWin::API.defun 'ImmGetContext','L'
+    RWin::API.defun 'ImmReleaseContext','LL'
+    
+    # Sets state of the IME. Give a Integer or true/false for state.<br>
+    # If true or false given IME will turns on or off.
+    def IME=(state)
+      if state==true || state==:on || state==-1
+        @_immstate = -1
+      elsif state==false || state==:off || state==0
+        @_immstate = 0
+      elsif state==nil || state==:nocontrol
+        @_immstate = nil
+      else 
+        raise ArgumentError, "#{state.inspect} is not allowed", caller(1)
+      end
+    end
+    alias ime= IME=
+      
+    ImmStates = {
+      :imeon  => -1,
+      :imeoff =>  0
+    }
+    
+    protected
+    def _apply_options(arg) #; dp "@%p, %p", self, arg
+      if st=ImmStates[arg]
+        @_immstate = st
+        return nil
+      end
+      super
+    end
+    
+    private
+    def __gotfocus(ncode, id, hwnd)
+      return unless hwnd==self._hwnd
+      if @_immstate #; dp "@%p, %d", self, @_immstate
+        @_himc =  RWin::API.ImmGetContext(self._hwnd)
+        RWin::API.ImmSetOpenStatus(@_himc, @_immstate)
+      else
+        RWin::API.ImmReleaseContext(self._hwnd, @_himc) if @_himc
+      end
+    end
+    
+    def __lostfocus(ncode, id, hwnd)
+      return unless hwnd==self._hwnd
+      RWin::API.ImmReleaseContext(self._hwnd, @_himc) if @_himc
+    end
+    
+  end
+end

data/lib/wrb/listcommon.rb

@@ -0,0 +1,185 @@
+# Common module for ListBox and Combobox and Comboboxex
+
+require 'wrb'
+
+module WR
+  module ModListItems
+    include RC
+    
+    class Item < String
+      attr_accessor :target, :index
+      
+      def self.[](*args) self.new(*args); end
+      
+      def initialize(target, idx, str)
+        @target = target
+        @index = idx
+        super(str.to_s)
+      end
+      
+      def data=(arg)
+        @data = arg
+        if @target && @target.alive?
+          oid = @data.__id__
+          @target.send(:_setitemdata, @index, oid)
+        end
+      end
+      def data()
+        if @target && @target.alive?
+          dat = @target.send(:_getitemdata, @index, 0)
+          ObjectSpace._id2ref(dat)
+        else
+          @data
+        end
+      end
+      
+      def text()
+        self.to_s
+      end
+      
+      def text=(str)
+        @target[@index] = str.to_s
+      end
+      
+      def delete()
+        @target.delete(@index)
+      end
+      
+      def to_a() [self, self.data]; end
+    end # class Item
+    
+    ###################### Main ####################
+    
+    # Inserts a <i>text</i> and a <i>data</i> at the specified <i>index</i>.
+    def insert_item(index, text, data=nil)
+      if alive?
+        if text.is_a?(self.class::Item) #; dp "@%p, %p", itm, itm.data
+          _insertstring(index, text)
+          _setitemdata(index, text.data.__id__)
+        else
+          _insertstring(index, text.to_s)
+          lparam = data.__id__
+          @_ar_data << data if (lparam&1)==0 && lparam>NilID
+          _setitemdata(index, lparam)
+        end
+      else
+        @_items.insert(index, [text, data])
+      end
+    end
+    
+    # insert(index, length=1, items)
+    # Inserts and replaces at the specified <i>index</i> and <i>length</i> by the <i>items</i>.
+    def insert(*args)
+      idx = args.shift
+      idx = self.count if idx == -1
+      case args.size
+      when 2
+        len = args.shift
+        args = args[0]
+      when 1
+        len = 1
+        args = [args]
+      else
+        raise ArgumentError, "Illegal num of args: #{args.size + 1}"
+      end
+      len.times{delete_item(idx)}
+      args.each_with_index{|val, i| insert_item(idx + i, *val)}
+    end
+    alias []= insert
+    
+    # Deletes item of specified <i>index</i> from this control.
+    def delete_item(index)
+      if self.alive?
+        lparam = _getitemdata(index.to_i, 0)
+        if (lparam&1)==0 && lparam>NilID
+          data = ObjectSpace._id2ref(lparam) #; dp "@data=%p", data
+          if n = @_ar_data.index(data)
+            @_ar_data.delete_at(n)
+          end
+        end
+        _deletestring(index.to_i, 0)
+      else
+        @_items.delete_at(index)
+      end
+    end
+    
+    # delete(index=nil, number=1)
+    # Deletes items at specified <i>index</i> and <i>number</i> from this control.<br>
+    # If no arguments given, deletes self.
+    def delete(index=nil, number=1)
+      return super() if index.nil?
+      number.times{delete_item(index)}
+    end
+    
+    # Retreives index of given text.<br>
+    # Give a String or a Symbol as arg.
+    def index(arg)
+      alive? ? _findstring(0, arg.to_s) : @_items.index(arg.to_s)
+    end
+    
+    # Retreives count of items.
+    def count()
+      alive? ? _getcount(0, 0) : @_items.size
+    end
+    
+    # Adds the args at last of the items.<br>
+    # Give a String or a Array of [String, Object] as args.
+    def <<(args)
+      args = [args] unless args.is_a?(Array)
+      insert(count, 0, args)
+    end
+    
+    # Retreives an item at the specified index.
+    def fetch(idx)
+      l = _gettextlen(idx, 0)
+      raise ArgumentError, "No such index(#{idx}) in the Listbox" if l<0
+      buff = TCHAR[l+1]
+      _gettext(idx, buff)
+      self.class::Item.new(self, idx, buff)
+    end
+    
+    # Retreives the items at the specified index and length.
+    def slice(idx, len=1)
+      if self.alive?
+        ar = []
+        len.times{|i| ar << fetch(idx + i) }
+        ar.size == 1 ? ar[0] : ar
+      else
+        @_items[idx, len]
+      end
+    end
+    alias [] slice
+    
+    # Retrieves the index of the currently selected item.
+    def cursel()
+      alive? ? _getcursel(0, 0) : @_cursel
+    end
+    
+    # Changes the currently selected item to specified index.
+    def cursel=(idx)
+      alive? ? _setcursel(idx, 0) : @_cursel=(idx || -1)
+    end
+    
+    # Retrieves the currently selected item as String.
+    def selection()
+      (i=cursel) >= 0 ? fetch(i) : nil
+    end
+    
+    # each(){|item| ... }
+    # Performs the block for each item in this list as a block parameter.
+    def each()
+      count.times{|i| yield fetch(i) }
+    end
+    
+    # Gets an any object as data of specified index of items.
+    def itemdata(idx)
+      _getitemdata(idx, 0)
+    end
+    
+    
+    # Sets an any object as data to specified index of items.
+    def itemdata=(idx, data)
+      _setitemdata(idx, data)
+    end
+  end
+end