# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 853201544 -3600
# Node ID e06a0a01a817c252a1a48ef29a419e9e6ef97c90
# Parent  06d63d128bde45b0ec42f05ca92becd764f746c5
*** empty log message ***

diff -r 06d63d128bde -r e06a0a01a817 XWorkstat.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!
diff -r 06d63d128bde -r e06a0a01a817 XWorkstation.st
--- 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!