--- a/UIObjectView.st	Mon Jan 23 19:12:02 2006 +0100
+++ b/UIObjectView.st	Wed Jan 25 11:42:17 2006 +0100
@@ -1313,8 +1313,8 @@
 !
 
 withSelectionHiddenDo:aBlock
-    "apply block with selection hidden (no handles)
-    "
+    "apply block with selection hidden (no handles)"
+
     |coll|
 
     selectionHiddenLevel == 0 ifTrue:[
@@ -2488,7 +2488,7 @@
 !
 
 resetModification
-    "set modification state to false"
+    "set the modification state to false"
 
 "/    startIdentifier := identifier
 
@@ -2499,7 +2499,7 @@
 !UIObjectView::UndoHistory methodsFor:'activation & deactivation'!
 
 withinTransaction:aType text:aTextOrNil do:aBlock
-    "open a transaction; perform the block; at least close the transaction"
+    "open a transaction; perform the block; finally close the transaction"
 
     (enabled and:[transaction isNil]) ifTrue:[
         transaction := Transaction type:aType text:aTextOrNil.
@@ -2510,7 +2510,8 @@
             identifier := identifier + 1.
             transaction identifier:identifier.
             history addLast:transaction.
-            history size > (self class maxHistorySize) ifTrue:[history removeFirst]
+            history size > (self class maxHistorySize) ifTrue:[history removeFirst].
+            Transcript showCR:aTextOrNil.
         ].
         transaction := nil
 
@@ -2599,13 +2600,13 @@
 !UIObjectView::UndoHistory methodsFor:'testing'!
 
 isEmpty
-    "returns true if undo history is empty"
+    "returns true if the undo history is empty"
 
     ^ history isEmpty
 !
 
 isModified
-    "returns true if history is modified"
+    "returns true if the history is modified"
 
     self isEmpty ifTrue:[
         ^ false
@@ -2618,7 +2619,7 @@
 !
 
 notEmpty
-    "returns true if undo history is not empty"
+    "returns true if the undo history is not empty"
 
     ^ history notEmpty
 ! !
@@ -2636,7 +2637,7 @@
 !
 
 undoLast:nTransactions
-    "undo last n transactions; an open transaction will be closed;
+    "undo the last n transactions; an open transaction will be closed;
      transactions during undo are disabled"
 
     |repeatTimes transaction actions|