equal
deleted
inserted
replaced
21 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
21 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
22 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
22 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
23 OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
23 OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
24 SUCH DAMAGE. |
24 SUCH DAMAGE. |
25 " |
25 " |
26 |
|
27 |
|
28 "{ Package: 'stx:libview' }" |
26 "{ Package: 'stx:libview' }" |
|
27 |
|
28 "{ NameSpace: Smalltalk }" |
29 |
29 |
30 FontDescription subclass:#CompoundFont |
30 FontDescription subclass:#CompoundFont |
31 instanceVariableNames:'baseFont characterToFontMapping maxAscent maxDescent maxHeight |
31 instanceVariableNames:'baseFont characterToFontMapping maxAscent maxDescent maxHeight |
32 device' |
32 device' |
33 classVariableNames:'' |
33 classVariableNames:'' |
335 ]. |
335 ]. |
336 ^ maxHeight. |
336 ^ maxHeight. |
337 ! |
337 ! |
338 |
338 |
339 isFixedWidth |
339 isFixedWidth |
340 "return true, if this is a fixed pitch font (i.e. all characters |
340 "return true, if this is a fixed pitch font |
341 are of the same width)" |
341 (i.e. all characters are of the same width)" |
342 |
342 |
343 |w| |
343 |w| |
344 |
344 |
345 baseFont isFixedWidth ifFalse:[^ false]. |
345 baseFont isFixedWidth ifFalse:[^ false]. |
346 w := baseFont width. |
346 w := baseFont width. |
404 ! ! |
404 ! ! |
405 |
405 |
406 !CompoundFont class methodsFor:'documentation'! |
406 !CompoundFont class methodsFor:'documentation'! |
407 |
407 |
408 version |
408 version |
409 ^ '$Header: /cvs/stx/stx/libview/CompoundFont.st,v 1.9 2006-04-18 11:24:51 stefan Exp $' |
409 ^ '$Header$' |
410 ! ! |
410 ! ! |
|
411 |