Index: tolbase/lib/toltk/editor.tcl
===================================================================
--- tolbase/lib/toltk/editor.tcl	(revision 20907d9916d11ae17a5b664a39b5a5106edf48cc)
+++ tolbase/lib/toltk/editor.tcl	(revision 0f71b65ad77bacc9ab313ee30d0a88e8b8f4d604)
@@ -578,14 +578,4 @@
   $me add command -label [mc "Select all"] -accelerator CTRL+E \
                   -command [list ::Editor::CmdSelectAll $this]
-  
-  #CVS Utilities
-  #$m add separator
-  #set mc [menu $f.m.cvs -tearoff 0]
-  #$m add cascade -label [mc "CVS Utilities"] -menu $mc
-  #$mc add command -label [mc "TkCVS"] \
-  #                -command [list ::Editor::CmdTkcvs $this 0]
-  #$mc add command -label [mc "TkDiff"] \
-  #                -command [list ::Editor::CmdTkcvs $this  1]
-  
 
   bind $data(txt,ctext) <Button-3>  "tk_popup $m %X %Y"
@@ -1269,33 +1259,4 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::Editor::CmdTkcvs { this mode} {
-#
-# PURPOSE: Execute CVS utilities
-#
-# PARAMETERS:
-#   this -> Instance of editor 
-#   mode -> type of execution (0 -> tkCvs, 1 -> tkdiff)
-#
-#/////////////////////////////////////////////////////////////////////////////
-  global toltk_bin
-  global tkcvs_library
-  
-  variable options
-  upvar \#0 ${this}::data data
-  
-  if {$mode == 0} {
-    set cmd "[file join $toltk_bin wish84.exe] [file join $tkcvs_library tkcvs.tcl]"
-    #exec c:/TclTk/bin/wish84.exe c:/TclTk/bin/tkcvs.tcl -dir $options(lastDir) &
-    exec $cmd -dir $options(lastDir) &
-  } else {
-    set cmd "[file join $toltk_bin wish84.exe] [file join $tkcvs_library tkdiff.tcl]"
-    #exec c:/TclTk/bin/wish84.exe c:/TclTk/bin/tkdiff.tcl $data(nameFile) &
-    exec $cmd $data(nameFile) &
-  }
-
-  
-}
-
-#/////////////////////////////////////////////////////////////////////////////
 # Comandos de edición (deshacer, cortar, copiar, pegar, buscar, remplazar,...)
 #/////////////////////////////////////////////////////////////////////////////