wrb 2.0.0

data/lib/wrb/lzss.rb

@@ -0,0 +1,126 @@
+# Imprementation of LZSS compression by Ruby
+
+require 'wrb'
+
+module WR
+  class LZSS
+    PatMin = 3
+    PatMax = 18 # 16 pattern (3 to 18)
+    
+    def self.compress(str) self.new(str).compress; end
+    def self.expand(str) self.new(str).expand; end
+    
+    def initialize(str)
+      @src = str.b
+    end
+    
+    def compress()
+      rp = 0
+      ht = {}
+      dst = "".b
+      def dst.concat_bits(bint, blen)
+        raise ArgumentError, "Argument is too big." if bint > 0xffff || blen > 16
+        @bit_offset ||= 0
+        len = @bit_offset + blen
+        ival = bint << (32 - len) 
+        n, new_offset = len.divmod(8)
+        if @bit_offset==0
+          self.concat([ival].pack('N')[0, new_offset==0 ? n : n + 1])
+        else
+          s = [self[-1].ord << 24 | ival].pack('N')
+          self[-1] = s[0]
+          self.concat(s[1, new_offset==0 ? n - 1 : n]) if len > 8
+        end
+        @bit_offset = new_offset
+        self
+      end
+      
+      while rp < @src.bytesize
+        found = len = nil
+        max = @src.size - rp > PatMax ? PatMax : @src.size - rp
+        max.downto(PatMin) {|i|  # search pattern.
+          s = @src[rp, i]
+          if (found = ht[s])
+            if rp - found > 4095 # length of offset is 12 bits.
+              found = nil        # only replace address of pattern.
+            elsif found + i < rp 
+              len = i
+              break
+            else
+              found = nil
+              break
+            end
+          end
+          ht[s] = rp
+        }
+        if found
+          offset = rp - found
+          dst.concat_bits(1, 1)
+          dst.concat_bits((offset << 4) + len - 3, 16) # length of pattern is 4bits(3 to 18).
+          rp += len
+        else
+          dst.concat_bits(0, 1)
+          dst.concat_bits(@src[rp, 1].ord, 8)
+          rp += 1
+        end
+      end
+      dst
+    end
+    
+    def expand()
+      dst = "".b
+      bp = 0
+      while true
+        q, r = bp.divmod(8)
+        s = @src[q]        # get 1 byte
+        break unless s
+        data = s.ord       # convert to 8 bits integer value
+        break unless @src[q+1]
+        data = (data << 8) + @src[q + 1].ord # join more 1 byte
+        if data[15-r] == 0                   # read flag bit
+          bp += 9
+          dst.concat ((data >> 8 - r - 1) & 0xff).chr # return 1 byte to char
+        else
+          data = (data << 8) + @src[q + 2].ord # join more 1 byte
+          x = (data >> (8 - r - 1)) & 0xffff   # get 16 bits which containes length and offset.
+          dic_len = (x & 0xf) + PatMin
+          dic_off = x >> 4                     # length of pattern is 4bits(3 to 18).
+          bp += 17
+          dst.concat dst[dst.size - dic_off, dic_len] # get from dictionary
+        end
+      end
+      dst
+    end
+  end
+end
+
+module WR
+  Dir.foreach('./'){|i|
+    if File.directory?(i)
+      next if i =~ /\.+/
+      Dir.foreach(i){|j|
+        unless File.directory?(i + '/' +j)
+          s = open(i + '/' +j, 'rb'){|f| f.read}
+          r = LZSS.compress(s)
+          d = LZSS.expand(r)
+          dp "%20s: %p, size=%6d, late=%f", j, s==d, r.bytesize, r.bytesize.to_f/s.bytesize
+        end
+      }
+    else
+      s = open(i, 'rb'){|f| f.read}
+      r = LZSS.compress(s)
+      d = LZSS.expand(r)
+      dp "%20s: %p, size=%6d, rate=%f", i, s==d, r.bytesize, r.bytesize.to_f/s.bytesize
+    end
+  }
+  
+#  s = open('resources/win32.ico', 'rb'){|f| f.read}
+  s ="What is this? This is a pen. Apple pen."
+
+  p s.bytesize
+  r = LZSS.compress(s)
+  p r.bytesize
+
+  d = LZSS.expand(r)
+  p s == d || d
+end if $0 == __FILE__

data/lib/wrb/scrollinfo.rb

