ExtendedComboBox.st
changeset 6147 486df069a8cd
parent 6109 03ab498eafa1
child 6154 acbfc5e42e07
equal deleted inserted replaced
6146:86591195fd7d 6147:486df069a8cd
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1998 by eXept Software AG
     2  COPYRIGHT (c) 1998 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  1366     ev isButtonMotionEvent ifTrue:[
  1364     ev isButtonMotionEvent ifTrue:[
  1367         lastPointerView ~~ view ifTrue:[
  1365         lastPointerView ~~ view ifTrue:[
  1368             "/ must generate enter/leave ... (sigh)
  1366             "/ must generate enter/leave ... (sigh)
  1369             lastPointerView notNil ifTrue:[
  1367             lastPointerView notNil ifTrue:[
  1370                 "/ XXX: should be fixed
  1368                 "/ XXX: should be fixed
  1371                 syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.  
  1369                 syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
       
  1370                 syntheticEvent delegatedFrom:self.
  1372                 lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
  1371                 lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
  1373             ].
  1372             ].
  1374             view notNil ifTrue:[
  1373             view notNil ifTrue:[
  1375                 syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
  1374                 syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
       
  1375                 syntheticEvent delegatedFrom:self.
  1376                 view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
  1376                 view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
  1377             ].
  1377             ].
  1378             lastPointerView := view.
  1378             lastPointerView := view.
  1379         ].
  1379         ].
  1380     ].
  1380     ].