tk 0.1.0

data/sample/tkextlib/treectrl/explorer.rb

@@ -0,0 +1,431 @@
+# frozen_string_literal: false
+
+def demoExplorerAux(t, dir_proc, file_proc)
+  base_dir = File.dirname(File.dirname(@ScriptDir))
+
+  clicks = Tk::Clock.clicks
+  globDirs = Dir.glob(File.join(base_dir, '*')).find_all{|file|
+    FileTest.directory?(file)
+  }
+  clickGlobDirs = Tk::Clock.clicks - clicks
+
+  clicks = Tk::Clock.clicks
+  list = globDirs.sort
+  clickSortDirs = Tk::Clock.clicks - clicks
+
+  clicks = Tk::Clock.clicks
+  list.each{|file| dir_proc.call(file)}
+  clickAddDirs = Tk::Clock.clicks - clicks
+
+  clicks = Tk::Clock.clicks
+  globFiles = Dir.glob(File.join(base_dir, '*')).find_all{|file|
+    FileTest.file?(file)
+  }
+  clickGlobFiles = Tk::Clock.clicks - clicks
+
+  clicks = Tk::Clock.clicks
+  list = globFiles.sort
+  clickSortFiles = Tk::Clock.clicks - clicks
+
+  clicks = Tk::Clock.clicks
+  list.each{|file| file_proc.call(file)}
+  clickAddFiles = Tk::Clock.clicks - clicks
+
+  gd = '%.2g' % (clickGlobDirs / 1000000.0)
+  sd = '%.2g' % (clickSortDirs / 1000000.0)
+  ad = '%.2g' % (clickAddDirs  / 1000000.0)
+  gf = '%.2g' % (clickGlobFiles / 1000000.0)
+  sf = '%.2g' % (clickSortFiles / 1000000.0)
+  af = '%.2g' % (clickAddFiles  / 1000000.0)
+
+  puts "dirs(#{globDirs.length}) glob/sort/add #{gd}/#{sd}/#{ad}    files(#{globFiles.length}) glob/sort/add #{gf}/#{sf}/#{af}"
+
+  @Priv[:DirCnt, t] = globDirs.length
+end
+
+#
+# Demo: explorer files
+#
+def demoExplorerDetails(t)
+  height = t.font.metrics(:linespace)
+  height = 18 if height < 18
+
+  t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
+              :itemheight=>height, :selectmode=>:extended,
+              :xscrollincrement=>20, :scrollmargin=>16,
+              :xscrolldelay=>[500, 50], :yscrolldelay=>[500, 50])
+
+  init_pics('small-*')
+
+  if $HasColumnCreate
+    t.column_create(:text=>'Name', :tag=>'name',
+                    :width=>200, :arrow=>:up, :arrowpad=>6)
+    t.column_create(:text=>'Size', :tag=>'size', :justify=>:right,
+                    :width=>60, :arrowside=>:left, :arrowgravity=>:right)
+    t.column_create(:text=>'Type', :tag=>'type', :width=>120)
+    t.column_create(:text=>'Modified', :tag=>'modified', :width=>130)
+  else
+    t.column_configure(0, :text=>'Name', :tag=>'name',
+                       :width=>200, :arrow=>:up, :arrowpad=>6)
+    t.column_configure(1, :text=>'Size', :tag=>'size', :justify=>:right,
+                       :width=>60, :arrowside=>:left, :arrowgravity=>:right)
+    t.column_configure(2, :text=>'Type', :tag=>'type', :width=>120)
+    t.column_configure(3, :text=>'Modified', :tag=>'modified', :width=>130)
+  end
+
+  t.element_create('e1', :image,
+                   :image=>[
+                     @sel_images['small-folder'], ['selected'],
+                     @images['small-folder'], []
+                   ])
+  t.element_create('e2', :text, :lines=>1,
+                   :fill=>[@SystemHighlightText, ['selected', 'focus']])
+  t.element_create('txtType', :text, :lines=>1)
+  t.element_create('txtSize', :text, :lines=>1,
+                   :datatype=>:integer, :format=>'%dKB')
+  t.element_create('txtDate', :text, :lines=>1,
+                   :datatype=>:time, :format=>'%d/%m/%y %I:%M %p')
+  t.element_create('e4', :rect, :showfocus=>true,
+                   :fill=>[
+                     @SystemHighlight, ['selected', 'focus'],
+                     'gray', ['selected', '!focus']
+                   ])
+
+  # image + text
+  s = t.style_create('styName', :orient=>:horizontal)
+  t.style_elements(s, ['e4', 'e1', 'e2'])
+  t.style_layout(s, 'e1', :expand=>:ns)
+  t.style_layout(s, 'e2', :padx=>[2,0], :squeeze=>:x, :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e2'], :iexpand=>:ns, :ipadx=>2)
+
+  # column 1: text
+  s = t.style_create('stySize')
+  t.style_elements(s, ['txtSize'])
+  t.style_layout(s, 'txtSize', :padx=>6, :squeeze=>:x, :expand=>:ns)
+
+  # column 2: text
+  s = t.style_create('styType')
+  t.style_elements(s, ['txtType'])
+  t.style_layout(s, 'txtType', :padx=>6, :squeeze=>:x, :expand=>:ns)
+
+  # column 3: text
+  s = t.style_create('styDate')
+  t.style_elements(s, ['txtDate'])
+  t.style_layout(s, 'txtDate', :padx=>6, :squeeze=>:x, :expand=>:ns)
+
+  @Priv[:edit, t] = ['e2']
+  @Priv[:sensitive, t] = [ ['name', 'styName', 'e1', 'e2'] ]
+  @Priv[:dragimage, t] = [ ['name', 'styName', 'e1', 'e2'] ]
+
+  t.notify_bind(t, 'Edit-accept',
+                proc{|w, i, tt| w.item_text(i, 0, tt)}, '%T %I %t')
+
+  dir_proc = proc{|file|
+    item = t.item_create
+    t.item_style_set(item, 0, 'styName', 2, 'styType', 3, 'styDate')
+    t.item_complex(item,
+                   [['e2', {:text=>File.basename(file)}]],
+                   [],
+                   [['txtType', {:text=>'Folder'}]],
+                   [['txtDate', {:data=>File.mtime(file).tv_sec}]])
+    t.item_lastchild(:root, item)
+  }
+
+  file_proc = proc{|file|
+    item = t.item_create
+    t.item_style_set(item, 0, 'styName', 1, 'stySize',
+                           2, 'styType', 3, 'styDate')
+
+    ext = File.extname(file)
+    case ext
+    when '.dll'
+      img = 'small-dll'
+    when '.exe'
+      img = 'small-exe'
+    when '.txt'
+      img = 'small-txt'
+    else
+      img = 'small-file'
+    end
+
+    type = ext.upcase
+    type = type[1..-1] << ' ' unless type.empty?
+    type << 'File'
+
+    t.item_complex(item,
+                   [
+                     ['e1', {:image=>[@sel_images[img], ['selected'],
+                                      @images[img], []]}],
+                     ['e2', {:text=>File.basename(file)}]
+                   ],
+                   [ ['txtSize', {:data=>File.size(file)/1024 + 1}] ],
+                   [ ['txtType', {:text=>type}] ],
+                   [ ['txtDate', {:data=>File.mtime(file).tv_sec}] ]
+                   )
+    t.item_lastchild(:root, item)
+  }
+
+  demoExplorerAux(t, dir_proc, file_proc)
+
+  @SortColumn = 0
+  t.notify_bind(t, 'Header-invoke',
+                proc{|w, c| explorerHeaderInvoke(t, w, c)}, '%T %C')
+
+  t.bindtags = [ t, 'TreeCtrlFileList', Tk::TreeCtrl, t.winfo_toplevel, :all ]
+end
+
+def explorerHeaderInvoke(t, w, c)
+  if (c == @SortColumn)
+    if t.column_cget(@SortColumn, :arrow) == 'down'
+      order = :increasing
+      arrow = :up
+    else
+      order = :decreasing
+      arrow = :down
+    end
+  else
+    if t.column_cget(@SortColumn, :arrow) == 'down'
+      order = :decreasing
+      arrow = :down
+    else
+      order = :increasing
+      arrow = :up
+    end
+    t.column_configure(@SortColumn, :arrow=>:none)
+    @SortColumn = c
+  end
+
+  t.column_configure(c, :arrow=>arrow)
+  dirCount = TkComm.number(@Priv[:DirCnt, t])
+  lastDir = dirCount - 1
+  case t.column_cget(c, :tag)
+  when 'name'
+    if dirCount > 0
+      t.item_sort(:root, order, {:last=>"root child #{lastDir}"},
+                  {:column=>c, :dictionary=>true})
+    end
+    if dirCount < t.numitems - 1
+      t.item_sort(:root, order, {:first=>"root child #{dirCount}"},
+                  {:column=>c, :dictionary=>true})
+    end
+
+  when 'size'
+    if dirCount < t.numitems - 1
+      t.item_sort(:root, order, {:first=>"root child #{dirCount}"},
+                  {:column=>c, :integer=>true},
+                  {:column=>'name', :dictionary=>true})
+    end
+
+  when 'type'
+    if dirCount < t.numitems - 1
+      t.item_sort(:root, order, {:first=>"root child #{dirCount}"},
+                  {:column=>c, :dictionary=>true},
+                  {:column=>'name', :dictionary=>true})
+    end
+
+  when 'modified'
+    if dirCount > 0
+      t.item_sort(:root, order, {:last=>"root child #{lastDir}"},
+                  {:column=>c, :integer=>true},
+                  {:column=>'name', :dictionary=>true})
+    end
+    if dirCount < t.numitems - 1
+      t.item_sort(:root, order, {:first=>"root child #{dirCount}"},
+                  {:column=>c, :integer=>true},
+                  {:column=>'name', :dictionary=>true})
+    end
+
+  end
+end
+
+def demoExplorerLargeIcons(t)
+  # Item height is 32 for icon, 4 padding, 3 lines of text
+  itemHeight = 32 + 4 + t.font.metrics(:linespace) * 3
+
+  t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
+              :selectmode=>:extended, :wrap=>:window, :orient=>:horizontal,
+              :itemheight=>itemHeight, :showheader=>false, :scrollmargin=>16,
+              :xscrolldelay=>[500, 50], :yscrolldelay=>[500, 50])
+
+  init_pics('big-*')
+
+  if $HasColumnCreate
+    t.column_create(:width=>75)
+  else
+    t.column_configure(0, :width=>75)
+  end
+
+  t.element_create('elemImg', :image,
+                   :image=>[
+                     @sel_images['big-folder'], ['selected'],
+                     @images['big-folder'], []
+                   ])
+  t.element_create('elemTxt', :text, :justify=>:center,
+                   :lines=>1, :width=>71, :wrap=>:word,
+                   :fill=>[@SystemHighlightText, ['selected', 'focus']])
+  t.element_create('elemSel', :rect, :showfocus=>true,
+                   :fill=>[
+                     @SystemHighlight, ['selected', 'focus'],
+                     'gray', ['selected']
+                   ])
+
+  # image + text
+  s = t.style_create('STYLE', :orient=>:vertical)
+  t.style_elements(s, ['elemSel', 'elemImg', 'elemTxt'])
+  t.style_layout(s, 'elemImg', :expand=>:we)
+  t.style_layout(s, 'elemTxt',
+                 :pady=>[4,0], :padx=>2, :squeeze=>:x, :expand=>:we)
+  t.style_layout(s, 'elemSel', :union=>['elemTxt'])
+
+  @Priv[:edit, t] = ['elemTxt']
+  @Priv[:sensitive, t] = [ [0, 'STYLE', 'elemImg', 'elemTxt'] ]
+  @Priv[:dragimage, t] = [ [0, 'STYLE', 'elemImg', 'elemTxt'] ]
+
+  t.notify_bind(t, 'Edit-accept',
+                proc{|w, i, tt| w.item_text(i, 0, tt)}, '%T %I %t')
+
+  dir_proc = proc{|file|
+    item = t.item_create
+    t.item_style_set(item, 0, 'STYLE')
+    t.item_text(item, 0, File.basename(file))
+    t.item_lastchild(:root, item)
+  }
+
+  file_proc = proc{|file|
+    item = t.item_create
+    t.item_style_set(item, 0, 'STYLE')
+
+    ext = File.extname(file)
+    case ext
+    when '.dll'
+      img = 'big-dll'
+    when '.exe'
+      img = 'big-exe'
+    when '.txt'
+      img = 'big-txt'
+    else
+      img = 'big-file'
+    end
+
+    type = ext.upcase
+    type = type[1..-1] << ' ' unless type.empty?
+    type << 'File'
+
+    t.item_complex(item,
+                   [
+                     ['elemImg', {:image=>[@sel_images[img], ['selected'],
+                                           @images[img], []]}],
+                     ['elemTxt', {:text=>File.basename(file)}]
+                   ])
+    t.item_lastchild(:root, item)
+  }
+
+  demoExplorerAux(t, dir_proc, file_proc)
+
+  t.activate(t.index('root firstchild'))
+
+  t.notify_bind(t, 'ActiveItem',
+                proc{|w, a, c|
+                  w.item_element_configure(a, 0, 'elemTxt', :lines=>'')
+                  w.item_element_configure(c, 0, 'elemTxt', :lines=>3)
+                }, '%T %p %c')
+
+  t.bindtags = [ t, 'TreeCtrlFileList', Tk::TreeCtrl, t.winfo_toplevel, :all ]
+end
+
+# Tree is horizontal, wrapping occurs at right edge of window, each item
+# is as wide as the smallest needed multiple of 110 pixels
+def demoExplorerSmallIcons(t)
+  demoExplorerList(t)
+  t.configure(:orient=>:horizontal, :xscrollincrement=>0)
+  t.column_configure(0, :width=>'', :stepwidth=>110, :widthhack=>false)
+end
+
+# Tree is vertical, wrapping occurs at bottom of window, each range has the
+# same width (as wide as the longest item), xscrollincrement is by range
+def demoExplorerList(t)
+  height = t.font.metrics(:linespace) + 2
+  height = 18 if height < 18
+
+  t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
+              :itemheight=>height, :selectmode=>:extended, :wrap=>:window,
+              :showheader=>false, :scrollmargin=>16,
+              :xscrolldelay=>[500, 50], :yscrolldelay=>[500, 50])
+
+  init_pics('small-*')
+
+  if $HasColumnCreate
+    t.column_create(:widthhack=>true)
+  else
+    t.column_configure(0, :widthhack=>true)
+  end
+
+  t.element_create('elemImg', :image,
+                   :image=>[
+                     @sel_images['small-folder'], ['selected'],
+                     @images['small-folder'], []
+                   ])
+  t.element_create('elemTxt', :text, :lines=>1,
+                   :fill=>[@SystemHighlightText, ['selected', 'focus']])
+  t.element_create('elemSel', :rect, :showfocus=>true,
+                   :fill=>[
+                     @SystemHighlight, ['selected', 'focus'],
+                     'gray', ['selected', '!focus']
+                   ])
+
+  # image + text
+  s = t.style_create('STYLE')
+  t.style_elements(s, ['elemSel', 'elemImg', 'elemTxt'])
+  t.style_layout(s, 'elemImg', :expand=>:ns)
+  t.style_layout(s, 'elemTxt', :squeeze=>:x, :expand=>:ns, :padx=>[2,0])
+  t.style_layout(s, 'elemSel', :union=>['elemTxt'], :iexpand=>:ns, :ipadx=>2)
+
+  @Priv[:edit, t] = ['elemTxt']
+  @Priv[:sensitive, t] = [ [0, 'STYLE', 'elemImg', 'elemTxt'] ]
+  @Priv[:dragimage, t] = [ [0, 'STYLE', 'elemImg', 'elemTxt'] ]
+
+  t.notify_bind(t, 'Edit-accept',
+                proc{|w, i, tt| w.item_text(i, 0, tt)}, '%T %I %t')
+
+  dir_proc = proc{|file|
+    item = t.item_create
+    t.item_style_set(item, 0, 'STYLE')
+    t.item_text(item, 0, File.basename(file))
+    t.item_lastchild(:root, item)
+  }
+
+  file_proc = proc{|file|
+    item = t.item_create
+    t.item_style_set(item, 0, 'STYLE')
+
+    ext = File.extname(file)
+    case ext
+    when '.dll'
+      img = 'small-dll'
+    when '.exe'
+      img = 'small-exe'
+    when '.txt'
+      img = 'small-txt'
+    else
+      img = 'small-file'
+    end
+
+    type = ext.upcase
+    type = type[1..-1] << ' ' unless type.empty?
+    type << 'File'
+
+    t.item_complex(item,
+                   [
+                     ['elemImg', {:image=>[@sel_images[img], ['selected'],
+                                           @images[img], []]}],
+                     ['elemTxt', {:text=>File.basename(file)}]
+                   ])
+    t.item_lastchild(:root, item)
+  }
+
+  demoExplorerAux(t, dir_proc, file_proc)
+
+  t.activate(t.item_firstchild(:root))
+
+  t.bindtags = [ t, 'TreeCtrlFileList', Tk::TreeCtrl, t.winfo_toplevel, :all ]
+end