@@ -0,0 +1,142 @@
+# Common module and constants for Scrollbar
+require 'wrb'
+
+module WR
+  # scroll info
+  SB_HORZ = 0
+  SB_VERT = 1
+  SB_CTL = 2
+  SB_BOTH = 3
+    
+  SB_LINEUP = 0
+  SB_LINELEFT = 0
+  SB_LINEDOWN = 1
+  SB_LINERIGHT = 1
+  SB_PAGEUP = 2
+  SB_PAGELEFT = 2
+  SB_PAGEDOWN = 3
+  SB_PAGERIGHT = 3
+  SB_THUMBPOSITION = 4
+  SB_THUMBTRACK = 5
+  SB_TOP = 6
+  SB_LEFT = 6
+  SB_BOTTOM = 7
+  SB_RIGHT = 7
+  SB_ENDSCROLL = 8
+  
+  SBM_SETPOS           = 0x00E0
+  SBM_GETPOS           = 0x00E1
+  SBM_SETRANGE         = 0x00E2
+  SBM_SETRANGEREDRAW   = 0x00E6
+  SBM_GETRANGE         = 0x00E3
+  SBM_ENABLE_ARROWS    = 0x00E4
+  SBM_SETSCROLLINFO    = 0x00E9
+  SBM_GETSCROLLINFO    = 0x00EA
+  SBM_GETSCROLLBARINFO = 0x00EB
+
+  SIF_RANGE           = 0x0001
+  SIF_PAGE            = 0x0002
+  SIF_POS             = 0x0004
+  SIF_DISABLENOSCROLL = 0x0008
+  SIF_TRACKPOS        = 0x0010
+  SIF_ALL = SIF_RANGE | SIF_PAGE | SIF_POS | SIF_TRACKPOS
+  
+  module ScrollInfo
+    SCROLLINFO = API.defstruct "
+      UINT cbSize;
+      UINT fMask;
+      int nMin;
+      int nMax;
+      UINT nPage;
+      int nPos;
+      int nTrackPos;"
+  
+    RWin::API.loadlib "user32.dll"
+    API.defun "GetScrollInfo(HWND hWnd, int fnBar, LPSCROLLINFO lpsi)"
+    API.defun "SetScrollInfo(HWND hwnd,int nBar,LPCSCROLLINFO lpsi,WINBOOL redraw)"
+    API.defun "ScrollDC(HDC hDC, int dx, int dy, RECT *lprcScroll, RECT *lprcClip, HRGN hrgnUpdate, LPRECT lprcUpdate)"
+    API.defun "ScrollWindowEx(HWND hWnd, int dx, int dy, RECT *prcScroll, RECT *prcClip, HRGN hrgnUpdate, LPRECT prcUpdate, UINT flags)"
+    
+    def vscrollrange()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_RANGE]
+      API.GetScrollInfo(self._hwnd, SB_VERT, lpsi)
+      [lpsi.nMin, lpsi.nMax]
+    end
+    def vscrollrange=(*args)
+      min, max = args[0].is_a?(Array) ? args[0] : [0, args[0]]
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_RANGE, min, max]
+      API.SetScrollInfo(self._hwnd, SB_VERT, lpsi, 1)
+    end
+    
+    def vscrollpos()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS]
+      API.GetScrollInfo(self._hwnd, SB_VERT, lpsi)
+      lpsi.nPos
+    end
+    def vscrollpos=(ps)
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS, nil, nil, nil, ps]
+      API.SetScrollInfo(self._hwnd, SB_VERT, lpsi, 1)
+    end
+    
+    def vscrollpage()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_PAGE]
+      API.GetScrollInfo(self._hwnd, SB_VERT, lpsi)
+      lpsi.nPage
+    end
+    def vscrollpage=(pg)
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_PAGE, nil, nil, pg]
+      API.SetScrollInfo(self._hwnd, SB_VERT, lpsi, 1)
+    end
+    
+    def vscrolltrackpos()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_TRACKPOS]
+      API.GetScrollInfo(self._hwnd, SB_VERT, lpsi)
+      lpsi.nTrackPos
+    end
+    def vscrolltrackpos=(tps)
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS, nil, nil, nil, nil, tps]
+      API.SetScrollInfo(self._hwnd, SB_VERT, lpsi, 1)
+    end
+    
+    def hscrollrange()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_RANGE]
+      API.GetScrollInfo(self._hwnd, SB_HORZ, lpsi)
+      [lpsi.nMin, lpsi.nMax]
+    end
+    def hscrollrange=(*args)
+      min, max = args[0].is_a?(Array) ? args[0] : [0, args[0]]
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_RANGE, min, max]
+      API.SetScrollInfo(self._hwnd, SB_HORZ, lpsi, 1)
+    end
+    
+    def hscrollpos()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS]
+      API.GetScrollInfo(self._hwnd, SB_HORZ, lpsi)
+      lpsi.nPos
+    end
+    def hscrollpos=(ps)
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS, nil, nil, nil, ps]
+      API.SetScrollInfo(self._hwnd, SB_HORZ, lpsi, 1)
+    end
+    
+    def hscrollpage()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_PAGE]
+      API.GetScrollInfo(self._hwnd, SB_HORZ, lpsi)
+      lpsi.nPage
+    end
+    def hscrollpage=(pg)
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_PAGE, nil, nil, pg]
+      API.SetScrollInfo(self._hwnd, SB_HORZ, lpsi, 1)
+    end
+    
+    def hscrolltrackpos()
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_TRACKPOS]
+      API.GetScrollInfo(self._hwnd, SB_HORZ, lpsi)
+      lpsi.nTrackPos
+    end
+    def hscrolltrackpos=(tps)
+      lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS, nil, nil, nil, nil, tps]
+      API.SetScrollInfo(self._hwnd, SB_HORZ, lpsi, 1)
+    end
+  end
+end

