Changeset 0f71b65 in tol for tolbase/lib/toltk/editor.tcl

Timestamp:

Nov 25, 2016, 9:34:48 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

0bf09a4

Parents:

f738c05

Message:

Refs #1933
Se revisa el archivo init_toltk.tcl y se soluciona el arranque de tolbase desde otro directorio cambiando el 'current directory'.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7357 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/editor.tcl (modified) (2 diffs)

tolbase/lib/toltk/editor.tcl

@@ -578 +578 @@
   $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 +1259 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  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,...)
 #/////////////////////////////////////////////////////////////////////////////