diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-05 07:35:41 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-05 07:35:41 +0000 |
commit | 7a7bf8b8bf13e9304fd5f87827720cad4e42f136 (patch) | |
tree | c10c475b3f637a388aa9acb2d77a9a533c389df1 /ext/tk/lib/tkextlib/tile.rb | |
parent | f132f2705ded61b6b76ed829351c7f24ed0640e5 (diff) |
* ext/tk/lib/multi-tk.rb: freeze callback-entry objects
* ext/tk/lib/tkextlib/tile.rb: support tile-0.6
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8075 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkextlib/tile.rb')
-rw-r--r-- | ext/tk/lib/tkextlib/tile.rb | 33 |
1 files changed, 32 insertions, 1 deletions
diff --git a/ext/tk/lib/tkextlib/tile.rb b/ext/tk/lib/tkextlib/tile.rb index 80a9083694..e93fcb9c19 100644 --- a/ext/tk/lib/tkextlib/tile.rb +++ b/ext/tk/lib/tkextlib/tile.rb @@ -13,7 +13,24 @@ require 'tkextlib/tile/setup.rb' # load package # TkPackage.require('tile', '0.4') -TkPackage.require('tile') +# TkPackage.require('tile', '0.6') +verstr = TkPackage.require('tile') +ver = verstr.split('.') +if ver[0].to_i == 0 && ver[1].to_i <= 4 + # version 0.4 or former + module Tk + module Tile + USE_TTK_NAMESPACE = false + end + end +else + # version 0.5 or later + module Tk + module Tile + USE_TTK_NAMESPACE = true + end + end +end # autoload module Tk @@ -55,6 +72,12 @@ module Tk autoload :TCheckButton, 'tkextlib/tile/tcheckbutton' autoload :TCheckbutton, 'tkextlib/tile/tcheckbutton' + autoload :TEntry, 'tkextlib/tile/tentry' + autoload :TCombobox, 'tkextlib/tile/tcombobox' + + autoload :TFrame, 'tkextlib/tile/tframe' + autoload :TLabelframe, 'tkextlib/tile/tlabelframe' + autoload :TLabel, 'tkextlib/tile/tlabel' autoload :TMenubutton, 'tkextlib/tile/tmenubutton' @@ -64,6 +87,14 @@ module Tk autoload :TRadioButton, 'tkextlib/tile/tradiobutton' autoload :TRadiobutton, 'tkextlib/tile/tradiobutton' + autoload :TScrollbar, 'tkextlib/tile/tsrollbar' + + autoload :TSeparator, 'tkextlib/tile/tseparator' + + autoload :TSquare, 'tkextlib/tile/tsquare' + + autoload :TreeView, 'tkextlib/tile/treeview' + autoload :Style, 'tkextlib/tile/style' end end |