wrb 2.0.0

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

@@ -0,0 +1,1394 @@
+# FormDesigner
+
+require 'wrb'
+module WR
+  API.defun "EnumChildWindows(HWND, HPROC, LPARAM)"
+  API.defun "GetWindow(HWND hwnd, UINT uCmd)"
+  GW_CHILD = 5
+    
+  class Infobox < Window
+    InfoBoxFont = Font.new('MS UIGothic', 12)
+    
+    class InfoGr < RWin::Canvas
+      def draw(bkcolor, txt)
+        SetFont(InfoBoxFont)
+        SetBkColor(bkcolor)
+        DrawText(txt, 0, 0, 100, 12)
+      end
+    end
+    
+    def initialize(parent)
+      @_classname = "RUBYWIN"
+      self.style = WS_BORDER | WS_POPUP
+      self.visible = false
+      @_x = @_y = @_w = @_h = 0
+      @_parent = parent
+      @_idcmd = 0
+      register_event(WM_PAINT, '_paint', 'c', InfoGr)
+      @info_text = ''
+    end
+    
+    def _paint(gr)
+      gr.draw(@bkcolor, @info_text)
+    end
+    
+    def show_info(obj, wh=nil)
+      parent = obj.parent
+      sx, sy = obj.screenpos()
+      obj_w, obj_h = obj.windowsize
+      if wh
+        @info_text = "#{obj_w}, #{obj_h}"
+        @bkcolor = 0xffffdd
+      else
+        @info_text = "#{obj.x}, #{obj.y}"
+        @bkcolor = 0xddffff
+      end
+      _w, _h = nil
+      InfoGr.draw(self){|gr|
+        gr.SetFont(InfoBoxFont)
+        _w, _h = gr.GetTextExtent(@info_text)
+      }
+      w, h = windowsize
+      self.move(sx-_w, sy-_h, _w+2, _h+1)
+      self.visible = SW_SHOWNA
+      refresh
+    end
+  end
+  
+  class HandleWin < Window
+    Arrow    = Cursor[IDC_ARROW]
+    SizeNESW = Cursor[IDC_SIZENESW]
+    SizeNS   = Cursor[IDC_SIZENS]
+    SizeNWSE = Cursor[IDC_SIZENWSE]
+    SizeWE   = Cursor[IDC_SIZEWE]
+    
+    API.loadlib 'gdi32'
+    API.defun 'CreateRectRgn(int left, int top, int right, int bottom)'
+    API.defun 'CombineRgn(HRGN dest, HRGN src1, HRGN src2, int Combinemode)'
+    API.defun 'SetWindowRgn(HWND hwnd, HRGN hRgn, BOOL bRedraw)'
+    API.defun 'DeleteObject(HANDLE handle)'
+    
+    RGN_OR = 2
+    RGN_DIFF = 4
+    
+    attr_accessor :border
+    
+    def initialize(obj, parent, first_selection=nil)
+      @_classname = "RUBYWIN"
+      @_parent = parent
+      @_x = @_y = @_w = @_h = 0
+      self.style = WS_VISIBLECHILD
+      self.exstyle = WS_EX_TOPMOST
+      register_event(WM_LBUTTONDOWN, '_lbuttondown', 'xh')
+      @target = obj
+      register_event(WM_SIZE, '_resize', 'xh')
+      register_event(WM_MOUSEMOVE, '_mousemove', 'xh')
+      register_event(WM_PAINT, '_paint', 'c', HandleGr)
+      @first_selection = first_selection
+    end
+    
+    private
+    def _lbuttondown(x, y)
+      return unless @first_selection
+      @target.resize_start(hoobartest(x, y))
+      self.visible=false
+    end
+      
+    def _mousemove(x, y)
+      return unless @first_selection
+      hoobarpos2cursor(hoobartest(x, y))
+    end
+    
+    def hoobarpos2cursor(pos)
+      case pos
+      when 1, 2
+        APP.SetCursor(SizeNWSE)
+      when 3, 4
+        APP.SetCursor(SizeNESW)
+      when 5, 6
+        APP.SetCursor(SizeWE)       
+      when 7, 8
+        APP.SetCursor(SizeNS)
+      end
+    end
+    
+    def hoobartest(x, y)
+      w, h  = windowsize
+      c = w/2
+      m = h/2
+      if    (0<=x && x<=5) && (0<=y && y<=5)
+        1
+      elsif (w-5<=x && x<=w) && (h-5<=y && y<=h)
+        2
+      elsif (w-5<=x && x<=w) && (0<=y && y<=5) 
+        3
+      elsif (0<=x && x<=5) && (h-5<=y && y<=h)
+        4
+      elsif (0<=x && x<=5) && (m-3<=y && y<=m+2)
+        5
+      elsif (w-5<=x && x<=w) && (m-3<=y && y<=m+2)
+        6
+      elsif (c-3<=x && x<=c+2) && (0<=y && y<=5)
+        7
+      elsif (c-3<=x && x<=c+2) && (h-5<=y && y<=h)
+        8
+      else
+        nil
+      end
+    end
+    
+    def _resize(w, h)
+      if @border
+        _resize_border(w, h)
+      else
+        _resize_handle(w, h)
+      end
+    end
+    
+    def _resize_border(w, h)
+      hrgn = API.CreateRectRgn(0, 0, 1, 1)
+      hr1 = API.CreateRectRgn(0, 0, w, h)
+      hr2 = API.CreateRectRgn(1, 1, w-1, h-1)
+      API.CombineRgn(hrgn, hr1, hr2, RGN_DIFF)
+      API.DeleteObject(hr1)
+      API.DeleteObject(hr2)
+      API.SetWindowRgn(self._hwnd, hrgn, 1)
+      refresh if self.visible
+    end
+      
+    def _resize_handle(w, h)
+      c = w/2
+      m = h/2
+      hrgn = API.CreateRectRgn(0, 0, 1, 1)
+      
+      hr12 = API.CreateRectRgn(0, 0, 1, 1)
+      hr1 = API.CreateRectRgn(0, 0, 5, 5)
+      hr2 = API.CreateRectRgn(w-5, 0, w, 5)
+      API.CombineRgn(hr12, hr1, hr2, RGN_OR)
+      API.DeleteObject(hr1)
+      API.DeleteObject(hr2)
+      
+      hr34 = API.CreateRectRgn(0, 0, 1, 1)
+      hr3 = API.CreateRectRgn(0, h-5, 5, h)
+      hr4 = API.CreateRectRgn(w-5, h-5, w, h)
+      API.CombineRgn(hr34, hr3, hr4, RGN_OR)
+      API.DeleteObject(hr3)
+      API.DeleteObject(hr4)
+      
+      hr1234 = API.CreateRectRgn(0, 0, 1, 1)
+      API.CombineRgn(hr1234, hr12, hr34, RGN_OR)
+      API.DeleteObject(hr12)
+      API.DeleteObject(hr34)
+      
+      hr56 = API.CreateRectRgn(0, 0, 1, 1)
+      hr5 = API.CreateRectRgn(c-3, 0, c+2, 5)
+      hr6 = API.CreateRectRgn(c-3, h-5, c+2, h)
+      API.CombineRgn(hr56, hr5, hr6, RGN_OR)
+      API.DeleteObject(hr5)
+      API.DeleteObject(hr6)
+      
+      hr78 = API.CreateRectRgn(0, 0, 1, 1)
+      hr7 = API.CreateRectRgn(0, m-3, 5, m+2)
+      hr8 = API.CreateRectRgn(w-5, m-3, w, m+2)
+      API.CombineRgn(hr78, hr7, hr8, RGN_OR)
+      API.DeleteObject(hr7)
+      API.DeleteObject(hr8)
+      
+      hr5678 = API.CreateRectRgn(0, 0, 1, 1)
+      API.CombineRgn(hr5678, hr56, hr78, RGN_OR)
+      API.DeleteObject(hr56)
+      API.DeleteObject(hr78)
+      
+      API.CombineRgn(hrgn, hr1234, hr5678, RGN_OR)
+      API.DeleteObject(hr1234)
+      API.DeleteObject(hr5678)
+      
+      API.SetWindowRgn(self._hwnd, hrgn, 1)
+      refresh if self.visible
+    end
+    
+    class HandleGr < RWin::Canvas
+      def draw(obj, border, first_selection)
+        obj_w, obj_h = obj.windowsize
+        if border
+          SetPen(0xff0000)
+          Rectangle(0, 0, obj_w, obj_h)
+          return
+        end
+        if first_selection
+          SetBrush(0xffffff)
+        else
+          SetBrush(0xafafaf)
+        end
+        Rectangle(0, 0, 5, 5)
+        Rectangle(obj_w-5, 0, obj_w, 5)
+        Rectangle(0, obj_h-5, 5, obj_h)
+        Rectangle(obj_w-5, obj_h-5, obj_w, obj_h)
+        Rectangle(obj_w/2-3, 0, obj_w/2+2, 5)
+        Rectangle(obj_w/2-3, obj_h-5, obj_w/2+2, obj_h)
+        Rectangle(0, obj_h/2-3, 5, obj_h/2+2)
+        Rectangle(obj_w-5, obj_h/2-3, obj_w, obj_h/2+2)
+      end
+    end
+    
+    def _paint(gr)
+      gr.draw(self, @border, @first_selection)
+    end
+  end
+  
+  module ModFDCommon
+    if (RWin::X64 rescue nil)
+      API.defun "ChildWindowFromPoint(hwnd, point)"
+      def __hittest(sx, sy) # Argument is not pointer but 64bits integer
+        pt = API::POINT[*ScreenToClient(sx, sy)]
+        cwnd = API.ChildWindowFromPoint(self._hwnd, (pt.y<<32) + pt.x)
+        r = APP.hwnd2ref(cwnd)
+        if r!=self && r.respond_to?(:controls)
+          r = r.__hittest(sx, sy)
+        end
+        return r
+      end
+    else
+      API.defun "ChildWindowFromPoint(hwnd, x, y)" # Convers 64bis integer to 2 DWORDs
+      def __hittest(sx, sy)
+        pt = API::POINT[*ScreenToClient(sx, sy)]
+        cwnd = API.ChildWindowFromPoint(self._hwnd, pt.x, pt.y)
+        r = APP.hwnd2ref(cwnd)
+        if r!=self && r.respond_to?(:controls)
+          r = r.__hittest(sx, sy)
+        end
+        return r
+      end
+    end
+    
+    def parse_template4out(ctrl, cmd, tp, defval=nil)
+      atr = ctrl.__send__(cmd.intern)
+      return '' if atr == defval
+      if (c=ctrl.class) < WinControl # ; dpp self, cmd, atr
+        if (f=c::FDConfig["#{cmd}_out".intern])
+          return f.call(ctrl, atr)
+        elsif (f=c::FDConfig["#{cmd}_get".intern]) 
+          return f.call(ctrl, atr)
+        end
+      end
+      if atr.is_a?(Font)
+        ar = [atr.facename, atr.height, atr.attrstr]
+        ar.delete("")
+        return sprintf("%p", ar)
+      elsif tp && tp.size>1 && atr.respond_to?(:to_a)
+        atr = atr.to_a
+      end
+      if !atr.is_a?(Array)
+        case tp
+        when 'h'
+          sprintf("%#x", atr)
+        when 'n'
+          atr.respond_to?(:name) ? "_#{atr.name}" : atr.to_s
+        when 'a'
+          atr ? sprintf("%p", atr.to_a) : ''
+        else
+          sprintf("%p", atr)
+        end
+      else #; dpp ctrl, cmd, tp, atr
+        tp = tp.split(',')[0]
+        return sprintf("%p", atr) if tp=='a'
+        r = []
+        tp.size.times{|i|
+          c = tp[i]
+          case c
+          when 'h'
+            r << sprintf("%#x", atr[i])
+          when 'n'
+            r << (atr[i].respond_to?(:name) ? "_#{atr[i].name}" : atr[i].to_s)
+          else
+            r << sprintf("%p", atr[i])
+          end
+        }
+        "[#{r.join(", ")}]"
+      end
+    end
+    
+    def index_of_src(lns, lsrc)
+      lsrc_id = lsrc.__id__
+      lns.index{|i| i.__id__==lsrc_id}
+    end
+    module_function :index_of_src
+    
+    def style2symbols
+      r = []
+      st = self.style
+      altmask = self.class::FDConfig[:altanate_mask] || []
+      self.class::WinStyles.each{|k, v|
+        m = altmask.find{|i| i&v>0 || (i&1>0 && v==0)}
+        if m 
+          next r << k if v==(st&m)
+        else
+          r << k if v==(v&st)
+        end
+      }
+      r
+    end
+    
+    def __fd_set_items_srcs(lns, curln, indent, ar)
+      if @__fd_items_srcs
+        __fd_delete_items_srcs(lns)
+      else
+        extend ModFDItemsSrcLine
+      end
+      ar.each{|i|
+        lns[curln+=1, 0] = (s=indent+i+"\n")
+        @__fd_items_srcs << [indent.size, i.size, s]
+      }
+      curln
+    end
+    
+    def __fd_delete_items_srcs(lns)
+      return unless @__fd_items_srcs
+      @__fd_items_srcs.each{|i|
+        col, len, lsrc = i
+        lns.delete(lsrc)
+      }
+      @__fd_items_srcs.clear
+    end
+  end
+  
+  module ModFDSrcLine
+    attr_accessor :binded_obj
+  end
+  
+  module ModFDAttrSrcLine
+    attr_accessor :__fd_src
+  end
+  
+  module ModFDItemsSrcLine
+    attr_accessor :__fd_items_src
+    attr_reader  :__fd_items_srcs
+    def self.extended(obj)
+      obj.__fd_items_srcs_init
+    end
+    def __fd_items_srcs_init()
+      @__fd_items_srcs = []
+    end
+    def __fd_items_src=(asrc) #; dpp asrc
+      @__fd_items_src = asrc
+    end
+  end
+    
+  module ModControlHook
+    FDAttributes = ['class', ['name', 'm']]
+    
+    module ModControlChildHook
+      include RC
+      def self.extended(obj) obj.__extended end
+      def __extended()
+        if (handle=API.GetWindow(_hwnd, GW_CHILD)) != 0
+          cct = WinControl.new_from_handle(handle)
+          cct.extend ModControlChildHook
+        end
+        self.SetWindowSubclass
+        @_toplevelwin = get_toplevel_win
+        register_event(WM_LBUTTONDOWN, '__fd_lbuttondown', 'ih')
+        register_event(WM_RBUTTONDOWN, '__fd_rbuttondown', 'ih')
+        register_event(WM_MOUSEMOVE, '__fd_mousemove', 'ii')
+      end
+      def __fd_lbuttondown(wp, x, y)
+        parent.SendMessage(WM_LBUTTONDOWN, wp, MAKELPARAM(x+self.x, y+self.y))
+        CancelDefWindowProc
+      end
+      def __fd_rbuttondown(stat, x, y)
+        x, y = @_toplevelwin.ScreenToClient(*self.ClientToScreen(x, y))
+        @_toplevelwin.show_popup(x, y)
+        CancelDefWindowProc
+      end
+      def __fd_mousemove(wp, lp)
+        return unless wp==1
+        parent.SendMessage(WM_MOUSEMOVE, wp, lp)
+        CancelDefWindowProc
+      end
+    end
+    
+    @@childproc ||= lambda{|handle|
+      WinControl.new_from_handle(handle).extend(ModControlChildHook)
+      return 1
+    }
+    
+    include ModAutoloading
+    include RC
+    include ModFDCommon
+    def self.extended(obj) obj.__extended end
+    
+    attr_reader :__fd_written, :__fd_events
+    attr_accessor :_ox, :_oy , :_toplevelwin, :__fd_src, :__fd_items_src, :__fd_tmp_parent_str
+    
+    def font()
+      hf = SendMessage(RC::WM_GETFONT, 0, 0)
+      pf = parent.SendMessage(RC::WM_GETFONT, 0, 0)
+      if hf!=0 && pf==hf
+        :parent
+      else
+        super
+      end
+    end
+    
+    def __extended()
+      @_toplevelwin = get_toplevel_win
+      API.EnumChildWindows(_hwnd, @@childproc, 0) if self.class::FDConfig[:need_childhook]
+      set_subclass #; dpp self, caller[0, 3]
+      register_event(WM_DESTROY, '__fd_destroy')
+      
+      unless self.class::FDConfig[:no_hookwndproc]
+        unregister_event(WM_MOUSEMOVE)
+        register_event(WM_LBUTTONDOWN, '__fd_lbuttondown', 'ih')
+        register_event(WM_LBUTTONUP, '__fd_lbuttonup', 'ih')
+        register_event(WM_RBUTTONDOWN, '__fd_rbuttondown', 'ih')
+        register_event(WM_RBUTTONUP, '__fd_rbuttonup', 'ih')
+        register_event(WM_MOUSEMOVE, '__fd_mousemove', 'ih')
+      end
+      @__fd_events = self.class::DefaultEvents.dup || []
+#      @__fd_items_srcs = {}
+#      @__fd_items_srcs = []
+      self
+    end
+    
+    def __fd_lbuttondown(stat, x, y) #; dpp self, x, y
+      SetCapture()
+      @_ox = x
+      @_oy = y
+      @_toplevelwin.ignore_mousemove = nil
+      cx, cy = clientpos
+      if self.respond_to?(:controls) && $fd_main_frm.selected_klass #; dpp self, cx, cy
+#        @_toplevelwin.add_fd_selected_ctrl(cx+x, cy+y, self, self.parent)
+        @_toplevelwin.add_fd_selected_ctrl(x, y, self, self.parent)
+      else
+        @_toplevelwin.__added_control_ = nil
+        @_toplevelwin.move_start(cx+x, cy+y, self, stat==9)
+      end
+      CancelDefWindowProc
+    end
+    
+    def __fd_lbuttonup(stat, x, y)
+      @_toplevelwin.move_end()
+      $fd_main_frm.selected_klass = nil
+      pr = parent
+      pr.SendMessage(WM_SIZE, 0, MAKELPARAM(*pr.clientsize))
+      ReleaseCapture()
+      CancelDefWindowProc
+    end
+    
+    def __fd_rbuttondown(stat, x, y)
+      x, y = @_toplevelwin.ScreenToClient(*self.ClientToScreen(x, y))
+      @_toplevelwin.move_start(x, y, self, stat==9)
+      @_toplevelwin.show_popup(x, y)
+      CancelDefWindowProc
+    end
+    
+    def __fd_mousemove(stat, x, y)
+      return unless (stat&1)==1
+      return if @_toplevelwin.ignore_mousemove
+      @_toplevelwin.moving(x+self.x, y+self.y, stat) unless @_toplevelwin._resizing_
+      CancelDefWindowProc
+    end
+    
+    def __fd_destroy()#; dpp self, @_toplevelwin
+      return if @__fd_skip_destroy_event
+      return unless @_toplevelwin
+      if lns=@_toplevelwin.__fd_src[:lines]
+        if @__fd_src
+          col, len, lsrc = @__fd_src
+          lns.delete_if{|i| i.__id__ == lsrc.__id__}
+        end
+        if @__fd_items_src && (lns=@_toplevelwin.__fd_src[:lines])
+          col, len, lsrc = @__fd_items_src
+          lns.delete_if{|i| i.__id__ == lsrc.__id__}
+        end
+        
+        if @__fd_items_srcs && !@__fd_items_srcs.empty? && (lns=@_toplevelwin.__fd_src[:lines])
+          @__fd_items_srcs.each{|v|
+            col, len, lsrc = v
+            lns.delete_if{|i| i.__id__==lsrc.__id__}
+          }
+        end
+      end
+    end
+    
+    def __fd_attributes__()
+      FDAttributes.dup + (self.class::FDConfig[:attributes] || [])
+    end
+    
+    def to_hsh()
+      cfg = self.class::FDConfig
+      attrs1 = {'caption'=>'s', 'position'=>'ii', 'size'=>'ii'} 
+      attrs2 = cfg[:attributes].dup
+      at = []
+      attrs2.reject!{|i| attrs1[i[0]] ? at << i[0] : nil}
+      s = "#{self.class.to_s.split('::').last}["
+      ar = [name]
+      ar << caption if at.index('caption') && !caption.empty?
+      if cfg[:size_out]
+        ar.concat position + cfg[:size_out].call(self, size)
+      elsif margin
+        ar.concat margin.origin
+      else
+        ar.concat position + (at.index('size') ? size : cfg[:default_size])
+      end
+      ar.compact!
+      s << sprintf("%p", ar).tr('[]', '') #; dp "@%x", style
+      sts = style & ~(self.class::DefaultWindowStyle | WS_VISIBLECHILD | WS_CLIPSIBLINGS)
+      sts &= ~__fd_style_mask_cond.to_i if respond_to?(:__fd_style_mask_cond)
+      s << sprintf(", %#x", sts) if sts!=0
+      hsh = {:_attr_base=>s}
+      attrs2.each{|k, tp, defval|
+        s = parse_template4out(self, k, tp, defval)
+        hsh[k] = (s.nil?||s.is_a?(String)) ? s.to_s : sprintf("%p", s)
+      }
+      hsh.delete("font") if hsh["font"]==":parent" && parent.inheritfont==true
+      hsh
+    end
+    
+    def __fd_recreate()
+      @_caption = self.caption
+      @_x, @_y = self.position
+      @_w, @_h = self.size
+      @_parent = self.parent
+      @_idcmd = self.idcmd
+      @_style = self.style
+      @_exstyle = self.exstyle
+      @_font = font.is_a?(Font) && font.external? ? nil : font
+      @_visible = self.visible; #Defined in ModParent
+      unregister_event(WM_SIZE, "__resize__")
+      GC.disable
+      @__fd_skip_destroy_event = true
+      self.close()
+      @__fd_skip_destroy_event = nil
+      self.create()
+      GC.enable
+      parent.__fd_child_recreated(self) if parent.respond_to?(:__fd_child_recreated) #Uses Rebar
+      API.EnumChildWindows(_hwnd, @@childproc, 0) if self.class::FDConfig[:need_childhook]
+      self
+    end
+    
+    def __fd_to_str_core(lns)
+      s = ""
+      self.to_hsh.each{|k, v|
+        case k
+        when :_attr_base
+          s << v
+        when 'font'
+          if (ft=SendMessage(WM_GETFONT,0,0))!=@default_hfont
+            if ft==parent.SendMessage(WM_GETFONT,0,0)
+              s << ", :font=>:parent"
+            else
+              s << ", :font=>#{v}"
+            end
+          end
+        else
+          s << ", :#{k}=>#{v}" unless v.empty?
+        end
+      }
+      evs = self.__fd_events - self.class::DefaultEvents
+      s << sprintf(", :events=>%p", evs) unless evs.empty?
+      s << "]"
+    end
+    
+    def __fd_get_parents_str()
+      if @__fd_tmp_parent_str
+        s = @__fd_tmp_parent_str
+        @__fd_tmp_parent_str = nil
+        return s
+      end
+      return "_" if parent==@_toplevelwin && !@_owner
+      ps = (po=@_owner||parent).__fd_get_parents_str
+      ps=="_" ? "_" + po.name.to_s : ps + "._" + po.name.to_s
+    end
+    
+    def __fd_get_parents_str2()
+      s = __fd_get_parents_str()
+      s=='_' ? s+name.to_s : s+"._#{name}"
+    end
+    
+    def __fd_set_items_src(obj, lns, curln, indent, s)# ; dpp obj, curln, s
+      if obj.respond_to?(:__fd_items_src) && obj.__fd_items_src
+        col, len, lsrc = obj.__fd_items_src
+        lsrc[col, len] = s
+        obj.__fd_items_src[1] = s.size
+      else
+        obj.extend ModFDItemsSrcLine
+        obj.__fd_items_src = [indent.size, s.size, s=indent+s]
+        s.extend(ModFDSrcLine).binded_obj = obj
+        lns[curln, 0] = s+"\n"
+      end
+    end
+    
+    def __fd_delete_items_src(obj, lns)
+      if obj.respond_to?(:__fd_items_src) && obj.__fd_items_src
+        col, len, lsrc = obj.__fd_items_src
+        lns.delete(lsrc)
+        obj.__fd_items_src = nil
+      end
+    end
+    
+    def __fd_modify_src(lns, curln, indent)
+      if @__fd_src
+        col, len, lsrc, lcount = @__fd_src
+        ps = __fd_get_parents_str
+        str = ps + (ps=='_' ? "<< " : " << ") + __fd_to_str_core(lns)
+        if lcount.to_i > 1
+          str << "\n"
+          lsrc[col, len] = str
+          lns.slice!(curln+1, lcount-1) 
+        else
+          lsrc[col, len] = str
+        end
+        curln = index_of_src(lns, lsrc)
+        raise "failed to get index of #{lsrc}" unless curln # for debugging
+        if respond_to?(:__fd_output_items)
+          curln = __fd_output_items(lns, curln, indent)
+#        elsif set_items_src = self.class::FDConfig[:have_items]
+#          curln = set_items_src.call(self, lns, curln, indent)
+        end
+        
+        @__fd_src[1] = str.size
+        controls.each{|i|
+          curln = i.__fd_modify_src(lns, curln, indent)
+        } if self.class::FDConfig[:have_controls]
+      else # Added control
+        curln = __fd_to_str(lns, curln, indent)
+      end
+      curln
+    end
+    
+    def __fd_to_str(lns, curln, indent)
+      ps = __fd_get_parents_str
+      str = indent + ps + (ps=='_' ? "<< " : " << ") + __fd_to_str_core(lns) + "\n"
+      @__fd_src = [indent.size, str.size-indent.size-1, str]
+      str.extend(ModFDSrcLine).binded_obj = self
+      lns[curln+=1, 0] = str
+      
+      if respond_to?(:__fd_output_items)
+        curln = __fd_output_items(lns, curln, indent)
+#      elsif set_items_src = self.class::FDConfig[:have_items]
+#        curln = set_items_src.call(self, lns, curln, indent)
+      end
+      
+      fdcfg = self.class::FDConfig
+      controls._each{|i| curln = i.__fd_to_str(lns, curln, indent)} if fdcfg[:have_controls]
+      curln
+    end
+  end # ModControlHook
+  
+  module ModToplevelHook
+    FDAttributes = [['class', 'c'], ['size', 'ii'], ['clientsize', 'ii'], ['caption', 's', ''], ['transparency', 'i'], ['transparentcolor', 'h'], ['font','sis,t'], ['inheritfont', 'sis,t']]
+    
+    include ModAutoloading
+    include RC
+    include ModFDCommon
+    attr_reader :selected_controls, :_resizing_, :toplevel_mousepos, :__fd_idcmd_hash,
+                :__fd_written, :__fd_src, :__fd_events
+    attr_accessor :ignore_mousemove, :__added_control_
+    
+    def self.extended(obj)
+      obj.__fd_init_this_module
+    end
+    
+    def initialize()
+      __fd_init_this_module
+    end
+    
+    def __fd_init_this_module()
+      register_event(WM_LBUTTONDOWN, '__fd_lbuttondown', 'ih')
+      register_event(WM_LBUTTONUP, '__fd_lbuttonup', 'ih')
+      register_event(WM_RBUTTONDOWN, '__fd_rbuttondown', 'ih')
+      register_event(WM_MOUSEMOVE, '__fd_mousemove', 'ih')
+      register_event(WM_PARENTNOTIFY, '__fd_parentnotify', 'ih')
+      register_event(WM_SIZE, '__fd_resize', 'ih')
+      register_event(WM_SETCURSOR, '__fd_setcursor', 'ih')
+      register_event(WM_ACTIVATE, '__fd_activate', 'ii')
+      register_event(WM_MOVE, '__fd_move', 'xh')
+      register_event(WM_SIZE, '__fd_size', 'xh') unless self.is_a?(RWin::Dialog)
+      register_event(WM_CLOSE, '__fd_close')
+      
+      @_font = ModToplevelWin::DefaultFont
+      @_inheritfont = true
+      @selected_controls = []
+      @handles = []
+      @cut_buff = []
+      @undo_buff = []
+      
+      @_prvx = @_prvy = 0
+      @_steps = [5, 4, 3, nil] # Shift, Ctrl, Shift+Ctrl, None
+      @move_step = 5
+      @size_step = 4
+      @__fd_events = []
+      
+      @__fd_idcmd_hash = {}
+      @__fd_popup1 = Menu[ :popup1, 
+#                 :undo1, "Undo\tCtrl+Z", 
+#                 :redo1, "Redo\tCtrl+Y", 
+#                 :sep1, 
+#                 :cut1, "Cut\tCtrl+X", 
+#                 :copy1, "Copy\tCtrl+C",
+#                 :paste1, "Paste\tCtrl+V", 
+                 :delete1, "Delete\tDelete",
+                 :sep,
+                 Menu[:justify, 'Justify',
+                   :justify, 'left', 
+                   :justify, 'Top',
+                   :justify, 'Right', 
+                   :justify, 'Bottom']]
+      controls.each{|i| i.extend(i.is_a?(RWin::Window) ? ModControlHook : ModResourceHook) }
+      @__fd_src = {}
+      @__fd_defstylemask = self.class::WinStyles.to_a.inject(0){|r, v| r | v[1]}
+      @__fd_ctrls_buff = []
+#      dp "@%#x", @__fd_defstyles
+    end
+    
+    def register_event(*args)
+      if args.size>4 && args[1] == WM_COMMAND && args[2]==BN_CLICKED
+        @__fd_idcmd_hash[args[0]] = args[3].sub(/_clicked$/, '')
+      end
+      super
+    end
+    
+    def created()
+      @_keyaccels = nil
+      @__fd_popup1._set_owner(self)
+      @__fd_popup1.createpopup
+      @infobox = Infobox.new(self).create()
+    end
+    
+    def opened(arg) # for Dialog
+      created()
+    end
+    
+    def __fd_move(*)
+        $fd_main_frm.move(x+w, y) if active?
+    end
+    
+    def __fd_size(*)
+      if active?
+        $fd_main_frm.move(x+w, y)
+      else
+        self.move($fd_main_frm.x-w, y)
+      end
+    end
+    
+    def __fd_close()
+      CancelDefWindowProc
+    end
+    
+    def _toplevelwin()
+      self
+    end
+    
+    def pos_from_toplevel(obj)
+      cx, cy = obj.clientpos
+      if obj.parent && obj.parent.parent
+        px, py = pos_from_toplevel(obj.parent)
+        cx += px
+        cy += py
+      end
+      [cx, cy]
+    end
+    
+    def get_allnames(ctrls, ar) #dpp caller, ctrls, ctrls._accessors
+      ctrls._accessors.keys.inject(ar){|a, k| a << k.to_s} if ctrls._accessors
+      ctrls.each{|i|
+        get_allnames(i.controls, ar) if i.respond_to?(:controls)
+        if i.respond_to?(:_accessors) && i._accessors
+          i._accessors.keys.inject(ar){|a, k| a << k.to_s}
+        end
+      }
+      ar
+    end
+    
+    def suffixed_name(nm) #; dpp caller, nm
+      base = nm.sub(/\d+$/, '')
+      suffix = $~[0].to_i
+      allnames = get_allnames(self.controls, [])
+      while allnames.index(base + suffix.to_s)
+        suffix += 1
+      end
+      base + suffix.to_s
+    end
+    
+    def add_fd_selected_ctrl(x, y, target, prnt)#  ; dpp x, y, target, prnt
+      klass = $fd_main_frm.selected_klass
+      conf = klass::FDConfig
+      w, h = conf[:default_size] || [80, 24]
+      defcap = klass.to_s.sub(/.*::/, '')
+      name = conf[:default_name] || defcap.downcase
+      name = suffixed_name(name + "1").intern
+      capt = conf[:default_caption] || name.to_s.capitalize
+      ct = klass.new(name, capt, x, y, w, h)
+      if target.is_a?(Window) && target.respond_to?(:__fd_add_ctrl)
+        target.__fd_add_ctrl(x, y, ct)
+      elsif target.is_a?(Window) && (prc=target.class::FDConfig[:add_ctl2target])
+        return unless prc.call(x, y, target, ct)
+      else
+        target << ct
+      end
+      ct.extend(ModControlHook)
+      ct.__fd_init_this_ctrl() if ct.respond_to?(:__fd_init_this_ctrl)
+#      (pr=ct.class::FDConfig[:init_ctrl]) && pr.call(ct)
+      ct._ox = 0
+      ct._oy = 0
+      prnt.SendMessage(WM_SIZE, 0, MAKELPARAM(*prnt.clientsize))
+      $fd_main_frm.update_attributes(ct)
+      $fd_main_frm.selected_klass = nil
+      $fd_main_frm.modified = true
+      @__added_control_ = true
+#      ct.SetCapture
+      move_start(x, y, ct)
+      @infobox.show_info(ct)
+    end
+    
+    def show_popup(x, y)
+      TrackPopupMenu(@__fd_popup1, x, y)
+    end
+    
+    API.defun "GetKeyState(nvirtkey)"
+    VK_CONTROL = 0x11
+    
+    def __fd_parentnotify(wparam, x, y)
+      case wparam
+      when WM_LBUTTONDOWN
+        @ignore_mousemove = true
+        @toplevel_mousepos = [x, y]
+        state = (API.GetKeyState(VK_CONTROL) & 0x80) == 0x80 ? 9 : 0
+      end
+    end
+    
+    def __fd_activate(st, hwnd)
+      return if st==0 
+      x, y = APP.GetCursorPos()
+      if (obj=__hittest(x, y)) && obj!=self
+#        obj.SendMessage(WM_LBUTTONDOWN, 1, MAKELPARAM(*obj.ScreenToClient(x, y)))
+        return CancelDefWindowProc
+      end
+      return unless $fd_main_frm.forms #SEGV escapement.
+      $fd_main_frm.forms.each{|i| i.select_control_from_main(nil)}
+      $fd_main_frm.frm = self
+      $fd_main_frm.update_attributes(self)
+      $fd_main_frm.update_lvrs2
+      $fd_main_frm.update_hierarchy
+    end
+    
+    def __fd_lbuttondown(stat, x, y)
+      sx, sy = ClientToScreen(x, y)
+      @__added_control_ = nil
+      if (obj=__hittest(sx, sy)) && (obj!=self) # Tabctrl etc
+        return if obj.is_a?(HandleWin)
+        if  $fd_main_frm.selected_klass
+          cx, cy = pos_from_toplevel(obj)
+          if obj.respond_to?(:controls)
+            add_fd_selected_ctrl(x-cx, y-cy, obj.controls, obj) #; dpp obj, x, y, cx, cy
+          elsif obj.respond_to?(:<<)
+            add_fd_selected_ctrl(x-cx, y-cy, obj, obj)
+          end
+        else
+          obj_x, obj_y = obj.clientpos
+          obj._ox = x - obj_x
+          obj._oy = y - obj_y
+          move_start(x, y, obj, stat==9)
+        end
+      else
+        @handles.each{|i| i.close}.clear
+        @selected_controls.clear
+        add_fd_selected_ctrl(x, y, controls, self) if $fd_main_frm.selected_klass
+        $fd_main_frm.update_hierarchy
+        refresh
+      end
+      @__currentpos = sx, sy
+      CancelDefWindowProc
+    end
+    
+    def __fd_lbuttonup(stat, x, y)
+      resize_end if @_resizing_
+#      @__added_control_ = nil
+      move_end #if @_moving_
+      $fd_main_frm.selected_klass = nil
+    end
+    
+    def __fd_rbuttondown(stat, x, y)
+      __fd_lbuttondown(1, x, y)
+      show_popup(x, y)
+      CancelDefWindowProc
+    end
+    
+    def __fd_mousemove(stat, x, y)
+      return if (stat&1)!=1
+      if @_resizing_ 
+        resizing(x, y, stat)
+      else
+        moving(x, y, stat)
+      end
+    end
+    
+    def __fd_resize(f, w, h)
+      @selected_controls.each_with_index{|obj, i|
+        @handles[i].move(obj.x-5, obj.y-5, obj.w+10, obj.h+10) if obj.margin
+      }
+    end
+    
+    def __fd_setcursor(hwnd, hittest, msg)
+      return unless hittest == 1
+      return unless $fd_main_frm.selected_klass
+      APP.SetCursor $fd_main_frm.selected_cursor
+      CancelDefWindowProc
+    end
+    
+    def resize_start(n)
+      @_resizing_ = n
+      @_hide_handles = true
+      @_resize_start = true
+      @handles[0].border = true
+      @handles[0].visible = true
+      SetCapture()
+    end
+    
+    def resizing(sx, sy, stat)
+      return unless @_resizing_
+      o = @selected_controls[0]
+      target = o.respond_to?(:_owner) ? o._owner : o.parent # for Groupbox
+      rx, ry = target.ScreenToClient(*self.ClientToScreen(sx, sy))
+      step = @_steps[(stat-5)/4]
+      case @_resizing_
+      when 1 # top, left
+        x = rx
+        y = ry
+        r = o.x + o.w
+        b = o.y + o.h
+        w = r - rx 
+        h = b - ry 
+        if step
+          w = (w / step) * step
+          h = (h / step) * step
+          x = r - w
+          y = b - h
+        end
+      when 2 # bottom, right
+        x = o.x
+        y = o.y
+        w = rx - x
+        h = ry - y
+        if step
+          w = (w / step) * step
+          h = (h / step) * step
+        end
+      when 3 # top, right
+        x = o.x
+        y = ry
+        b = o.y + o.h
+        w = rx - x
+        h = b - ry
+        if step
+          w = (w / step) * step
+          h = (h / step) * step
+          y = b - h
+        end
+      when 4 # bottom, left
+        x = rx
+        y = o.y
+        r = o.x + o.w
+        w = r - rx
+        h = ry - y
+        if step
+          w = (w / step) * step
+          h = (h / step) * step
+          x = r - w
+        end
+      when 5 # mid, left
+        x = rx
+        y = o.y
+        r = o.x + o.w
+        w = r - rx
+        h = o.h
+        if step
+          w = (w / step) * step
+          x = r - w
+        end
+      when 6 # mid, right
+        x = o.x
+        y = o.y
+        w = rx - x
+        h = o.h
+        if step
+          w = (w / step) * step
+        end
+      when 7 # center, top
+        x = o.x
+        y = ry
+        b = o.y + o.h
+        w = o.w
+        h = b - ry
+        if step
+          h = (h / step) * step
+          y = b - h
+        end
+      when 8 # center, bottom
+        x = o.x
+        y = o.y
+        w = o.w
+        h =  ry - y
+        if step
+          h = (h / step) * step
+        end
+      else
+        return
+      end
+      o.move(x, y, w, h) if w>=0 && h>=0
+      @handles[0].visible = true
+      cx, cy = o.clientpos
+      @handles[0].move(cx-1, cy-1, w+2, h+2)
+      @infobox.show_info(@selected_controls[0], true)
+      if  @_resize_start
+        @infobox.visible = SW_SHOWNA
+        @_resize_start = false
+      end
+    end
+    
+    def resize_end()
+      @_resizing_ = nil
+      @_hide_handles = nil
+      unless @selected_controls.empty?
+        @handles[0].border = nil
+        sc = @selected_controls[0]
+        @handles[0].move(sc.x-5, sc.y-5, sc.w+10, sc.h+10)
+      end
+      $fd_main_frm.update_attributes(@selected_controls[0] || self)
+      $fd_main_frm.modified = true
+      ReleaseCapture()
+    end
+    
+    def move_start(x, y, obj, adding=nil) #dpp obj, adding
+      @_prvx, @_prvy = x, y
+      if (idx=@selected_controls.index(obj)) || adding #;dpp obj, x, y, @selected_controls
+        if idx && idx>0 && adding
+          @selected_controls.delete_at(idx)
+          @handles[idx].close
+          @handles.delete_at(idx)
+        else
+          @selected_controls.each_with_index{|i, n|
+              dx, dy = 0, 0
+              i._ox = obj.x + obj._ox - i.x - dx
+              i._oy = obj.y + obj._oy - i.y - dy
+            @handles[n].visible = true
+          }
+        end
+      else # !adding
+        @handles.each{|i| i.close}.clear
+        @selected_controls.clear
+      end
+      if @selected_controls.empty? || (!idx && @selected_controls[0].parent == obj.parent)
+        @selected_controls << obj
+        @handles << HandleWin.new(self, obj.parent, @handles.empty?).create()
+        @selected_controls.each_with_index{|i, n|
+          i_x, i_y = i.clientpos #; dpp i, i_x, i_y
+          i_w, i_h = i.windowsize
+          @handles[n].move(i_x-5, i_y-5, i_w+10, i_h+10)
+          @handles[n].visible=true
+        }
+      end
+      refresh
+#      @__moving_ = true
+    end
+    
+    def moving(x, y, stat) # x, y is client coordinate of parent window
+      return if stat&1!=1 #; dpp x, y
+      return if @selected_controls.empty? #; dpp x, y, @__added_control_
+      return if $fd_main_frm.selected_klass
+      return if @__added_control_
+      
+      c0 = @selected_controls[0]
+      @infobox.show_info(c0) 
+      return if  @_prvx==x && @_prvy==y
+      @handles.each{|i| i.visible = false}
+      c0x, c0y = c0.clientpos;
+      step = @_steps[(stat-5)/4] #; dpp (stat-5)/4, step
+      @selected_controls.each{|i| 
+        i_x, i_y = i.clientpos
+#        i_w, i_h = i.windowsize
+        if i==c0
+          mx = x - i._ox
+          my = y - i._oy
+          if step # Ctrl
+            mx = (mx / step) * step
+            my = (my / step) * step
+          end 
+        else
+          mx = c0.x - c0x + i_x
+          my = c0.y - c0y + i_y 
+        end
+        i.move(mx, my) # This is client coodinate of i.parent
+      }
+    end
+    
+    def move_end()
+#      @__moving_ = nil
+      @infobox.visible = false
+      @selected_controls.each_with_index{|i, n|
+        i_x, i_y = i.clientpos
+        i_w, i_h = i.windowsize
+        @handles[n].move(i_x-5, i_y-5, i_w+10, i_h+10)
+        @handles[n].visible = true
+      }
+      c0 = @selected_controls[0]
+      $fd_main_frm.update_attributes(c0 || self)
+      $fd_main_frm.modified = true unless @selected_controls.empty?
+      refresh
+    end
+    
+    def select_control_from_main(ctrl)
+      @selected_controls.clear
+      @handles.each{|i| i.close}.clear
+      return unless ctrl
+      if ctrl!=self
+        ctrl._ox = ctrl._oy = 0
+        @selected_controls << ctrl
+        @handles << HandleWin.new(self, ctrl.parent, true).create()
+      end
+      move_end
+    end
+    
+    def justify_clicked(id, accel)
+      c0 = @selected_controls[0]
+      h0 = @handles[0]
+      case @__fd_popup1.justify._index(id)
+      when 0 # left
+        @selected_controls.each_with_index{|i, n|
+          i.x = c0.x
+          @handles[n].x = h0.x
+        }
+      when 1 # top
+        @selected_controls.each_with_index{|i, n|
+          i.y = c0.y
+          @handles[n].y = h0.y
+        }
+      when 2 # right
+        @selected_controls.each_with_index{|i, n|
+          i.x = c0.x + c0.w - i.w
+          @handles[n].x = h0.x + h0.w - @handles[n].w
+        }
+      when 3 # bottom
+        @selected_controls.each_with_index{|i, n|
+          i.y = c0.y + c0.h - i.h
+          @handles[n].y = h0.y + h0.h - @handles[n].h
+        }
+      end
+      refresh
+    end
+    
+    def delete1_clicked(id, accel)
+      @selected_controls.each_with_index{|ct, n|
+#        if ct.respond_to?(:__fd_items_src)
+#          frm = ct.get_toplevel_win
+#          lns = frm.__fd_src[:lines]
+#          col, len, lsrc = ct.__fd_items_src
+#          lns.delete_if{|i| i.__id__ == lsrc.__id__}
+#        end
+        ct.__fd_on_delete_this() if ct.respond_to?(:__fd_on_delete_this)
+        ct.delete
+        @handles[n].close
+      }
+      @selected_controls.clear
+      @handles.clear
+      @infobox.hide
+      $fd_main_frm.update_attributes(self)
+      $fd_main_frm.update_hierarchy
+    end
+    
+    def to_hsh(all_attr=nil)
+      hsh = {}
+      hsh['class'] = self.class.to_s.split('::')[1]
+      if self.style&@__fd_defstylemask != self.class::DefaultWindowStyle&@__fd_defstylemask
+        st = sprintf("%#x", self.style & 0xffffffff)
+        hsh['style'] = st
+      else
+        hsh['style'] = ''
+      end
+      __fd_attributes__.each{|k, tp, defval| next if k=='class' || k=='clientsize'
+        r = parse_template4out(self, k, tp, defval)
+        hsh[k] = r if all_attr || !r.empty?
+      }
+      if hsh["inheritfont"]=="true" && hsh["font"]
+        hsh["inheritfont"] = hsh["font"]
+        hsh["font"] = ""
+      end
+      hsh['events'] = __fd_events
+      hsh
+    end
+    
+    def __fd_attributes__() FDAttributes.dup; end
+    
+    private
+    def __fd_get_classname(hsh)
+      ancestor = self.class.ancestors[1].to_s.split('::').last
+      "class #{hsh.delete('class')} < #{ancestor}"
+    end
+    
+    public
+    def __fd_modify_src()
+      lns = @__fd_src[:lines] #; STDERR.puts lns
+      lns.compact!
+      hsh = self.to_hsh(true)
+      indent = " " * @__fd_src[:classname][0]*3
+      curln = index_of_src(lns, @__fd_src[:classname][2]) + 1
+      hsh.each{|k, v|
+        if a=@__fd_src[k]
+          col, len, lsrc = a
+          curln = index_of_src(lns, lsrc)
+          if v.empty?
+            @__fd_src[k] = nil
+            lns.delete_at(curln)
+          else
+            s = "self.#{k} = #{v}"
+            lsrc[col, len] = s
+            @__fd_src[k][1] = s.size
+          end
+        elsif k=="class"
+          col, len, lsrc = @__fd_src[:classname]
+          s = "class #{v} < #{self.class.ancestors[1].to_s.split('::')[1]}"
+          lsrc[col, len] = s
+          @__fd_src[:classname][1] = s.size
+        elsif !v.empty?
+          s = "self.#{k} = #{v}"
+          lsrc =  "#{indent}#{s}\n"
+          lns[curln+=1, 0] = lsrc
+          lsrc.extend(ModFDSrcLine).binded_obj = k
+          @__fd_src[k] = [indent.size, s.size, lsrc]
+        end
+      }
+      controls.each{|i| #; dpp i.name, lns.size
+        if (a=i.__fd_src)
+          col, len, lsrc = a
+          curln = ModFDCommon.index_of_src(lns, lsrc)
+          curln = i.__fd_modify_src(lns, curln, indent)
+        else #; dpp curln
+          curln = i.__fd_to_str(lns, curln, indent)
+        end
+      }
+      lns
+    end
+    
+    def __fd_frm2str(indentlevel, with_start=nil)
+      indent, lv = indentlevel
+      lns = []
+      hsh = self.to_hsh
+      cname = __fd_get_classname(hsh)
+      cs = "#{indent*(lv+=1)}#{cname}\n"
+      lns << cs
+      @__fd_src[:classname] = [indent.size*lv, cname.size, cs]
+      lns << "#{indent*(lv+=1)}def initialize()\n"
+      lv += 1
+      hsh.each{|k, v|
+        unless v.empty?
+          idt = indent*lv
+          s = "self.#{k} = #{v}"
+          str = "#{idt}#{s}\n"
+          @__fd_src[k] = [idt.size, s.size, str]
+          str.extend(ModFDSrcLine).binded_obj = k
+          lns << str
+        end
+      }
+      controls._each{|i| i.__fd_to_str(lns, lns.size, indent*lv)}
+      lns << "#{indent*(lv-=1)}end\n"
+      lns << "\n#{indent*lv}self.start\n" if with_start
+      lns << "#{indent*(lv-=1)}end\n"
+      @__fd_src[:endofclass] = [indent.size*lv, 3, lns.last]
+      indentlevel[1] = lv
+      lns
+    end
+  end # ModToplevelHook
+  
+  module ModResourceHook
+    include ModFDCommon
+    attr_accessor :__fd_src
+    FDAttributes = ['class', ['name','m']]
+    def __fd_attributes__() 
+      FDAttributes.dup + (self.class::FDConfig[:attributes] || [])
+    end
+    
+    def to_hsh()
+      hsh = {}
+      hsh['class'] = self.class.to_s.split('::')[1]
+      __fd_attributes__.each{|k, tp| 
+        next if k=='class'
+        (v = (self.__send__(k.intern) rescue nil)) || next
+        hsh[k] = sprintf("%p", v)
+      }
+      hsh
+    end
+    
+    def __fd_get_parents_str()
+      return "_" unless respond_to?(:parent)
+      return "_" unless parent.is_a?(Menu)
+      ps = parent.__fd_get_parents_str
+      ps=="_" ? "_" + parent.name.to_s : ps + "._" + parent.name.to_s
+    end
+    
+    def __fd_get_parents_str2(child=nil)
+      s = __fd_get_parents_str()
+      if child
+        s=="_" ? "_#{name} " : "#{s}._#{name} "
+      else
+        s=='_' ? s : "#{s} "
+      end
+    end
+    
+    def __fd_update_src(lns, curln, indent, s, child=nil)
+      c0 = curln
+      if @__fd_src # modify
+        col, len, lsrc, lcount = @__fd_src
+        curln = ModFDCommon.index_of_src(lns, lsrc)
+        raise "#{self} was  failed to get index of \"#{lsrc}\"" unless curln # for debugging
+        lns.slice!(curln+1, lcount-1) if lcount.to_i > 1
+        ar = s.lines
+        s0 = ar.shift
+        s0.chomp!
+        s0[0, 0] = "#{__fd_get_parents_str2(child)}<< "
+        unless ar.empty?
+          s0 << "\n"
+          lns[curln+=1, 0] = ar 
+          curln += ar.size-1
+        end
+        lsrc[col, len] = s0
+        @__fd_src[1] = s0.size
+        @__fd_src[3] = ar.size + 1
+      else # insert new
+        ar = s.lines
+        s0 = ar.shift
+        s0.chomp!
+        s0[0, 0] = "#{indent}#{__fd_get_parents_str2(child)}<< "
+        s0 << "\n"
+        @__fd_src = [indent.size, s0.size-indent.size, s0, ar.size+1]
+        s0.extend(ModFDSrcLine).binded_obj = self #; STDERR.puts lns.join
+        lns[curln+=1, 0] = s0 #; dpp curln, lns
+        unless ar.empty?
+          lns[curln+=1, 0] = ar
+          curln += ar.size-1
+        end
+      end #; dpp self.name, c0, curln
+      curln
+    end
+  end
+  
+  module ModFormDesigner
+    include ModAutoloading
+    def self.extended(mod)
+      bmpdir = "#{File.dirname(__FILE__)}/controls/"
+      bmpname ="#{bmpdir}#{mod.to_s.sub(/^\w+::/, '').downcase}.bmp"
+      mod.module_eval "FDConfig={}"
+      begin
+        mod::FDConfig[:bitmap] = Bitmap.fromfile(bmpname)
+      rescue
+        mod::FDConfig[:bitmap] = Bitmap.fromfile(bmpdir+'default.bmp')
+      end
+    end
+  end
+end unless defined?(WR::GW_CHILD)
+
+module WR
+  require_relative './fdesign.rb'
+  FDMain.start if defined? FDMain
+end if $0 == __FILE__
+