Changeset 16cf245 in tol

Timestamp:

Dec 5, 2011, 9:20:03 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

654cb94

Parents:

194f817

Message:

refs #1347, info page should be selected only if there is information to show

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

File:

• tolbase/lib/toltk/tolbase.tcl (modified) (1 diff)

tolbase/lib/toltk/tolbase.tcl

@@ -642 +642 @@
         $widgets(info,text) configure -state disabled
       }
-      ActivateInfoWidget "markup"
-      $data(notebookdb) set "info" \
-          [ MarkupHelper::Preprocess [ lindex $args 0 ] ]
-      $widgets(info,markupviewer) showpage "info"
-      if { $ll == 1 } {
-        $widgets(tabset) select 2
+      if { $ll } {
+        ActivateInfoWidget "markup"
+        $data(notebookdb) set "info" \
+            [ MarkupHelper::Preprocess [ lindex $args 0 ] ]
+        $widgets(info,markupviewer) showpage "info"
       }
     }