Changeset 3634546 in tol for tolbase/lib/notebookdb/notebookdb.tcl

Timestamp:

Dec 10, 2015, 12:53:36 PM (11 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

e87e769

Parents:

00d6ed4

Message:

Se modifica el uso que se hace del paquete trycatch para evitar incompatibilidades con tcl8.6:

+ No se importan los métodos del paquete
+ Se llaman las llamadas a try haciendo uso del namespace: ::trycatach::try

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

File:

• tolbase/lib/notebookdb/notebookdb.tcl (modified) (3 diffs)

tolbase/lib/notebookdb/notebookdb.tcl

@@ -42 +42 @@
 package require markupparser
 
-namespace eval ::notebookdb::notebookdb:: {
-    namespace import -force ::trycatch::*
-}
+#(pgea) Se utilizará trycatch sin importar sus métodos
+#(pgea) para hacer el código compatible con tcl8.6
+# namespace eval ::notebookdb::notebookdb:: {
+#     namespace import -force ::trycatch::*
+# }
 
 #-----------------------------------------------------------------------
@@ -109 +111 @@
             $self.loader alias page $self Loader.Page
 
-            try {
-                try {
+            ::trycatch::try {
+                ::trycatch::try {
                     $self.loader eval [list source $filename]
                 } catch -msg result {
@@ -175 +177 @@
         set fname $options(-dbfile)
 
-        try {
+        ::trycatch::try {
             $self SaveDatabase $fname
         } catch -msg errmsg {