# A gridwin using ttk::frame as its creator
rtl_gridwin .gridwin -creator ttk::frame ...
          

rtl_gridwin .gwin -creator ttk::frame

# This must fail:
.gwin configure

# This must fail, too:
.gwin cget -background

# This succeeds, but only for non
# Tile based elements:
.gwin configure -background red
          

namespace eval rtl_gridwin {

   set var(background) \
     [list tileBackground $var(background)]]


   proc set-tileBackground { base color } {
     # do nothing ...
   }

   proc get-tileBackground { base } {
     # retrieve the background from the theme.
     # and return it as color.
     return [ttk::style lookup frame -background]
   }
}

# Now the rtl_gridwin -background is
# inoculated against Tile.
          

# This code is an excerpt from pkgIndex.tcl.
# Its purpose is to inoculate the gistbox
# template against missing properties in
# ttk windows. As a side-effect any usage
# of this template will partake in theme
# changes, too.
package ifneeded inoculate_gistbox 1.0 {
    package require Tk 8.5
    package require gttk
    package provide inoculate_gistbox 1.0

    namespace eval gistbox {

        # Make all the wrapper known.
        namespace import ::gttk::*

        # Extend the interface with wrappers at
        # 1st-position. Notice: case / lowercase.
        variable var
        foreach _ {
            background  highlightThickness
            borderWidth highlightBackground
            relief      highlightColor
        } {

            # lsort cannot being used here,
            # would disorder things.
            set var($_) \
               [concat tile[mkFirstUp \
                   [string tolower $_]] \
                   $var($_)]
        }
          

        # The template will monitor themes.
        bind Gistbox <<ThemeChanged>> {

            foreach _ {
                background  highlightthickness
                borderwidth highlightbackground
                relief      highlightcolor
            } {
                %W configure -$_ [%W cget -$_]
            }
        }
    }
}
          

    # Loading Tile
   …
      
    # Rescue 'label' using 'rename'.
    rename label labelTk
      
    # Substitute 'label' with 'ttk::label'.
   …
      
    # Tell mlistbox to use 'labelTk'
    # for the header column.
    option add *Rtl_mlistbox.label labelTk
          

# package require tile; –not needed under 8.5.
# Tell the multi-column-listbox to use a
# Tk Label for its header row:
option add *Rtl_mlistbox.label tk::label