summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authormdejong <mdejong>2001-03-29 11:05:49 (GMT)
committermdejong <mdejong>2001-03-29 11:05:49 (GMT)
commit6181e4e8acc4749738972dd987facd578e1d4ba0 (patch)
tree9d6abc2c93dfebf503b7eb3673381b74c064ed01 /library
parent42bf452631a363ad20faefed4dc926035d2cdceb (diff)
downloadtk-6181e4e8acc4749738972dd987facd578e1d4ba0.zip
tk-6181e4e8acc4749738972dd987facd578e1d4ba0.tar.gz
tk-6181e4e8acc4749738972dd987facd578e1d4ba0.tar.bz2
* library/entry.tcl (tkEntryMouseSelect):
* library/text.tcl (tkTextSelectTo): When the mouse is dragged with the button down, move the insertion cursor to the current mouse position. * tests/event.test: Add a series of tests for event generation. Add tests for selection, check the position of the insertion cursor.
Diffstat (limited to 'library')
-rw-r--r--library/entry.tcl5
-rw-r--r--library/text.tcl12
2 files changed, 7 insertions, 10 deletions
diff --git a/library/entry.tcl b/library/entry.tcl
index b44eaad..a826481 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.13 2000/05/29 01:43:14 hobbs Exp $
+# RCS: @(#) $Id: entry.tcl,v 1.14 2001/03/29 11:05:49 mdejong Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -390,6 +390,9 @@ proc tkEntryMouseSelect {w x} {
$w selection range 0 end
}
}
+ if {$tkPriv(mouseMoved)} {
+ $w icursor $cur
+ }
update idletasks
}
diff --git a/library/text.tcl b/library/text.tcl
index 742f82f..79a49e1 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.13 2000/07/19 23:22:20 ericm Exp $
+# RCS: @(#) $Id: text.tcl,v 1.14 2001/03/29 11:05:49 mdejong Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -581,15 +581,9 @@ proc tkTextSelectTo {w x y {extend 0}} {
}
}
if {$tkPriv(mouseMoved) || [string compare $tkPriv(selectMode) "char"]} {
- if {[string compare $tcl_platform(platform) "unix"] \
- && [$w compare $cur < anchor]} {
- $w mark set insert $first
- } else {
- $w mark set insert $last
- }
- $w tag remove sel 0.0 $first
+ $w tag remove sel 0.0 end
+ $w mark set insert $cur
$w tag add sel $first $last
- $w tag remove sel $last end
update idletasks
}
}