Posted to tcl by jdc at Wed Mar 17 16:46:58 GMT 2010view raw

  1. package require Tk
  2.  
  3. #ttk::style theme use clam
  4.  
  5. pack [ttk::panedwindow .pw] -fill both -expand true
  6. for {set h 0} {$h<4} {incr h} {
  7. .pw add [ttk::panedwindow .pw.pw$h -orient horizontal]
  8. for {set i 0} {$i<4} {incr i} {
  9. .pw.pw$h add [ttk::notebook .pw.pw$h.nb$i]
  10. for {set j 0} {$j<4} {incr j} {
  11. .pw.pw$h.nb$i add [text .pw.pw$h.nb$i.txt$j] -text $i/$j
  12. }
  13. }
  14. }

Comments

Posted by jenglish at Wed Mar 17 17:01:33 GMT 2010 [text] [code]

(jdc notes on the chat): (09:48:11) jdc [...] this example shows the diff clearly (at least o the Lunux Suse11 machines we're using here) when running with style clam or another style.(09:48:43) jdc with clam, resize really sticks to the mouse pointer, with other style it's lagging.