equal
deleted
inserted
replaced
471 ! |
471 ! |
472 |
472 |
473 viewMenu:anIndex |
473 viewMenu:anIndex |
474 "popup menu required for a view identified by its sequence number |
474 "popup menu required for a view identified by its sequence number |
475 " |
475 " |
476 |view menu inst args lbls txt| |
476 |view menu inst args lbls| |
477 |
477 |
478 view := listViews at:anIndex. |
478 view := listViews at:anIndex. |
479 view hasSelection ifFalse:[^ nil]. |
479 view hasSelection ifFalse:[^ nil]. |
480 inst := view selectedInstanceVar. |
480 inst := view selectedInstanceVar. |
481 |
481 |
691 !InspectorPanelView methodsFor:'scrolling-basic'! |
691 !InspectorPanelView methodsFor:'scrolling-basic'! |
692 |
692 |
693 moveContentsLeft:nTimes |
693 moveContentsLeft:nTimes |
694 "move the contents of all views one position left |
694 "move the contents of all views one position left |
695 " |
695 " |
696 |fView stop assoc inspObj pView index| |
696 |fView stop pView index| |
697 |
697 |
698 (nTimes < 1 or:[listViews last isEmpty]) ifTrue:[ |
698 (nTimes < 1 or:[listViews last isEmpty]) ifTrue:[ |
699 ^ self |
699 ^ self |
700 ]. |
700 ]. |
701 |
701 |
727 ! |
727 ! |
728 |
728 |
729 moveContentsRight:nTimes |
729 moveContentsRight:nTimes |
730 "move the contents of all views one position right |
730 "move the contents of all views one position right |
731 " |
731 " |
732 |view assoc size index lView fView| |
732 |size index lView fView| |
733 |
733 |
734 size := leftHistory size. |
734 size := leftHistory size. |
735 |
735 |
736 (nTimes > 0 and:[size ~~ 0]) ifTrue:[ |
736 (nTimes > 0 and:[size ~~ 0]) ifTrue:[ |
737 nTimes > size ifFalse:[index := nTimes] |
737 nTimes > size ifFalse:[index := nTimes] |