equal
deleted
inserted
replaced
3368 ! |
3368 ! |
3369 |
3369 |
3370 containsPointX:x y:y |
3370 containsPointX:x y:y |
3371 "returns true if point is contained in my layout |
3371 "returns true if point is contained in my layout |
3372 " |
3372 " |
3373 ^ ( (x >= layout left) |
3373 layout isNil ifFalse:[ |
3374 and:[x < layout right |
3374 ^ ( (x >= layout left) |
3375 and:[y > layout top |
3375 and:[x < layout right |
3376 and:[y <= layout bottom]]] |
3376 and:[y > layout top |
3377 ) |
3377 and:[y <= layout bottom]]] |
|
3378 ) |
|
3379 ]. |
|
3380 ^ false |
3378 ! |
3381 ! |
3379 |
3382 |
3380 hasIndication |
3383 hasIndication |
3381 "returns true if on/off indication exists |
3384 "returns true if on/off indication exists |
3382 " |
3385 " |
3587 ! ! |
3590 ! ! |
3588 |
3591 |
3589 !MenuPanel class methodsFor:'documentation'! |
3592 !MenuPanel class methodsFor:'documentation'! |
3590 |
3593 |
3591 version |
3594 version |
3592 ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.26 1997-08-26 15:42:47 ca Exp $' |
3595 ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.27 1997-08-27 14:58:42 ca Exp $' |
3593 ! ! |
3596 ! ! |
3594 MenuPanel initialize! |
3597 MenuPanel initialize! |