home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / namefont.st < prev    next >
Encoding:
Text File  |  1995-10-24  |  641 b   |  24 lines
  1.  
  2.  
  3. !AbtBasicView class privateMethods !
  4.  
  5. freeFontStruct: aFontStruct
  6.  
  7.     (aFontStruct isNil 
  8.             or: [aFontStruct = CgDisplay default defaultFontStruct])
  9.         ifFalse: [aFontStruct freeFont]!
  10.  
  11. symbolicallyNamedFontAt: aSymbolicFontName put: aRealFontName
  12.  
  13.     self symbolicallyNamedFonts at: aSymbolicFontName ifPresent: [: oldRealFontName |
  14.         oldRealFontName notNil
  15.             ifTrue:
  16.                 [self namedFonts 
  17.                     abtRenameKey: aSymbolicFontName
  18.                     to: oldRealFontName
  19.                     ifPresent: [: aFontStruct | self freeFontStruct: aFontStruct]
  20.                     ifAbsent: []]].
  21.         
  22.     self symbolicallyNamedFonts at: aSymbolicFontName put: aRealFontName.
  23. ! !
  24.