data/sample/tkextlib/treectrl/help.rb

@@ -0,0 +1,405 @@
+# frozen_string_literal: false
+#
+# Demo: Help contents
+#
+def demoHelpContents(t)
+  height = t.font.metrics(:linespace)
+  height = 18 if height < 18
+  t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
+              :itemheight=>height, :selectmode=>:browse)
+
+  init_pics('help-*')
+
+  if $Version_1_1_OrLater
+    t.column_create(:text=>'Help Contents')
+  else # TreeCtrl 1.0
+    t.column_configure(0, :text=>'Help Contents')
+  end
+
+  # Define a new item state
+  t.state_define('mouseover')
+
+  t.element_create('e1', :image, :image=>@images['help-page'])
+  t.element_create('e2', :image, :image=>[
+                     @images['help-book-open'], ['open'],
+                     @images['help-book-closed'], [],
+                   ])
+  t.element_create('e3', :text,
+                   :font=>[t.font.dup.underline(true), ['mouseover']],
+                   :fill=>[
+                     @SystemHighlightText, ['selected', 'focus'],
+                     'blue', ['mouseover']
+                   ])
+  t.element_create('e4', :rect, :showfocus=>true,
+                   :fill=>[@SystemHighlight, ['selected', 'focus']])
+
+  # book
+  s = t.style_create('s1')
+  t.style_elements(s, ['e4', 'e1', 'e3'])
+  t.style_layout(s, 'e1', :padx=>[0,4], :expand=>:ns)
+  t.style_layout(s, 'e3', :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e3'], :iexpand=>:ns, :ipadx=>2)
+
+  # page
+  s = t.style_create('s2')
+  t.style_elements(s, ['e4', 'e2', 'e3'])
+  t.style_layout(s, 'e2', :padx=>[0,4], :expand=>:ns)
+  t.style_layout(s, 'e3', :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e3'], :iexpand=>:ns, :ipadx=>2)
+
+  parentList = [:root, '', '', '', '', '', '']
+  parent = :root
+  [
+     [0, 's1', "Welcome to Help"],
+     [0, 's2', "Introducing Windows 98"],
+        [1, 's2', "How to Use Help"],
+           [2, 's1', "Find a topic"],
+           [2, 's1', "Get more out of help"],
+        [1, 's2', "Register Your Software"],
+           [2, 's1', "Registering Windows 98 online"],
+        [1, 's2', "What's New in Windows 98"],
+           [2, 's1', "Innovative, easy-to-use features"],
+           [2, 's1', "Improved reliability"],
+           [2, 's1', "A faster operating system"],
+           [2, 's1', "True Web integration"],
+           [2, 's1', "More entertaining and fun"],
+        [1, 's2', "If You're New to Windows 98"],
+           [2, 's2', "Tips for Macintosh Users"],
+              [3, 's1', "Why does the mouse have two buttons?"]
+  ].each{|depth, style, text|
+    item = t.item_create
+    t.item_style_set(item, 0, style)
+    t.item_element_configure(item, 0, 'e3', :text=>text)
+    if $Version_1_1_OrLater
+      t.item_collapse(item)
+    else # TreeCtrl 1.0
+      t.collapse(item)
+    end
+    t.item_lastchild(parentList[depth], item)
+    depth += 1
+    parentList[depth] = item
+  }
+
+  treeCtrlHelp = TkBindTag.new
+
+  treeCtrlHelp.bind('Double-ButtonPress-1',
+                    proc{|w, x, y|
+                      if w.identify(x, y)[0] == 'header'
+                        Tk::TreeCtrl::BindCallback.doubleButton1(w, x, y)
+                      else
+                        helpButton1(w, x, y)
+                      end
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('ButtonPress-1',
+                    proc{|w, x, y|
+                      helpButton1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('Button1-Motion',
+                    proc{|w, x, y|
+                      helpMotion1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('Button1-Leave',
+                    proc{|w, x, y|
+                      helpLeave1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('ButtonRelease-1',
+                    proc{|w, x, y|
+                      helpRelease1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('Motion', proc{|w, x, y| helpMotion(w, x, y) }, '%W %x %y')
+
+  treeCtrlHelp.bind('Leave', proc{|w, x, y| helpMotion(w, x, y) }, '%W %x %y')
+
+  treeCtrlHelp.bind('KeyPress-Return',
+                    proc{|w, x, y|
+                      if w.selection_get.length == 1
+                        if $Version_1_1_OrLater
+                          w.item_toggle(w.selection_get[0])
+                        else # TreeCtrl 1.0
+                          w.toggle(w.selection_get[0])
+                        end
+                      end
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  @Priv[:help, :prev] = ''
+
+  t.bindtags = [ t, treeCtrlHelp, Tk::TreeCtrl, t.winfo_toplevel, :all ]
+end
+
+# This is an alternate implementation that does not define a new item state
+# to change the appearance of the item under the cursor.
+def demoHelpContents2(t)
+  height = t.font.metrics(:linespace)
+  height = 18 if height < 18
+  t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
+              :itemheight=>height, :selectmode=>:browse)
+
+  init_pics('help-*')
+
+  if $Version_1_1_OrLater
+    t.column_create(:text=>'Help Contents')
+  else # TreeCtrl 1.0
+    t.column_configure(0, :text=>'Help Contents')
+  end
+
+  t.element_create('e1', :image, :image=>@images['help-page'])
+  t.element_create('e2', :image, :image=>[
+                     @images['help-book-open'], ['open'],
+                     @images['help-book-closed'], [],
+                   ])
+  t.element_create('e3', :text,
+                   :fill=>[
+                     @SystemHighlightText, ['selected', 'focus'],
+                     'blue', []
+                   ])
+  t.element_create('e4', :rect, :showfocus=>true,
+                   :fill=>[@SystemHighligh, ['selected', 'focus']])
+  t.element_create('e5', :text, :font=>t.font.dup.underline(true),
+                   :fill=>[
+                     @SystemHighlightText, ['selected', 'focus'],
+                     'blue', []
+                   ])
+
+  # book
+  s = t.style_create('s1')
+  t.style_elements(s, ['e4', 'e1', 'e3'])
+  t.style_layout(s, 'e1', :padx=>[0,4], :expand=>:ns)
+  t.style_layout(s, 'e3', :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e3'], :iexpand=>:ns, :ipadx=>2)
+
+  # page
+  s = t.style_create('s2')
+  t.style_elements(s, ['e4', 'e2', 'e3'])
+  t.style_layout(s, 'e2', :padx=>[0,4], :expand=>:ns)
+  t.style_layout(s, 'e3', :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e3'], :iexpand=>:ns, :ipadx=>2)
+
+  # book (focus)
+  s = t.style_create('s1.f')
+  t.style_elements(s, ['e4', 'e1', 'e5'])
+  t.style_layout(s, 'e1', :padx=>[0,4], :expand=>:ns)
+  t.style_layout(s, 'e5', :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e5'], :iexpand=>:ns, :ipadx=>2)
+
+  # page (focus)
+  s = t.style_create('s2')
+  t.style_elements(s, ['e4', 'e2', 'e5'])
+  t.style_layout(s, 'e2', :padx=>[0,4], :expand=>:ns)
+  t.style_layout(s, 'e5', :expand=>:ns)
+  t.style_layout(s, 'e4', :union=>['e5'], :iexpand=>:ns, :ipadx=>2)
+
+  parentList = [:root, '', '', '', '', '', '']
+  parent = :root
+  [
+     [0, 's1', "Welcome to Help"],
+     [0, 's2', "Introducing Windows 98"],
+        [1, 's2', "How to Use Help"],
+           [2, 's1' "Find a topic"],
+           [2, 's1', "Get more out of help"],
+        [1, 's2', "Register Your Software"],
+           [2, 's1', "Registering Windows 98 online"],
+        [1, 's2', "What's New in Windows 98"],
+           [2, 's1', "Innovative, easy-to-use features"],
+           [2, 's1', "Improved reliability"],
+           [2, 's1', "A faster operating system"],
+           [2, 's1', "True Web integration"],
+           [2, 's1', "More entertaining and fun"],
+        [1, 's2', "If You're New to Windows 98"],
+           [2, 's2', "Tips for Macintosh Users"],
+              [3, 's1', "Why does the mouse have two buttons?"]
+  ].each{|depth, style, text|
+    item = t.item_create
+    t.item_style_set(item, 0, style)
+    t.item_element_configure(item, 0, 'e3', :text=>text)
+    if $Version_1_1_OrLater
+      t.item_collapse(item)
+    else # TreeCtrl 1.0
+      t.collapse(item)
+    end
+    t.item_lastchild(parentList[depth], item)
+    depth += 1
+    parentList[depth] = item
+  }
+
+  treeCtrlHelp = TkBindTag.new
+
+  treeCtrlHelp.bind('Double-ButtonPress-1',
+                    proc{|w, x, y|
+                      if w.identify(x, y)[0] == 'header'
+                        Tk::TreeCtrl::BindCallback.doubleButton1(w, x, y)
+                      else
+                        helpButton1(w, x, y)
+                      end
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('ButtonPress-1',
+                    proc{|w, x, y|
+                      helpButton1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('Button1-Motion',
+                    proc{|w, x, y|
+                      helpMotion1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('Button1-Leave',
+                    proc{|w, x, y|
+                      helpLeave1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('ButtonRelease-1',
+                    proc{|w, x, y|
+                      helpRelease1(w, x, y)
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  treeCtrlHelp.bind('Motion', proc{|w, x, y| helpMotion(w, x, y) }, '%W %x %y')
+
+  treeCtrlHelp.bind('Leave', proc{|w, x, y| helpMotion(w, x, y) }, '%W %x %y')
+
+  treeCtrlHelp.bind('KeyPress-Return',
+                    proc{|w, x, y|
+                      if w.selection_get.length == 1
+                        w.item_toggle(w.selection_get[0])
+                      end
+                      Tk.callback_break
+                    }, '%W %x %y')
+
+  @Priv[:help, :prev] = ''
+
+  t.bindtags = [ t, treeCtrlHelp, Tk::TreeCtrl, t.winfo_toplevel, :all ]
+end
+
+def helpButton1(w, x, y)
+  w.set_focus
+  id = w.identify(x, y)
+  @Priv['buttonMode'] = ''
+  if id[0] == 'header'
+    Tk::TreeCtrl::BindCallback.buttonPress1(w, x, y)
+  elsif id[0] == 'item'
+    item = id[1]
+    # didn't click an element
+    return if id.length != 6
+    if w.selection_includes(item)
+      w.toggle(item)
+      return
+    end
+    if w.selection_get.length > 0
+      item2 = w.selection_get[0]
+      if $Version_1_1_OrLater
+        w.item_collapse(item2)
+      else # TreeCtrl 1.0
+        w.collapse(item2)
+      end
+      w.item_ancestors(item2).each{|i|
+        if $Version_1_1_OrLater
+          w.item_collapse(i) if w.compare(item, '!=', i)
+        else # TreeCtrl 1.0
+          w.collapse(i) if w.compare(item, '!=', i)
+        end
+      }
+    end
+    w.activate(item)
+    if $Version_1_1_OrLater
+      w.item_ancestors(item).each{|i|
+        w.item_expand(i)
+      }
+      w.item_toggle(item)
+    else # TreeCtrl 1.0
+      w.expand(*(w.item_ancestors(item)))
+      w.toggle(item)
+    end
+    w.selection_modify(item, :all)
+  end
+end
+
+def helpMotion1(w, x, y)
+  case @Priv['buttonMode']
+  when 'resize', 'header'
+    Tk::TreeCtrl::BindCallback.motion1(w, x, y)
+  end
+end
+
+def helpLeave1(w, x, y)
+  # This is called when I do ButtonPress-1 on Unix for some reason,
+  # and buttonMode is undefined.
+  return unless @Priv.exist?('buttonMode')
+  case @Priv['buttonMode']
+  when 'header'
+    w.column_configure(@Priv['column'], :sunken=>false)
+  end
+end
+
+def helpRelease1(w, x, y)
+  case @Priv['buttonMode']
+  when 'resize', 'header'
+    Tk::TreeCtrl::BindCallback.release1(w, x, y)
+  end
+  @Priv['buttonMode'] = ''
+end
+
+def helpMotion(w, x, y)
+  id = w.identify(x, y)
+  if id.empty?
+  elsif id[0] == 'header'
+  elsif id[0] == 'item'
+    item = id[1]
+    if id.length == 6
+      if @Priv[:help, :prev] != TkComm._get_eval_string(item)
+        if @Priv[:help, :prev] != ''
+          w.item_state_set(@Priv[:help, :prev], '!mouseover')
+        end
+        w.item_state_set(item, 'mouseover')
+        @Priv[:help, :prev] = item
+      end
+      return
+    end
+  end
+  if @Priv[:help, :prev] != ''
+    w.item_state_set(@Priv[:help, :prev], '!mouseover')
+    @Priv[:help, :prev] = ''
+  end
+end
+
+# Alternate implementation doesn't rely on mouseover state
+def helpMotion2(w, x, y)
+  id = w.identify(x, y)
+  if id[0] == 'header'
+  elsif !id.empty?
+    item = id[1]
+    if id.length == 6
+      if @Priv[:help, :prev] != TkComm._get_eval_string(item)
+        if @Priv[:help, :prev] != ''
+          style = w.item_style_set(@Priv[:help, :prev], 0)
+          style.sub!(/\.f$/, '')
+          w.item_style_map(@Priv[:help, :prev], 0, style, ['e5', 'e3'])
+        end
+        style = w.item_style_set(item, 0)
+        w.item_style_map(item, 0, style + '.f', ['e3', 'e5'])
+        @Priv[:help, :prev] = item
+      end
+      return
+    end
+  end
+  if @Priv[:help, :prev] != ''
+    style = w.item_style_set(@Priv[:help, :prev], 0)
+    style.sub!(/\.f$/, '')
+    w.item_style_map(@Priv[:help, :prev], 0, style, ['e5', 'e3'])
+    @Priv[:help, :prev] = ''
+  end
+end