Tk Library Source Code

Artifact [26d73f5df6]
Login

Artifact 26d73f5df6c5edfe099798b1970525956fa28cd5:

Attachment "diff.txt" to ticket [842408ffff] added by eriklns 2003-11-15 04:22:40.
677a678,681
>             } else  {
>                 # the preferred item is not available
>                 # don't set the variable `item'
>                 set index pref_unavail
684,689c688,696
<         # do the actual allocation
<         set pool(freeitems) [lreplace $pool(freeitems) $index $index]
<         if { [string length $allocID] } {
<             set state($item) $allocID
<         } else  {
<             set state($item) dummyID
---
>         if { [string compare pref_unavail $index] } {
>             # do the actual allocation
>             set pool(freeitems) [lreplace $pool(freeitems) $index $index]
>             if { [string length $allocID] } {
>                 set state($item) $allocID
>             } else  {
>                 set state($item) dummyID
>             }
>             set allocated 1
691d697
<         set allocated 1