XWorkstation.st
changeset 466 257f4414a176
parent 463 cb4731ced6b5
child 480 07ab9bbaea5f
equal deleted inserted replaced
465:731d2d077883 466:257f4414a176
  4864     }
  4864     }
  4865 %}.
  4865 %}.
  4866     self primitiveFailed
  4866     self primitiveFailed
  4867 !
  4867 !
  4868 
  4868 
  4869 sizesInFamily:aFamilyName face:aFaceName style:aStyleName
  4869 sizesInFamily:aFamilyName face:aFaceName style:aStyleName filtering:filter
  4870     "return a set of all available font sizes in aFamily/aFace/aStyle
  4870     "return a set of all available font sizes in aFamily/aFace/aStyle
  4871      on this display.
  4871      on this display.
  4872      Redefined to handle X's special case of 0-size (which stands for any)"
  4872      Redefined to handle X's special case of 0-size (which stands for any)"
  4873 
  4873 
  4874     |sizes|
  4874     |sizes|
  4875 
  4875 
  4876     sizes := super sizesInFamily:aFamilyName face:aFaceName style:aStyleName.
  4876     sizes := super sizesInFamily:aFamilyName face:aFaceName style:aStyleName filtering:filter.
  4877     (sizes notNil and:[sizes includes:0]) ifTrue:[
  4877     (sizes notNil and:[sizes includes:0]) ifTrue:[
  4878 	"special: in X11R5 and above, size 0 means:
  4878         "special: in X11R5 and above, size 0 means:
  4879 	 there are scaled versions in all sizes available"
  4879          there are scaled versions in all sizes available"
  4880 
  4880 
  4881 	^ #(4 5 6 7 8 9 10 11 12 14 16 18 20 22 24 28 32 48 64)
  4881         ^ #(4 5 6 7 8 9 10 11 12 14 16 18 20 22 24 28 32 48 64)
  4882     ].
  4882     ].
  4883     ^ sizes
  4883     ^ sizes
  4884 
  4884 
  4885     "
  4885     "
  4886      Display sizesInFamily:'courier' face:'bold' style:'roman'
  4886      Display sizesInFamily:'courier' face:'bold' style:'roman'
  4887     "
  4887     "
       
  4888 
       
  4889     "Created: 27.2.1996 / 01:38:15 / cg"
  4888 !
  4890 !
  4889 
  4891 
  4890 widthOf:aString from:index1 to:index2 inFont:aFontId
  4892 widthOf:aString from:index1 to:index2 inFont:aFontId
  4891 
  4893 
  4892 %{  /* NOCONTEXT */
  4894 %{  /* NOCONTEXT */
  7675 ! !
  7677 ! !
  7676 
  7678 
  7677 !XWorkstation class methodsFor:'documentation'!
  7679 !XWorkstation class methodsFor:'documentation'!
  7678 
  7680 
  7679 version
  7681 version
  7680     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.116 1996-02-26 21:46:14 cg Exp $'
  7682     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.117 1996-02-27 01:10:42 cg Exp $'
  7681 ! !
  7683 ! !
  7682 XWorkstation initialize!
  7684 XWorkstation initialize!