*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 14 Jan 1997 01:25:44 +0100
changeset 1212 e06a0a01a817
parent 1211 06d63d128bde
child 1213 8fac249fed96
*** empty log message ***
XWorkstat.st
XWorkstation.st
--- a/XWorkstat.st	Tue Jan 14 01:18:32 1997 +0100
+++ b/XWorkstat.st	Tue Jan 14 01:25:44 1997 +0100
@@ -5139,18 +5139,20 @@
 
     XFontStruct *f;
 
-    if (ISCONNECTED) {
-	if (__isExternalAddress(aFontId)) {
-	    f = _FontVal(aFontId);
-	    if (f) {
-		BEGIN_INTERRUPTSBLOCKED
-		XFreeFont(myDpy, f);
+    if (! ISCONNECTED) {
+	RETURN ( self );
+    }
+
+    if (__isExternalAddress(aFontId)) {
+	f = _FontVal(aFontId);
+	if (f) {
+	    BEGIN_INTERRUPTSBLOCKED
+	    XFreeFont(myDpy, f);
 #ifdef COUNT_RESOURCES
-		__cnt_font--;
+	    __cnt_font--;
 #endif
-		END_INTERRUPTSBLOCKED
-		RETURN ( self );
-	    }
+	    END_INTERRUPTSBLOCKED
+	    RETURN ( self );
 	}
     }
 %}.
@@ -8368,6 +8370,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.193 1997-01-14 00:18:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.194 1997-01-14 00:25:44 cg Exp $'
 ! !
 XWorkstation initialize!
--- a/XWorkstation.st	Tue Jan 14 01:18:32 1997 +0100
+++ b/XWorkstation.st	Tue Jan 14 01:25:44 1997 +0100
@@ -5139,18 +5139,20 @@
 
     XFontStruct *f;
 
-    if (ISCONNECTED) {
-	if (__isExternalAddress(aFontId)) {
-	    f = _FontVal(aFontId);
-	    if (f) {
-		BEGIN_INTERRUPTSBLOCKED
-		XFreeFont(myDpy, f);
+    if (! ISCONNECTED) {
+	RETURN ( self );
+    }
+
+    if (__isExternalAddress(aFontId)) {
+	f = _FontVal(aFontId);
+	if (f) {
+	    BEGIN_INTERRUPTSBLOCKED
+	    XFreeFont(myDpy, f);
 #ifdef COUNT_RESOURCES
-		__cnt_font--;
+	    __cnt_font--;
 #endif
-		END_INTERRUPTSBLOCKED
-		RETURN ( self );
-	    }
+	    END_INTERRUPTSBLOCKED
+	    RETURN ( self );
 	}
     }
 %}.
@@ -8368,6 +8370,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.193 1997-01-14 00:18:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.194 1997-01-14 00:25:44 cg Exp $'
 ! !
 XWorkstation initialize!