equal
deleted
inserted
replaced
1561 "/ |
1561 "/ |
1562 "/ ST-80 way of doing it |
1562 "/ ST-80 way of doing it |
1563 "/ |
1563 "/ |
1564 model notNil ifTrue:[ |
1564 model notNil ifTrue:[ |
1565 self sendChangeMessage:changeMsg with:self argForChangeMessage. |
1565 self sendChangeMessage:changeMsg with:self argForChangeMessage. |
1566 acceptChannel value:true withoutNotifying:self. |
1566 acceptChannel notNil ifTrue:[ |
|
1567 acceptChannel value:true withoutNotifying:self. |
|
1568 ]. |
1567 ]. |
1569 ]. |
1568 |
1570 |
1569 "/ |
1571 "/ |
1570 "/ ST/X way of doing things |
1572 "/ ST/X way of doing things |
1571 "/ as a historic (and temporary) leftover, |
1573 "/ as a historic (and temporary) leftover, |
7375 (not sending contentsChanged, but textChanged), |
7377 (not sending contentsChanged, but textChanged), |
7376 we do it here despite what is written above, to ensure that scrollers update correctly." |
7378 we do it here despite what is written above, to ensure that scrollers update correctly." |
7377 |
7379 |
7378 self contentsChanged. |
7380 self contentsChanged. |
7379 self modified:true. |
7381 self modified:true. |
|
7382 self changed:#textChanged. |
7380 contentsWasSaved := false |
7383 contentsWasSaved := false |
7381 |
7384 |
7382 "Modified: 14.2.1997 / 16:58:38 / cg" |
7385 "Modified: 14.2.1997 / 16:58:38 / cg" |
7383 ! |
7386 ! |
7384 |
7387 |