diff -r 109ef8358a55 -r fd6bf76e712a UIPainterView.st
--- 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.
 !