2634      yT    "{ Class:SmallInteger }"

  2634      yT    "{ Class:SmallInteger }"

  2635      yC    "{ Class:SmallInteger }"

  2635      yC    "{ Class:SmallInteger }"

  2636      yB    "{ Class:SmallInteger }"

  2636      yB    "{ Class:SmallInteger }"

  2637     |

  2637     |

  2638     rootView := self rootView.

  2638     rootView := self rootView.

  2639     relOrg   := widget originRelativeTo:rootView.

  2641     relOrg   := widget originRelativeTo:rootView.

  2640     relOrg isNil ifTrue:[ ^ self ].    "/ widget destroyed

  2642     relOrg isNil ifTrue:[ ^ self ].    "/ widget destroyed

  2641 

  2643 

  2642     relOrg   := relOrg - (HandleExtent // 2).

  2644     relOrg   := relOrg - (HandleExtent // 2).

  2643     relCrn   := relOrg + widget extent.

  2645     relCrn   := relOrg + widget extent.