changeset 491 | 7b376aaa06d5 |
parent 481 | f74c9eff9410 |
child 495 | d993f23ea658 |
490:08e8adfb783c | 491:7b376aaa06d5 |
---|---|
1450 |
1450 |
1451 "Modified: 4.3.1996 / 23:14:53 / cg" |
1451 "Modified: 4.3.1996 / 23:14:53 / cg" |
1452 ! |
1452 ! |
1453 |
1453 |
1454 keyPress:aKey x:x y:y |
1454 keyPress:aKey x:x y:y |
1455 |
|
1456 <resource: #keyboard (#Return #MenuSelect #Escape)> |
|
1457 |
|
1455 |m| |
1458 |m| |
1456 |
1459 |
1457 subMenuShown notNil ifTrue:[ |
1460 subMenuShown notNil ifTrue:[ |
1458 subMenuShown keyPress:aKey x:0 y:0. |
1461 subMenuShown keyPress:aKey x:0 y:0. |
1459 ^ self |
1462 ^ self |
1487 |
1490 |
1488 ^ self |
1491 ^ self |
1489 ]. |
1492 ]. |
1490 super keyPress:aKey x:x y:y |
1493 super keyPress:aKey x:x y:y |
1491 |
1494 |
1492 "Modified: 4.3.1996 / 23:26:21 / cg" |
1495 "Modified: 7.3.1996 / 13:17:25 / cg" |
1493 ! |
1496 ! |
1494 |
1497 |
1495 pointerLeave:state |
1498 pointerLeave:state |
1496 subMenuShown notNil ifTrue:[ |
1499 subMenuShown notNil ifTrue:[ |
1497 ^ self |
1500 ^ self |
2355 ! ! |
2358 ! ! |
2356 |
2359 |
2357 !MenuView class methodsFor:'documentation'! |
2360 !MenuView class methodsFor:'documentation'! |
2358 |
2361 |
2359 version |
2362 version |
2360 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.59 1996-03-06 15:32:01 cg Exp $' |
2363 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.60 1996-03-07 12:57:36 cg Exp $' |
2361 ! ! |
2364 ! ! |