XWorkstation.st
changeset 6010 6d7184a6456b
parent 6009 220e00e49540
child 6026 688f086bfe9e
equal deleted inserted replaced
6009:220e00e49540 6010:6d7184a6456b
  6612      X-font name
  6612      X-font name
  6613      1 2     3      4    5     6         7 8      9    10   11   12 13 14       15
  6613      1 2     3      4    5     6         7 8      9    10   11   12 13 14       15
  6614       -brand-family-face-style-moreStyle- -pxlSize-size-resX-resY-??-??-registry-encoding;
  6614       -brand-family-face-style-moreStyle- -pxlSize-size-resX-resY-??-??-registry-encoding;
  6615      evaluate aBlock with these"
  6615      evaluate aBlock with these"
  6616 
  6616 
  6617     |family face style moreStyle pxlSize size
  6617     |family face style moreStyle size
  6618      resX resY registry encoding coding fields|
  6618      resX resY registry encoding coding fields|
  6619 
  6619 
  6620     aFontNameString isNil ifTrue:[^ nil].
  6620     aFontNameString isNil ifTrue:[^ nil].
  6621 
  6621 
  6622     Error handle:[:ex |
  6622     Error handle:[:ex |
  9830 	    } while (bytes_after > 0);
  9830 	    } while (bytes_after > 0);
  9831 
  9831 
  9832 	    if (ok) {
  9832 	    if (ok) {
  9833 		switch (actual_format) {
  9833 		switch (actual_format) {
  9834 		case 32:
  9834 		case 32:
  9835 		    val = __stArrayFromCUIntArray(cp, nread/4);
  9835 		    val = __stArrayFromCUIntArray((unsigned int*)cp, nread/4);
  9836 		    break;
  9836 		    break;
  9837 		case 16:
  9837 		case 16:
  9838 		    val = __stArrayFromCUShortArray(cp, nread/2);
  9838 		    val = __stArrayFromCUShortArray((unsigned short*)cp, nread/2);
  9839 		    break;
  9839 		    break;
  9840 		case 8:
  9840 		case 8:
  9841 		default:
  9841 		default:
  9842 		    if (actual_type == XA_STRING) {
  9842 		    if (actual_type == XA_STRING) {
  9843 			val = __MKSTRING_L(cp, nread);
  9843 			val = __MKSTRING_L(cp, nread);
 12783 ! !
 12783 ! !
 12784 
 12784 
 12785 !XWorkstation class methodsFor:'documentation'!
 12785 !XWorkstation class methodsFor:'documentation'!
 12786 
 12786 
 12787 version
 12787 version
 12788     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.560 2013-02-13 08:41:43 stefan Exp $'
 12788     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.561 2013-02-13 20:57:49 stefan Exp $'
 12789 !
 12789 !
 12790 
 12790 
 12791 version_CVS
 12791 version_CVS
 12792     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.560 2013-02-13 08:41:43 stefan Exp $'
 12792     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.561 2013-02-13 20:57:49 stefan Exp $'
 12793 !
 12793 !
 12794 
 12794 
 12795 version_SVN
 12795 version_SVN
 12796     ^ '§ Id §'
 12796     ^ '§ Id §'
 12797 ! !
 12797 ! !