equal
deleted
inserted
replaced
2443 jsonString |
2443 jsonString |
2444 ]. |
2444 ]. |
2445 |
2445 |
2446 v := HVScrollableView for:TextView. |
2446 v := HVScrollableView for:TextView. |
2447 v autoHideScrollBars:true. |
2447 v autoHideScrollBars:true. |
2448 v scrolledView onChange:#visibility evaluate:[v scrolledView model isNil ifTrue:[self halt. v scrolledView model: holder]]. |
2448 v scrolledView |
|
2449 onChange:#visibility |
|
2450 evaluate:[ |
|
2451 v scrolledView model isNil ifTrue:[v scrolledView model: holder] |
|
2452 ]. |
2449 ^ self newInspector2Tab |
2453 ^ self newInspector2Tab |
2450 label: 'JSON'; |
2454 label: 'JSON'; |
2451 priority: 15; |
2455 priority: 15; |
2452 view: v |
2456 view: v |
2453 |
2457 |
2779 "the browser will use this as index into the toolbariconlibrary" |
2783 "the browser will use this as index into the toolbariconlibrary" |
2780 |
2784 |
2781 <resource: #programImage> |
2785 <resource: #programImage> |
2782 |
2786 |
2783 ^ #queryClassBrowserIcon |
2787 ^ #queryClassBrowserIcon |
2784 ! ! |
|
2785 |
|
2786 !Rectangle methodsFor:'inspecting'! |
|
2787 |
|
2788 inspectorExtraMenuOperations |
|
2789 "returns a string to be shown in the inspector's list" |
|
2790 |
|
2791 ^ super inspectorExtraMenuOperations |
|
2792 , { |
|
2793 { 'Flash on Screen' . [Display rootView flashRectangle:self] } . |
|
2794 { 'Screenshot Area' . [(Image fromScreen:self) inspect] } |
|
2795 } |
|
2796 ! ! |
2788 ! ! |
2797 |
2789 |
2798 !Rectangle methodsFor:'inspecting'! |
2790 !Rectangle methodsFor:'inspecting'! |
2799 |
2791 |
2800 inspectorValueStringInListFor:anInspector |
2792 inspectorValueStringInListFor:anInspector |