'From Squeak2.6 of 11 October 1999 [latest update: #1559] on 30 December 1999 at 10:30:06 am'! FontSet subclass: #FontSetCream instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Fonts'! !FontSetCream commentStamp: '' prior: 0! This font looks like the original Smalltalk-80 font. I found it on a web page (by Helge Horch) and did a few cosmetic changes (changing the t and the ^). Installing this as the default text style gives your Squeak a nice nostalgic look. -- Stefan Matthias Aust! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! FontSetCream class instanceVariableNames: ''! !FontSetCream class methodsFor: 'installing'! initialize (SelectionMenu confirm: 'Do you want to install ''Cream'' as default font?') ifFalse: [^ self]. FontSetCream installAsTextStyle. TextConstants at: #OldDefaultTextStyle put: TextStyle default. TextConstants at: #DefaultTextStyle put: (TextStyle named: 'Cream'). ListParagraph initialize. PopUpMenu initialize. StandardSystemView initialize. SelectionMenu notify: 'The old text style has been saved as ''OldDefaultTextStyle''.'! ! !FontSetCream class methodsFor: 'fonts'! size12 ^ self size: 12 fromLiteral: '    &(,4:BKMQU]cflntz}  ''.6<DKQW^frx "''07BHOUY[_fgow~ %).4;BIPXajtw{ ")18?GHPX_jtyIMpF@1 2d]P 1L@ !!A@ @ #PA5  @ 4"Ј $@ ?G ''8<< DÏ} @@@ @ SH pO!! "XUXA )a(08:%@yDxH@D0 Sꤒ HQE!!"BH $H  @ @I0 !! P7H*D<hPDH$$ !!I$` %HA)E!!!! " P (( D 83X F6,igɈEHPQ P888"X8QEIJDB!!0 "Ċ(tD!!((D A)9N" `J (( D@HI daC2rDHPQ PEQEQEQ"eQEQE2?JHL  Q!!!!D(DDC((" "E wHBER<#`J / ("D B""DD$DP<<EQ"EQEQEJDPR DiĘA&DD" AE "HDD R" P* *B@D B""DDBH PEQE}"EQEQE*BP"!!!!!!D$|"$HDD#AD |DDO H )B D B""HLHСEQEA"EQEQE?BLR !!"D$@"H$""D0  HD BDEȑ(@D" $E(R"Q$IPUH СEQEQEQ"EQEM0@ DB!!!!DHDDD&A$H" D@ #B  8Ą < BEN@D"La F0b#89L`"%HO<<8"D8M4ϐ <!!!!Ȉcp$x< @ ;  P    # D%   0 ) 8'! ! FontSetCream initialize!