Changeset 3650 for trunk/gui

Timestamp:

May 14, 2013 7:08:30 PM (11 years ago)

Author:

mmc

Message:

Fixed a problem with separators inside a group. Having a separator
within a group of groups should force "vertical" layout. It was
throwing an error, but it's fixed now.

File:

• trunk/gui/scripts/controls.tcl (modified) (1 diff)

trunk/gui/scripts/controls.tcl

@@ -507 +507 @@
             foreach name $showing {
                 set w $_name2info($name-value)
-                if {[lsearch {GroupEntry Separator} [winfo class $w]] < 0} {
+                if {[winfo class $w] ne "GroupEntry"} {
                     # something other than a group? then fall back on vertical
                     set _scheme "vertical"