equal
deleted
inserted
replaced
635 ! |
635 ! |
636 |
636 |
637 openWith:initialText |
637 openWith:initialText |
638 "launch a new workspace with some initial contents" |
638 "launch a new workspace with some initial contents" |
639 |
639 |
|
640 ^ self openWith:initialText selected:false |
|
641 |
|
642 " |
|
643 WorkspaceApplication openWith:'Transcript showCR:''hello world''' |
|
644 " |
|
645 ! |
|
646 |
|
647 openWith:initialText selected:selectedBoolean |
|
648 "launch a new workspace with some initial contents" |
|
649 |
640 |workspace| |
650 |workspace| |
641 |
651 |
642 workspace := self new. |
652 workspace := self new. |
643 workspace open. |
653 workspace open. |
644 workspace selectedWorkspace contents:initialText. |
654 workspace selectedWorkspace contents:initialText selected:selectedBoolean. |
645 ^ workspace |
655 ^ workspace |
646 |
656 |
647 " |
657 " |
648 WorkspaceApplication openWith:'Transcript showCR:''hello world''' |
658 WorkspaceApplication openWith:'Transcript showCR:''hello world''' |
649 " |
659 " |
1590 ! ! |
1600 ! ! |
1591 |
1601 |
1592 !WorkspaceApplication class methodsFor:'documentation'! |
1602 !WorkspaceApplication class methodsFor:'documentation'! |
1593 |
1603 |
1594 version |
1604 version |
1595 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.62 2003-06-16 09:55:59 cg Exp $' |
1605 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.63 2003-08-21 11:28:52 cg Exp $' |
1596 ! ! |
1606 ! ! |