Sorry, I had two versions of this e-mail and sent the earlier edited one. I wrote:
Be aware that the New York fonts do not presently appear in the TextConstants dictionary, so you may want to create one before replacing it with your comic font. On my standard system, the following seems to do most of what you seek:
TextConstants at: #NewYorkPlain put: (TextConstants at: #DefaultTextStyle). TextConstants at: #DefaultTextStyle put: (TextConstants at: #ComicPlain). TextConstants at: #DefaultTextStyle put: (TextConstants at: #NewYorkPlain).
I meant to say:
Be aware that the New York fonts do not have their own entry in the TextConstants dictionary, so you may want to copy them to such an entry before replacing (TextConstants at: #DefaultTextStyle) with the TextStyle for Comic Plain. On my base system 2.3, the following seems to do most of what you wanted:
TextConstants at: #NewYorkPlain put: (TextConstants at: #DefaultTextStyle). TextConstants at: #DefaultTextStyle put: (TextConstants at: #ComicPlain). You can test this out by opening new windows, and paragraph text will be generated in Comic Plain. You can restore the old settings with:
TextConstants at: #DefaultTextStyle put: (TextConstants at: #NewYorkPlain).