ruby_1_8_6/ext/tk/lib/tkextlib/tcllib/tablelist.rb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#
#  tkextlib/tcllib/tablelist.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
#   * Part of tcllib extension
#   * A multi-column listbox

require 'tk'
require 'tkextlib/tcllib.rb'

# check Tile extension :: If already loaded, use tablelist_tile.
unless defined? Tk::Tcllib::Tablelist_usingTile
  Tk::Tcllib::Tablelist_usingTile = TkPackage.provide('tile')
end

if Tk::Tcllib::Tablelist_usingTile
  # with Tile
  require 'tkextlib/tcllib/tablelist_tile'

else
  # without Tile

  # TkPackage.require('Tablelist', '4.2')
  TkPackage.require('Tablelist')

  require 'tkextlib/tcllib/tablelist_core'
end