diff --git a/lib/ChangeLog b/lib/ChangeLog
index 0f3b87156b..2a589630ee 100644
--- a/lib/ChangeLog
+++ b/lib/ChangeLog
@@ -1,3 +1,9 @@
+
+2002-07-12  André Pönitz <poenitz@gmx.net>
+	
+	* ui/default.ui: add menu for font changes
+	* symbols: add textt
+
 2002-07-10  Andrew Zabolotny  <zap@cobra.ru>
 
 	* bind/emacs.bind: 
@@ -23,9 +29,6 @@
 2002-07-09  André Pönitz <poenitz@gmx.net>
 	
 	* symbols: use it to define insets, too
-
-2002-07-09  André Pönitz <poenitz@gmx.net>
-	
 	* configure.m4:
 	* symbols: wasy symbols added
 
diff --git a/lib/symbols b/lib/symbols
index daa655ca70..8d724374ea 100644
--- a/lib/symbols
+++ b/lib/symbols
@@ -58,6 +58,7 @@ textit            font        forcetext
 textmd            font        forcetext
 textrm            font        forcetext
 textsl            font        forcetext
+texttt            font        forcetext
 textup            font        forcetext
 
 # old-style font commands
diff --git a/lib/ui/default.ui b/lib/ui/default.ui
index 07d37e3ff8..a47527434b 100644
--- a/lib/ui/default.ui
+++ b/lib/ui/default.ui
@@ -226,9 +226,35 @@ Menuset
 	Item "Array environment|y" "math-insert matrix 2 2"
 	Item "Cases environment|C" "math-insert cases 2"
   Separator
+	Submenu "Font Change|f" "insert_math_font"
 	Item "Math Panel|l" "math-panel"
     End
 
+    Menu "insert_math_font"
+	Item "Math normal font" "math-insert \mathnormal"
+	Separator
+	Item "Math calligraphic family" "math-insert \mathcal"
+	Item "Math fraktur family" "math-insert \mathfrak"
+	Item "Math roman family" "math-insert \mathrm"
+	Item "Math sans serif family" "math-insert \mathsf"
+	Separator
+	Item "Math bold series" "math-insert \mathbf"
+	Separator
+	Item "Text normal font" "math-insert \textnormal"
+	Separator
+	Item "Text roman family" "math-insert \textrm"
+	Item "Text sans serif family" "math-insert \textsf"
+	Item "Text typewriter family" "math-insert \texttt"
+	Separator
+	Item "Text bold series" "math-insert \textbf"
+	Item "Text medium series" "math-insert \textmd"
+	Separator
+	Item "Text italic shape" "math-insert \textit"
+	Item "Text small caps shape" "math-insert \textsc"
+	Item "Text slanted shape" "math-insert \textsl"
+	Item "Text upright shape" "math-insert \textup"
+		End
+
     Menu "insert_floats"
 	FloatInsert
     End