may be

showLesson: aLesson withTitle: aString
�� �� self window setLabel: aString.
�� �� self sourceTextModel setText: aLesson lesson.
�� �� self isOpenInWindow ifFalse: [ self open ]


but I do not know :(

Stef


Maybe both,
beForSmalltalkCode and beForSmalltalkScripting in
RubScrolledTextMorph should use
self textArea font: StandardFonts codeFont

At the moment, only beForSmalltalkCode sets this font.

Yes I did the same as you, I tried to add

beForSmalltalkScripting
������ self textArea beForSmalltalkScripting.
������ self textArea font: StandardFonts codeFont

But without success. I'm puzzled.
Stef