--- 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
"
!