WinWorkstation.st
changeset 4013 cd666b168135
parent 4009 19c9c39f286b
child 4014 d31004e61546
equal deleted inserted replaced
4012:956fc93c6381 4013:cd666b168135
  4727 	__UNPROTECT__(newArray);
  4727 	__UNPROTECT__(newArray);
  4728 	__ArrayInstPtr(newArray)->a_element[15] = t; __STORE(newArray, t);
  4728 	__ArrayInstPtr(newArray)->a_element[15] = t; __STORE(newArray, t);
  4729 
  4729 
  4730 	switch (lplf->lfCharSet) {
  4730 	switch (lplf->lfCharSet) {
  4731 	    case ANSI_CHARSET:
  4731 	    case ANSI_CHARSET:
  4732 		s = "8859-1";
  4732 		s = "ms-ansi";
  4733 		break;
  4733 		break;
  4734 	    case DEFAULT_CHARSET:
  4734 	    case DEFAULT_CHARSET:
  4735 		s = "ms-default";
  4735 		s = "ms-default";
  4736 		break;
  4736 		break;
  4737 	    case SYMBOL_CHARSET:
  4737 	    case SYMBOL_CHARSET:
 11265     fdwClipPrecision   = CLIP_DEFAULT_PRECIS;
 11265     fdwClipPrecision   = CLIP_DEFAULT_PRECIS;
 11266     fdwQuality         = DEFAULT_QUALITY;
 11266     fdwQuality         = DEFAULT_QUALITY;
 11267     fdwPitchAndFamily  = FF_DONTCARE;
 11267     fdwPitchAndFamily  = FF_DONTCARE;
 11268 
 11268 
 11269     fdwCharSet   = ANSI_CHARSET;
 11269     fdwCharSet   = ANSI_CHARSET;
 11270     if ((encoding == @symbol('ms-ansi'))
 11270     if ((encoding == @symbol('ms-ansi'))) {
 11271      || (encoding == @symbol('iso8859-1'))) {
       
 11272 	fdwCharSet   = ANSI_CHARSET;
 11271 	fdwCharSet   = ANSI_CHARSET;
 11273     } else if (encoding == @symbol('ms-default')) {   
 11272     } else if (encoding == @symbol('ms-default')) {   
 11274 	fdwCharSet   = DEFAULT_CHARSET;
 11273 	fdwCharSet   = DEFAULT_CHARSET;
 11275     } else if ((encoding == @symbol('ms-symbol'))
 11274     } else if ((encoding == @symbol('ms-symbol'))
 11276 	    || (encoding == @symbol('misc-fontspecific'))) {   
 11275 	    || (encoding == @symbol('misc-fontspecific'))) {   
 11290     } else if (encoding == @symbol('ms-oem')) {   
 11289     } else if (encoding == @symbol('ms-oem')) {   
 11291 	fdwCharSet   = OEM_CHARSET;
 11290 	fdwCharSet   = OEM_CHARSET;
 11292     } else if (encoding == @symbol('ms-johab')) {   
 11291     } else if (encoding == @symbol('ms-johab')) {   
 11293 	fdwCharSet   = JOHAB_CHARSET;
 11292 	fdwCharSet   = JOHAB_CHARSET;
 11294     } else if ((encoding == @symbol('ms-hebrew'))
 11293     } else if ((encoding == @symbol('ms-hebrew'))
 11295 	    || (encoding == @symbol('ms-cp1255'))  
 11294 	    || (encoding == @symbol('ms-cp1255'))) {   
 11296 	    || (encoding == @symbol('iso8859-8'))) {   
       
 11297 	fdwCharSet   = HEBREW_CHARSET;
 11295 	fdwCharSet   = HEBREW_CHARSET;
 11298     } else if ((encoding == @symbol('ms-arabic'))   
 11296     } else if ((encoding == @symbol('ms-arabic'))   
 11299 	    || (encoding == @symbol('ms-cp1256'))) {  
 11297 	    || (encoding == @symbol('ms-cp1256'))) {  
 11300 	fdwCharSet   = ARABIC_CHARSET;
 11298 	fdwCharSet   = ARABIC_CHARSET;
 11301     } else if ((encoding == @symbol('ms-greek'))
 11299     } else if ((encoding == @symbol('ms-greek'))
 11302 	    || (encoding == @symbol('ms-cp1253'))  
 11300 	    || (encoding == @symbol('ms-cp1253'))) {   
 11303 	    || (encoding == @symbol('iso8859-7'))) {   
       
 11304 	fdwCharSet   = GREEK_CHARSET;
 11301 	fdwCharSet   = GREEK_CHARSET;
 11305     } else if ((encoding == @symbol('ms-turkish'))
 11302     } else if ((encoding == @symbol('ms-turkish'))
 11306 	    || (encoding == @symbol('ms-cp1254'))  
 11303 	    || (encoding == @symbol('ms-cp1254'))) {   
 11307 	    || (encoding == @symbol('iso8859-9'))) {   
       
 11308 	fdwCharSet   = TURKISH_CHARSET;
 11304 	fdwCharSet   = TURKISH_CHARSET;
 11309     } else if ((encoding == @symbol('ms-russian')) 
 11305     } else if ((encoding == @symbol('ms-russian')) 
 11310 	    || (encoding == @symbol('ms-cp1251'))) {   
 11306 	    || (encoding == @symbol('ms-cp1251'))) {   
 11311 	fdwCharSet   = RUSSIAN_CHARSET;
 11307 	fdwCharSet   = RUSSIAN_CHARSET;
 11312     } else if ((encoding == @symbol('ms-easteurope'))  
 11308     } else if ((encoding == @symbol('ms-easteurope'))  
 11313 	    || (encoding == @symbol('ms-cp1250'))) {  
 11309 	    || (encoding == @symbol('ms-cp1250'))) {  
 11314 	fdwCharSet   = EASTEUROPE_CHARSET;
 11310 	fdwCharSet   = EASTEUROPE_CHARSET;
 11315     } else if ((encoding == @symbol('ms-baltic'))   
 11311     } else if ((encoding == @symbol('ms-baltic'))   
 11316 	    || (encoding == @symbol('ms-cp1257'))) {  
 11312 	    || (encoding == @symbol('ms-cp1257'))) {  
 11317 	fdwCharSet   = BALTIC_CHARSET;
 11313 	fdwCharSet   = BALTIC_CHARSET;
 11318     } else if ((encoding == @symbol('ms-vietnamese')) 
 11314     } else if ((encoding == @symbol('ms-vietnamese'))) {   
 11319 	    || (encoding == @symbol('iso8859-1'))) {   
       
 11320 	fdwCharSet   = VIETNAMESE_CHARSET;
 11315 	fdwCharSet   = VIETNAMESE_CHARSET;
 11321     } else if ((encoding == @symbol('ms-thai'))
 11316     } else if ((encoding == @symbol('ms-thai'))) {   
 11322 	    || (encoding == @symbol('iso8859-1'))) {   
       
 11323 	fdwCharSet   = THAI_CHARSET;
 11317 	fdwCharSet   = THAI_CHARSET;
 11324     } else if ((encoding == @symbol('ms-mac'))
 11318     } else if ((encoding == @symbol('ms-mac'))) {   
 11325 	    || (encoding == @symbol('iso8859-1'))) {   
       
 11326 	fdwCharSet   = MAC_CHARSET;
 11319 	fdwCharSet   = MAC_CHARSET;
 11327 #ifdef UNICODE_CHARSET
 11320 #ifdef UNICODE_CHARSET
 11328     } else if ((encoding == @symbol('ms-unicode')) || (encoding == @symbol('iso8859-1'))) {   
 11321     } else if ((encoding == @symbol('ms-unicode'))) {   
 11329 	fdwCharSet   = UNICODE_CHARSET;
 11322 	fdwCharSet   = UNICODE_CHARSET;
 11330 #endif
 11323 #endif
 11331     }
 11324     }
 11332 
 11325 
 11333     if ( __isString( family ) ) {
 11326     if ( __isString( family ) ) {
 15765 ! !
 15758 ! !
 15766 
 15759 
 15767 !WinWorkstation class methodsFor:'documentation'!
 15760 !WinWorkstation class methodsFor:'documentation'!
 15768 
 15761 
 15769 version
 15762 version
 15770     ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.251 2004-02-12 00:07:39 cg Exp $'
 15763     ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.252 2004-02-13 08:55:33 cg Exp $'
 15771 ! !
 15764 ! !
 15772 
 15765 
 15773 WinWorkstation initialize!
 15766 WinWorkstation initialize!