#DOCUMENTATION by mawalch
class: XWorkstation::SelectionFetcher
comment/format in: #propertyChange:property:state:time:
--- 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