data/lib/wrb/toplevelcommon.rb

@@ -0,0 +1,634 @@
+# Common modules and constants for Form and Dialog
+
+require 'wrb'
+
+module WR
+  module RC
+    # for GetSysytemMetrics()
+    SM_CXSCREEN = 0
+    SM_CYSCREEN = 1
+    SM_CXVSCROLL = 2
+    SM_CYHSCROLL = 3
+    SM_CYCAPTION = 4
+    SM_CXBORDER = 5
+    SM_CYBORDER = 6
+    SM_CXDLGFRAME = 7
+    SM_CYDLGFRAME = 8
+    SM_CYVTHUMB = 9
+    SM_CXHTHUMB = 10
+    SM_CXICON = 11
+    SM_CYICON = 12
+    SM_CXCURSOR = 13
+    SM_CYCURSOR = 14
+    SM_CYMENU = 15
+    SM_CXFULLSCREEN = 16
+    SM_CYFULLSCREEN = 17
+    SM_CYKANJIWINDOW = 18
+    SM_MOUSEPRESENT = 19
+    SM_CYVSCROLL = 20
+    SM_CXHSCROLL = 21
+    SM_DEBUG = 22
+    SM_SWAPBUTTON = 23
+    SM_RESERVED1 = 24
+    SM_RESERVED2 = 25
+    SM_RESERVED3 = 26
+    SM_RESERVED4 = 27
+    SM_CXMIN = 28
+    SM_CYMIN = 29
+    SM_CXSIZE = 30
+    SM_CYSIZE = 31
+    SM_CXFRAME = 32
+    SM_CYFRAME = 33
+    SM_CXMINTRACK = 34
+    SM_CYMINTRACK = 35
+    SM_CXDOUBLECLK = 36
+    SM_CYDOUBLECLK = 37
+    SM_CXICONSPACING = 38
+    SM_CYICONSPACING = 39
+    SM_MENUDROPALIGNMENT = 40
+    SM_PENWINDOWS = 41
+    SM_DBCSENABLED = 42
+    SM_CMOUSEBUTTONS = 43
+
+    SM_CXFIXEDFRAME = SM_CXDLGFRAME
+    SM_CYFIXEDFRAME = SM_CYDLGFRAME
+    SM_CXSIZEFRAME = SM_CXFRAME
+    SM_CYSIZEFRAME = SM_CYFRAME
+
+    SM_SECURE = 44
+    SM_CXEDGE = 45
+    SM_CYEDGE = 46
+    SM_CXMINSPACING = 47
+    SM_CYMINSPACING = 48
+    SM_CXSMICON = 49
+    SM_CYSMICON = 50
+    SM_CYSMCAPTION = 51
+    SM_CXSMSIZE = 52
+    SM_CYSMSIZE = 53
+    SM_CXMENUSIZE = 54
+    SM_CYMENUSIZE = 55
+    SM_ARRANGE = 56
+    SM_CXMINIMIZED = 57
+    SM_CYMINIMIZED = 58
+    SM_CXMAXTRACK = 59
+    SM_CYMAXTRACK = 60
+    SM_CXMAXIMIZED = 61
+    SM_CYMAXIMIZED = 62
+    SM_NETWORK = 63
+    SM_CLEANBOOT = 67
+    SM_CXDRAG = 68
+    SM_CYDRAG = 69
+    SM_SHOWSOUNDS = 70
+    SM_CXMENUCHECK = 71
+    SM_CYMENUCHECK = 72
+    SM_SLOWMACHINE = 73
+    SM_MIDEASTENABLED = 74
+    SM_MOUSEWHEELPRESENT = 75
+    SM_XVIRTUALSCREEN = 76
+    SM_YVIRTUALSCREEN = 77
+    SM_CXVIRTUALSCREEN = 78
+    SM_CYVIRTUALSCREEN = 79
+    SM_CMONITORS = 80
+    SM_SAMEDISPLAYFORMAT = 81
+    SM_IMMENABLED = 82
+    SM_CXFOCUSBORDER = 83
+    SM_CYFOCUSBORDER = 84
+    SM_TABLETPC = 86
+    SM_MEDIACENTER = 87
+    SM_STARTER = 88
+    SM_SERVERR2 = 89
+    SM_CMETRICS = 90
+
+    SM_REMOTESESSION = 0x1000
+    SM_SHUTTINGDOWN = 0x2000
+    SM_REMOTECONTROL = 0x2001
+    SM_CARETBLINKINGENABLED = 0x2002
+    
+    # for SystemParameterInfo()
+    SPI_GETBEEP = 0x0001
+    SPI_SETBEEP = 0x0002
+    SPI_GETMOUSE = 0x0003
+    SPI_SETMOUSE = 0x0004
+    SPI_GETBORDER = 0x0005
+    SPI_SETBORDER = 0x0006
+    SPI_GETKEYBOARDSPEED = 0x000A
+    SPI_SETKEYBOARDSPEED = 0x000B
+    SPI_LANGDRIVER = 0x000C
+    SPI_ICONHORIZONTALSPACING = 0x000D
+    SPI_GETSCREENSAVETIMEOUT = 0x000E
+    SPI_SETSCREENSAVETIMEOUT = 0x000F
+    SPI_GETSCREENSAVEACTIVE = 0x0010
+    SPI_SETSCREENSAVEACTIVE = 0x0011
+    SPI_GETGRIDGRANULARITY = 0x0012
+    SPI_SETGRIDGRANULARITY = 0x0013
+    SPI_SETDESKWALLPAPER = 0x0014
+    SPI_SETDESKPATTERN = 0x0015
+    SPI_GETKEYBOARDDELAY = 0x0016
+    SPI_SETKEYBOARDDELAY = 0x0017
+    SPI_ICONVERTICALSPACING = 0x0018
+    SPI_GETICONTITLEWRAP = 0x0019
+    SPI_SETICONTITLEWRAP = 0x001A
+    SPI_GETMENUDROPALIGNMENT = 0x001B
+    SPI_SETMENUDROPALIGNMENT = 0x001C
+    SPI_SETDOUBLECLKWIDTH = 0x001D
+    SPI_SETDOUBLECLKHEIGHT = 0x001E
+    SPI_GETICONTITLELOGFONT = 0x001F
+    SPI_SETDOUBLECLICKTIME = 0x0020
+    SPI_SETMOUSEBUTTONSWAP = 0x0021
+    SPI_SETICONTITLELOGFONT = 0x0022
+    SPI_GETFASTTASKSWITCH = 0x0023
+    SPI_SETFASTTASKSWITCH = 0x0024
+    SPI_SETDRAGFULLWINDOWS = 0x0025
+    SPI_GETDRAGFULLWINDOWS = 0x0026
+    SPI_GETNONCLIENTMETRICS = 0x0029
+    SPI_SETNONCLIENTMETRICS = 0x002A
+    SPI_GETMINIMIZEDMETRICS = 0x002B
+    SPI_SETMINIMIZEDMETRICS = 0x002C
+    SPI_GETICONMETRICS = 0x002D
+    SPI_SETICONMETRICS = 0x002E
+    SPI_SETWORKAREA = 0x002F
+    SPI_GETWORKAREA = 0x0030
+    SPI_SETPENWINDOWS = 0x0031
+
+    SPI_GETHIGHCONTRAST = 0x0042
+    SPI_SETHIGHCONTRAST = 0x0043
+    SPI_GETKEYBOARDPREF = 0x0044
+    SPI_SETKEYBOARDPREF = 0x0045
+    SPI_GETSCREENREADER = 0x0046
+    SPI_SETSCREENREADER = 0x0047
+    SPI_GETANIMATION = 0x0048
+    SPI_SETANIMATION = 0x0049
+    SPI_GETFONTSMOOTHING = 0x004A
+    SPI_SETFONTSMOOTHING = 0x004B
+    SPI_SETDRAGWIDTH = 0x004C
+    SPI_SETDRAGHEIGHT = 0x004D
+    SPI_SETHANDHELD = 0x004E
+    SPI_GETLOWPOWERTIMEOUT = 0x004F
+    SPI_GETPOWEROFFTIMEOUT = 0x0050
+    SPI_SETLOWPOWERTIMEOUT = 0x0051
+    SPI_SETPOWEROFFTIMEOUT = 0x0052
+    SPI_GETLOWPOWERACTIVE = 0x0053
+    SPI_GETPOWEROFFACTIVE = 0x0054
+    SPI_SETLOWPOWERACTIVE = 0x0055
+    SPI_SETPOWEROFFACTIVE = 0x0056
+    SPI_SETCURSORS = 0x0057
+    SPI_SETICONS = 0x0058
+    SPI_GETDEFAULTINPUTLANG = 0x0059
+    SPI_SETDEFAULTINPUTLANG = 0x005A
+    SPI_SETLANGTOGGLE = 0x005B
+    SPI_GETWINDOWSEXTENSION = 0x005C
+    SPI_SETMOUSETRAILS = 0x005D
+    SPI_GETMOUSETRAILS = 0x005E
+    SPI_SETSCREENSAVERRUNNING = 0x0061
+    SPI_SCREENSAVERRUNNING = SPI_SETSCREENSAVERRUNNING
+    SPI_GETFILTERKEYS = 0x0032
+    SPI_SETFILTERKEYS = 0x0033
+    SPI_GETTOGGLEKEYS = 0x0034
+    SPI_SETTOGGLEKEYS = 0x0035
+    SPI_GETMOUSEKEYS = 0x0036
+    SPI_SETMOUSEKEYS = 0x0037
+    SPI_GETSHOWSOUNDS = 0x0038
+    SPI_SETSHOWSOUNDS = 0x0039
+    SPI_GETSTICKYKEYS = 0x003A
+    SPI_SETSTICKYKEYS = 0x003B
+    SPI_GETACCESSTIMEOUT = 0x003C
+    SPI_SETACCESSTIMEOUT = 0x003D
+    SPI_GETSERIALKEYS = 0x003E
+    SPI_SETSERIALKEYS = 0x003F
+    SPI_GETSOUNDSENTRY = 0x0040
+    SPI_SETSOUNDSENTRY = 0x0041
+    SPI_GETSNAPTODEFBUTTON = 0x005F
+    SPI_SETSNAPTODEFBUTTON = 0x0060
+    SPI_GETMOUSEHOVERWIDTH = 0x0062
+    SPI_SETMOUSEHOVERWIDTH = 0x0063
+    SPI_GETMOUSEHOVERHEIGHT = 0x0064
+    SPI_SETMOUSEHOVERHEIGHT = 0x0065
+    SPI_GETMOUSEHOVERTIME = 0x0066
+    SPI_SETMOUSEHOVERTIME = 0x0067
+    SPI_GETWHEELSCROLLLINES = 0x0068
+    SPI_SETWHEELSCROLLLINES = 0x0069
+    SPI_GETMENUSHOWDELAY = 0x006A
+    SPI_SETMENUSHOWDELAY = 0x006B
+    SPI_GETSHOWIMEUI = 0x006E
+    SPI_SETSHOWIMEUI = 0x006F
+    SPI_GETMOUSESPEED = 0x0070
+    SPI_SETMOUSESPEED = 0x0071
+    SPI_GETSCREENSAVERRUNNING = 0x0072
+    SPI_GETDESKWALLPAPER = 0x0073
+
+#if (_WIN32_WINNT >= = 0x0600)
+#    SPI_GETAUDIODESCRIPTION = 0x0074
+#    SPI_SETAUDIODESCRIPTION = 0x0075
+#endif
+
+    SPI_GETACTIVEWINDOWTRACKING = 0x1000
+    SPI_SETACTIVEWINDOWTRACKING = 0x1001
+    SPI_GETMENUANIMATION = 0x1002
+    SPI_SETMENUANIMATION = 0x1003
+    SPI_GETCOMBOBOXANIMATION = 0x1004
+    SPI_SETCOMBOBOXANIMATION = 0x1005
+    SPI_GETLISTBOXSMOOTHSCROLLING = 0x1006
+    SPI_SETLISTBOXSMOOTHSCROLLING = 0x1007
+    SPI_GETGRADIENTCAPTIONS = 0x1008
+    SPI_SETGRADIENTCAPTIONS = 0x1009
+    SPI_GETKEYBOARDCUES = 0x100A
+    SPI_SETKEYBOARDCUES = 0x100B
+    SPI_GETMENUUNDERLINES = SPI_GETKEYBOARDCUES
+    SPI_SETMENUUNDERLINES = SPI_SETKEYBOARDCUES
+    SPI_GETACTIVEWNDTRKZORDER = 0x100C
+    SPI_SETACTIVEWNDTRKZORDER = 0x100D
+    SPI_GETHOTTRACKING = 0x100E
+    SPI_SETHOTTRACKING = 0x100F
+    SPI_GETMENUFADE = 0x1012
+    SPI_SETMENUFADE = 0x1013
+    SPI_GETSELECTIONFADE = 0x1014
+    SPI_SETSELECTIONFADE = 0x1015
+    SPI_GETTOOLTIPANIMATION = 0x1016
+    SPI_SETTOOLTIPANIMATION = 0x1017
+    SPI_GETTOOLTIPFADE = 0x1018
+    SPI_SETTOOLTIPFADE = 0x1019
+    SPI_GETCURSORSHADOW = 0x101A
+    SPI_SETCURSORSHADOW = 0x101B
+    SPI_GETMOUSESONAR = 0x101C
+    SPI_SETMOUSESONAR = 0x101D
+    SPI_GETMOUSECLICKLOCK = 0x101E
+    SPI_SETMOUSECLICKLOCK = 0x101F
+    SPI_GETMOUSEVANISH = 0x1020
+    SPI_SETMOUSEVANISH = 0x1021
+    SPI_GETFLATMENU = 0x1022
+    SPI_SETFLATMENU = 0x1023
+    SPI_GETDROPSHADOW = 0x1024
+    SPI_SETDROPSHADOW = 0x1025
+    SPI_GETBLOCKSENDINPUTRESETS = 0x1026
+    SPI_SETBLOCKSENDINPUTRESETS = 0x1027
+    SPI_GETUIEFFECTS = 0x103E
+    SPI_SETUIEFFECTS = 0x103F
+    SPI_GETFOREGROUNDLOCKTIMEOUT = 0x2000
+    SPI_SETFOREGROUNDLOCKTIMEOUT = 0x2001
+    SPI_GETACTIVEWNDTRKTIMEOUT = 0x2002
+    SPI_SETACTIVEWNDTRKTIMEOUT = 0x2003
+    SPI_GETFOREGROUNDFLASHCOUNT = 0x2004
+    SPI_SETFOREGROUNDFLASHCOUNT = 0x2005
+    SPI_GETCARETWIDTH = 0x2006
+    SPI_SETCARETWIDTH = 0x2007
+    SPI_GETMOUSECLICKLOCKTIME = 0x2008
+    SPI_SETMOUSECLICKLOCKTIME = 0x2009
+    SPI_GETFONTSMOOTHINGTYPE = 0x200A
+    SPI_SETFONTSMOOTHINGTYPE = 0x200B
+
+    FE_FONTSMOOTHINGSTANDARD = 0x0001
+    FE_FONTSMOOTHINGCLEARTYPE = 0x0002
+    FE_FONTSMOOTHINGDOCKING = 0x8000
+
+    SPI_GETFONTSMOOTHINGCONTRAST = 0x200C
+    SPI_SETFONTSMOOTHINGCONTRAST = 0x200D
+    SPI_GETFOCUSBORDERWIDTH = 0x200E
+    SPI_SETFOCUSBORDERWIDTH = 0x200F
+    SPI_GETFOCUSBORDERHEIGHT = 0x2010
+    SPI_SETFOCUSBORDERHEIGHT = 0x2011
+    SPI_GETFONTSMOOTHINGORIENTATION = 0x2012
+    SPI_SETFONTSMOOTHINGORIENTATION = 0x2013
+
+    FE_FONTSMOOTHINGORIENTATIONBGR = 0x0000
+    FE_FONTSMOOTHINGORIENTATIONRGB = 0x0001
+
+    SPIF_UPDATEINIFILE = 0x0001
+    SPIF_SENDWININICHANGE = 0x0002
+    SPIF_SENDCHANGE = SPIF_SENDWININICHANGE
+    
+    # for GetStockObject()
+    OEM_FIXED_FONT = 10
+    ANSI_FIXED_FONT = 11
+    ANSI_VAR_FONT = 12
+    SYSTEM_FONT = 13
+    DEVICE_DEFAULT_FONT = 14
+    SYSTEM_FIXED_FONT = 16
+    DEFAULT_GUI_FONT = 17
+  end
+  
+  module ModKeyAccel
+    FVIRTKEY  = 0x01
+    FNOINVERT = 0x02
+    FSHIFT    = 0x04
+    FCONTROL  = 0x08
+    FALT      = 0x10
+    FVirt =  {"Shift"=>FSHIFT, "Ctrl"=>FCONTROL, "Alt" =>FALT}
+    
+    VFuncKey = {
+      "F1"=>0x70, "F2"=>0x71, "F3"=>0x72, "F4"=>0x73,"F5"=>0x74, "F6"=>0x75, 
+      "F7"=>0x76, "F8"=>0x77, "F9"=>0x78, "F10"=>0x79, "F11"=>0x7a, "F12"=>0x7b,
+      "Insert"=>0x2d, "Delete"=>0x2e, "PageUp"=>0x21, "PageDown"=>0x22,
+      "End"=>0x23, "Home"=>0x24
+    }
+    
+    def parse_keyaccel(txt, cmd=nil)
+      fvirt = FVIRTKEY
+      ar = txt.strip.split(/\+/)
+      if (str=ar.pop).length > 1
+        vk = VFuncKey[str]
+        raise "Illegal key `#{str}'" unless vk
+      else
+        vk = str.upcase.unpack('c')[0]
+      end
+      ar.each{|i| fvirt += FVirt[i.strip] || raise("Illegal virtual key `#{i}'")}
+      [fvirt, vk, cmd]
+    end
+    module_function :parse_keyaccel
+  end
+  
+  module ModHotKey
+    MOD_ALT      = 0x0001
+    MOD_CONTROL  = 0x0002
+    MOD_SHIFT    = 0x0004
+    MOD_WIN      = 0x0008
+    MOD_NOREPEAT = 0x4000
+    Modifier =  {"Shift" => MOD_SHIFT, "Ctrl" => MOD_CONTROL, "Alt" => MOD_ALT}
+    
+    def self.parse_hotkey(txt, no_repeat=true)
+      return nil if !txt || txt.empty?
+      modifier = no_repeat ? MOD_NOREPEAT : 0
+      key = nil
+      ar = txt.strip.split(/\+/)
+      if (str=ar.pop).length > 1
+        unless vk=ModKeyAccel::VFuncKey[str]
+          raise "Illegal key `#{str}'"
+        end
+      else
+        vk = str.upcase.unpack('c')[0]
+      end
+      ar.each{|ii|
+        raise "Illegal key `#{ii}'" unless n=Modifier[ii]
+        modifier |= n 
+      }
+      [modifier, vk]
+    end
+  end # ModHotKey
+  
+  module ModToplevelWin # for Form, Dialog 
+    NONCLIENTMETRICS = API.defstruct "
+      UINT cbSize;
+      int iBorderWidth;
+      int iScrollWidth;
+      int iScrollHeight;
+      int iCaptionWidth;
+      int iCaptionHeight;
+      LOGFONT lfCaptionFont;
+      int iSmCaptionWidth;
+      int iSmCaptionHeight;
+      LOGFONT lfSmCaptionFont;
+      int iMenuWidth;
+      int iMenuHeight;
+      LOGFONT lfMenuFont;
+      LOGFONT lfStatusFont;
+      LOGFONT lfMessageFont;
+      int iPaddedBorderWidth;"
+    
+    ncm = NONCLIENTMETRICS[NONCLIENTMETRICS::Size]
+    ncm.lfMenuFont = API::LOGFONT.new
+    API.SystemParametersInfo(RC::SPI_GETNONCLIENTMETRICS, 0, ncm, 0);
+    DefaultFont = Font.new(ncm.lfMenuFont)
+
+    def self.included(mod)
+      def mod.start()
+        self.new.create
+        APP.automsgloop
+      end
+      
+      def mod.start_as_form()
+        self.new.create
+        APP.msgloop
+      end
+      def mod.start_as_dialog()
+        self.new.create
+        APP.dlgmsgloop
+      end
+      def mod.start_as_auto()
+        self.new.create
+        APP.automsgloop
+      end
+    end
+    
+    include RC
+    WinStyles = {
+      :thickframe => WS_THICKFRAME,
+      :sysmenu => WS_SYSMENU,
+      :dlgframe => WS_DLGFRAME,
+      :border => WS_BORDER,
+      :maximizebox => WS_MAXIMIZEBOX,
+      :minimizebox => WS_MINIMIZEBOX,
+      :clipchldren => WS_CLIPCHILDREN,
+      :hscroll => WS_HSCROLL,
+      :vscroll => WS_VSCROLL,
+#      :clipsiblngs => WS_CLIPSIBLINGS
+#      :sizebox => WS_SIZEBOX,
+    }
+    
+    DefaultEvents = []
+    
+    include ModParent
+    
+    LWA_COLORKEY = 1
+    LWA_ALPHA    = 2
+    
+    API.defun "SetLayeredWindowAttributes(HWND hwnd,COLORREF crKey,BYTE bAlpha,DWORD dwFlags)"
+    API.defun "GetLayeredWindowAttributes(HWND hwnd,COLORREF *pcrKey,BYTE *pbAlpha,
+                                          DWORD *pdwFlags)"
+    API.defun "AdjustWindowRectEx(LPRECT lpRect, DWORD dwStyle, BOOL bMenu, DWORD dwExStyle)"
+    API.defun "GetMenu(HWND hwnd)"
+    API.defun "GetMenuItemCount(HMENU hmenu)"
+    API.defun "SetActiveWindow(HWND hWnd)"
+    
+    # Returns self.
+    def get_toplevel_win()
+      self
+    end
+    
+    # Retreives acceptable events as array of symbols.
+    def acceptable_events()
+      @_acceptable_events ||= {
+        :activate => [WM_ACTIVATE, 'hi']
+      }.update(ModBaseWin::SubclassedHandlers)
+    end
+    
+    # Wrapper of AdjustWindowRectEx() function.
+    def adjust_windowsize(w, h)
+      rc = API::RECT[0, 0, w, h]
+      hmenu = API.GetMenu(self._hwnd)
+      ifmenu = (hmenu!=0 && API.GetMenuItemCount(hmenu)>0) ? 1 : 0
+      API.AdjustWindowRectEx(rc, style, ifmenu, exstyle)
+      [rc.right-rc.left, rc.bottom-rc.top]
+    end
+    
+    # clientsize=(client-width, client-heigt)
+    # Resizes this window according to given client size<br>
+    # Give two integers as client-width and client-height.
+    def clientsize=(arg)
+      _w, _h = adjust_windowsize(*arg)
+      self.resize(_w, _h)
+    end
+    
+    # Sets icon into this window.
+    def icon=(ico)
+      raise ArgumentError, "argument must be RWin::Icon", caller(1) unless ico.is_a? RWin::Icon
+      @_icon = ico   # keep Icon object in this window
+      SendMessage(WM_SETICON, ICON_SMALL, ico._hicon) if alive?
+    end
+    
+    # Gets transparency of this window.
+    # <br>Retrurns an integer between 0 to 255.
+    def transparency()
+      return nil if (exstyle&WS_EX_LAYERED) == 0
+      if alive?
+        API.GetLayeredWindowAttributes(_hwnd, nil, opacity=API::BYTE[1], nil)
+        255 - opacity[0]
+      else
+        @_transparency
+      end
+    end
+    
+    # Sets transparency of this window. <br>
+    # Give an integer between 0 to 255 as <i>tp</i>.
+    def transparency=(tp)
+      if tp.nil?
+        @_transparency=nil
+        return self.exstyle &= ~WS_EX_LAYERED
+      else
+        self.exstyle |= WS_EX_LAYERED
+      end
+      if alive? 
+        API.SetLayeredWindowAttributes(_hwnd, nil, 255-tp, LWA_ALPHA)
+      else
+        @_transparency = tp
+      end
+    end
+    
+    # Gets traniparent color. <br>
+    # Returns an integer as RGB color.
+    def transparentcolor()
+      return nil if (exstyle&WS_EX_LAYERED) == 0
+      if alive?
+        API.GetLayeredWindowAttributes(_hwnd, clr=API::DWORD[1], nil, nil)
+        clr[0]
+      else
+        @_transparentcolor
+      end
+    end
+    
+    # Sets traniparent color. <br>
+    # Give an integer as RGB color.
+    def transparentcolor=(clr)
+      if clr.nil?
+        @_transparentcolor=nil
+        return self.exstyle &= ~WS_EX_LAYERED
+      else
+        self.exstyle |= WS_EX_LAYERED
+      end
+      if alive? 
+        API.SetLayeredWindowAttributes(_hwnd, clr.to_i, nil, LWA_COLORKEY)
+      else
+        @_transparentcolor = clr
+      end
+    end
+     
+    # Retrives whether a size box is shown in the title bar.<br>
+    # Returns true/false.
+    def sizebox()
+      (self.style & WS_SIZEBOX) > 0
+    end
+    
+    # Sets whether a size box is shown in the title bar.<br>
+    # Give true/false as <i>f</i>.
+    def sizebox=(f)
+      f ? self.style |= WS_SIZEBOX : self.style &= ~WS_SIZEBOX
+    end
+    
+    # Retrives whether a maximize box is shown in the title bar.<br>
+    # Returns true/false.
+    def maximizebox()
+      (self.style & WS_MAXIMIZEBOX) > 0
+    end
+    # Sets whether a maximize box is shown in the title bar.<br>
+    # Give true/false as <i>f</i>.
+    def maximizebox=(f)
+      f ? self.style |= WS_MAXIMIZEBOX : self.style &= ~WS_MAXIMIZEBOX
+    end
+    
+    # Retrives whether a minmize box is shown in the title bar.<br>
+    # Returns true/false.
+    def minimizebox()
+      (self.style & WS_MINIMIZEBOX) > 0
+    end
+    # Sets whether a minmize box is shown in the title bar.<br>
+    # Give true/false as <i>f</i>.
+    def minimizebox=(f)
+      f ? self.style |= WS_MINIMIZEBOX : self.style &= ~WS_MINIMIZEBOX
+    end
+    
+    # Activates this window.<br> 
+    # Returns previous window.
+    def activate()
+      APP.hwnd2ref(API.SetActiveWindow(self._hwnd))
+    end
+    
+    # Shows a message box that is owned by this window.
+    def MessageBox(text, caption, type=0)
+      API.MessageBox(self._hwnd, _I(text.to_s), caption.to_s, type.to_i)
+    end
+    alias msgbox MessageBox
+    
+    class << Hotkeys=Hash.new
+      attr_accessor :owner_win
+    end
+    
+    # Registers a paticular key code as key-accelarator to accelarator table of this window.
+    def register_keyaccel(accel, cmd)
+      fv, vk = ModKeyAccel.parse_keyaccel(accel, cmd)
+      kk = MAKELPARAM(fv, vk)
+      @_keyaccels ||= {}
+      if v=@_keyaccels[kk]
+        raise "`#{accel}' was already asigned to #{v}"
+      else
+        @_keyaccels[kk] = cmd
+      end
+      if alive? && @_keyaccels
+        r = []
+        @_keyaccels.each{|k, v| r << (SPLITPARAM(k) << v)}
+        set_accelerator(r)
+      end
+    end
+    
+    # Removes a key code from accelarator table of this window.
+    def unregister_keyaccel(accel)
+      return unless @_keyaccels
+      fv, vk = ModKeyAccel.parse_keyaccel(accel)
+      kk = MAKELPARAM(fv, vk)
+      return unless prm=@_keyaccels[kk]
+      @_keyaccels.delete(kk)
+      if alive? && @_keyaccels
+        r = []
+        @_keyaccels.each{|k, v| r << (SPLITPARAM(k) << v)}
+        set_accelerator(r.empty? ? nil : r)
+      end
+    end
+    
+    # Registers a paticular key code as hot key of this application.
+    def register_hotkey(cmd, hotkey)
+      register_event(WM_HOTKEY, '__hotkey__', 'ih') if !event_registered?(WM_HOTKEY,'__hotkey__')
+      mod, vk = ModHotKey.parse_hotkey(hotkey)
+      RegisterHotKey(cmd, mod, vk)
+    end
+    
+    # Not implemented yet.
+    def unregister_hotkey(mod, vk)
+      raise "`unregister_hotkey' is not impremented yet"
+    end
+    
+    private
+    def __getfont__() #dpp @_font._hfont
+      CancelDefWindowProc(@_font ? @_font._hfont : 0)
+    end
+    def __hotkey__(cmd, mod, vk)
+      SendMessage(WM_COMMAND, cmd, 0)
+    end
+  end
+end