Posted to tcl by patthoyts at Sat Nov 03 00:08:52 GMT 2007view pretty

package require Tk
package require tile 0.8

catch {
    ttk::style element create plain.background from default
}

ttk::style layout Plain.TEntry {
    Entry.field -sticky nswe -border 0 -children {
        Entry.border -sticky nswe -border 1 -children {
            Entry.padding -sticky nswe -children {
                Entry.plain.background -sticky nswe -children {
                    Entry.textarea -sticky nswe
                }
            }
        }
    }
}

ttk::style configure Plain.TEntry -background LightSteelBlue -padding 0 -borderwidth 2

proc Test {} {
    ttk::entry .e -style Plain.TEntry
    ttk::entry .e2 
    grid .e -pady 2 -padx 2
    grid .e2 -pady 2 -padx 2
}

Test
bind . <Control-F2> {console show}
tkwait window .