Changeset c00d7f5 in tol

Timestamp:

Jan 20, 2012, 10:40:45 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

3a334fd

Parents:

7f06c56

Message:

refs #1396, recuperamos algunas opciones de menu contextual, el cambio de fuente solo se aplica al estilo normal, hay que revisar todavía el cambio de fuente

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

File:

• tolbase/lib/toltk/tolbase.tcl (modified) (2 diffs)

tolbase/lib/toltk/tolbase.tcl

@@ -97 +97 @@
 }
 
+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 +226 @@
   set widgets(info,markupviewer) [ markupviewer $w_tabset.mv \
                                        -db $data(notebookdb) -showtitle 0 ]
+
+  MarkupMenu $widgets(info,markupviewer)
 
   set def_font [$w_info cget -font]