--- a/CodeView.st	Fri Feb 25 11:56:35 2005 +0100
+++ b/CodeView.st	Fri Feb 25 12:57:54 2005 +0100
@@ -305,10 +305,12 @@
     |text|
 
     formatAction notNil ifTrue:[
-	text := self contents.
-	text notNil ifTrue:[
-	    formatAction value:(text asString)
-	]
+        text := self contents.
+        text notNil ifTrue:[
+            self 
+                undoableDo:[ formatAction value:(text asString) ]
+                info:'format'
+        ]
     ]
 
     "Created: / 17.2.1998 / 17:06:18 / cg"
@@ -318,5 +320,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.54 2004-09-27 10:50:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.55 2005-02-25 11:57:54 cg Exp $'
 ! !