Tk Library Source Code

Artifact dbfdd9673f6fc72dc23f4a05a21d677274f4fca6:

Attachment "swaplist.tcl.patch" to ticket [42622db198] added by anonymous 2015-09-10 06:53:06. (unpublished)

---

172,173c172,173
<     bind $w.list1.list <Double-Button-1> [list ::swaplist::Double %W]
<     bind $w.list2.list <Double-Button-1> [list ::swaplist::Double %W]
---
>     bind $w.list1.list <Double-Button-1> [list ::swaplist::Double $w 1]
>     bind $w.list2.list <Double-Button-1> [list ::swaplist::Double $w 2]
350,356c350,355
< proc ::swaplist::Double {w} {
<     set top [winfo toplevel $w]
<     if {[string match *.list1.* $w]} {
<         $top.lr.right invoke
<     } elseif {[string match *.list2.* $w]} {
<         $top.lr.left invoke
<     }
---
> proc ::swaplist::Double {w side} {
> 	if {$side == 1} {
>         $w.lr.right invoke
> 	} elseif {$side == 2} {
>         $w.lr.left invoke
> 	}