equal
deleted
inserted
replaced
327 (ViewSpec |
327 (ViewSpec |
328 name: 'Box2' |
328 name: 'Box2' |
329 component: |
329 component: |
330 (SpecCollection |
330 (SpecCollection |
331 collection: ( |
331 collection: ( |
332 (ViewSpec |
|
333 name: 'Inspector' |
|
334 layout: (LayoutFrame 0 0 26 0 0 1 0 1) |
|
335 postBuildCallback: postBuildInspectorView: |
|
336 viewClassName: 'InspectorView' |
|
337 ) |
|
338 (TabViewSpec |
332 (TabViewSpec |
339 name: 'TabHeader1' |
333 name: 'TabHeader1' |
340 layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0) |
334 layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0) |
341 model: inspectorModeIndexHolder |
335 model: inspectorModeIndexHolder |
342 menu: inspectorModes |
336 menu: inspectorModes |
343 useIndex: true |
337 useIndex: true |
344 translateLabel: true |
338 translateLabel: true |
|
339 ) |
|
340 (ViewSpec |
|
341 name: 'Inspector' |
|
342 layout: (LayoutFrame 0 0 26 0 0 1 0 1) |
|
343 viewClassName: 'InspectorView' |
|
344 postBuildCallback: postBuildInspectorView: |
345 ) |
345 ) |
346 ) |
346 ) |
347 |
347 |
348 ) |
348 ) |
349 ) |
349 ) |
852 |
852 |
853 ^ model hasTargetWidgetChannel |
853 ^ model hasTargetWidgetChannel |
854 ! |
854 ! |
855 |
855 |
856 inspectorMode |
856 inspectorMode |
857 "what is shwn in the inspector: |
857 "what is shown in the inspector: |
858 1->widget |
858 1->widget |
859 2->application" |
859 2->application |
860 |
860 3->WindowGroup |
861 ^ (inspectorModeIndexHolder value == 1) |
861 4->Sensor |
862 ifTrue:[#widget] |
862 5->Model |
863 ifFalse:[#application] |
863 " |
|
864 |
|
865 (inspectorModeIndexHolder value == 1) ifTrue:[ ^#widget]. |
|
866 (inspectorModeIndexHolder value == 2) ifTrue:[ ^#application]. |
|
867 (inspectorModeIndexHolder value == 3) ifTrue:[ ^#group]. |
|
868 (inspectorModeIndexHolder value == 4) ifTrue:[ ^#sensor]. |
|
869 (inspectorModeIndexHolder value == 5) ifTrue:[ ^#model]. |
|
870 ^ #application |
864 |
871 |
865 "Created: / 30-07-2013 / 07:44:59 / cg" |
872 "Created: / 30-07-2013 / 07:44:59 / cg" |
866 ! |
873 ! |
867 |
874 |
868 inspectorModeIndexHolder |
875 inspectorModeIndexHolder |
869 "what is shwn in the inspector: |
876 "what is shown in the inspector: |
870 1->widget |
877 1->Widget |
871 2->application" |
878 2->Application |
|
879 3->WindowGroup |
|
880 4->Sensor |
|
881 5->Model |
|
882 " |
872 |
883 |
873 ^ inspectorModeIndexHolder |
884 ^ inspectorModeIndexHolder |
874 |
885 |
875 "Created: / 30-07-2013 / 07:44:07 / cg" |
886 "Created: / 30-07-2013 / 07:44:07 / cg" |
876 ! |
887 ! |
877 |
888 |
878 inspectorModes |
889 inspectorModes |
879 ^ #('Widget' 'Application') |
890 ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model') |
880 |
891 |
881 "Created: / 30-07-2013 / 09:42:16 / cg" |
892 "Created: / 30-07-2013 / 09:42:16 / cg" |
882 ! |
893 ! |
883 |
894 |
884 listOfItems |
895 listOfItems |
976 |view obj| |
987 |view obj| |
977 |
988 |
978 view := self selectedView. |
989 view := self selectedView. |
979 (view isNil or:[self inspectorMode == #widget]) ifTrue:[ |
990 (view isNil or:[self inspectorMode == #widget]) ifTrue:[ |
980 obj := view. |
991 obj := view. |
|
992 ] ifFalse:[ (self inspectorMode == #group) ifTrue:[ |
|
993 obj := view windowGroup |
|
994 ] ifFalse:[ (self inspectorMode == #sensor) ifTrue:[ |
|
995 obj := view sensor |
|
996 ] ifFalse:[ (self inspectorMode == #model) ifTrue:[ |
|
997 obj := view model |
981 ] ifFalse:[ |
998 ] ifFalse:[ |
982 obj := view application. |
999 obj := view application. |
983 ]. |
1000 ]]]]. |
984 inspectorView inspect:obj. |
1001 inspectorView inspect:obj. |
985 inspectorView headLineLabel:(obj class nameWithoutPrefix) |
1002 inspectorView headLineLabel:(obj class nameWithoutPrefix) |
986 |
1003 |
987 "Created: / 30-07-2013 / 09:21:16 / cg" |
1004 "Created: / 30-07-2013 / 09:21:16 / cg" |
988 ! ! |
1005 ! ! |
1790 |
1807 |
1791 what == #view ifTrue:[ inst := view ] |
1808 what == #view ifTrue:[ inst := view ] |
1792 ifFalse:[what == #model ifTrue:[ inst := view model ] |
1809 ifFalse:[what == #model ifTrue:[ inst := view model ] |
1793 ifFalse:[what == #application ifTrue:[ inst := view application ] |
1810 ifFalse:[what == #application ifTrue:[ inst := view application ] |
1794 ifFalse:[what == #controller ifTrue:[ inst := view controller ] |
1811 ifFalse:[what == #controller ifTrue:[ inst := view controller ] |
|
1812 ifFalse:[what == #sensor ifTrue:[ inst := view sensor ] |
|
1813 ifFalse:[what == #group ifTrue:[ inst := view windowGroup ] |
1795 ifFalse:[ |
1814 ifFalse:[ |
1796 ^ self |
1815 ^ self |
1797 ]]]]. |
1816 ]]]]]]. |
1798 |
1817 |
1799 inst notNil ifTrue:[ |
1818 inst notNil ifTrue:[ |
1800 inst class browserClass openInClass:(inst class) selector:nil |
1819 inst class browserClass openInClass:(inst class) selector:nil |
1801 ]. |
1820 ]. |
|
1821 |
|
1822 "Modified: / 28-08-2013 / 23:57:42 / cg" |
1802 ! |
1823 ! |
1803 |
1824 |
1804 doDestroy |
1825 doDestroy |
1805 "destroy the current selected view" |
1826 "destroy the current selected view" |
1806 |
1827 |
1868 |
1889 |
1869 what == #group ifTrue:[ inst := inst windowGroup ] |
1890 what == #group ifTrue:[ inst := inst windowGroup ] |
1870 ifFalse:[what == #model ifTrue:[ inst := inst model ] |
1891 ifFalse:[what == #model ifTrue:[ inst := inst model ] |
1871 ifFalse:[what == #application ifTrue:[ inst := inst application ] |
1892 ifFalse:[what == #application ifTrue:[ inst := inst application ] |
1872 ifFalse:[what == #controller ifTrue:[ inst := inst controller ] |
1893 ifFalse:[what == #controller ifTrue:[ inst := inst controller ] |
1873 ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ]]]]]. |
1894 ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ] |
|
1895 ifFalse:[what == #sensor ifTrue:[ inst := inst sensor ]]]]]]. |
1874 |
1896 |
1875 inst notNil ifTrue:[ inst inspect ]. |
1897 inst notNil ifTrue:[ inst inspect ]. |
|
1898 |
|
1899 "Modified: / 28-08-2013 / 23:58:27 / cg" |
1876 ! |
1900 ! |
1877 |
1901 |
1878 doOpenProcessMonitor |
1902 doOpenProcessMonitor |
1879 (ProcessMonitorV2 ? ProcessMonitor) open |
1903 (ProcessMonitorV2 ? ProcessMonitor) open |
1880 |
1904 |