equal
deleted
inserted
replaced
5137 |
5137 |
5138 %{ /* NOCONTEXT */ |
5138 %{ /* NOCONTEXT */ |
5139 |
5139 |
5140 XFontStruct *f; |
5140 XFontStruct *f; |
5141 |
5141 |
5142 if (ISCONNECTED) { |
5142 if (! ISCONNECTED) { |
5143 if (__isExternalAddress(aFontId)) { |
5143 RETURN ( self ); |
5144 f = _FontVal(aFontId); |
5144 } |
5145 if (f) { |
5145 |
5146 BEGIN_INTERRUPTSBLOCKED |
5146 if (__isExternalAddress(aFontId)) { |
5147 XFreeFont(myDpy, f); |
5147 f = _FontVal(aFontId); |
|
5148 if (f) { |
|
5149 BEGIN_INTERRUPTSBLOCKED |
|
5150 XFreeFont(myDpy, f); |
5148 #ifdef COUNT_RESOURCES |
5151 #ifdef COUNT_RESOURCES |
5149 __cnt_font--; |
5152 __cnt_font--; |
5150 #endif |
5153 #endif |
5151 END_INTERRUPTSBLOCKED |
5154 END_INTERRUPTSBLOCKED |
5152 RETURN ( self ); |
5155 RETURN ( self ); |
5153 } |
|
5154 } |
5156 } |
5155 } |
5157 } |
5156 %}. |
5158 %}. |
5157 self primitiveFailed |
5159 self primitiveFailed |
5158 ! |
5160 ! |
8366 ! ! |
8368 ! ! |
8367 |
8369 |
8368 !XWorkstation class methodsFor:'documentation'! |
8370 !XWorkstation class methodsFor:'documentation'! |
8369 |
8371 |
8370 version |
8372 version |
8371 ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.193 1997-01-14 00:18:32 cg Exp $' |
8373 ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.194 1997-01-14 00:25:44 cg Exp $' |
8372 ! ! |
8374 ! ! |
8373 XWorkstation initialize! |
8375 XWorkstation initialize! |