equal
deleted
inserted
replaced
687 |
687 |
688 parenthesisSpecification := aDictionary |
688 parenthesisSpecification := aDictionary |
689 ! ! |
689 ! ! |
690 |
690 |
691 !TextView methodsFor:'accessing-contents'! |
691 !TextView methodsFor:'accessing-contents'! |
|
692 |
|
693 contents:newContents selected:selectedBoolean |
|
694 self contents:newContents. |
|
695 selectedBoolean ifTrue:[ |
|
696 list size == 1 ifTrue:[ |
|
697 self selectFromLine:1 col:1 toLine:1 col:(list at:1) size |
|
698 ] ifFalse:[ |
|
699 self selectAll |
|
700 ] |
|
701 ] |
|
702 |
|
703 " |
|
704 |w| |
|
705 |
|
706 w := Workspace new open. |
|
707 w contents:'Hello world' selected:true. |
|
708 " |
|
709 ! |
692 |
710 |
693 fromFile:aFileName |
711 fromFile:aFileName |
694 "take contents from a named file" |
712 "take contents from a named file" |
695 |
713 |
696 |f| |
714 |f| |
3634 ! ! |
3652 ! ! |
3635 |
3653 |
3636 !TextView class methodsFor:'documentation'! |
3654 !TextView class methodsFor:'documentation'! |
3637 |
3655 |
3638 version |
3656 version |
3639 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.206 2003-07-01 12:47:57 cg Exp $' |
3657 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.207 2003-08-21 11:07:21 cg Exp $' |
3640 ! ! |
3658 ! ! |
3641 |
3659 |
3642 TextView initialize! |
3660 TextView initialize! |