1#
2#  tcllib extension support
3#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
4#
5
6require 'tk'
7
8# call setup script for general 'tkextlib' libraries
9require 'tkextlib/setup.rb'
10
11# call setup script
12require 'tkextlib/tcllib/setup.rb'
13
14err = ''
15
16# package:: autoscroll
17target = 'tkextlib/tcllib/autoscroll'
18begin
19  require target
20rescue => e
21  err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
22end
23
24# package:: cursor
25target = 'tkextlib/tcllib/cursor'
26begin
27  require target
28rescue => e
29  err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
30end
31
32# package:: style
33target = 'tkextlib/tcllib/style'
34begin
35  require target
36rescue => e
37  err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
38end
39
40# autoload
41module Tk
42  module Tcllib
43    TkComm::TkExtlibAutoloadModule.unshift(self)
44
45    # package:: autoscroll
46    autoload :Autoscroll,         'tkextlib/tcllib/autoscroll'
47
48    # package:: ctext
49    autoload :CText,              'tkextlib/tcllib/ctext'
50
51    # package:: cursor
52    autoload :Cursor,             'tkextlib/tcllib/cursor'
53
54    # package:: datefield
55    autoload :Datefield,          'tkextlib/tcllib/datefield'
56    autoload :DateField,          'tkextlib/tcllib/datefield'
57
58    # package:: getstring
59    autoload :GetString_Dialog,   'tkextlib/tcllib/getstring'
60
61    # package:: history
62    autoload :History,            'tkextlib/tcllib/history'
63
64    # package:: ico
65    autoload :ICO,                'tkextlib/tcllib/ico'
66
67    # package:: ipentry
68    autoload :IP_Entry,           'tkextlib/tcllib/ip_entry'
69    autoload :IPEntry,            'tkextlib/tcllib/ip_entry'
70
71    # package:: khim
72    autoload :KHIM,               'tkextlib/tcllib/khim'
73
74    # package:: ntext
75    autoload :Ntext,              'tkextlib/tcllib/ntext'
76
77    # package:: Plotchart
78    autoload :Plotchart,          'tkextlib/tcllib/plotchart'
79
80    # package:: style
81    autoload :Style,              'tkextlib/tcllib/style'
82
83    # package:: swaplist
84    autoload :Swaplist_Dialog,    'tkextlib/tcllib/swaplist'
85
86    # package:: tablelist
87    autoload :Tablelist,           'tkextlib/tcllib/tablelist'
88    autoload :TableList,           'tkextlib/tcllib/tablelist'
89    autoload :Tablelist_Tile,      'tkextlib/tcllib/tablelist_tile'
90    autoload :TableList_Tile,      'tkextlib/tcllib/tablelist_tile'
91
92    # package:: tkpiechart
93    autoload :Tkpiechart,         'tkextlib/tcllib/tkpiechart'
94
95    # package:: tooltip
96    autoload :Tooltip,            'tkextlib/tcllib/tooltip'
97
98    # package:: widget
99    autoload :Widget,             'tkextlib/tcllib/widget'
100  end
101end
102
103if $VERBOSE && !err.empty?
104  warn("Warning: some sub-packages are failed to require : " + err)
105end
106