890 " |
890 " |
891 |
891 |
892 | mimetype | |
892 | mimetype | |
893 |
893 |
894 self isDirectory ifTrue:[ |
894 self isDirectory ifTrue:[ |
895 (Smalltalk at:#'DirectoryContentsBrowser') notNil ifTrue:[ |
895 | tab | |
896 | tab | |
896 |
897 |
897 ^ (tab := Tools::Inspector2Tab new) |
898 ^ (tab := Tools::Inspector2Tab new) |
898 label: 'Contents'; |
899 label: 'Contents'; |
899 priority: 50; |
900 priority: 50; |
900 applicationHolder: [ |
901 application: [ |
901 | browser | |
902 | browser | |
902 |
903 |
903 browser := DirectoryContentsBrowser new. |
904 browser := DirectoryContentsBrowser new. |
904 browser |
905 browser masterApplication:nil. |
905 initializeAspects; |
906 browser aspectFor:#currentFileNameHolder put: (OrderedCollection with:self) asValue. |
906 aspectFor:#currentFileNameHolder put:((OrderedCollection with:self) asValue); |
907 browser viewDirsInContentsBrowser value:true. |
907 updateCurrentFileNameHolderWhenSelectionChanges:false. |
908 browser updateCurrentFileNameHolderWhenSelectionChanges: false. |
908 browser viewDirsInContentsBrowser value:true. |
909 browser enterActionBlock:[:item| |
909 browser enterActionBlock:[:item| |
910 | app | |
910 | app | |
911 app := tab view topView application. |
911 app := tab view topView application. |
912 app notNil ifTrue:[ |
912 app notNil ifTrue:[ |
913 app inspect: item fileName. |
913 app inspect: item fileName. |
914 ]. |
|
915 ]. |
914 ]. |
916 browser. |
915 ]. |
917 ]; |
916 browser |
918 yourself |
917 ]; |
919 ]. |
918 yourself |
920 ]. |
919 ]. |
921 mimetype := self mimeTypeFromName. |
920 mimetype := self mimeTypeFromName. |
922 (mimetype notNil and:[mimetype isTextType or:[ mimetype endsWith: '-source']]) ifTrue:[ |
921 (mimetype notNil and:[mimetype isTextType or:[ mimetype endsWith: '-source']]) ifTrue:[ |
923 ^ Tools::Inspector2Tab new |
922 ^ Tools::Inspector2Tab new |
924 label: 'Contents'; |
923 label: 'Contents'; |
1664 |makeView| |
1663 |makeView| |
1665 |
1664 |
1666 <inspector2Tab> |
1665 <inspector2Tab> |
1667 |
1666 |
1668 makeView := [ |
1667 makeView := [ |
1669 |spec view browser cls canvas| |
1668 |spec view browser navigationState cls canvas| |
1670 |
1669 |
1671 "/ spec := #singleClassBrowserSpec. |
1670 |
1672 spec := #multipleClassBrowserSpec. |
|
1673 |
|
1674 cls := self class theNonMetaclass. |
|
1675 view isNil ifTrue:[ |
1671 view isNil ifTrue:[ |
1676 browser := Tools::NewSystemBrowser new. |
1672 "/ spec := #singleClassBrowserSpec. |
1677 browser isEmbeddedBrowser:true. |
1673 spec := #multipleClassBrowserSpec. |
1678 browser createBuilder. |
1674 |
1679 browser navigationState canvasType:spec. |
1675 browser := Tools::NewSystemBrowser new |
|
1676 isEmbeddedBrowser:true; |
|
1677 createBuilder. |
|
1678 |
|
1679 navigationState := browser navigationState. |
|
1680 navigationState canvasType:spec. |
1680 browser browserCanvasType:spec. |
1681 browser browserCanvasType:spec. |
|
1682 |
1681 canvas := browser browserCanvas value. |
1683 canvas := browser browserCanvas value. |
1682 canvas builder:(browser builder). |
1684 canvas builder:(browser builder). |
1683 browser navigationState canvas:canvas. |
1685 navigationState canvas:canvas. |
1684 "/ browser switchToClassHierarchyView. |
1686 "/ browser switchToClassHierarchyView. |
1685 "/ browser showInheritedMethods. |
1687 "/ browser showInheritedMethods. |
|
1688 |
|
1689 cls := self class theNonMetaclass. |
1686 browser classListGenerator value:(cls withAllSuperclasses). |
1690 browser classListGenerator value:(cls withAllSuperclasses). |
1687 browser sortByNameAndInheritance value:true. |
1691 browser sortByNameAndInheritance value:true. |
1688 browser selectClass: cls. |
1692 browser |
1689 browser selectProtocol: (Tools::BrowserList nameListEntryForALL). |
1693 selectClass:cls; |
|
1694 selectProtocol: (Tools::BrowserList nameListEntryForALL). |
1690 view := ApplicationSubView new client: browser spec: spec. |
1695 view := ApplicationSubView new client: browser spec: spec. |
1691 browser navigationState classListApplication addOwnerClasses value:false. |
1696 navigationState classListApplication addOwnerClasses value:false. |
1692 ]. |
1697 ]. |
1693 view |
1698 view |
1694 ]. |
1699 ]. |
1695 |
1700 |
1696 ^ Tools::Inspector2Tab new |
1701 ^ Tools::Inspector2Tab new |