wrb 2.0.0

data/lib/wrb/applications/frmdesigner/fdparseform.rb

@@ -0,0 +1,197 @@
+require 'ripper'
+require 'wrb'
+
+module WR
+  class FDParseForm < Ripper::Filter
+    # Ripper::SCANNER_EVENTS -> [:CHAR, :__end__, :backref, :backtick, :comma, :comment, :const, :cvar, :embdoc, :embdoc_beg, :embdoc_end, :embexpr_beg, :embexpr_end, :embvar, :float, :gvar, :heredoc_beg, :heredoc_end, :ident, :ignored_nl, :imaginary, :int, :ivar, :kw, :label, :label_end, :lbrace, :lbracket, :lparen, :nl, :op, :period, :qsymbols_beg, :qwords_beg, :rational, :rbrace, :rbracket, :regexp_beg, :regexp_end, :rparen, :semicolon, :sp, :symbeg, :symbols_beg, :tlambda, :tlambeg, :tstring_beg, :tstring_content, :tstring_end, :words_beg, :words_sep]
+
+    
+#    ParseData = Struct.new(:event, :text, :line, :column)
+    
+    include RC
+    
+    module ParseData
+      attr_accessor :attr, :line, :column
+    end
+    
+    attr_reader :result
+    
+    def initialize(src, fname=nil, lnno=1)
+      super(src, fname, lnno)
+      @result = []
+      @_depth = 0
+      @_lines = src.split(/\r?\n/)
+      @_can_modifier = nil
+#      dpp @_lines
+    end
+    
+    ############## event handers ##############
+    
+    def on_default(event, token, pd)# ; dpp lineno, event, token, pd
+      case event
+      when :on_int, :on_rbrace, :on_rbracket, :on_rparen
+        @_can_modifier = true
+      when :on_comma, :on_lbrace, :on_lbracket, :on_lparen, :on_ignored_nl
+        @_can_modifier = nil
+      end
+      pd << token if pd
+    end
+    
+    def on_kw(token, pd)
+      case token
+      when 'class', 'def'
+        @_can_modifier = nil
+        @current_column = column
+        @_depth += 1
+        return token
+      when 'begin', 'case', 'do', 'module', 'while'
+        @_can_modifier = nil
+        @_depth += 1
+      when 'if', 'unless' #; dpp lineno, token, pd, @_can_modifier
+        if @_can_modifier
+          @_can_modifier = nil
+        else
+          @_depth += 1
+        end
+#        @_can_modifier = nil
+      when 'end'
+        @_can_modifier = true
+        @_depth -= 1
+        if @_in_the_initialize && @_depth < @_in_the_initialize
+           @_in_the_initialize = -1
+        end
+        if @_depth==1 #; dpp @_depth, lineno, column
+          token.extend(ParseData)
+          token.line = lineno - 1
+          token.column = column
+          return token
+        end
+      when 'self' #; dpp lineno, pd, token
+        @_can_modifier = true
+        if !pd && @_in_the_initialize == @_depth
+          token.extend(ParseData)
+          token.line = lineno - 1
+          token.column = column
+          return token
+        else
+          return pd << token if pd # Argument of method.
+        end
+      else
+        @_can_modifier = true
+        return pd << token if pd
+      end
+      nil
+    end
+    
+    def on_ident(token, pd) # dpp [token, pd]
+      @_can_modifier = true
+      case token
+      when 'initialize'
+        if pd =~ /^def\s+/
+          @_in_the_initialize = @_depth
+        end
+        nil
+      when 'controls', '_', /^\_\w+/ #; dpp lineno, pd, token
+        if @_in_the_initialize == @_depth
+          unless pd
+            token.extend(ParseData)
+            token.line = lineno - 1
+            token.column = column
+            token
+          else
+            pd << token
+          end
+        end
+      else 
+        case pd
+        when /^\_.*/, /^\_\w+\.*/, /^controls\W.*/, /^self\./ #
+          pd << token if pd
+        end
+      end
+    end
+    
+    def on_op(token, pd)
+      @_can_modifier = nil
+      case token
+      when '<<'#; dpp pd
+        case pd
+        when /^\_.*/, /^controls\W.*/ #; dpp pd + token
+          pd << token
+        end
+      when '<' # inherited class
+        if pd =~ /^class\s+[A-Z][A-Za-z0-9_]*\s*/
+          pd << token
+        end
+      when '='
+        if pd =~ /^self\.\w+\s*/
+          pd << token
+        end
+      else #; dpp lineno, pd, token
+        pd << token if pd
+      end
+    end
+  
+    def on_const(token, pd)
+      @_can_modifier = true
+      if pd =~ /^class\s+[A-Z][A-Za-z0-9_]*\s*<\s*/
+        case token
+        when 'Form', 'Dialog'
+          s = pd + token
+          s.extend(ParseData)
+          s.line = lineno - 1
+          s.column = @current_column
+          @result << [s]
+          @_in_the_form = true
+        else #; dpp lineno, pd, token
+          nil
+#          return pd << token
+        end
+        nil
+      elsif pd =~ /^class\s+/#; dpp lineno, pd, token
+        pd << token
+      elsif pd =~ /^self.\w+\s*\=.*/
+        pd << token
+      elsif pd #; dpp lineno, pd, token
+#        if File.exist?(WR_INSTALLED_DIR + "/wrb/components/#{token.downcase}.rb")
+#          require "wrb/components/#{token.downcase}.rb"
+#          pd << token
+#        elsif val = (eval(token) rescue nil)
+#          pd << token
+#        end
+        pd << token if (WR.module_eval(token) rescue nil)
+      else  
+      end
+    end
+    
+    def on_nl(token, pd)
+      @_can_modifier = nil
+      @result.last << pd if !@result.empty? && pd
+      nil
+    end
+    
+    def on_semicolon(token, pd)
+      @_can_modifier = nil
+      @result.last << pd if  !@result.empty? && pd
+      nil
+    end
+      
+    def on_comment(token, pd)
+      @_can_modifier = nil
+      @result.last << pd if  !@result.empty? && pd
+      nil
+    end
+  end
+end
+
+module WR
+  require 'pp'
+  fname = OpenFileNameDlg.show()
+  if fname
+    s = open(fname){|f| f.read}
+    src = FDParseForm.new(s, fname)
+    src.parse
+#    dpp src.result[0][0].line
+    p src.result
+    
+  end
+end if __FILE__ == $0

