Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision 9bb96e0beb56aecbbfeb43e7752d263c0cca7154)
+++ tolbase/lib/toltk/tolbase.tcl	(revision c00d7f57156a3809dc6f7805552eba649fd2b148)
@@ -97,4 +97,21 @@
 }
 
+proc ::TolConsole::MarkupMenu { w } {
+  set m [ menu $w.m -tearoff 0 ]
+  
+  $m add command -label "[mc Find]..." -accelerator CTRL+F \
+          -command [ list ::BayesText::FindShow $w ]
+  $m add command -label [mc "Copy"] -accelerator CTRL+C \
+          -command [list ::BayesText::Copy $w]
+  $m add command -label [mc "Select all"] -accelerator CTRL+E \
+          -command [list ::BayesText::SelectAll $w]
+  $m add command -label "[mc Font]..." -accelerator CTRL+T \
+          -command [list ::BayesText::FontChange $w]
+
+  bind $w <Button-3> "tk_popup $m %X %Y"
+
+  
+}
+
 #/////////////////////////////////////////////////////////////////////////////
 proc ::TolConsole::Create { w } {
@@ -209,4 +226,6 @@
   set widgets(info,markupviewer) [ markupviewer $w_tabset.mv \
                                        -db $data(notebookdb) -showtitle 0 ]
+
+  MarkupMenu $widgets(info,markupviewer)
 
   set def_font [$w_info cget -font]