Revision: 45894
http://brlcad.svn.sourceforge.net/brlcad/?rev=45894&view=rev
Author: brlcad
Date: 2011-08-10 13:45:59 +0000 (Wed, 10 Aug 2011)
Log Message:
-----------
another case where a tk function is curiously being overridden for no apparent
reason. TextInsert was added by gdurf back in 1995 with an empty log message,
so yank it. the current tk version looks similar enough but better.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/mged.tcl
Modified: brlcad/trunk/src/tclscripts/mged/mged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/mged.tcl 2011-08-10 13:37:10 UTC (rev
45893)
+++ brlcad/trunk/src/tclscripts/mged/mged.tcl 2011-08-10 13:45:59 UTC (rev
45894)
@@ -151,21 +151,6 @@
}
}
-proc ::tk::TextInsert {w s} {
- if {$s == ""} {
- return
- }
- catch {
- if {[$w compare sel.first <= insert] && \
- [$w compare sel.last >= insert]} {
- $w tag remove sel sel.first promptEnd
- $w delete sel.first sel.last
- }
- }
- $w insert insert $s
- $w see insert
-}
-
proc get_player_id_t { w } {
global mged_players
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
uberSVN's rich system and user administration capabilities and model
configuration take the hassle out of deploying and managing Subversion and
the tools developers use with it. Learn more about uberSVN and get a free
download at: http://p.sf.net/sfu/wandisco-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
