--- a/WinWorkstation.st	Sun Jan 19 20:04:44 2020 +0100
+++ b/WinWorkstation.st	Mon Jan 20 16:28:47 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 COPYRIGHT (c) 1996 by Claus Gittinger
 	      All Rights Reserved
@@ -2150,7 +2152,7 @@
 		    }
 		    goto again;
 		}
-		/* fail evtl. später ändern und in st verzögert aufrufen
+		/* fail evtl. später ändern und in st verzögert aufrufen
 		*/
 		console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed.\n",(char*)ev->ev_arg1);
 	    }
@@ -8103,9 +8105,16 @@
     "return the height in pixels of any caption (title-bar) in
      standard topWindows."
 
-    ^ self getSystemMetrics:#SM_CYCAPTION
+    "
+        Display captionHeight     
+    "
+
+    ^ (self getSystemMetrics:#SM_CYCAPTION)
+    + ((self getSystemMetrics:#SM_CYFRAME) ? 0)  
+    + ((self getSystemMetrics:#SM_CXPADDEDBORDER) ? 0)
 
     "Modified: / 08-09-2006 / 15:39:24 / cg"
+    "Modified (comment): / 20-01-2020 / 16:27:06 / Stefan Reise"
 !
 
 getDeviceCaps:hdc index:index
@@ -20750,7 +20759,7 @@
     }
 %}
     "
-     (StandardSystemView new label:'äöü') open
+     (StandardSystemView new label:'äöü') open
     "
 !