# HG changeset patch
# User mawalch
# Date 1516903668 -3600
# Node ID 55f8a8196020133d3bac1931d8baa2dad7469751
# Parent  6e748f9be8b837734a43c369b976d4a01d66ff3d
#DOCUMENTATION by mawalch
class: XWorkstation::SelectionFetcher
comment/format in: #propertyChange:property:state:time:

diff -r 6e748f9be8b8 -r 55f8a8196020 XWorkstation.st
--- a/XWorkstation.st	Thu Jan 25 12:17:16 2018 +0100
+++ b/XWorkstation.st	Thu Jan 25 19:07:48 2018 +0100
@@ -13542,32 +13542,34 @@
 !
 
 propertyChange:aView property:aPropertyId state:stateSymbol time:time
-    "this is a forwarded propretyChange event from XWorkstation"
+    "this is a forwarded propertyChange event from XWorkstation"
 
     |property propertyValue|
 
     incremental ifFalse:[
-	"ignore property changes until we are in incremental mode"
-	^ self.
+        "ignore property changes until we are in incremental mode"
+        ^ self.
     ].
 
     property := display getProperty:propertyID from:drawableID delete:true.
     propertyValue := property value.
 
     propertyValue size == 0 ifTrue:[
-	"property with size 0 signals end of transfer"
-	done := true.
+        "property with size 0 signals end of transfer"
+        done := true.
     ] ifFalse:[
-	buffer isNil ifTrue:[
-	    targetID := property key.
-	    buffer := propertyValue.
-	] ifFalse:[
-	    targetID ~= property key ifTrue:[
-		'XWorkstation(warning): targetID change in incremental select: ' errorPrint. display errorPrintCR.
-	    ].
-	    buffer := buffer, propertyValue.
-	].
-    ].
+        buffer isNil ifTrue:[
+            targetID := property key.
+            buffer := propertyValue.
+        ] ifFalse:[
+            targetID ~= property key ifTrue:[
+                'XWorkstation(warning): targetID change in incremental select: ' errorPrint. display errorPrintCR.
+            ].
+            buffer := buffer, propertyValue.
+        ].
+    ].
+
+    "Modified (comment): / 25-01-2018 / 19:01:10 / mawalch"
 !
 
 selectionClear:aView selection:selectionId time:time