equal
deleted
inserted
replaced
149 |
149 |
150 "Modified: / 17.6.1998 / 11:25:29 / cg" |
150 "Modified: / 17.6.1998 / 11:25:29 / cg" |
151 ! ! |
151 ! ! |
152 |
152 |
153 !FileBrowser class methodsFor:'aspects'! |
153 !FileBrowser class methodsFor:'aspects'! |
|
154 |
|
155 directoryBookmarks |
|
156 ^ AbstractFileBrowser directoryBookmarks. |
|
157 ! |
154 |
158 |
155 directoryHistory |
159 directoryHistory |
156 |
160 |
157 ^ AbstractFileBrowser directoryHistory. |
161 ^ AbstractFileBrowser directoryHistory. |
158 ! ! |
162 ! ! |
757 (Menu new fromLiteralArrayEncoding:(FileBrowser bookmarksMenuSpec)) startUp |
761 (Menu new fromLiteralArrayEncoding:(FileBrowser bookmarksMenuSpec)) startUp |
758 " |
762 " |
759 |
763 |
760 <resource: #programMenu> |
764 <resource: #programMenu> |
761 |
765 |
762 |m| |
766 |menu bookmarks| |
763 |
767 |
764 m := self baseBookmarksMenuSpec. |
768 menu := self baseBookmarksMenuSpec decodeAsLiteralArray. |
765 m := m decodeAsLiteralArray. |
|
766 |
769 |
767 "/ add the history items ... |
770 "/ add the history items ... |
768 |
771 |
769 DirectoryBookmarks size > 0 ifTrue:[ |
772 bookmarks := self directoryBookmarks. |
770 m addItem:(MenuItem labeled:'-'). |
773 bookmarks size > 0 ifTrue:[ |
771 DirectoryBookmarks do:[:dirName | |
774 menu addItem:(MenuItem labeled:'-'). |
772 m addItem:((MenuItem label:dirName value:#changeDirectoryTo:) |
775 bookmarks do:[:dirName | |
|
776 |pathName| |
|
777 |
|
778 pathName := dirName asFilename pathName. |
|
779 menu addItem:((MenuItem label:pathName value:#changeDirectoryTo:) |
773 argument:dirName; |
780 argument:dirName; |
774 yourself). |
781 yourself). |
775 ]. |
782 ]. |
776 ]. |
783 ]. |
777 ^ m |
784 ^ menu |
778 |
785 |
779 "Modified: / 17.8.1998 / 10:13:05 / cg" |
786 "Modified: / 17.8.1998 / 10:13:05 / cg" |
780 ! |
787 ! |
781 |
788 |
782 directoryMenuSpec |
789 directoryMenuSpec |
1854 and:[OSI::ASN1Parser notNil |
1861 and:[OSI::ASN1Parser notNil |
1855 and:[OSI::ASN1Parser isLoaded]]] |
1862 and:[OSI::ASN1Parser isLoaded]]] |
1856 ! |
1863 ! |
1857 |
1864 |
1858 hasBookmarks |
1865 hasBookmarks |
1859 ^ DirectoryBookmarks size > 0 |
1866 ^ AbstractFileBrowser hasBookmarks |
1860 |
1867 |
1861 "Created: / 14.8.1998 / 19:17:02 / cg" |
1868 "Created: / 14.8.1998 / 19:17:02 / cg" |
1862 "Modified: / 14.8.1998 / 19:17:17 / cg" |
1869 "Modified: / 14.8.1998 / 19:17:17 / cg" |
1863 ! |
1870 ! |
1864 |
1871 |
1865 hasBookmarksToRemove |
1872 hasBookmarksToRemove |
1866 ^ DirectoryBookmarks size > 0 |
1873 |bookmarks| |
1867 and:[ DirectoryBookmarks includes:(currentDirectory pathName) ] |
1874 |
|
1875 bookmarks := self class directoryBookmarks. |
|
1876 ^ bookmarks size > 0 |
|
1877 and:[ bookmarks includes:(currentDirectory pathName) ] |
1868 |
1878 |
1869 "Created: / 14.8.1998 / 19:17:02 / cg" |
1879 "Created: / 14.8.1998 / 19:17:02 / cg" |
1870 "Modified: / 14.8.1998 / 19:17:17 / cg" |
1880 "Modified: / 14.8.1998 / 19:17:17 / cg" |
1871 ! |
1881 ! |
1872 |
1882 |
4457 addBookmark |
4467 addBookmark |
4458 self addBookmark:currentDirectory asFilename pathName |
4468 self addBookmark:currentDirectory asFilename pathName |
4459 ! |
4469 ! |
4460 |
4470 |
4461 addBookmark:path |
4471 addBookmark:path |
4462 |idx| |
4472 AbstractFileBrowser addBookmark:path |
4463 |
|
4464 DirectoryBookmarks isNil ifTrue:[ |
|
4465 DirectoryBookmarks := OrderedCollection new |
|
4466 ]. |
|
4467 idx := DirectoryBookmarks indexOf:path. |
|
4468 idx == 0 ifTrue:[ |
|
4469 DirectoryBookmarks addLast:path. |
|
4470 ]. |
|
4471 ! |
4473 ! |
4472 |
4474 |
4473 copyCommandHistory |
4475 copyCommandHistory |
4474 "copy the command history to the clipBoard" |
4476 "copy the command history to the clipBoard" |
4475 |
4477 |
4609 "Modified: / 14.8.1998 / 14:09:12 / cg" |
4611 "Modified: / 14.8.1998 / 14:09:12 / cg" |
4610 "Created: / 14.8.1998 / 14:14:16 / cg" |
4612 "Created: / 14.8.1998 / 14:14:16 / cg" |
4611 ! |
4613 ! |
4612 |
4614 |
4613 removeBookmark |
4615 removeBookmark |
4614 DirectoryBookmarks isNil ifTrue:[ ^ self]. |
4616 AbstractFileBrowser removeBookmark:(currentDirectory asFilename pathName) |
4615 DirectoryBookmarks remove:(currentDirectory asFilename pathName) ifAbsent:nil. |
|
4616 ! |
4617 ! |
4617 |
4618 |
4618 showAboutSTX |
4619 showAboutSTX |
4619 ToolApplicationModel openAboutSTX |
4620 ToolApplicationModel openAboutSTX |
4620 |
4621 |
7818 ! ! |
7819 ! ! |
7819 |
7820 |
7820 !FileBrowser class methodsFor:'documentation'! |
7821 !FileBrowser class methodsFor:'documentation'! |
7821 |
7822 |
7822 version |
7823 version |
7823 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.525 2003-03-02 20:42:15 stefan Exp $' |
7824 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.526 2003-03-18 11:21:13 cg Exp $' |
7824 ! ! |
7825 ! ! |