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