Tk Library Source Code

Artifact 4bbea3dd42cd80253df05a0e96c9f864c384a4da:

Attachment "combobox.patch" to ticket [1205536fff] added by stevel 2005-05-20 16:48:07.

---

Index: combobox.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/combobox.tcl,v
retrieving revision 1.31
diff -u -r1.31 combobox.tcl
--- combobox.tcl	3 Sep 2004 04:33:57 -0000	1.31
+++ combobox.tcl	20 May 2005 09:39:17 -0000
@@ -443,7 +443,7 @@
     pack $sw -fill both -expand yes
     $sw setwidget $listb
 
-    ::bind $listb <Return> "ComboBox::_select [list $path] \[%W curselection\]"
+    ::bind $listb <Return> "ComboBox::_select [list $path] \[$listb curselection\]"
     ::bind $listb <Escape>   [list ComboBox::_unmapliste $path]
     ::bind $listb <FocusOut> [list ComboBox::_focus_out $path]
 }