1  #
   2  #  ttk_selector
   3  #
   4  ######################################
   5  #  toplevel classes/modules
   6  module Tk
   7    @TOPLEVEL_ALIAS_TABLE[:Ttk] = {
   8      :TkButton       => 'tkextlib/tile/tbutton', 
   9 
  10      :TkCheckbutton  => 'tkextlib/tile/tcheckbutton', 
  11      :TkCheckButton  => 'tkextlib/tile/tcheckbutton', 
  12 
  13      # :TkDialog       => 'tkextlib/tile/dialog', 
  14 
  15      :TkEntry        => 'tkextlib/tile/tentry', 
  16 
  17      :TkCombobox     => 'tkextlib/tile/tcombobox', 
  18 
  19      :TkFrame        => 'tkextlib/tile/tframe', 
  20 
  21      :TkLabel        => 'tkextlib/tile/tlabel', 
  22 
  23      :TkLabelframe   => 'tkextlib/tile/tlabelframe', 
  24      :TkLabelFrame   => 'tkextlib/tile/tlabelframe', 
  25 
  26      :TkMenubutton   => 'tkextlib/tile/tmenubutton', 
  27      :TkMenuButton   => 'tkextlib/tile/tmenubutton', 
  28 
  29      :TkNotebook     => 'tkextlib/tile/tnotebook', 
  30 
  31      # :TkPaned        => 'tkextlib/tile/tpaned', 
  32      :TkPanedwindow  => 'tkextlib/tile/tpaned', 
  33      :TkPanedWindow  => 'tkextlib/tile/tpaned', 
  34 
  35      :TkProgressbar  => 'tkextlib/tile/tprogressbar', 
  36 
  37      :TkRadiobutton  => 'tkextlib/tile/tradiobutton', 
  38      :TkRadioButton  => 'tkextlib/tile/tradiobutton', 
  39 
  40      :TkScale        => 'tkextlib/tile/tscale', 
  41      # :TkProgress     => 'tkextlib/tile/tscale', 
  42 
  43      :TkScrollbar    => 'tkextlib/tile/tscrollbar', 
  44      :TkXScrollbar   => 'tkextlib/tile/tscrollbar', 
  45      :TkYScrollbar   => 'tkextlib/tile/tscrollbar', 
  46 
  47      :TkSeparator    => 'tkextlib/tile/tseparator', 
  48 
  49      :TkSizeGrip     => 'tkextlib/tile/sizegrip', 
  50      :TkSizegrip     => 'tkextlib/tile/sizegrip', 
  51 
  52      # :TkSquare       => 'tkextlib/tile/tsquare', 
  53 
  54      :TkTreeview     => 'tkextlib/tile/treeview', 
  55    }
  56    @TOPLEVEL_ALIAS_TABLE[:Tile] = @TOPLEVEL_ALIAS_TABLE[:Ttk]
  57 
  58    ################################################
  59    # register some Ttk widgets as default
  60    # (Ttk is a standard library on Tcl/Tk8.5+)
  61    @TOPLEVEL_ALIAS_TABLE[:Ttk].each{|sym, file|
  62      unless Object.autoload?(sym) || Object.const_defined?(sym)
  63        Object.autoload(sym, file)
  64      end
  65    }
  66 
  67    ################################################
  68 
  69    @TOPLEVEL_ALIAS_SETUP_PROC[:Tile] = 
  70      @TOPLEVEL_ALIAS_SETUP_PROC[:Ttk] = proc{|mod|
  71      unless Tk.autoload?(:Tile) || Tk.const_defined?(:Tile) 
  72        Object.autoload :Ttk, 'tkextlib/tile'
  73        Tk.autoload :Tile, 'tkextlib/tile'
  74      end
  75    }
  76  end