Tk Library Source Code

Artifact 0a2de3bb8e4427668229ea6675d584741c2112eb:

Attachment "bwidget.diff.txt" to ticket [1518803fff] added by glennjnn 2006-07-07 22:07:09.

---

diff -c utils.tcl.orig utils.tcl
*** utils.tcl.orig      Mon Apr 17 12:19:03 2006
--- utils.tcl   Fri Jul  7 11:01:20 2006
***************
*** 567,573 ****
      set classes [list $class]
      if {![info exists use($class)]} { return }
      foreach class $use($class) {
!       eval lappend classes [classes $class]
      }
      return [lsort -unique $classes]
  }
--- 567,575 ----
      set classes [list $class]
      if {![info exists use($class)]} { return }
      foreach class $use($class) {
!         if {![string equal $class "-classonly"]} {
!             eval lappend classes [classes $class]
!         }
      }
      return [lsort -unique $classes]
  }