equal
deleted
inserted
replaced
1895 |
1895 |
1896 ^ UserPreferences current focusFollowsMouse ~~ false |
1896 ^ UserPreferences current focusFollowsMouse ~~ false |
1897 and:[(styleSheet at:#'editField.requestFocusOnPointerEnter' default:true) |
1897 and:[(styleSheet at:#'editField.requestFocusOnPointerEnter' default:true) |
1898 and:[self enabled |
1898 and:[self enabled |
1899 and:[self isReadOnly not]]] |
1899 and:[self isReadOnly not]]] |
|
1900 ! ! |
|
1901 |
|
1902 !EditField methodsFor:'help'! |
|
1903 |
|
1904 flyByHelpTextAt:aPoint |
|
1905 |len| |
|
1906 |
|
1907 len := self widthOfContents. |
|
1908 len > width ifTrue:[ |
|
1909 ^ self contents |
|
1910 ]. |
|
1911 ^ nil |
1900 ! ! |
1912 ! ! |
1901 |
1913 |
1902 !EditField methodsFor:'initialization & release'! |
1914 !EditField methodsFor:'initialization & release'! |
1903 |
1915 |
1904 computeTopMargin |
1916 computeTopMargin |
2409 ! ! |
2421 ! ! |
2410 |
2422 |
2411 !EditField class methodsFor:'documentation'! |
2423 !EditField class methodsFor:'documentation'! |
2412 |
2424 |
2413 version |
2425 version |
2414 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.244 2015-01-12 10:30:14 cg Exp $' |
2426 ^ '$Header$' |
2415 ! |
2427 ! |
2416 |
2428 |
2417 version_CVS |
2429 version_CVS |
2418 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.244 2015-01-12 10:30:14 cg Exp $' |
2430 ^ '$Header$' |
2419 ! ! |
2431 ! ! |
2420 |
2432 |