equal
deleted
inserted
replaced
1304 !PopUpMenu methodsFor:'event handling'! |
1304 !PopUpMenu methodsFor:'event handling'! |
1305 |
1305 |
1306 buttonMotion:state x:x y:y |
1306 buttonMotion:state x:x y:y |
1307 |p superMenu sensor| |
1307 |p superMenu sensor| |
1308 |
1308 |
1309 state == 0 ifTrue:[^ self]. |
1309 "/ state == 0 ifTrue:[^ self]. |
1310 |
1310 |
1311 (sensor := self sensor) isNil ifTrue:[^ self]. |
1311 (sensor := self sensor) isNil ifTrue:[^ self]. |
|
1312 (sensor hasButtonMotionEventFor:self) ifTrue:[^ self]. |
|
1313 |
1312 "any-button ?" |
1314 "any-button ?" |
1313 sensor anyButtonPressed ifFalse:[^ self]. |
1315 "/ sensor anyButtonPressed ifFalse:[^ self]. |
1314 (sensor hasButtonMotionEventFor:self) ifTrue:[^ self]. |
|
1315 |
1316 |
1316 ((x >= 0) |
1317 ((x >= 0) |
1317 and:[x < width |
1318 and:[x < width |
1318 and:[y >= 0 |
1319 and:[y >= 0 |
1319 and:[y < height]]]) ifTrue:[ |
1320 and:[y < height]]]) ifTrue:[ |
1482 !PopUpMenu methodsFor:'initialization'! |
1483 !PopUpMenu methodsFor:'initialization'! |
1483 |
1484 |
1484 initEvents |
1485 initEvents |
1485 super initEvents. |
1486 super initEvents. |
1486 self enableEnterLeaveEvents. |
1487 self enableEnterLeaveEvents. |
1487 "/ self enableMotionEvents. |
1488 self enableMotionEvents. |
1488 |
1489 |
1489 "Modified: 7.3.1996 / 14:17:42 / cg" |
1490 "Modified: 7.3.1996 / 14:17:42 / cg" |
1490 ! |
1491 ! |
1491 |
1492 |
1492 initStyle |
1493 initStyle |
1604 ! ! |
1605 ! ! |
1605 |
1606 |
1606 !PopUpMenu class methodsFor:'documentation'! |
1607 !PopUpMenu class methodsFor:'documentation'! |
1607 |
1608 |
1608 version |
1609 version |
1609 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.100 2008-05-05 12:40:08 cg Exp $' |
1610 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.101 2009-09-15 18:20:09 cg Exp $' |
1610 ! ! |
1611 ! ! |