Index: tolbase/lib/markupviewer/markupviewer.tcl
===================================================================
--- tolbase/lib/markupviewer/markupviewer.tcl	(revision 4721b731b158fb7140e9979c5e50db14ceea63de)
+++ tolbase/lib/markupviewer/markupviewer.tcl	(revision 5c67e4ec68bd5fbb25ecdd066b928e34a7bb3c06)
@@ -17,5 +17,5 @@
 package require renderpane
 
-package require autoscroll
+package require autoscroll 1.1
 
 snit::widget markupviewer {
@@ -81,4 +81,5 @@
 
         # Create the renderpane.
+
         install rp using renderpane $win.rp \
             -yscrollcommand "$win.scroll set" \
@@ -92,8 +93,7 @@
         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,4 +105,5 @@
         grid rowconfigure $win 0 -weight 1
         grid columnconfigure $win 0 -weight 1
+        ::autoscroll::autoscroll $win.scroll
 
         #---------------------------------------------------------------
@@ -120,4 +121,5 @@
 
         # User Menu.
+        # josp: no user menu considered
         if { 0 } {
           menu $rp.user -tearoff no -postcommand [mymethod PostUserMenu]
@@ -149,8 +151,13 @@
     }
 
-    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,4 +348,5 @@
         }
         
+        # josp: don't known what is it for
         if { 0 } {
           $rp searchfor [$self searchtext]
@@ -346,5 +354,6 @@
         # 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