Ticket UUID: | 6da48f457975aaef5c2b15b50dd87789e886f13a | |||
Title: | autoscroll assumes packed widget managed by parent | |||
Type: | Bug | Version: | trunk | |
Submitter: | anonymous | Created on: | 2016-04-05 12:59:44 | |
Subsystem: | tklib :: autoscroll | Assigned To: | nobody | |
Priority: | 5 Medium | Severity: | Minor | |
Status: | Open | Last Modified: | 2016-04-05 12:59:44 | |
Resolution: | None | Closed By: | nobody | |
Closed on: | ||||
Description: |
Line 122 of autoscroll.tcl [1] should be changed: - foreach x [pack slaves [winfo parent $w]] { + foreach x [pack slaves [lindex [pack info $w] 1]] { For backward-compatibility this uses [lindex _ 1] instead of [dict get _ -in]. pack(n) says this is safe [2]. [1]: http://core.tcl.tk/tklib/artifact/abfb57342332ea62?ln=122 [2]: http://tcl.tk/man/tcl/TkCmd/pack.htm#M23 |