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