13540 message := aMessage. |
13540 message := aMessage. |
13541 sema signal. |
13541 sema signal. |
13542 ! |
13542 ! |
13543 |
13543 |
13544 propertyChange:aView property:aPropertyId state:stateSymbol time:time |
13544 propertyChange:aView property:aPropertyId state:stateSymbol time:time |
13545 "this is a forwarded propretyChange event from XWorkstation" |
13545 "this is a forwarded propertyChange event from XWorkstation" |
13546 |
13546 |
13547 |property propertyValue| |
13547 |property propertyValue| |
13548 |
13548 |
13549 incremental ifFalse:[ |
13549 incremental ifFalse:[ |
13550 "ignore property changes until we are in incremental mode" |
13550 "ignore property changes until we are in incremental mode" |
13551 ^ self. |
13551 ^ self. |
13552 ]. |
13552 ]. |
13553 |
13553 |
13554 property := display getProperty:propertyID from:drawableID delete:true. |
13554 property := display getProperty:propertyID from:drawableID delete:true. |
13555 propertyValue := property value. |
13555 propertyValue := property value. |
13556 |
13556 |
13557 propertyValue size == 0 ifTrue:[ |
13557 propertyValue size == 0 ifTrue:[ |
13558 "property with size 0 signals end of transfer" |
13558 "property with size 0 signals end of transfer" |
13559 done := true. |
13559 done := true. |
13560 ] ifFalse:[ |
13560 ] ifFalse:[ |
13561 buffer isNil ifTrue:[ |
13561 buffer isNil ifTrue:[ |
13562 targetID := property key. |
13562 targetID := property key. |
13563 buffer := propertyValue. |
13563 buffer := propertyValue. |
13564 ] ifFalse:[ |
13564 ] ifFalse:[ |
13565 targetID ~= property key ifTrue:[ |
13565 targetID ~= property key ifTrue:[ |
13566 'XWorkstation(warning): targetID change in incremental select: ' errorPrint. display errorPrintCR. |
13566 'XWorkstation(warning): targetID change in incremental select: ' errorPrint. display errorPrintCR. |
13567 ]. |
13567 ]. |
13568 buffer := buffer, propertyValue. |
13568 buffer := buffer, propertyValue. |
13569 ]. |
13569 ]. |
13570 ]. |
13570 ]. |
|
13571 |
|
13572 "Modified (comment): / 25-01-2018 / 19:01:10 / mawalch" |
13571 ! |
13573 ! |
13572 |
13574 |
13573 selectionClear:aView selection:selectionId time:time |
13575 selectionClear:aView selection:selectionId time:time |
13574 "sent when another X-client has created a selection. |
13576 "sent when another X-client has created a selection. |
13575 This is a very X-specific mechanism." |
13577 This is a very X-specific mechanism." |