1315 "Created: / 11-10-2011 / 17:12:01 / cg" |
1315 "Created: / 11-10-2011 / 17:12:01 / cg" |
1316 ! ! |
1316 ! ! |
1317 |
1317 |
1318 !Image methodsFor:'inspecting'! |
1318 !Image methodsFor:'inspecting'! |
1319 |
1319 |
|
1320 inspector2TabImageCreatorClass |
|
1321 <inspector2Tab> |
|
1322 |
|
1323 |name className s ownerClass ownerSelector | |
|
1324 |
|
1325 (name := Icon nameIfKnownIcon:self) isNil ifTrue:[^ nil]. |
|
1326 |
|
1327 s := name readStream. |
|
1328 className := s upToSeparator. |
|
1329 (ownerClass := Smalltalk classNamed: className) isNil ifTrue:[^ nil]. |
|
1330 s skipSeparators. |
|
1331 ownerSelector := s upToSeparator. |
|
1332 ownerSelector = 'class' ifTrue:[ |
|
1333 ownerClass := ownerClass theMetaclass. |
|
1334 ownerSelector := ''. |
|
1335 s skipSeparators. |
|
1336 ]. |
|
1337 ownerSelector := ownerSelector , s upToEnd. |
|
1338 ownerSelector knownAsSymbol ifFalse:[^ nil]. |
|
1339 |
|
1340 ^ Tools::Inspector2Tab |
|
1341 toBrowseClass:ownerClass selector:ownerSelector asSymbol label:'Creator Class' |
|
1342 |
|
1343 " |
|
1344 ToolbarIconLibrary systemBrowserIcon inspect |
|
1345 " |
|
1346 ! ! |
|
1347 |
|
1348 !Image methodsFor:'inspecting'! |
|
1349 |
1320 inspector2Tabs |
1350 inspector2Tabs |
1321 |tabs| |
1351 |tabs| |
1322 |
1352 |
1323 tabs := super inspector2Tabs. |
1353 tabs := super inspector2Tabs. |
1324 tabs := tabs copyWithout:#inspector2TabDisplayObject. |
1354 tabs := tabs copyWithout:#inspector2TabDisplayObject. |
1347 inspectorExtraAttributes |
1377 inspectorExtraAttributes |
1348 |d name| |
1378 |d name| |
1349 |
1379 |
1350 d := super inspectorExtraAttributes. |
1380 d := super inspectorExtraAttributes. |
1351 (name := Icon nameIfKnownIcon:self) notNil ifTrue:[ |
1381 (name := Icon nameIfKnownIcon:self) notNil ifTrue:[ |
1352 d add:'-name' -> [ name ] |
1382 d add:'-origin (comes from)' -> [ name ] |
1353 ]. |
1383 ]. |
1354 ^ d |
1384 ^ d |
|
1385 |
|
1386 " |
|
1387 ToolbarIconLibrary systemBrowserIcon inspect |
|
1388 " |
1355 ! ! |
1389 ! ! |
1356 |
1390 |
1357 !Image methodsFor:'inspecting'! |
1391 !Image methodsFor:'inspecting'! |
1358 |
1392 |
1359 inspectorExtraMenuOperations |
1393 inspectorExtraMenuOperations |
1747 ! ! |
1781 ! ! |
1748 |
1782 |
1749 !Object methodsFor:'inspecting'! |
1783 !Object methodsFor:'inspecting'! |
1750 |
1784 |
1751 inspector2TabClass |
1785 inspector2TabClass |
1752 |makeView| |
|
1753 |
|
1754 <inspector2Tab> |
1786 <inspector2Tab> |
1755 |
1787 |
1756 makeView := [ |
1788 ^ Tools::Inspector2Tab toBrowseClass:self class theNonMetaclass selector:nil label:'Class' |
1757 |spec view browser navigationState cls canvas| |
1789 |
1758 |
1790 "/ |makeView| |
1759 |
1791 "/ |
1760 view isNil ifTrue:[ |
1792 "/ makeView := [ |
1761 "/ spec := #singleClassBrowserSpec. |
1793 "/ |spec view browser navigationState cls canvas| |
1762 spec := #multipleClassBrowserSpec. |
1794 "/ |
1763 |
1795 "/ |
1764 browser := Tools::NewSystemBrowser new |
1796 "/ view isNil ifTrue:[ |
1765 isEmbeddedBrowser:true; |
1797 "/ "/ spec := #singleClassBrowserSpec. |
1766 createBuilder. |
1798 "/ spec := #multipleClassBrowserSpec. |
1767 |
1799 "/ |
1768 navigationState := browser navigationState. |
1800 "/ browser := Tools::NewSystemBrowser new |
1769 navigationState canvasType:spec. |
1801 "/ isEmbeddedBrowser:true; |
1770 browser browserCanvasType:spec. |
1802 "/ createBuilder. |
1771 |
1803 "/ |
1772 canvas := browser browserCanvas value. |
1804 "/ navigationState := browser navigationState. |
1773 canvas builder:(browser builder). |
1805 "/ navigationState canvasType:spec. |
1774 navigationState canvas:canvas. |
1806 "/ browser browserCanvasType:spec. |
1775 "/ browser switchToClassHierarchyView. |
1807 "/ |
1776 "/ browser showInheritedMethods. |
1808 "/ canvas := browser browserCanvas value. |
1777 |
1809 "/ canvas builder:(browser builder). |
1778 cls := self class theNonMetaclass. |
1810 "/ navigationState canvas:canvas. |
1779 browser classListGenerator value:(cls withAllSuperclasses). |
1811 "/ "/ browser switchToClassHierarchyView. |
1780 browser sortByNameAndInheritance value:true. |
1812 "/ "/ browser showInheritedMethods. |
1781 browser |
1813 "/ |
1782 selectClass:cls; |
1814 "/ cls := self class theNonMetaclass. |
1783 selectProtocol: (Tools::BrowserList nameListEntryForALL). |
1815 "/ browser classListGenerator value:(cls withAllSuperclasses). |
1784 view := ApplicationSubView new client: browser spec: spec. |
1816 "/ browser sortByNameAndInheritance value:true. |
1785 navigationState classListApplication addOwnerClasses value:false. |
1817 "/ browser |
1786 ]. |
1818 "/ selectClass:cls; |
1787 view |
1819 "/ selectProtocol: (Tools::BrowserList nameListEntryForALL). |
1788 ]. |
1820 "/ view := ApplicationSubView new client: browser spec: spec. |
1789 |
1821 "/ navigationState classListApplication addOwnerClasses value:false. |
1790 ^ Tools::Inspector2Tab new |
1822 "/ ]. |
1791 priority: 0; |
1823 "/ view |
1792 label:'Class'; |
1824 "/ ]. |
1793 viewHolder: makeView; |
1825 "/ |
1794 yourself |
1826 "/ ^ Tools::Inspector2Tab new |
|
1827 "/ priority: 0; |
|
1828 "/ label:'Class'; |
|
1829 "/ viewHolder: makeView; |
|
1830 "/ yourself |
1795 |
1831 |
1796 "Created: / 03-02-2015 / 11:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1832 "Created: / 03-02-2015 / 11:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1797 ! ! |
1833 ! ! |
1798 |
1834 |
1799 !Object methodsFor:'inspecting'! |
1835 !Object methodsFor:'inspecting'! |