Changeset 5c67e4e in tol for tolbase/lib/markupviewer

Timestamp:

Dec 4, 2011, 12:22:00 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

af9a0af

Parents:

73aa767e

Message:

refs #1347, fixing some bugs after including notebook markup in tolbase

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

File:

• tolbase/lib/markupviewer/markupviewer.tcl (modified) (8 diffs)

tolbase/lib/markupviewer/markupviewer.tcl

@@ -17 +17 @@
 package require renderpane
 
-package require autoscroll
+package require autoscroll 1.1
 
 snit::widget markupviewer {
@@ -81 +81 @@
 
         # Create the renderpane.
+
         install rp using renderpane $win.rp \
             -yscrollcommand "$win.scroll set" \
@@ -92 +93 @@
         scrollbar $win.scroll \
             -command "$win.rp yview"
-        ::autoscroll::autoscroll $win.scroll
 
         # grid them in.
-        
+        # josp: use grid and autoscroll
         if { 0 } {
           pack $win.scroll  -side right -fill y    -expand false
@@ -105 +105 @@
         grid rowconfigure $win 0 -weight 1
         grid columnconfigure $win 0 -weight 1
+        ::autoscroll::autoscroll $win.scroll
 
         #---------------------------------------------------------------
@@ -120 +121 @@
 
         # User Menu.
+        # josp: no user menu considered
         if { 0 } {
           menu $rp.user -tearoff no -postcommand [mymethod PostUserMenu]
@@ -149 +151 @@
     }
 
-    method UsePreferences {} {
-      # Update the display when the preferences change.
-      $self showpage
-    }
+    delegate method UsePreferences to rp
+    # josp: delegate UsePreferences on renderpane
+    if { 0 } {
+      method UsePreferences {} {
+        # Update the display when the preferences change.
+        $self showpage
+      }
+    }
+
     #-------------------------------------------------------------------
     # Public Methods
@@ -341 +348 @@
         }
         
+        # josp: don't known what is it for
         if { 0 } {
           $rp searchfor [$self searchtext]
@@ -346 +354 @@
         # NEXT, give the renderpane the focus so that we don't
         # need to click in it.
-        $self focus -friendly
+
+        #$self focus -friendly
 
         $self setpos $ypos