#
# tkextlib/blt/treeview.rb
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
require 'tk'
require 'tkextlib/blt.rb'
require 'tk/validation.rb'
module Tk::BLT
class Treeview < TkWindow
module ConfigMethod
end
module TagOrID_Methods
end
class Node < TkObject
end
class Tag < TkObject
end
end
class Hiertable < Treeview
end
end
######################################
module Tk::BLT::Treeview::ConfigMethod
include TkItemConfigMethod
def __item_boolval_optkeys(id)
case id
when Array
# id := [ 'column', name ]
['edit', 'hide']
when 'sort'
['decreasing']
else
[]
end
end
private :__item_boolval_optkeys
def __item_strval_optkeys(id)
case id
when Array
# id := [ 'column', name ]
super() << 'titleforeground' << 'titleshadow'
when 'sort'
['decreasing']
else
[]
end
end
private :__item_strval_optkeys
def __item_listval_optkeys(id)
case id
when 'entry'
['bindtags']
else
[]
end
end
private :__item_listval_optkeys