WinWorkstation.st
changeset 8905 d4525130d743
parent 8904 4247707f2d27
child 8909 4d9352a4ca6c
--- a/WinWorkstation.st	Wed Nov 27 14:03:14 2019 +0100
+++ b/WinWorkstation.st	Wed Nov 27 17:24:40 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1996 by Claus Gittinger
 	      All Rights Reserved
@@ -2151,7 +2149,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);
 	    }
@@ -6713,24 +6711,6 @@
 
 !WinWorkstation class methodsFor:'queries'!
 
-isWindowsPlatform
-    "return true, if this device is a windows screen"
-
-    ^ true
-!
-
-platformName
-    "ST-80 compatibility.
-     Return a string describing the display systems platform.
-     WinWorkstation always returns 'WIN32'."
-
-    ^ 'WIN32'
-
-    "Modified: 26.5.1996 / 15:32:46 / cg"
-! !
-
-!WinWorkstation class methodsFor:'queries - monitor'!
-
 isHighDpiAware
     "answers if this app is high dpi aware"
 
@@ -6774,6 +6754,24 @@
     "Created: / 27-11-2019 / 13:40:04 / Stefan Reise"
 !
 
+isWindowsPlatform
+    "return true, if this device is a windows screen"
+
+    ^ true
+!
+
+platformName
+    "ST-80 compatibility.
+     Return a string describing the display systems platform.
+     WinWorkstation always returns 'WIN32'."
+
+    ^ 'WIN32'
+
+    "Modified: 26.5.1996 / 15:32:46 / cg"
+! !
+
+!WinWorkstation class methodsFor:'queries - monitor'!
+
 monitorDeviceNameForPoint:aPoint
     "given a point, return its monitor device name or nil if failed"
 
@@ -20607,7 +20605,7 @@
     }
 %}
     "
-     (StandardSystemView new label:'äöü') open
+     (StandardSystemView new label:'äöü') open
     "
 !