equal
deleted
inserted
replaced
782 |
782 |
783 form:aForm |
783 form:aForm |
784 "return a new Label showing a form. |
784 "return a new Label showing a form. |
785 OBSOLETE: you should now use #label: for both text and bitmap labels." |
785 OBSOLETE: you should now use #label: for both text and bitmap labels." |
786 |
786 |
787 ^ (self on:Screen current) form:aForm |
787 self obsoleteMethodWarning:'use #label:'. |
|
788 ^ (self onDevice:Screen current) form:aForm |
|
789 |
|
790 "Modified: 16.6.1997 / 11:47:38 / cg" |
788 ! |
791 ! |
789 |
792 |
790 form:aForm in:aView |
793 form:aForm in:aView |
791 "return a new Label showing a form. |
794 "return a new Label showing a form. |
792 OBSOLETE: you should now use #label:in: for both text and bitmap labels." |
795 OBSOLETE: you should now use #label:in: for both text and bitmap labels." |
793 |
796 |
|
797 self obsoleteMethodWarning:'use #label:in:'. |
794 ^ (self in:aView) form:aForm |
798 ^ (self in:aView) form:aForm |
|
799 |
|
800 "Modified: 16.6.1997 / 11:47:57 / cg" |
795 ! ! |
801 ! ! |
796 |
802 |
797 !Label class methodsFor:'defaults'! |
803 !Label class methodsFor:'defaults'! |
798 |
804 |
799 defaultExtent |
805 defaultExtent |
1666 ! ! |
1672 ! ! |
1667 |
1673 |
1668 !Label class methodsFor:'documentation'! |
1674 !Label class methodsFor:'documentation'! |
1669 |
1675 |
1670 version |
1676 version |
1671 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.78 1997-06-06 14:39:03 cg Exp $' |
1677 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.79 1997-06-16 09:48:14 cg Exp $' |
1672 ! ! |
1678 ! ! |