1576 ]. |
1599 ]. |
1577 aRootItemOrNil expand. |
1600 aRootItemOrNil expand. |
1578 |
1601 |
1579 process isNil ifTrue:[ |
1602 process isNil ifTrue:[ |
1580 theProcess := process := |
1603 theProcess := process := |
1581 Process for:[ |update testModeChannel| |
1604 Process |
1582 |
1605 for:[ |
1583 update := false. |
1606 |update testModeChannel| |
1584 testModeChannel := model testModeChannel. |
1607 |
1585 |
1608 update := false. |
1586 [process == theProcess] whileTrue:[ |
1609 testModeChannel := model testModeChannel. |
1587 Delay waitForSeconds:0.5. |
1610 |
1588 |
1611 [process == theProcess] whileTrue:[ |
1589 (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[ |
1612 Delay waitForSeconds:0.5. |
1590 (testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[ |
1613 |
1591 self selectFocusView. |
1614 (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[ |
1592 ]. |
1615 (testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[ |
1593 update ifTrue:[ |
1616 self selectFocusView. |
1594 self updateShownStatus. |
|
1595 ]. |
|
1596 update := update not. |
|
1597 ]. |
|
1598 ]. |
1617 ]. |
1599 |
1618 update ifTrue:[ |
1600 ] priority:8. |
1619 self updateShownStatus. |
1601 theProcess name:'ViewTreeInspector - Follow Focus'. |
1620 ]. |
|
1621 update := update not. |
|
1622 ]. |
|
1623 ]. |
|
1624 ] |
|
1625 priority:(Processor userSchedulingPriority). |
|
1626 theProcess name:'ViewTreeInspector - Focus Follower'. |
1602 theProcess resume. |
1627 theProcess resume. |
1603 ]. |
1628 ]. |
1604 ]. |
1629 ]. |
1605 model rootItem:aRootItemOrNil. |
1630 model rootItem:aRootItemOrNil. |
|
1631 |
|
1632 "Modified: / 25-07-2013 / 12:03:44 / cg" |
1606 ! |
1633 ! |
1607 |
1634 |
1608 updateShownStatus |
1635 updateShownStatus |
1609 |rootItem min max visState listIdx visY0 visY1 height damage| |
1636 |rootItem min max visState listIdx visY0 visY1 height damage| |
1610 |
1637 |
1753 #view inspect class |
1780 #view inspect class |
1754 #group inspect windowGroup |
1781 #group inspect windowGroup |
1755 #model inspect model |
1782 #model inspect model |
1756 #application inspect application |
1783 #application inspect application |
1757 #controller inspect controller |
1784 #controller inspect controller |
|
1785 #process inspect application's process |
1758 " |
1786 " |
1759 |inst| |
1787 |inst| |
1760 |
1788 |
1761 inst := self selectedView. |
1789 inst := self selectedView. |
1762 inst isNil ifTrue:[^ self]. |
1790 inst isNil ifTrue:[^ self]. |
1763 |
1791 |
1764 what == #group ifTrue:[ inst := inst windowGroup ] |
1792 what == #group ifTrue:[ inst := inst windowGroup ] |
1765 ifFalse:[what == #model ifTrue:[ inst := inst model ] |
1793 ifFalse:[what == #model ifTrue:[ inst := inst model ] |
1766 ifFalse:[what == #application ifTrue:[ inst := inst application ] |
1794 ifFalse:[what == #application ifTrue:[ inst := inst application ] |
1767 ifFalse:[what == #controller ifTrue:[ inst := inst controller ]]]]. |
1795 ifFalse:[what == #controller ifTrue:[ inst := inst controller ] |
|
1796 ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ]]]]]. |
1768 |
1797 |
1769 inst notNil ifTrue:[ inst inspect ]. |
1798 inst notNil ifTrue:[ inst inspect ]. |
|
1799 ! |
|
1800 |
|
1801 doOpenProcessMonitor |
|
1802 (ProcessMonitorV2 ? ProcessMonitor) open |
|
1803 |
|
1804 "Created: / 25-07-2013 / 12:34:23 / cg" |
1770 ! |
1805 ! |
1771 |
1806 |
1772 doPickView |
1807 doPickView |
1773 "pick a window's topView" |
1808 "pick a window's topView" |
1774 |
1809 |