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