Tk Library Source Code: Attachment Details

Overview

Artifact ID:	3e9539f5edcbd8a224c1fa8276a5134d625704f8
Ticket:	1518803fffffffffffffffffffffffffffffffff
Date:	2006-07-07 22:07:09
User:	glennjnn
Artifact Attached:	0a2de3bb8e4427668229ea6675d584741c2112eb
Filename:	bwidget.diff.txt
Description:	context diff for utils.tcl

Content:

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
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]
  }