equal
deleted
inserted
replaced
1716 If there is no listMessage, try aspect for backward compatibility." |
1716 If there is no listMessage, try aspect for backward compatibility." |
1717 |
1717 |
1718 |text msg| |
1718 |text msg| |
1719 |
1719 |
1720 model notNil ifTrue:[ |
1720 model notNil ifTrue:[ |
1721 msg := listMsg. |
1721 msg := listMsg. |
1722 msg isNil ifTrue:[ |
1722 msg isNil ifTrue:[ |
1723 msg := aspectMsg |
1723 msg := aspectMsg |
1724 ]. |
1724 ]. |
1725 |
1725 |
1726 |
1726 |
1727 msg notNil ifTrue:[ |
1727 msg notNil ifTrue:[ |
1728 text := model perform:msg. |
1728 text := model perform:msg. |
1729 text notNil ifTrue:[ |
1729 text notNil ifTrue:[ |
1730 text := text asStringCollection. |
1730 text := text asStringCollection. |
1731 ]. |
1731 ]. |
1732 text ~~ list ifTrue:[ |
1732 "/ SV: this does not work, if model uses (i.e. updates) the same stringCollection |
1733 self list:text |
1733 "/ as the view!! |
1734 ]. |
1734 "/ text ~= list ifTrue:[ |
1735 ]. |
1735 self list:text |
|
1736 "/ ]. |
|
1737 ]. |
1736 ]. |
1738 ]. |
1737 |
1739 |
1738 "Modified: 26.4.1996 / 14:09:42 / cg" |
1740 "Modified: 26.4.1996 / 14:09:42 / cg" |
1739 "Modified: 15.8.1996 / 13:06:02 / stefan" |
1741 "Modified: 19.2.1997 / 12:08:50 / stefan" |
1740 ! |
1742 ! |
1741 |
1743 |
1742 lineOfCharacterPosition:charPos |
1744 lineOfCharacterPosition:charPos |
1743 "given a character index within the contents-string, |
1745 "given a character index within the contents-string, |
1744 return the lineNumber where the character is |
1746 return the lineNumber where the character is |
3509 ! ! |
3511 ! ! |
3510 |
3512 |
3511 !ListView class methodsFor:'documentation'! |
3513 !ListView class methodsFor:'documentation'! |
3512 |
3514 |
3513 version |
3515 version |
3514 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.123 1997-02-08 14:24:59 cg Exp $' |
3516 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.124 1997-02-19 12:12:13 stefan Exp $' |
3515 ! ! |
3517 ! ! |