data/lib/wrb/base.rb

@@ -0,0 +1,1294 @@
+# base.rb 
+# modules and classes for all windows components of wrb
+
+module WR  
+  require 'rwin' if __FILE__ == $0 # for self-testing
+
+  APP = RWin::Application
+  API = RWin::API
+  UNICODE = RWin::UNICODE
+  CancelDefWindowProc = APP::CancelDefWindowProc
+  NilID = nil.__id__
+  
+  module ModAutoloading
+    def self.included(mod)
+      def mod.const_missing(id)
+        WR.const_missing(id)
+      end
+    end
+  end
+  
+  def self.included(mod)
+    def mod.const_missing(id)
+      WR.const_missing(id)
+    end
+  end
+  
+  def self.const_missing(id)
+    libname = id.to_s.downcase + ".rb"
+    begin
+      require(libname)
+      if const_defined?(id)
+        const_get(id)
+      else
+        super
+      end
+    rescue LoadError
+      super(id)
+    end
+  end
+  
+  module RC # Module for gathering constants of resources and APIs.
+    ## window messages ##
+    WM_NULL            = 0x0000
+    WM_CREATE          = 0x0001
+    WM_DESTROY         = 0x0002
+    WM_MOVE            = 0x0003
+    WM_SIZE            = 0x0005
+    WM_ACTIVATE        = 0x0006
+    WM_SETFOCUS        = 0x0007
+    WM_KILLFOCUS       = 0x0008
+    WM_ENABLE          = 0x000A
+    WM_SETREDRAW       = 0x000B
+    WM_SETTEXT         = 0x000C
+    WM_GETTEXT         = 0x000D
+    WM_GETTEXTLENGTH   = 0x000E
+    WM_PAINT           = 0x000F
+    WM_CLOSE           = 0x0010
+    WM_QUERYENDSESSION = 0x0011
+    WM_QUIT            = 0x0012
+    WM_QUERYOPEN       = 0x0013
+    WM_ERASEBKGND      = 0x0014
+    WM_SYSCOLORCHANGE  = 0x0015
+    WM_ENDSESSION      = 0x0016
+    WM_SHOWWINDOW      = 0x0018
+    WM_WININICHANGE    = 0x001A
+    WM_SETTINGCHANGE   = WM_WININICHANGE
+    WM_DEVMODECHANGE   = 0x001B
+    WM_ACTIVATEAPP     = 0x001C
+    WM_FONTCHANGE      = 0x001D
+    WM_TIMECHANGE      = 0x001E
+    WM_CANCELMODE      = 0x001F
+    WM_SETCURSOR       = 0x0020
+    WM_MOUSEACTIVATE   = 0x0021
+    WM_CHILDACTIVATE   = 0x0022
+    WM_QUEUESYNC       = 0x0023
+    WM_GETMINMAXINFO   = 0x0024
+    WM_PAINTICON       = 0x0026
+    WM_ICONERASEBKGND  = 0x0027
+    WM_NEXTDLGCTL      = 0x0028
+    WM_SPOOLERSTATUS   = 0x002A
+    WM_DRAWITEM        = 0x002B
+    WM_MEASUREITEM     = 0x002C
+    WM_DELETEITEM      = 0x002D
+    WM_VKEYTOITEM      = 0x002E
+    WM_CHARTOITEM      = 0x002F
+    WM_SETFONT         = 0x0030
+    WM_GETFONT         = 0x0031
+    WM_NOTIFY          = 0x004E
+    WM_CONTEXTMENU     = 0x007B
+    WM_STYLECHANGING   = 0x007C
+    WM_STYLECHANGED    = 0x007D
+    WM_DISPLAYCHANGE   = 0x007E
+    WM_GETICON         = 0x007F
+    WM_SETICON         = 0x0080
+    WM_KEYDOWN         = 0x0100
+    WM_KEYUP           = 0x0101
+    WM_CHAR            = 0x0102
+    WM_DEADCHAR        = 0x0103
+    WM_SYSKEYDOWN      = 0x0104
+    WM_SYSKEYUP        = 0x0105
+    WM_SYSCHAR         = 0x0106
+    WM_SYSDEADCHAR     = 0x0107
+    WM_UNICHAR         = 0x0109
+    WM_INITDIALOG      = 0x0110
+    WM_COMMAND         = 0x0111
+    WM_SYSCOMMAND      = 0x0112
+    WM_TIMER           = 0x0113
+    WM_HSCROLL         = 0x0114
+    WM_VSCROLL         = 0x0115
+
+    WM_MOUSEMOVE       = 0x0200
+    WM_LBUTTONDOWN     = 0x0201
+    WM_LBUTTONUP       = 0x0202
+    WM_LBUTTONDBLCLK   = 0x0203
+    WM_RBUTTONDOWN     = 0x0204
+    WM_RBUTTONUP       = 0x0205
+    WM_RBUTTONDBLCLK   = 0x0206
+    WM_MBUTTONDOWN     = 0x0207
+    WM_MBUTTONUP       = 0x0208
+    WM_MBUTTONDBLCLK   = 0x0209
+#    WM_MOUSEWHEEL      = 0x020A
+#    WM_MOUSELAST       = 0x020A
+    WM_XBUTTONDOWN     = 0x020B
+    WM_XBUTTONUP       = 0x020C
+    WM_XBUTTONDBLCLK   = 0x020D
+    WM_MOUSEWHEEL      = 0x020E
+    WM_MOUSELAST       = 0x020E
+    WM_PARENTNOTIFY    = 0x0210
+    WM_ENTERMENULOOP   = 0x0211
+    WM_EXITMENULOOP    = 0x0212
+    WM_NEXTMENU        = 0x0213
+    WM_SIZING          = 0x0214
+    WM_CAPTURECHANGED  = 0x0215
+    WM_MOVING          = 0x0216
+    WM_POWERBROADCAST  = 0x0218
+    
+    WM_DROPFILES       = 0x0233
+    WM_CUT             = 0x0300
+    WM_COPY            = 0x0301
+    WM_PASTE           = 0x0302
+    WM_CLEAR           = 0x0303
+    WM_UNDO            = 0x0304    
+    WM_HOTKEY          = 0x0312
+    WM_USER            = 0x0400
+    WM_APP             = 0x8000
+    
+    # Message of Non Client area
+    WM_NCCREATE        = 0x0081
+    WM_NCDESTROY       = 0x0082
+    WM_NCCALCSIZE      = 0x0083
+    WM_NCHITTEST       = 0x0084
+    WM_NCPAINT         = 0x0085
+    WM_NCACTIVATE      = 0x0086
+    WM_GETDLGCODE      = 0x0087
+    WM_SYNCPAINT       = 0x0088
+    WM_NCMOUSEMOVE     = 0x00A0
+    WM_NCLBUTTONDOWN   = 0x00A1
+    WM_NCLBUTTONUP     = 0x00A2
+    WM_NCLBUTTONDBLCLK = 0x00A3
+    WM_NCRBUTTONDOWN   = 0x00A4
+    WM_NCRBUTTONUP     = 0x00A5
+    WM_NCRBUTTONDBLCLK = 0x00A6
+    WM_NCMBUTTONDOWN   = 0x00A7
+    WM_NCMBUTTONUP     = 0x00A8
+    WM_NCMBUTTONDBLCLK = 0x00A9
+    WM_NCXBUTTONDOWN   = 0x00AB
+    WM_NCXBUTTONUP     = 0x00AC
+    WM_NCXBUTTONDBLCLK = 0x00AD
+    
+    ## window styles ##
+    WS_OVERLAPPED       = 0
+    WS_TABSTOP          = 0x00010000
+    WS_GROUP            = 0x00020000
+    WS_THICKFRAME       = 0x00040000
+    WS_SYSMENU          = 0x00080000
+    WS_HSCROLL          = 0x00100000
+    WS_VSCROLL          = 0x00200000
+    WS_DLGFRAME         = 0x00400000
+    WS_BORDER           = 0x00800000
+    WS_CAPTION          = 0x00c00000
+    WS_MAXIMIZE         = 0x01000000
+    WS_CLIPCHILDREN     = 0x02000000
+    WS_CLIPSIBLINGS     = 0x04000000
+    WS_DISABLED         = 0x08000000
+    WS_VISIBLE          = 0x10000000
+    WS_MINIMIZE         = 0x20000000
+    WS_CHILD            = 0x40000000
+    WS_POPUP            = 0x80000000
+    WS_VISIBLECHILD     = 0x50000000
+    WS_ICONIC           = 0x20000000
+    WS_CHILDWINDOW      = 0x40000000
+    WS_MAXIMIZEBOX      = 0x00010000
+    WS_MINIMIZEBOX      = 0x00020000
+    WS_OVERLAPPEDWINDOW = 0x00CF0000
+    WS_POPUPWINDOW      = 0x80880000
+    WS_SIZEBOX          = 0x00040000
+    WS_TILED            = 0
+    WS_TILEDWINDOW      = 0x00CF0000
+      
+    WS_EX_TOPMOST       = 0x00000008
+    WS_EX_TRANSPARENT   = 0x00000020
+    WS_EX_MDICHILD      = 0x00000040
+    WS_EX_TOOLWINDOW    = 0x00000080
+    WS_EX_CLIENTEDGE    = 0x00000200
+    WS_EX_CONTEXTHELP   = 0x00000400
+    WS_EX_APPWINDOW     = 0x00040000
+    WS_EX_LAYERED       = 0x00080000
+    WS_EX_COMPOSITED    = 0x02000000
+    
+    ## ShowWindow constants
+    SW_HIDE = 0
+    SW_SHOWNORMAL = 1
+    SW_NORMAL = 1
+    SW_SHOWMINIMIZED = 2
+    SW_SHOWMAXIMIZED = 3
+    SW_MAXIMIZE = 3
+    SW_SHOWNOACTIVATE = 4
+    SW_SHOW = 5
+    SW_MINIMIZE = 6
+    SW_SHOWMINNOACTIVE = 7
+    SW_SHOWNA = 8
+    SW_RESTORE = 9
+    SW_SHOWDEFAULT = 10
+    SW_FORCEMINIMIZE = 11
+    SW_MAX = 11
+    
+    ## GetWindowLong constants ##
+    GWL_WNDPROC    = -4
+    GWL_HINSTANCE  = -6
+    GWL_HWNDPARENT = -8
+    GWL_STYLE      = -16
+    GWL_EXSTYLE    = -20
+    GWL_USERDATA   = -21
+    GWL_ID         = -12
+    
+    ## mouse button and key states ##
+    MK_LBUTTON  = 0x0001 # uses splitter.rb
+    MK_RBUTTON  = 0x0002
+    MK_SHIFT    = 0x0004
+    MK_CONTROL  = 0x0008
+    MK_MBUTTON  = 0x0010
+    MK_XBUTTON1 = 0x0020
+    MK_XBUTTON2 = 0x0040
+    
+    ## logfont size ##
+    LF_FACESIZE = 32   # uses richedit.rb
+    
+    ## icon sizes ##
+    ICON_SMALL  = 0
+    ICON_BIG    = 1
+    ICON_SMALL2 = 2
+    
+    ## use default window size and position ##
+    CW_USEDEFAULT = 0x80000000 - 0x100000000
+    
+    ## desktop window ##
+    HWND_DESKTOP = 0
+    
+    ## pre defined structures ##
+    TCHAR = API::TCHAR 
+    CHAR  = API::CHAR
+    WORD  = API::WORD
+    POINT = API::POINT
+    RECT  = API::RECT
+    
+    ## ownerdraw constants ##
+    ODT_MENU         = 1
+    ODT_LISTBOX      = 2
+    ODT_COMBOBOX     = 3
+    ODT_BUTTON       = 4
+    ODT_STATIC       = 5
+
+    ODA_DRAWENTIRE   = 0x0001
+    ODA_SELECT       = 0x0002
+    ODA_FOCUS        = 0x0004
+
+    ODS_SELECTED     = 0x0001
+    ODS_GRAYED       = 0x0002
+    ODS_DISABLED     = 0x0004
+    ODS_CHECKED      = 0x0008
+    ODS_FOCUS        = 0x0010
+    ODS_DEFAULT      = 0x0020
+    ODS_COMBOBOXEDIT = 0x1000
+    ODS_HOTLIGHT     = 0x0040
+    ODS_INACTIVE     = 0x0080
+    ODS_NOACCEL      = 0x0100
+    ODS_NOFOCUSRECT  = 0x0200
+    
+    # code pages
+    CP_ACP        = 0
+    CP_OEMCP      = 1
+    CP_MACCP      = 2
+    CP_THREAD_ACP = 3
+    CP_SYMBOL     = 42
+    CP_UNICODE    = 1200 # not defined in winnls.h but uses richedit.rb
+    CP_UTF7       = 65000
+    CP_UTF8       = 65001
+    
+    # global memory
+    GMEM_FIXED    = 0x0
+    GMEM_MOVEABLE = 0x2
+    GMEM_ZEROINIT = 0x40
+    GHND = (GMEM_MOVEABLE | GMEM_ZEROINIT)
+    GPTR = (GMEM_FIXED | GMEM_ZEROINIT)
+    
+    HWND_TOP       =  0
+    HWND_BOTTOM    =  1
+    HWND_TOPMOST   = -1
+    HWND_NOTOPMOST = -2
+    
+    WA_INACTVE = 0
+    WA_ACTVE = 1
+    WA_CLICKACTIVE = 2
+    
+    DRAWITEMSTRUCT = API.defstruct "
+      INT ctlType;
+      INT ctlID;
+      INT itemID;
+      INT itemAction;
+      INT itemState;
+      HWND hwndItem;
+      HDC  hDC;
+      RECT rcItem;
+      INT  itemData;"
+
+    MEASUREITEMSTRUCT = API.defstruct "
+      INT ctlType;
+      INT ctlID;
+      INT itemID;
+      INT itemWidth;
+      INT itemHeight;
+      INT itemData;"
+    
+    SYSTEMTIME = API.defstruct "
+      WORD wYear;
+      WORD wMonth;
+      WORD wDayOfWeek;
+      WORD wDay;
+      WORD wHour;
+      WORD wMinute;
+      WORD wSecond;
+      WORD wMilliseconds;"
+      
+    NMHDR = API.defstruct "
+      HWND  hwndFrom; 
+      ULONG_PTR   idFrom;
+      ULONG   code;"
+      
+    WINDOWPOS = API.defstruct "
+      HWND hwnd;
+      HWND hwndInsertAfter;
+      int x;
+      int y;
+      int cx;
+      int cy;
+      UINT flags;"
+      
+  end
+  
+  ##### Utility functions #####
+  module RC
+    module_function
+    def LOWORD(i)
+      i & 0xffff
+    end
+    def HIWORD(i)
+      (i>>16) & 0xffff
+    end
+    def SPLITPARAM(i)
+      [LOWORD(i), HIWORD(i)]
+    end 
+    def MAKELPARAM(lo, hi)
+      ((hi & 0xffff) << 16) | (lo & 0xffff)
+    end
+    def RGB(r, g, b)
+      (b << 16) + (g << 8) + r
+    end
+    def _T(s)
+      API.encode_output(s)
+    end
+    def _X(s)
+      API.encode_default(s)
+    end
+    def _I(s)
+      API.encode_internal(s)
+    end
+  end
+  
+  ##### Base classes #####
+  module ModAccessor
+    module ModArrayAccess
+      def index(obj)
+        if obj.is_a?(Integer) && !block_given?
+          self.each_with_index{|val, i| return i if (val.idcmd rescue nil)==obj}
+          nil
+        else
+          super
+        end
+      end
+    end
+    
+    attr_reader :_accessors
+    def _check_name(name)
+      raise NameError, "Name must be Symbol (but got #{name.class})." unless name.is_a? Symbol
+      str = name.to_s
+      if !(str =~ /^[a-z][a-zA-Z0-9_]*$/)
+        raise  NameError ,"`#{str}' is not allowed for name of accessor.", caller(2)
+      end
+    end
+    
+    def _define_access_method(name, obj)
+      instance_eval "def #{name}() @_accessors[:#{name}]; end"
+      @parent.instance_eval "def _#{name}() controls.#{name}; end"
+    end
+    
+    def _add_accessor(obj, name) #dpp self, obj, name#, caller[0, 2]
+      @_accessors ||= {}
+      raise "Need name for accessor" unless name
+      _check_name(name)
+      if obj1=@_accessors[name]
+        @_accessors[name] = [obj1].extend(ModArrayAccess) unless obj1.is_a? Array
+        @_accessors[name] << obj
+      else
+        @_accessors[name] = obj
+        _define_access_method(name, obj)
+      end
+      obj
+    end
+    
+    def _delete_accessor(name, idx=nil)
+      if (obj1=@_accessors[name]).is_a?(Array) && obj1.size>1
+        raise ArgumentError, "Need index" unless idx
+        if idx.is_a?(Integer) && idx <= ModParent::ItemBaseID
+          obj1.delete_at(idx)
+        else
+          obj1.delete(idx)
+        end
+        @_accessors[name] = obj1[0] if obj1.size == 1
+      else
+        @_accessors.delete(name)
+        instance_eval "undef #{name} if defined?(#{name})"
+      end
+    end
+    
+    def _delete_accessor_by_obj(obj)
+      @_accessors.each{|k, v|
+        if v.is_a?(Array)
+          if r=v.delete(obj)
+            @_accessors[k] = v[0] if v.size==1
+            break
+          else
+            next
+          end
+        elsif v==obj
+          @_accessors.delete_if{|k, v| v==obj}
+          instance_eval "undef #{k} if defined?(#{k})"
+          break
+        end
+      }
+    end
+  end # ModAccessor
+  
+  class Collection < Array
+    undef  +, -, *, &, |, assoc, at, clone, concat, push, shift, slice
+    alias _dup dup
+    alias _clear clear
+    alias _each each
+    alias _equal? equal?
+    alias _index index
+    alias _map map
+    alias _delete delete
+    alias _delete_at delete_at
+    alias _pop pop
+    alias _size size
+  end
+  
+  class Controls < Collection
+    attr_reader :parent, :receiver
+    include ModAccessor
+    
+    def initialize(parent, receiver=parent, sendto=nil) #; dpp self, parent, receiver, caller
+      raise "parent must be RWin::Window" if parent && !parent.is_a?(RWin::Window) && 
+                                             !parent.is_a?(RWin::Dialog)
+      @parent = parent
+      @receiver = receiver
+      @sendto = sendto
+    end
+    
+    def <<(*args)
+      args = args[0] if args[0].is_a?(Array)
+      if args[0].respond_to?(:create)
+        ret = args[0]
+        ret.parent ||= @parent
+      elsif args[0].is_a?(Class)
+        klass = args.shift
+        ret = klass.new(@parent, *args)
+      elsif args[0].is_a?(Controls)
+        ret = args[0]
+      else
+       ret = args[0]
+      end
+      
+      if  @parent && @parent.controls.equal?(self) # is root?
+        _add_accessor(ret, ret.name) 
+#      super(ret)
+      end
+      
+      ret.idcmd = @receiver.new_control_id if ret.respond_to?(:idcmd=) && !ret.idcmd
+      ret.class::DefaultEvents.each{|i|
+        msg, submsg, template, klass = ret.acceptable_events[i]
+        handlername = "#{ret.name}_#{i.to_s}"
+        @receiver.set_msgtranslator(msg) unless @receiver.get_msgtranslator(msg)
+        @receiver.register_event(ret.idcmd, msg, submsg, handlername, template, klass, @sendto)
+      } if defined? ret.class::DefaultEvents
+      
+      if ret.respond_to?(:create) && @parent.alive?
+        ret.create
+        if f=parent.inheritfont && ret.is_a?(RWin::Window)
+          if (hf=ret.SendMessage(RC::WM_GETFONT, 0, 0))==0 || hf==Font::SystemFontHandle
+            ret.font = @parent.SendMessage(RC::WM_GETFONT, 0, 0)
+          elsif f==:force
+            ret.font = @parent.SendMessage(RC::WM_GETFONT, 0, 0)
+          end
+        end
+      end
+      super(ret)
+      ret
+    end
+    
+    def [](arg)
+      if arg.is_a?(Integer)
+        arg > ModParent::ItemBaseID ? self.find{|i| i.idcmd == arg} : super(arg)
+      elsif arg.is_a?(String) || arg.is_a?(Symbol)
+        sym = arg.intern
+        self.find{|i| i.name == sym}
+      elsif arg.is_a?(WinControl)
+        self._index(arg)
+      else
+        raise "Type #{arg.class} is not allowed"
+      end
+    end
+    
+    def _delete(ctl)
+      if @_accessors && (ar=@_accessors[ctl.name]).is_a?(Array)
+        ar.delete(ctl)
+        @_accessors[ctl.name] = ar[0] if ar.size == 1
+      else
+        self._delete_accessor(ctl.name)
+        if @parent && ctl.respond_to?(:idcmd)
+          @parent.registered_messages.each{|msg| @parent.unregister_event(ctl.idcmd, msg)}
+        end
+      end
+      if ctl.respond_to?(:alive?) && ctl.alive?
+        if ctl.respond_to?(:close)
+          ctl.close
+        elsif ctl.respond_to?(:destroy) # for Menu
+          ctl.destroy
+        end
+      end
+      super
+    end
+    alias delete _delete
+        
+    def _show()
+      self._each{|i| i.visible = true}
+    end
+    
+    def _hide()
+      self._each{|i| i.visible = false}
+    end
+    
+    def _create()
+      self._each{|i|
+        if i.is_a?(WinControl) && !i.alive? #; dp "@i=%p, parent=%p", i, i.parent
+          i.create
+        elsif i.is_a?(Controls)
+          i._create
+        elsif !i.is_a?(RWin::Window) && i.respond_to?(:create)
+          i.create
+        end
+      }
+    end
+    
+    def __move(x, y, w, h) 
+      self._each{|i| i.__move(x, y, w, h) if respond_to?(:__move)}
+    end
+  end # Controls
+  
+  class Margin
+    attr_accessor   :x, :y, :w, :h
+    attr_reader   :target, :left, :top, :right, :bottom
+    
+    def self.[](*args)
+      self.new(*args)
+    end
+    
+    def initialize(*args)
+      raise ArgumentError, "No arguments" if args.empty?
+      self.target = args.shift if args[0].is_a? RWin::Window
+      @left, @top, @right, @bottom = args
+    end
+    
+    def target=(target)
+      @target = target
+      @x, @y = target.clientpos
+      @w, @h = target.windowsize
+    end
+    
+    def move(x, y, w, h) #; dpp x, y, w, h
+      @x, @y, @w, @h = x, y, w, h
+    end
+    
+    def to_s()
+      [@left, @top, @right, @bottom].to_s
+    end
+    
+    def set(l, t, r, b)
+      @left, @top, @right, @bottom = l, t, r, b
+      @target.__move(0,0,*target.parent.clientsize) if @target.parent
+    end
+    
+    def left=(l)
+      @left = l
+      @target.__move(0,0,*target.parent.clientsize) if @target.parent
+    end
+    
+    def top=(t)
+      @top = t
+      @target.__move(0,0,*target.parent.clientsize) if @target.parent
+    end
+    
+    def right=(r)
+      @right = r
+      @target.__move(0,0,*target.parent.clientsize) if @target.parent
+    end
+    
+    def bottom=(b) #; dpp @x, @y, @w, @h
+      @bottom = b
+      @target.__move(0,0,*target.parent.clientsize) if @target.parent
+    end
+    
+    def to_a()
+      [@left, @top, @right, @bottom]
+    end
+    
+    def origin()
+      [@x, @y, @w, @h]
+    end
+    
+    alias l left
+    alias t top
+    alias r right
+    alias b bottom
+  end # Margin
+  
+  ##### Fonts #####
+  class Font < RWin::Font
+    include RC  
+    def self.[](*args) self.new(*args); end
+    
+    SystemFontHandle = API.GetStockObject(13) # SYSTEM_FONT
+    
+    def initialize(*args)
+      if (str=args[2]).is_a?(String) || str.is_a?(Symbol)
+        b, i, u, s = nil
+        b = str.index('b') ? 700 : nil
+        i = !str.index('i').nil?
+        u = !str.index('u').nil?
+        s = !str.index('s').nil?
+        super(args[0], args[1], b, i, u, s)
+      else
+        super
+      end
+    end
+    
+    def inspect()
+      sprintf("<%p:%#x %s, %d, %#x>", self.class, __id__, facename, height, _hfont)
+    end
+    
+    def to_a()
+      attrstr.empty? ? [facename, height] : [facename, height, attrstr]
+    end
+    
+    def weight()
+      logfont.lfWeight
+    end
+    def italic()
+      logfont.lfItalic==1 ? true : nil
+    end
+    def underline()
+      logfont.lfUnderline==1 ? true : nil
+    end
+    def strikeout()
+      logfont.lfStrikeOut==1 ? true : nil
+    end
+    
+    def attrstr()
+      lf = self.logfont
+      atr = ""
+      atr << 'b' if lf.lfWeight==700
+      atr << 'i' if lf.lfItalic==1
+      atr << 'u' if lf.lfUnderline==1
+      atr << 's' if lf.lfStrikeOut==1
+      atr
+    end
+  end # Font
+  
+  ##### Base modules #####
+  module ModParent
+    include RC
+    ItemBaseID = 0xfff
+    
+    def controls()
+      @controls ||= Controls.new(self)
+    end
+    alias _ controls
+    
+    def new_control_id()
+      unless parent # toplevel window
+        @curret_id ||= ItemBaseID
+        @curret_id += 1
+      else           # use toplevel window's
+        parent.new_control_id
+      end
+    end
+    
+    def font=(arg)
+      if alive?
+        phf = SendMessage(WM_GETFONT, 0, 0)
+        super
+        hf = SendMessage(WM_GETFONT, 0, 0)
+        if hf!=0
+          controls.each{|i|
+            next unless i.is_a?(Window)
+            next unless i.alive?
+            if @_inheritfont==:force
+              i.font = hf
+            else
+              cfont = i.SendMessage(WM_GETFONT, 0, 0)
+              i.font = hf if cfont!=0 && cfont==phf
+            end
+          }
+        end
+      else
+        @_font = arg.is_a?(Array) ? Font.new(*arg) : arg
+      end
+    end
+    
+    def inheritfont=(f)
+      if alive?
+        f = [f] unless f.is_a?(Array)
+        case f.last
+        when :force, true, false, nil
+          @_inheritfont = f.pop
+          @_inheritfont = nil if @_inheritfont==false
+          return unless @_inheritfont
+        end
+        @_inheritfont ||= true
+        unless f.empty?
+          self.font = f[0].is_a?(RWin::Font) ? f[0] : f
+        end
+        hfont = SendMessage(WM_GETFONT, 0, 0)
+        controls.each{|i| #; dpp i, i.font
+          next unless i.respond_to?(:font)
+          hf = i.SendMessage(WM_GETFONT, 0, 0)
+          if hf==0 || hf==Font::SystemFontHandle
+            i.font = hfont
+            i.inheritfont = @_inheritfont if i.respond_to?(:inheritfont)
+          elsif @_inheritfont==:force && hf==i.default_hfont
+            i.font = hfont
+            i.inheritfont=:force if i.respond_to?(:inheritfont)
+          end
+        } if self.font
+      else
+        @_inheritfont = f
+      end
+    end
+    def inheritfont(*args)
+      return @_inheritfont if args.empty?
+      self.inheritfont = *args
+    end
+    
+    def create()
+      super
+      controls._create
+      self.inheritfont = @_inheritfont if @_inheritfont
+      register_event(WM_SIZE, "__resize__", "xh")# SetMenu sends WM_SIZE before children created
+      __send__(:created) if respond_to?(:created)
+      self
+    end
+    
+    def idcmd2ref(id)
+      APP.hwnd2ref(API.GetDlgItem(self._hwnd, id))
+    end
+    
+    def __resize__(w, h)
+      @controls.each{|i| i.__move(0, 0, w, h) if i.respond_to?(:__move)}
+    end
+  end # ModParent
+  
+  module ModCreateWin
+    attr_reader :default_hfont
+    def create() #; dp "@%p, style=%#x", self, @_style
+      @_style &= ~RC::WS_VISIBLE if @_visible==false
+      __create__(@_classname, @_caption.to_s, @_x, @_y, @_w, @_h, @_parent, @_idcmd, @_style,
+            @_exstyle.to_i)
+      self.accept_events *@_events if @_events
+      @default_hfont = SendMessage(RC::WM_GETFONT, 0, 0)
+      self.font = @_font if @_font
+      self.visible = @_visible if @_visible
+      self.setorder(@_zorder) if @_zorder
+      self.margin = @_margin if @_margin
+      set_subclass(@_setsubclass) if @_setsubclass
+      self
+    end
+#    alias _create create
+  end # ModCreateWin
+  
+  module ModBaseWin
+    include RC
+    PreDefinedEvents = {}
+    
+    def CancelDefWindowProc(arg=nil)
+      APP.CancelDefWindowProc(arg)
+    end
+    
+    attr_reader :_deny_font_inherit
+    def inspect() 
+      sprintf("#<%p: 0x%x @name=%p, @_idcmd=%p>", self.class, self.__id__, @name, @_idcmd)
+    end
+    
+    def classname()
+      if alive?
+        buff = TCHAR[128]
+        GetClassname(_hwnd, buff, buff.size)
+        buff.to_s
+      else
+        @_classname
+      end
+    end
+    
+    def acceptable_events()
+       @_acceptable_events ||= {}.update(PreDefinedEvents)
+    end
+    
+    def accept_events(*args)
+      return @_events = args[0].is_a?(Array) ? args[0] : args unless alive?
+      target = nil
+      args.each{|i|
+        if i.is_a?(Window)
+          target = i
+          next
+        elsif target
+          target.accept_events(i)
+          next
+        end
+        if i.is_a?(Symbol) #; dpp acceptable_events
+          a = acceptable_events[nm=i]
+          raise "#{i} is not defined in #{self.inspect}" unless a
+        else
+          raise "#{i.inspect} is not allowed."
+        end
+        case a[0]
+        when WM_COMMAND, WM_NOTIFY
+          msg, submsg, template, klass = a
+          handlername = "#{self.name}_#{nm}" 
+          parent.set_msgtranslator(msg) unless @_parent.get_msgtranslator(msg)
+          parent.register_event(self.idcmd, msg, submsg, handlername, template, klass)
+        else
+          msg, template, klass = a
+          handlername = "self_#{nm}"
+          register_event(msg, handlername, template, klass)
+        end
+      }
+    end
+    alias events= accept_events
+    
+    def move(*args)
+      if alive? 
+        super
+      else
+        case args.size
+        when 2, 3
+          @_x, @_y = args
+        when 4, 5
+          @_x, @_y, @_w, @_h = args
+        else
+          raise ArgumentError, "illegal num of args:#{args.size}"
+        end
+      end
+    end
+    
+    def resize(w, h)
+      return super if alive?
+      @_w = w
+      @_h = h
+    end
+    def size=(args)
+      resize(*args)
+    end
+    alias windowsize= size=
+    
+    def x
+      alive? ? super : @_x
+    end
+    def x=(_x)
+      alive? ? super : @_x = _x
+    end
+    
+    def y
+      alive? ? super : @_y
+    end
+    def y=(_y)
+      alive? ? super : @_y = _y
+    end
+    
+    def w
+      alive? ? super : @_w
+    end
+    def w=(_w)
+      alive? ? super : @_w = _w
+    end
+    
+    def h
+      alive? ? super : @_h
+    end
+    def h=(_h)
+      alive? ? super : @_h = _h
+    end
+    
+    def focused?()
+      API.GetFocus == self._hwnd
+    end
+    
+    def active?()
+      API.GetActiveWindow == self._hwnd
+    end
+    
+    def setorder(wnd)
+      alive? ? super : @_zorder = wnd
+    end
+    
+    def refresh(*args)
+      super
+    end
+    
+    def caption()
+      alive? ? super : @_caption
+    end
+    def caption=(s)
+      alive? ? super : @_caption = s
+    end
+    
+    def style()
+      alive? ? GetWindowLong(GWL_STYLE) : @_style || self.class::DefaultWindowStyle
+    end
+    def style=(st)
+      alive? ? SetWindowLong(GWL_STYLE, st) : @_style = st
+    end
+    
+    def exstyle()
+      alive? ? GetWindowLong(GWL_EXSTYLE) : @_exstyle || 0
+    end
+    def exstyle=(st)
+      alive? ? SetWindowLong(GWL_EXSTYLE, st) : @_exstyle = st
+    end
+    
+    def _sym2style(styles, args)
+      args = args[0] if args[0].is_a?(Array)
+      st = 0
+      while args.last.is_a?(Symbol)
+        i = self.class::styles[args.pop].to_i
+        i < 0 ? st &= i.abs : st |= i
+      end
+      st
+    end
+    private :_sym2style
+    
+    def sym2style(styles, *args)
+      _sym2style(self.class::WinExStyles, args)
+    end
+    
+    def sym2exstyle(styles, *args)
+      _sym2style(self.class::WinExStyles, args)
+    end
+    
+    def clientpos()
+      alive? ? super : [@_x, @_y]
+    end
+    def windowsize()
+      alive? ? super : [@_w, @_h]
+    end
+    alias size windowsize
+    
+    def font()
+      if alive?
+        return @_font if @_font
+        hfont = SendMessage(WM_GETFONT, 0, 0)
+        hfont==0 ? nil : WR::Font.wraphandle(hfont)
+      else
+        @_font
+      end
+    end
+    
+    # font=[Font, Array, Window, HFONT, :parent, nil]
+    # If given nil: Use default but allow if default is SYSTEM_FONT or nil, else deny.
+    def font=(arg)
+      if alive?
+        @_font = nil
+        if arg.nil? || arg==0
+          r = SendMessage(WM_SETFONT, 0, 1)
+          @default_hfont = SendMessage(WM_GETFONT, 0, 0)
+          return r
+        elsif arg==:parent || arg==:p
+          hf = parent.SendMessage(WM_GETFONT, 0, 0)
+        elsif arg.is_a?(Integer)
+          hf = arg
+        elsif arg.is_a?(Window)
+          hf = arg.SendMessage(WM_GETFONT, 0, 0)
+        elsif arg.is_a?(Array)
+          if !arg[0].is_a?(String) || !arg[1].is_a?(Integer)
+            raise ArgumentError, "Need facename and height", caller(1)
+          end
+          @_font = Font.new(*arg) # keep Font object in this window
+          hf = @_font._hfont
+        elsif arg.is_a?(RWin::Font)
+          @_font = arg            # keep Font object in this window
+          hf = arg._hfont
+        else
+          raise ArgumentError, "Unrecognized argument: #{arg.inspect}", caller(1)
+        end
+        SendMessage(WM_SETFONT, hf, 1) #== 0 ? nil : true
+      else # dpp arg
+        @_font = arg
+      end
+    end
+    
+    def parent() #; dpp [alive?, self]
+      alive? ? super : @_parent
+    end
+    def parent=(arg)
+      alive? ? super(arg) : @_parent = arg
+    end
+    
+    def visible()
+      alive? ? super : @_visible
+    end
+    def visible=(state)
+      alive? ? super : @_visible = state
+    end
+    def show()
+      self.visible = true
+      self
+    end
+    def hide()
+      self.visible = false
+      self
+    end
+    def showna()
+      self.visible = SW_SHOWNA
+      self
+    end
+    
+    SubclassedHandlers = {
+      :activate      => [WM_ACTIVATE, 'hi'],
+      :paint         => [WM_PAINT, 'c'],
+      :keydown       => [WM_KEYDOWN, 'ih'],
+      :keyup         => [WM_KEYUP, 'ih'],
+      :char          => [WM_CHAR, 'ih'],
+      :syskeydown    => [WM_SYSKEYDOWN, 'ih'],
+      :syskeyup      => [WM_SYSKEYUP, 'ih'],
+      :syschar       => [WM_SYSCHAR, 'ih'],
+      :mousemove     => [WM_MOUSEMOVE, 'ih'],
+      :move          => [WM_MOVE, 'ih'],
+      :resize        => [WM_SIZE, 'ih'],
+      :lbuttondown   => [WM_LBUTTONDOWN, 'ih'],
+      :lbuttonup     => [WM_LBUTTONUP, 'ih'],
+      :lbuttondblclk => [WM_LBUTTONDBLCLK, 'ih'],
+      :rbuttondown   => [WM_RBUTTONDOWN, 'ih'],
+      :rbuttonup     => [WM_RBUTTONUP, 'ih'],
+      :rbuttondblclk => [WM_RBUTTONDBLCLK, 'ih'],
+      :mbuttondown   => [WM_MBUTTONDOWN, 'ih'],
+      :mbuttonup     => [WM_MBUTTONUP, 'ih'],
+      :mbuttondblclk => [WM_MBUTTONDBLCLK, 'ih'],
+      :xbuttondown   => [WM_XBUTTONDOWN, 'ih'],
+      :xbuttonup     => [WM_XBUTTONUP, 'ih'],
+      :xbuttondblclk => [WM_XBUTTONDBLCLK, 'ih'],
+      :close         => [WM_CLOSE, 'ih'],
+      :setcursor     => [WM_SETCURSOR, 'ih'],
+      :contextmenu   => [WM_CONTEXTMENU, 'ih']
+    }
+    
+  end # ModBaseWin
+  
+  module ModStdCtrl
+    include RC
+    def create(*args)
+      super
+      unless parent.controls.receiver.get_msgtranslator(WM_COMMAND)
+        parent.controls.receiver.set_msgtranslator(WM_COMMAND)
+      end
+    end
+  end # ModStdCtrl
+  
+  module ModCommCtrl
+    include RC
+    def self.included(mod)
+      require 'wrb/commctrlconst.rb'
+    end
+    
+    def create(*)
+      unless parent.controls.receiver.get_msgtranslator(WM_NOTIFY)
+        parent.controls.receiver.set_msgtranslator(WM_NOTIFY)
+      end
+      super
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = CCStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+  end # ModStdCtrl
+  
+  ##### winodw classes #####
+  
+  class Window < RWin::Window # The root of all windows
+#    PreDefinedEvents = {}
+    alias __create__ create
+    include RC
+    include ModAutoloading
+    include ModBaseWin, ModCreateWin
+    
+    alias size windowsize
+    def size=(arg)
+      raise ArgumentError, "Argument must be [w, h]" unless arg.is_a?(Array)
+      resize *arg
+    end
+    
+    def position()
+      [self.x, self.y]
+    end
+    def position=(args)
+      x, y = args
+      move(x, y)
+    end
+  end # Window
+  
+  class WinControl < Window # The root of child windows
+    undef RegisterHotKey, UnregisterHotKey
+    attr_reader :name
+    alias :_name :name
+    
+    DefaultWindowStyle = WS_VISIBLECHILD
+    DefaultEvents = []
+    
+    def self.[](*args)#; dpp args
+      self.new(*args)
+    end
+    
+    def initialize(*args)
+      if args[0].is_a? RWin::Window
+        @_parent = args.shift
+      end
+      raise ArgumentError, "Control name must be Symbol." unless args[0].is_a? Symbol
+      @_style = DefaultWindowStyle
+      @name = args.shift
+      optionfuncs = args.pop if args.last.is_a?(Hash)
+      @__unplocessed = []
+      while args.last.is_a? Symbol
+        r = _apply_options(args.pop)
+        @__unplocessed << r if r
+      end
+      @_caption = args.shift if args[0].is_a? String
+      case args.size
+      when 4
+        rect = args
+      when 5
+        obj = args.pop
+        obj.is_a?(Integer) ? self.style = WS_VISIBLECHILD | obj : @__remain_arg__ = obj
+        rect = args
+      else
+        raise ArgumentError, "Illegal num of argument"
+      end
+      self.move(*rect)
+      optionfuncs.each{|k, v| __send__(k.to_s + '=', v)} if optionfuncs
+    end
+    
+    def idcmd()
+      alive? ? super : @_idcmd;
+    end
+    def idcmd=(id)
+      alive? ? super : @_idcmd = id
+    end
+    
+    def enabled()
+      (self.style & WS_ENABLED) != 0
+    end
+    def enabled=(f)
+      f ? self.style &= ~WS_DISABLED : self.style |= WS_DISABLED
+    end
+    
+    def delete()
+      parent.controls._delete(self)
+      parent
+    end
+    
+    def name=(nm)
+      parent.controls._delete_accessor(name)
+      parent.controls._add_accessor(self, nm.intern)
+      @name = nm.intern
+    end
+    
+    def margin()
+      @_margin
+    end
+    def margin=(arg)
+      if arg.is_a? Array
+        @_margin = Margin.new(self) unless @_margin
+        @_margin.set(*arg)
+      elsif arg.is_a?(Margin)
+        @_margin = Margin.new(self) unless @_margin
+        @_margin.set(arg.left, arg.top, arg.right, arg.bottom)
+      elsif arg.nil?
+        return unless @_margin
+        self.move(@_margin.x, @_margin.y, @_margin.w, @_margin.h)
+        @_margin = nil
+      else
+        raise ArgumentError, "argument: #{arg.inspect} is not allowed", caller(1)
+      end
+      parent.SendMessage(WM_SIZE, 0, MAKELPARAM(*parent.clientsize)) if alive?
+    end
+     
+    def get_toplevel_win()
+      parent.get_toplevel_win
+    end
+    
+    def __move(x, y, w, h)
+      return if !@_margin || !@_margin.target
+      l, t, r, b = @_margin.left, @_margin.top, @_margin.right, @_margin.bottom
+      _x = l ? x+l : (r ? x+w-r-@_margin.w : @_margin.x)
+      _y = t ? y+t : (b ? y+h-b-@_margin.h : @_margin.y);
+      _w = (r && l) ? (w - l - r) : @_margin.w
+      _h = (b && t) ? (h - t - b) : @_margin.h
+      self.move(_x, _y, _w, _h)
+    end
+    
+    def set_subclass(f=true)
+      raise "argument must be `true' or `false'" if f!=true && f!=false
+      if alive?
+        @_setsubclass = f
+        if f
+          PreDefinedEvents.update(SubclassedHandlers)
+          SetWindowSubclass() 
+        else
+          PreDefinedEvents.reject!{|k, v| SubclassedHandlers[k]}
+          RemoveWindowSubclass()
+        end
+      else
+        @_setsubclass = f
+      end
+      self
+    end
+    
+    def is_subclassing()
+      @_setsubclass ? true : false
+    end
+    
+    WinStyles = {
+      :tabstop  => WS_TABSTOP,
+      :group    => WS_GROUP,
+      :disabled => WS_DISABLED,
+      :hscroll  => WS_HSCROLL,
+      :vscroll  => WS_VSCROLL,
+      :border   => WS_BORDER
+    }
+    
+    protected
+    def _apply_options(arg)
+      if arg == :parentfont
+        @parentfont = true 
+        return nil
+      end
+      if st=WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      arg
+    end
+  end # WinControl
+end