FontDescription.st
changeset 6330 4ee4650f09ee
parent 6329 4907031e1432
child 6388 22758be61441
equal deleted inserted replaced
6329:4907031e1432 6330:4ee4650f09ee
  1323     ].
  1323     ].
  1324     style notNil ifTrue:[
  1324     style notNil ifTrue:[
  1325         nm := nm , '-', style.
  1325         nm := nm , '-', style.
  1326     ].
  1326     ].
  1327     size notNil ifTrue:[
  1327     size notNil ifTrue:[
  1328         nm := nm , '-', size printString.
  1328         nm := nm , '-', size printString,'pt'.
  1329     ] ifFalse:[
  1329     ] ifFalse:[
  1330         pixelSize notNil ifTrue:[
  1330         pixelSize notNil ifTrue:[
  1331             nm := nm , '-', pixelSize printString,'px'.
  1331             nm := nm , '-', pixelSize printString,'px'.
  1332         ].
  1332         ].
  1333     ].
  1333     ].
  1695 ! !
  1695 ! !
  1696 
  1696 
  1697 !FontDescription class methodsFor:'documentation'!
  1697 !FontDescription class methodsFor:'documentation'!
  1698 
  1698 
  1699 version
  1699 version
  1700     ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.90 2014-03-17 09:33:05 cg Exp $'
  1700     ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.91 2014-03-17 09:33:20 cg Exp $'
  1701 !
  1701 !
  1702 
  1702 
  1703 version_CVS
  1703 version_CVS
  1704     ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.90 2014-03-17 09:33:05 cg Exp $'
  1704     ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.91 2014-03-17 09:33:20 cg Exp $'
  1705 ! !
  1705 ! !
  1706 
  1706 
  1707 
  1707 
  1708 FontDescription initialize!
  1708 FontDescription initialize!