1687 "Modified: / 14-07-2011 / 13:12:04 / Administrator" |
1687 "Modified: / 14-07-2011 / 13:12:04 / Administrator" |
1688 "Modified (comment): / 09-08-2011 / 22:59:13 / cg" |
1688 "Modified (comment): / 09-08-2011 / 22:59:13 / cg" |
1689 ! |
1689 ! |
1690 |
1690 |
1691 openMyWorkspace_new |
1691 openMyWorkspace_new |
1692 |
1692 "open showing tabs for ALL bookmarked workspace files" |
1693 | ws | |
1693 |
1694 |
1694 |workspace| |
1695 ws := self openWith: nil. |
1695 |
1696 ws enqueueDelayedAction:[ |
1696 "/ workspace := self openWith: nil. |
1697 Error handle:[:ex | |
1697 "/ workspace enqueueDelayedAction:[ |
1698 "/ no time to debug that stuff now... |
1698 "/ Error handle:[:ex | |
1699 Dialog information:'Error in bookmark handling: ',ex description |
1699 "/ "/ no time to debug that stuff now... |
1700 ] do:[ |
1700 "/ Dialog information:'Error in bookmark handling: ',ex description |
1701 BookmarkList forWorkspace myWorkspaces do:[:bookmark| |
1701 "/ ] do:[ |
1702 ws switchToBookmarkEntry: bookmark |
1702 "/ BookmarkList forWorkspace myWorkspaces do:[:bookmark| |
1703 ]. |
1703 "/ workspace switchToBookmarkEntry: bookmark |
|
1704 "/ ]. |
|
1705 "/ |
|
1706 "/ |
|
1707 "/ |
|
1708 "/ ]. |
|
1709 "/ workspace selectedWorkspaceIndexHolder value: 1. |
|
1710 "/ ]. |
|
1711 |
|
1712 workspace := self new. |
|
1713 workspace allButOpen. |
|
1714 |
|
1715 Error handle:[:ex | |
|
1716 ex reject. |
|
1717 "/ no time to debug that stuff now... |
|
1718 Dialog information:'Error in bookmark handling: ',ex description |
|
1719 ] do:[ |
|
1720 BookmarkList forWorkspace myWorkspaces do:[:bookmark| |
|
1721 workspace switchToBookmarkEntry: bookmark |
1704 ]. |
1722 ]. |
1705 ws selectedWorkspaceIndexHolder value: 1. |
1723 ]. |
1706 ]. |
1724 workspace selectedWorkspaceIndexHolder value: 1. |
1707 |
1725 workspace openWindow. |
1708 " |
1726 |
1709 WorkspaceApplication openMyWorkspace |
1727 " |
|
1728 WorkspaceApplication openMyWorkspace |
1710 " |
1729 " |
1711 |
1730 |
1712 "Modified: / 21-06-2011 / 08:58:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1731 "Modified: / 21-06-2011 / 08:58:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1713 "Created: / 14-07-2011 / 13:11:32 / Administrator" |
1732 "Created: / 14-07-2011 / 13:11:32 / Administrator" |
1714 "Modified: / 10-08-2011 / 21:31:49 / cg" |
1733 "Modified (format): / 28-09-2011 / 07:51:24 / cg" |
1715 ! |
1734 ! |
1716 |
1735 |
1717 openMyWorkspace_old |
1736 openMyWorkspace_old |
|
1737 "open showing the single file: MyWorkspace.wsp" |
|
1738 |
1718 self openOnFile:'MyWorkspace.wsp' |
1739 self openOnFile:'MyWorkspace.wsp' |
1719 |
1740 |
1720 " |
1741 " |
1721 self openMyWorkspace. |
1742 self openMyWorkspace. |
1722 " |
1743 " |
1723 |
1744 |
1724 "Created: / 21-06-2011 / 08:51:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1745 "Created: / 21-06-2011 / 08:51:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1746 "Modified (comment): / 28-09-2011 / 07:48:07 / cg" |
1725 ! |
1747 ! |
1726 |
1748 |
1727 openOnFile:aFilename |
1749 openOnFile:aFilename |
1728 "launch a new workspace on the contents of some file" |
1750 "launch a new workspace on the contents of some file" |
1729 |
1751 |
2812 switchToBookmarkEntry: bookmark |
2834 switchToBookmarkEntry: bookmark |
2813 | ws file | |
2835 | ws file | |
2814 |
2836 |
2815 ws := self selectedWorkspace scrolledView. |
2837 ws := self selectedWorkspace scrolledView. |
2816 (ws isKindOf: ApplicationSubView) ifTrue:[ |
2838 (ws isKindOf: ApplicationSubView) ifTrue:[ |
2817 (ws application respondsTo:#switchToBookmarkEntry:) |
2839 (ws application respondsTo:#switchToBookmarkEntry:) ifTrue:[ |
2818 ifTrue:[ws application switchToBookmarkEntry: bookmark]. |
2840 ws application switchToBookmarkEntry: bookmark |
2819 ^self. |
2841 ]. |
|
2842 ^ self. |
2820 ]. |
2843 ]. |
2821 |
2844 |
2822 bookmark isFileBookmark ifTrue:[ |
2845 bookmark isFileBookmark ifTrue:[ |
2823 file := bookmark path asFilename. |
2846 file := bookmark path asFilename. |
2824 (ws isTextView not or:[ws contents isEmpty not]) ifTrue:[ |
2847 (ws isTextView not or:[ws contents notEmpty]) ifTrue:[ |
2825 self addWindow: (self createWorkspace) named: file withoutSuffix baseName. |
2848 self addWindow: (self createWorkspace) named: file withoutSuffix baseName. |
2826 ]. |
2849 ]. |
2827 file exists ifFalse:[ |
2850 file exists ifFalse:[ |
2828 Transcript showCR:('Bookmarked workspace file no longer exists: %1' bindWith:file) |
2851 Transcript showCR:('Bookmarked workspace file no longer exists: %1' bindWith:file) |
2829 ] ifTrue:[ |
2852 ] ifTrue:[ |
2830 self loadFile: file. |
2853 self loadFile: file. |
2831 ]. |
2854 ]. |
2832 ^self. |
2855 ^ self. |
2833 ]. |
2856 ]. |
2834 |
2857 |
2835 "Created: / 20-06-2011 / 22:45:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2858 "Created: / 20-06-2011 / 22:45:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2836 "Modified: / 21-06-2011 / 08:18:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2859 "Modified: / 21-06-2011 / 08:18:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2837 "Modified (format): / 05-07-2011 / 15:37:50 / cg" |
2860 "Modified: / 28-09-2011 / 07:44:53 / cg" |
2838 ! |
2861 ! |
2839 |
2862 |
2840 timeIt |
2863 timeIt |
2841 self selectedWorkspacesTextView timeIt |
2864 self selectedWorkspacesTextView timeIt |
2842 ! ! |
2865 ! ! |
3778 ! ! |
3801 ! ! |
3779 |
3802 |
3780 !WorkspaceApplication class methodsFor:'documentation'! |
3803 !WorkspaceApplication class methodsFor:'documentation'! |
3781 |
3804 |
3782 version |
3805 version |
3783 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.213 2011-08-19 12:42:46 vrany Exp $' |
3806 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.214 2011-09-28 05:52:12 cg Exp $' |
3784 ! |
3807 ! |
3785 |
3808 |
3786 version_CVS |
3809 version_CVS |
3787 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.213 2011-08-19 12:42:46 vrany Exp $' |
3810 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.214 2011-09-28 05:52:12 cg Exp $' |
3788 ! |
3811 ! |
3789 |
3812 |
3790 version_SVN |
3813 version_SVN |
3791 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
3814 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
3792 ! ! |
3815 ! ! |