hg/stx-libtool2: comparison Tools__ViewTreeApplication.st

equal deleted inserted replaced

-:6c83d6b487b2
+:c61fe917957a
 ! !
 !ViewTreeInspectorApplication methodsFor:'change & update'!
 selectionChanged
-"called if the selection changed"
 |info view item|
 item := model selectedItem.
 item notNil ifTrue:[ |state|
 ! !
 !ViewTreeInspectorApplication methodsFor:'event processing'!
 processButtonMotionEvent:ev
-"handle a button motion event"
 |click rootView|
 motionAction isNil ifTrue:[^ self].
 (rootView := model rootView) isNil ifTrue:[
 ]
 ].
 !
 processButtonPressEvent:ev
-"handle a buttopn press event"
 |rootView sensor lastRectangle|
 rootView    := model rootView.
 sensor      := model rootView sensor.
 clickedItem := model listOfItems detectItemRespondsToView:(ev view).
 lastRectangle
 ].
 !
 processButtonReleaseEvent:anEvent
-"handle a button release event"
 |rootView rectangle newItems widget origin|
 (rootView := model rootView) isNil ifTrue:[
 clickedItem := motionAction := nil.
 ^ self
 ].
 model value:newItems.
 !
 processEvent:anEvent
-"process an event"
 |button menu|
-anEvent isKeyPressEvent ifTrue:[ ^ self processKeyPressEvent:anEvent ].
+anEvent isKeyPressEvent ifTrue:[ self processKeyPressEvent:anEvent. ^ self  ].
 anEvent isButtonEvent  ifFalse:[ ^ self ].
 button := anEvent button.
 (button == 2 or:[button == #menu]) ifTrue:[
 motionAction isNil ifTrue:[
 anEvent isButtonPressEvent ifTrue:[
 self selectOnClickHolder value ifTrue:[
 menu := self middleButtonMenu value.
 menu notNil ifTrue:[
-menu := MenuPanel menu:(Menu new fromLiteralArrayEncoding:menu)
+menu := MenuPanel
-receiver:self.
+menu:(Menu new fromLiteralArrayEncoding:menu)
+receiver:self.
 menu startUp.
 ]
 ].
 ].
 clickedItem := nil.
 ].
 ^ self
 ].
-anEvent isButtonPressEvent  ifTrue:[ ^ self processButtonPressEvent:anEvent  ].
+anEvent isButtonPressEvent  ifTrue:[ self processButtonPressEvent:anEvent. ^ self ].
-anEvent isButtonMotionEvent ifTrue:[ ^ self processButtonMotionEvent:anEvent ].
+anEvent isButtonMotionEvent ifTrue:[ self processButtonMotionEvent:anEvent. ^ self ].
 anEvent isButtonReleaseEvent ifTrue:[
 self selectOnClickHolder value ifTrue:[
 self processButtonReleaseEvent:anEvent
 ].
 ].
 ].
 !
 processKeyPressEvent:anEvent
-"process an key press event"
 |item prnt idx key max next|
 key := anEvent key.
 key isSymbol ifFalse:[^ self].
 prnt isNil ifTrue:[
 "/ is the root item
 (key == #CursorUp or:[key == #CursorLeft]) ifTrue:[item := model listOfItems last]
 ifFalse:[item := item at:1 ifAbsent:item].
 ^ model selectedItem:item
 ].
 key == #CursorLeft ifTrue:[ ^ model selectedItem:prnt ].
 key == #CursorRight ifTrue:[
 next := item at:1 ifAbsent:nil.
 next notNil ifTrue:[ model selectedItem:next ].
 ^ self
 ].
 max := prnt size.
 key == #CursorUp ifTrue:[
 idx := prnt identityIndexOf:item.
 idx == 1 ifTrue:[idx := max + 1].
 model selectedItem:(prnt at:idx - 1).
 ^ self.
 ].
 key == #CursorDown ifTrue:[
 idx := prnt identityIndexOf:item.
 idx == max ifTrue:[idx := 0].
 model selectedItem:(prnt at:idx + 1).
 ^ self.
 ].
 !
 processMappedView:aView
-"process a mapped event"
 |parent anchor|
 parent := self listOfItems detectItemRespondsToView:aView.
 parent isNil ifTrue:[ ^ self ].
 !ViewTreeInspectorApplication methodsFor:'menu specs'!
 middleButtonMenu
 "returns the middleButton menu for the single selected item or nil"
-^ [ model selectedItem notNil ifTrue:[self class middleButtonMenu]
+^ [
-ifFalse:[nil]
+model selectedItem notNil
+ifTrue:[self class middleButtonMenu]
+ifFalse:[nil]
 ]
 !
 submenuApplications:aMenu
 |applications menu item list addBlock|
 value := nil.
 inst isNil ifTrue:[
 label := nil
 ] ifFalse:[
-inst == view ifTrue:[ label := '== view itself' ]
+inst == view ifTrue:[
-ifFalse:[ label := inst displayString.
+label := '== view itself'
-value := [view controller inspect].
+] ifFalse:[
-].
+label := inst displayString.
+value := [view controller inspect].
+].
 ].
 list add:(MenuDesc title:'controller' value:label action:value).
 inst := view delegate.
 inst notNil ifTrue:[
 list add:(MenuDesc title:'delegate' value:(inst displayString) action:[ view delegate inspect ]).
 ].
 inst := view application.
-inst notNil ifTrue:[ |topAppl|
+inst notNil ifTrue:[
+|topAppl|
 list add:(MenuDesc title:'application' value:inst action:[ view application inspect ]).
 topAppl := inst topApplication.
 (topAppl notNil and:[topAppl ~~ inst]) ifTrue:[
 list add:(MenuDesc title:'visibilityChannel'
 value:(value displayString)
 action:[view visibilityChannel inspect]).
 ].
+^ MenuDesc buildFromList:list onGC:aMenu
-^ MenuDesc buildFromList:list onGC:aMenu
 ! !
 !ViewTreeInspectorApplication methodsFor:'private'!
 selectFocusView
 value notNil ifTrue:[
 array at:2 put:(value printString, ' ')
 ].
-^ MenuItem label:(MultiColListEntry fromStrings:array tabulatorSpecification:aTabSpec)
+^ MenuItem
-value:action
+label:(MultiColListEntry fromStrings:array tabulatorSpecification:aTabSpec)
+value:action
 ! !
 !ViewTreeInspectorApplication::MenuDesc methodsFor:'instance creation'!
 title:aTitle value:aValue action:anAction
 ^ title isNil
 !
 widthOn:aGC
 title isNil ifTrue:[^ 5].  "/ separator
 ^ title widthOn:aGC
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'building'!
 buildViewsFrom:aView

changeset 2758	c61fe917957a
parent 2757	6c83d6b487b2
child 2759	d9a8fc3f0dc7