Jan> Hi Tkined user,
Jan> after editing the attributes of an icon and setting both the name and
Jan> the address to an empty string, there is still a white space under the
Jan> icon. Bug or feature?
Bug. Below is a fix for this problem.
Juergen
*** tkined/library/Objects.tcl.orig Thu Sep 5 10:35:56 1996
--- tkined/library/Objects.tcl Thu Sep 12 09:52:07 1996
***************
*** 139,148 ****
set clip [$c find withtag clip$item]
if {$label != ""} {
! $c itemconfigure $label -text $text
! if {$clip != ""} {
! eval $c coords $clip [$c bbox $label]
! }
return
}
--- 139,152 ----
set clip [$c find withtag clip$item]
if {$label != ""} {
! if {$text == ""} {
! $c delete $label $clip
! } else {
! $c itemconfigure $label -text $text
! if {$clip != ""} {
! eval $c coords $clip [$c bbox $label]
! }
! }
return
}