micro(A)v11

[aurel]

TESTING ...

SetFont

This is not directly with strings but is with FONTS
i add for testing

SetFont  fontHeight, fontWidth, fontFlag, fontName

internal code :

Code: (Select All)

case tkSETFONT
        'exec setfont-----------------------------
        'fontHeight, fontWidth , fontFlag : string fontName
        gettok()
            fontHeight = expr()
        gettok()
            fontWidth = expr()
        gettok()
            fontFlag = expr()
        gettok()
            fontName = strExpr()
        'call winFont...
        WindowFont( fontHeight, fontWidth, fontFlag, fontName)