From 651f406cbaee8309ea80f1205696a355ff31cd2f Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 25 Jul 2005 13:49:50 +0000
Subject: [PATCH] 1. select_all added to the Edit menu; no shortcut for it
 (since the standard    one (Ctr+A) hides the Emacs-like binding "go to
 beginning of line") 2. added a few standard but missing shortcuts (Ctr-N for
 a new document,    Shift+Ctr+S for save as)

---
 helm/matita/matita.glade | 50 ++++++++++++++++++++++++++--------------
 helm/matita/matitaGui.ml |  5 ++++
 2 files changed, 38 insertions(+), 17 deletions(-)

diff --git a/helm/matita/matita.glade b/helm/matita/matita.glade
index a99cb2db1..f29d4d66a 100644
--- a/helm/matita/matita.glade
+++ b/helm/matita/matita.glade
@@ -804,9 +804,10 @@
 			      <property name="visible">True</property>
 			      <property name="label" translatable="yes">_New</property>
 			      <property name="use_underline">True</property>
+			      <accelerator key="n" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image504">
+				<widget class="GtkImage" id="image552">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-new</property>
 				  <property name="icon_size">1</property>
@@ -827,7 +828,7 @@
 			      <accelerator key="o" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image505">
+				<widget class="GtkImage" id="image553">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-open</property>
 				  <property name="icon_size">1</property>
@@ -848,7 +849,7 @@
 			      <accelerator key="s" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image506">
+				<widget class="GtkImage" id="image554">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-save</property>
 				  <property name="icon_size">1</property>
@@ -866,9 +867,10 @@
 			      <property name="visible">True</property>
 			      <property name="label" translatable="yes">Save _As ...</property>
 			      <property name="use_underline">True</property>
+			      <accelerator key="s" modifiers="GDK_CONTROL_MASK | GDK_SHIFT_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image507">
+				<widget class="GtkImage" id="image555">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-save-as</property>
 				  <property name="icon_size">1</property>
@@ -889,7 +891,7 @@
 			      <accelerator key="d" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image508">
+				<widget class="GtkImage" id="image556">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-execute</property>
 				  <property name="icon_size">1</property>
@@ -916,7 +918,7 @@
 			      <accelerator key="q" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image509">
+				<widget class="GtkImage" id="image557">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-quit</property>
 				  <property name="icon_size">1</property>
@@ -951,7 +953,7 @@
 			      <accelerator key="z" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image510">
+				<widget class="GtkImage" id="image558">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-undo</property>
 				  <property name="icon_size">1</property>
@@ -973,7 +975,7 @@
 			      <accelerator key="z" modifiers="GDK_CONTROL_MASK | GDK_SHIFT_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image511">
+				<widget class="GtkImage" id="image559">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-redo</property>
 				  <property name="icon_size">1</property>
@@ -1000,7 +1002,7 @@
 			      <accelerator key="x" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image512">
+				<widget class="GtkImage" id="image560">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-cut</property>
 				  <property name="icon_size">1</property>
@@ -1021,7 +1023,7 @@
 			      <accelerator key="c" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image513">
+				<widget class="GtkImage" id="image561">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-copy</property>
 				  <property name="icon_size">1</property>
@@ -1042,7 +1044,7 @@
 			      <accelerator key="v" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image514">
+				<widget class="GtkImage" id="image562">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-paste</property>
 				  <property name="icon_size">1</property>
@@ -1062,7 +1064,7 @@
 			      <property name="use_underline">True</property>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image515">
+				<widget class="GtkImage" id="image563">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-delete</property>
 				  <property name="icon_size">1</property>
@@ -1081,6 +1083,20 @@
 			    </widget>
 			  </child>
 
+			  <child>
+			    <widget class="GtkMenuItem" id="selectAllMenuItem">
+			      <property name="visible">True</property>
+			      <property name="label" translatable="yes">Select _All</property>
+			      <property name="use_underline">True</property>
+			    </widget>
+			  </child>
+
+			  <child>
+			    <widget class="GtkSeparatorMenuItem" id="separator7">
+			      <property name="visible">True</property>
+			    </widget>
+			  </child>
+
 			  <child>
 			    <widget class="GtkImageMenuItem" id="findReplMenuItem">
 			      <property name="visible">True</property>
@@ -1089,7 +1105,7 @@
 			      <accelerator key="f" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image516">
+				<widget class="GtkImage" id="image564">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-find-and-replace</property>
 				  <property name="icon_size">1</property>
@@ -1165,7 +1181,7 @@
 			      <accelerator key="plus" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image517">
+				<widget class="GtkImage" id="image565">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-zoom-in</property>
 				  <property name="icon_size">1</property>
@@ -1187,7 +1203,7 @@
 			      <accelerator key="minus" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image518">
+				<widget class="GtkImage" id="image566">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-zoom-out</property>
 				  <property name="icon_size">1</property>
@@ -1208,7 +1224,7 @@
 			      <accelerator key="equal" modifiers="GDK_CONTROL_MASK" signal="activate"/>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image519">
+				<widget class="GtkImage" id="image567">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-zoom-100</property>
 				  <property name="icon_size">1</property>
@@ -1260,7 +1276,7 @@
 			      <property name="use_underline">True</property>
 
 			      <child internal-child="image">
-				<widget class="GtkImage" id="image520">
+				<widget class="GtkImage" id="image568">
 				  <property name="visible">True</property>
 				  <property name="stock">gtk-about</property>
 				  <property name="icon_size">1</property>
diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index 7eaf239e1..216dc9d5b 100644
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -353,6 +353,11 @@ class gui () =
           (MatitaScript.instance ())#clean_dirty_lock));
       ignore(self#main#deleteMenuItem#connect#activate
         ~callback:(fun () -> ignore (source_view#buffer#delete_selection ())));
+      ignore(self#main#selectAllMenuItem#connect#activate
+        ~callback:(fun () ->
+          source_buffer#move_mark `INSERT (source_buffer#get_iter `START);
+          source_buffer#move_mark `SEL_BOUND (source_buffer#get_iter `END)
+          ));
       ignore(self#main#findReplMenuItem#connect#activate
         ~callback:show_find_Repl);
       ignore (findRepl#findEntry#connect#activate ~callback:find_forward);
-- 
2.39.2