summaryrefslogtreecommitdiffstats
path: root/Demo/tix
diff options
context:
space:
mode:
authorJack Jansen <jack.jansen@cwi.nl>2001-11-10 23:21:55 (GMT)
committerJack Jansen <jack.jansen@cwi.nl>2001-11-10 23:21:55 (GMT)
commitc252e6304e305c7126d1cd440fa8885f94ed09f2 (patch)
treec6ae2628bda9f7f72e9e1f877fc9a39066a5e740 /Demo/tix
parent92c2ebf1b2972480f01e297a7171ae8a5e18d802 (diff)
downloadcpython-c252e6304e305c7126d1cd440fa8885f94ed09f2.zip
cpython-c252e6304e305c7126d1cd440fa8885f94ed09f2.tar.gz
cpython-c252e6304e305c7126d1cd440fa8885f94ed09f2.tar.bz2
Add the MSL C library to the set of standard libraries
linked against. Most, but not all, of it is included in PythonCore, but extensions may want to use some of the routines not included. Fixes a bug reported by Tom Loredo.
Diffstat (limited to 'Demo/tix')
0 files changed, 0 insertions, 0 deletions
generated by cgit v0.12 at 2024-11-23 18:16:27 (GMT)
3ee76e41c2 Tk is a free and open-source, cross-platform widget toolkit that provides a library of basic elements of GUI widgets for building a graphical user interface (GUI) in many programming languages.
summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-01-06 02:22:24 (GMT)
committerhobbs <hobbs>2000-01-06 02:22:24 (GMT)
commitf56e033eeeeef36def67329d2f3d67f1ef06483b (patch)
treef460bc9e6b6a8136f9c788b897f75dbcfcceca71 /library
parent0bcb96bc6cddb09417aaa0ca4ad48469d0194255 (diff)
downloadtk-f56e033eeeeef36def67329d2f3d67f1ef06483b.zip
tk-f56e033eeeeef36def67329d2f3d67f1ef06483b.tar.gz
tk-f56e033eeeeef36def67329d2f3d67f1ef06483b.tar.bz2
* library/entry.tcl:
* library/focus.tcl: * library/listbox.tcl: * library/scale.tcl: * library/scrlbar.tcl: * library/tearoff.tcl: * library/text.tcl: * library/tkfbox.tcl: * library/xmfbox.tcl: fixed unprotected arg parsing through eval/after [Bug: 3943]
Diffstat (limited to 'library')
-rw-r--r--library/entry.tcl4
-rw-r--r--library/listbox.tcl4
-rw-r--r--library/scale.tcl6
-rw-r--r--library/scrlbar.tcl9
-rw-r--r--library/tearoff.tcl4
-rw-r--r--library/text.tcl4
-rw-r--r--library/tkfbox.tcl8
-rw-r--r--library/xmfbox.tcl5
8 files changed, 23 insertions, 21 deletions
diff --git a/library/entry.tcl b/library/entry.tcl
index 379ef2d..9e51397 100644
--- a/library/entry.tcl
+++ b/library/entry.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk entry widgets and provides
# procedures that help in implementing those bindings.
#
-# RCS: @(#) $Id: entry.tcl,v 1.10 1999/11/30 07:27:01 hobbs Exp $
+# RCS: @(#) $Id: entry.tcl,v 1.11 2000/01/06 02:22:24 hobbs Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -430,7 +430,7 @@ proc tkEntryAutoScan {w} {
$w xview scroll -2 units
tkEntryMouseSelect $w $x
}
- set tkPriv(afterId) [after 50 tkEntryAutoScan $w]
+ set tkPriv(afterId) [after 50 [list tkEntryAutoScan $w]]
}
# tkEntryKeySelect --
diff --git a/library/listbox.tcl b/library/listbox.tcl
index cac83dd..5c95474 100644
--- a/library/listbox.tcl
+++ b/library/listbox.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk listbox widgets
# and provides procedures that help in implementing those bindings.
#
-# RCS: @(#) $Id: listbox.tcl,v 1.8 1999/12/21 23:55:27 hobbs Exp $
+# RCS: @(#) $Id: listbox.tcl,v 1.9 2000/01/06 02:22:24 hobbs Exp $
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1995 Sun Microsystems, Inc.
@@ -347,7 +347,7 @@ proc tkListboxAutoScan {w} {
return
}
tkListboxMotion $w [$w index @$x,$y]
- set tkPriv(afterId) [after 50 tkListboxAutoScan $w]
+ set tkPriv(afterId) [after 50 [list tkListboxAutoScan $w]]
}
# tkListboxUpDown --
diff --git a/library/scale.tcl b/library/scale.tcl
index d1a7f07..4e71ac8 100644
--- a/library/scale.tcl
+++ b/library/scale.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk scale widgets and provides
# procedures that help in implementing the bindings.
#
-# RCS: @(#) $Id: scale.tcl,v 1.5 1999/09/02 17:02:53 hobbs Exp $
+# RCS: @(#) $Id: scale.tcl,v 1.6 2000/01/06 02:22:24 hobbs Exp $
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1995 Sun Microsystems, Inc.
@@ -211,12 +211,12 @@ proc tkScaleIncrement {w dir big repeat} {
if {[string equal $repeat "again"]} {
set tkPriv(afterId) [after [$w cget -repeatinterval] \
- tkScaleIncrement $w $dir $big again]
+ [list tkScaleIncrement $w $dir $big again]]
} elseif {[string equal $repeat "initial"]} {
set delay [$w cget -repeatdelay]
if {$delay > 0} {
set tkPriv(afterId) [after $delay \
- tkScaleIncrement $w $dir $big again]
+ [list tkScaleIncrement $w $dir $big again]]
}
}
}
diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl
index 31c940c..95cacae 100644
--- a/library/scrlbar.tcl
+++ b/library/scrlbar.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk scrollbar widgets.
# It also provides procedures that help in implementing the bindings.
#
-# RCS: @(#) $Id: scrlbar.tcl,v 1.7 1999/10/20 01:02:24 hobbs Exp $
+# RCS: @(#) $Id: scrlbar.tcl,v 1.8 2000/01/06 02:22:24 hobbs Exp $
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -198,11 +198,12 @@ proc tkScrollSelect {w element repeat} {
}
if {[string equal $repeat "again"]} {
set tkPriv(afterId) [after [$w cget -repeatinterval] \
- tkScrollSelect $w $element again]
+ [list tkScrollSelect $w $element again]]
} elseif {[string equal $repeat "initial"]} {
set delay [$w cget -repeatdelay]
if {$delay > 0} {
- set tkPriv(afterId) [after $delay tkScrollSelect $w $element again]
+ set tkPriv(afterId) [after $delay \
+ [list tkScrollSelect $w $element again]]
}
}
}
@@ -258,7 +259,7 @@ proc tkScrollDrag {w x y} {
[expr {[lindex $tkPriv(initValues) 1] + $delta}]
} else {
set delta [expr {round($delta * [lindex $tkPriv(initValues) 0])}]
- eval $w set [lreplace $tkPriv(initValues) 2 3 \
+ eval [list $w] set [lreplace $tkPriv(initValues) 2 3 \
[expr {[lindex $tkPriv(initValues) 2] + $delta}] \
[expr {[lindex $tkPriv(initValues) 3] + $delta}]]
}
diff --git a/library/tearoff.tcl b/library/tearoff.tcl
index c9e3231..7844057 100644
--- a/library/tearoff.tcl
+++ b/library/tearoff.tcl
@@ -2,7 +2,7 @@
#
# This file contains procedures that implement tear-off menus.
#
-# RCS: @(#) $Id: tearoff.tcl,v 1.5 1999/09/02 17:02:53 hobbs Exp $
+# RCS: @(#) $Id: tearoff.tcl,v 1.6 2000/01/06 02:22:24 hobbs Exp $
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -93,7 +93,7 @@ proc tkTearOffMenu {w {x 0} {y 0}} {
set cmd [$w cget -tearoffcommand]
if {[string compare $cmd ""]} {
- uplevel #0 $cmd $w $menu
+ uplevel #0 $cmd [list $w $menu]
}
return $menu
}
diff --git a/library/text.tcl b/library/text.tcl
index f3eb662..5df8bb5 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk text widgets and provides
# procedures that help in implementing the bindings.
#
-# RCS: @(#) $Id: text.tcl,v 1.7 1999/09/02 17:02:53 hobbs Exp $
+# RCS: @(#) $Id: text.tcl,v 1.8 2000/01/06 02:22:24 hobbs Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -634,7 +634,7 @@ proc tkTextAutoScan {w} {
return
}
tkTextSelectTo $w $tkPriv(x) $tkPriv(y)
- set tkPriv(afterId) [after 50 tkTextAutoScan $w]
+ set tkPriv(afterId) [after 50 [list tkTextAutoScan $w]]
}
# tkTextSetCursor
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl