Posted to tcl by jepler at Mon Feb 08 20:34:46 GMT 2010view raw

  1. ttk::entry .e
  2. ttk::entry .f
  3. ttk::entry .g
  4. ttk::entry .h
  5.  
  6. .e insert end normal
  7. .f insert end readonly; .f state readonly
  8. .g insert end mixed; .g state alternate
  9. .h insert end disabled; .h state disabled
  10.  
  11. ttk::button .b -text "change TEntry map..." -command {
  12. ttk::style map TEntry -foreground {alternate #808080}
  13. .l configure -text "TEntry style map:\n[ttk::style map TEntry]"
  14. }
  15.  
  16. ttk::label .l -text "TEntry style map:\n[ttk::style map TEntry]" -width 100
  17. pack .e
  18. pack .f
  19. pack .g
  20. pack .h
  21. pack .b
  22. pack .l
  23.