--- 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|

--- a/UIPainterView.st	Mon Jan 23 19:12:02 2006 +0100
+++ b/UIPainterView.st	Wed Jan 25 11:42:17 2006 +0100
@@ -221,8 +221,8 @@
 !
 
 copySelection
-    "copy the selection into the cut&paste-buffer
-    "
+    "copy the selection into the cut & paste-buffer"
+
     |specs coll sel|
 
     sel := treeView selection.
@@ -238,15 +238,15 @@
 !
 
 deleteSelection
-    "delete the selection buffered
-    "
+    "delete the selection buffered"
+
     self deleteSelectionBuffered: true
 !
 
 deleteSelectionBuffered: buffered
     "cut the selection into the cut&paste-buffer
-     and open a transaction
-    "
+     and open a transaction"
+
     |specs coll index oldSelection newSelection treeModel children size nd|
 
     treeView askForSelectionChangeAllowed ifFalse:[^ self].
@@ -295,15 +295,15 @@
 !
 
 deleteTotalSelection
-    "delete the selection
-    "
+    "delete the selection"
+
     self deleteSelectionBuffered: false
 !
 
 getSelectedViewsAndSpecs
     "return an array filed with selected views and corresponding specs.
-     Nil if there is none.
-    "
+     Nil if there is none."
+
     |specs coll sel|
 
     sel := treeView selection.
@@ -317,8 +317,8 @@
 !
 
 pasteBuffer
-    "add the objects in the paste-buffer to the object view
-    "
+    "add the objects in the paste-buffer to the object view"
+
     |sel|
 
     sel := self pasteSpecifications:(self getClipboardObject) keepLayout:false.
@@ -331,8 +331,8 @@
 pasteKeepingPosition
     "add the objects in the paste-buffer to the object view;
      translate the layout as appropriate, to position the component
-     at the same absolute position (relative to topView) as before
-    "
+     at the same absolute position (relative to topView) as before"
+
     |sel|
 
     sel := self
@@ -347,26 +347,24 @@
 !
 
 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout
-    "add the specs to the object view; returns list of pasted components
-    "
+    "add the specs to the object view; returns list of pasted components"
 
     ^ self
-	pasteSpecifications:aSpecificationOrList
-	keepLayout:keepLayout
-	at:nil
+        pasteSpecifications:aSpecificationOrList
+        keepLayout:keepLayout
+        at:nil
 
     "Modified: 11.8.1997 / 01:00:35 / cg"
 !
 
 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout at:aPointOrNil
-    "add the specs to the object view; returns list of pasted components
-    "
+    "add the specs to the object view; returns list of pasted components"
+
     ^ self
-	pasteSpecifications:aSpecificationOrList
-	keepLayout:keepLayout
-	keepPosition:false
-	at:aPointOrNil
-
+        pasteSpecifications:aSpecificationOrList
+        keepLayout:keepLayout
+        keepPosition:false
+        at:aPointOrNil
 !
 
 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNil
@@ -480,9 +478,9 @@
 !
 
 pasteWithLayout
-    "add the objects in the paste-buffer to the object view; don't change the
-     layout
-    "
+    "add the objects in the paste-buffer to the object view; 
+     don't change the layout"
+
     |sel|
 
     sel := self pasteSpecifications:(self getClipboardObject) keepLayout:true.
@@ -1571,12 +1569,11 @@
 !UIPainterView methodsFor:'initialization'!
 
 create
-    "colors on device
-    "
+    "colors on device"
+    
     super create.
-
-    handleColorBlack  := handleColorBlack onDevice:device.
-    handleColorWhite  := handleColorWhite onDevice:device.
+    handleColorBlack := handleColorBlack onDevice:device.
+    handleColorWhite := handleColorWhite onDevice:device.
     handleMasterColor := handleMasterColor onDevice:device.
 !