equal
deleted
inserted
replaced
2086 That is the width of the string plus some extra, |
2086 That is the width of the string plus some extra, |
2087 but not wider than half of the screen" |
2087 but not wider than half of the screen" |
2088 |
2088 |
2089 |string w h f| |
2089 |string w h f| |
2090 |
2090 |
2091 "/ If I have an explicit preferredExtent .. |
2091 "/ If I have an explicit preferredExtent.. |
2092 |
2092 explicitExtent notNil ifTrue:[ |
|
2093 ^ explicitExtent |
|
2094 ]. |
|
2095 |
|
2096 "/ If I have a cached preferredExtent value.. |
2093 preferredExtent notNil ifTrue:[ |
2097 preferredExtent notNil ifTrue:[ |
2094 ^ preferredExtent |
2098 ^ preferredExtent |
2095 ]. |
2099 ]. |
2096 |
2100 |
2097 string := self contents. |
2101 string := self contents. |
2225 ! ! |
2229 ! ! |
2226 |
2230 |
2227 !EditField class methodsFor:'documentation'! |
2231 !EditField class methodsFor:'documentation'! |
2228 |
2232 |
2229 version |
2233 version |
2230 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.197 2008-09-18 10:10:55 stefan Exp $' |
2234 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.198 2008-10-26 20:14:32 stefan Exp $' |
2231 ! ! |
2235 ! ! |