equal
deleted
inserted
replaced
1557 self accept |
1557 self accept |
1558 ] |
1558 ] |
1559 ] |
1559 ] |
1560 ! ! |
1560 ! ! |
1561 |
1561 |
|
1562 !UIPainter methodsFor:'active help'! |
|
1563 |
|
1564 showHelp:aHelpText for:view |
|
1565 "display active help texts in my own info area." |
|
1566 |
|
1567 |txt| |
|
1568 |
|
1569 aHelpText isNil ifTrue:[ |
|
1570 txt := nil |
|
1571 ] ifFalse:[ |
|
1572 txt := self class |
|
1573 convertString:(aHelpText asString) |
|
1574 maxLineSize:(transcript width // transcript font width). |
|
1575 ]. |
|
1576 transcript hideCursor. |
|
1577 transcript contents:txt. |
|
1578 ^ true |
|
1579 |
|
1580 "Modified: / 29.10.1997 / 22:33:55 / cg" |
|
1581 ! ! |
|
1582 |
1562 !UIPainter methodsFor:'aspects'! |
1583 !UIPainter methodsFor:'aspects'! |
1563 |
1584 |
1564 canMoveOrAlignSelection |
1585 canMoveOrAlignSelection |
1565 "returns a boolean value holder which is true in case that any selection exists |
1586 "returns a boolean value holder which is true in case that any selection exists |
1566 and all widgets in the selection can change its layout through to a move or |
1587 and all widgets in the selection can change its layout through to a move or |
1816 |
1837 |
1817 show:aText |
1838 show:aText |
1818 transcript hideCursor. |
1839 transcript hideCursor. |
1819 transcript contents:aText. |
1840 transcript contents:aText. |
1820 |
1841 |
1821 ! |
|
1822 |
|
1823 showHelp:aHelpText for:view |
|
1824 "hook to allow an application to display active help |
|
1825 texts in its own info area. |
|
1826 This method may be redefined in a concrete application. |
|
1827 If it returns false, the ActiveHelp manager will popup a |
|
1828 bubble with the help text." |
|
1829 |
|
1830 |txt| |
|
1831 |
|
1832 txt := self class convertString:(aHelpText asString) |
|
1833 maxLineSize:(transcript width // transcript font width). |
|
1834 |
|
1835 transcript hideCursor. |
|
1836 transcript contents:txt. |
|
1837 ^ true |
|
1838 ! ! |
1842 ! ! |
1839 |
1843 |
1840 !UIPainter methodsFor:'private'! |
1844 !UIPainter methodsFor:'private'! |
1841 |
1845 |
1842 hideUIView:aView |
1846 hideUIView:aView |