793 OBSOLETE: this is for backward compatibility; |
793 OBSOLETE: this is for backward compatibility; |
794 you can now pass an image or form in the #label:action:in: message." |
794 you can now pass an image or form in the #label:action:in: message." |
795 |
795 |
796 <resource:#obsolete> |
796 <resource:#obsolete> |
797 |
797 |
798 ^ ((self in:aView) form:aForm) action:aBlock |
798 self obsoleteMethodWarning. |
|
799 ^ (self in:aView) label:aForm; action:aBlock. |
799 ! |
800 ! |
800 |
801 |
801 label:aLabel action:aBlock |
802 label:aLabel action:aBlock |
802 "create and return a new Button with text-label, aString |
803 "create and return a new Button with text-label, aString |
803 and pressAction, aBlock." |
804 and pressAction, aBlock." |
1504 offLevel |
1506 offLevel |
1505 <resource: #obsolete> |
1507 <resource: #obsolete> |
1506 "return the level of the button when released. |
1508 "return the level of the button when released. |
1507 Historic leftover; use #passiveLevel." |
1509 Historic leftover; use #passiveLevel." |
1508 |
1510 |
|
1511 self obsoleteMethodWarning. |
1509 ^ offLevel |
1512 ^ offLevel |
1510 ! |
1513 ! |
1511 |
1514 |
1512 offLevel:aNumber |
1515 offLevel:aNumber |
1513 <resource: #obsolete> |
1516 <resource: #obsolete> |
1514 "set the level of the button when released (i.e. how deep). |
1517 "set the level of the button when released (i.e. how deep). |
1515 Historic leftover; use #passiveLevel:." |
1518 Historic leftover; use #passiveLevel:." |
1516 |
1519 |
|
1520 self obsoleteMethodWarning. |
1517 ^ self passiveLevel:aNumber |
1521 ^ self passiveLevel:aNumber |
1518 ! |
1522 ! |
1519 |
1523 |
1520 onLevel |
1524 onLevel |
1521 <resource: #obsolete> |
1525 <resource: #obsolete> |
1522 "return the level of the button when pressed. |
1526 "return the level of the button when pressed. |
1523 Historic leftover; use #activeLevel." |
1527 Historic leftover; use #activeLevel." |
1524 |
1528 |
|
1529 self obsoleteMethodWarning. |
1525 ^ onLevel |
1530 ^ onLevel |
1526 ! |
1531 ! |
1527 |
1532 |
1528 onLevel:aNumber |
1533 onLevel:aNumber |
1529 <resource: #obsolete> |
1534 <resource: #obsolete> |
1530 "set the level of the button when pressed (i.e. how deep). |
1535 "set the level of the button when pressed (i.e. how deep). |
1531 Historic leftover; use #activeLevel:." |
1536 Historic leftover; use #activeLevel:." |
1532 |
1537 |
|
1538 self obsoleteMethodWarning. |
1533 ^ self activeLevel:aNumber |
1539 ^ self activeLevel:aNumber |
1534 ! |
1540 ! |
1535 |
1541 |
1536 passiveLevel |
1542 passiveLevel |
1537 "return the level of the button when released" |
1543 "return the level of the button when released" |