| Ticket UUID: | 1886577 | |||
| Title: | swaplist fails if reorder == 0 | |||
| Type: | Bug | Version: | None | |
| Submitter: | exgerhardr | Created on: | 2008-02-04 21:20:11 | |
| Subsystem: | tklib :: swaplist | Assigned To: | afaupell | |
| Priority: | 5 Medium | Severity: | ||
| Status: | Closed | Last Modified: | 2008-02-06 14:16:39 | |
| Resolution: | None | Closed By: | afaupell | |
| Closed on: | 2008-02-06 07:16:39 | |||
| Description: |
If option -reorder is set to 0, an error is thrown when the last item is moved to the right listbox.
Example code:
============================
package require swaplist
if {[swaplist::swaplist .slist opts "1 2 3 4 5 6 7 8 9" "1 3 5" -reorder 0]} {
puts "user chose numbers: $ops"
}
============================
Error message:
can't read "new": no such variable
while executing
"foreach x $new {$to selection set $x}"
(procedure "::swaplist::ShiftRNoReorder" line 12)
invoked from within
"::swaplist::ShiftRNoReorder .slist {1 2 3 4 5 6 7 8 9}"
invoked from within
".slist.lr.right invoke"
("uplevel" body line 1)
invoked from within
"uplevel #0 [list $w invoke]"
(procedure "tk::ButtonUp" line 22)
invoked from within
"tk::ButtonUp .slist.lr.right"
(command bound to event)
Patch attached.
| |||
| User Comments: |
afaupell added on 2008-02-06 14:16:39:
Logged In: YES user_id=812825 Originator: NO fix commited. thanks exgerhardr added on 2008-02-05 04:20:13: File Added - 265036: swaplist-0.2.patch | |||
Attachments:
- swaplist-0.2.patch [download] added by exgerhardr on 2008-02-05 04:20:12. [details]