#
# text (tag bindings) widget demo (called by 'widget')
#

# toplevel widget ¸ߤк
if defined?($bind_demo) && $bind_demo
  $bind_demo.destroy 
  $bind_demo = nil
end

# demo Ѥ toplevel widget 
$bind_demo = TkToplevel.new {|w|
  title("Text Demonstration - Tag Bindings")
  iconname("bind")
  positionWindow(w)
}

# frame 
TkFrame.new($bind_demo) {|frame|
  TkButton.new(frame) {
    #text 'λ'
    text 'Ĥ'
    command proc{
      tmppath = $bind_demo
      $bind_demo = nil
      tmppath.destroy
    }
  }.pack('side'=>'left', 'expand'=>'yes')

  TkButton.new(frame) {
    text 'ɻ'
    command proc{showCode 'bind'}
  }.pack('side'=>'left', 'expand'=>'yes')
}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')

# bind ѥ᥽å
def tag_binding_for_bind_demo(tag, enter_style, leave_style)
  tag.bind('Any-Enter', proc{tag.configure enter_style})
  tag.bind('Any-Leave', proc{tag.configure leave_style})
end

# text 
TkText.new($bind_demo){|t|
  # 
  setgrid 'true'
  width  60
  height 24
  font $font
  wrap 'word'
  TkScrollbar.new($bind_demo) {|s|
    pack('side'=>'right', 'fill'=>'y')
    command proc{|*args| t.yview(*args)}
    t.yscrollcommand proc{|first,last| s.set first,last}
  }
  pack('expand'=>'yes', 'fill'=>'both')

  # 
  if TkWinfo.depth($root).to_i > 1
    tagstyle_bold = {'background'=>'#43ce80', 'relief'=>'raised', 
                     'borderwidth'=>1}
    tagstyle_normal = {'background'=>'', 'relief'=>'flat'}
  else
    tagstyle_bold = {'foreground'=>'white', 'background'=>'black'}
    tagstyle_normal = {'foreground'=>'', 'background'=>''}
  end

  # ƥ
  insert 'insert', "ƥwidgetɽ椹ΤƱΥᥫ˥ȤäơƥȤTclΥޥɤƤ뤳ȤǤޤˤꡢޥ䥭ܡɤΥTclΥޥɤ¹Ԥ褦ˤʤޤ㤨СΥХΥǥץˤĤƤʸˤϤΤ褦ʥĤƤޤޥʸξ˻äƤʸꡢܥ1򲡤ȤΥǥ⤬Ϥޤޤ

"
  insert('end', '1. Х widget ˺뤳ȤΤǤ륢ƥμƤ˴ؤ륵ץ롣', (d1 = TkTextTag.new(t)) )
  insert('end', "\n\n")
  insert('end', '2. ñ 2ΥץåȡǡɽưȤǤ롣', (d2 = TkTextTag.new(t)) )
  insert('end', "\n\n")
  insert('end', '3. ƥȥƥΥ󥫡ȹ·', 
         (d3 = TkTextTag.new(t)) )
  insert('end', "\n\n")
  insert('end', '4. 饤󥢥ƥΤƬηΥǥ', 
         (d4 = TkTextTag.new(t)) )
  insert('end', "\n\n")
  insert('end', '5. ֥ȥåפѹ뤿εǽĤΥ롼顼', 
         (d5 = TkTextTag.new(t)) )
  insert('end', "\n\n")
  insert('end', 
         '6. Хɤäƥ뤹Τ򼨤åɡ', 
         (d6 = TkTextTag.new(t)) )

  # binding
  [d1, d2, d3, d4, d5, d6].each{|tag|
    tag_binding_for_bind_demo(tag, tagstyle_bold, tagstyle_normal)
  }
  d1.bind('1', 
          proc{
            eval(`cat #{[$demo_dir,'items.rb'].join(File::Separator)}`, 
                 _null_binding)
          })
  d2.bind('1', 
          proc{
            eval(`cat #{[$demo_dir,'plot.rb'].join(File::Separator)}`, 
                 _null_binding)
          })
  d3.bind('1', 
          proc{
            eval(`cat #{[$demo_dir,'ctext.rb'].join(File::Separator)}`, 
                 _null_binding)
          })
  d4.bind('1', 
          proc{
            eval(`cat #{[$demo_dir,'arrow.rb'].join(File::Separator)}`, 
                 _null_binding)
          })
  d5.bind('1', 
          proc{
            eval(`cat #{[$demo_dir,'ruler.rb'].join(File::Separator)}`, 
                 _null_binding)
          })
  d6.bind('1', 
          proc{
            eval(`cat #{[$demo_dir,'cscroll.rb'].join(File::Separator)}`, 
                 _null_binding)
          })

  TkTextMarkInsert.new(t, '0.0')
  configure('state','disabled')
}
