WinWorkstation.st
changeset 8895 e8bf0fe9996f
parent 8894 b81ac2bb259c
child 8897 8fb9d7c6eb60
child 8899 fe8d508c7e2f
--- a/WinWorkstation.st	Mon Nov 25 14:29:25 2019 +0100
+++ b/WinWorkstation.st	Mon Nov 25 14:46:18 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1996 by Claus Gittinger
 	      All Rights Reserved
@@ -2144,7 +2142,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);
             }
@@ -6266,82 +6264,6 @@
     "
 ! !
 
-!WinWorkstation class methodsFor:'actions'!
-
-commonSetDpiAwareModeForExpeccoBinaries:dpiAwareMode
-    |currentBinary otherBinary 
-     registryKeyForDpiAware|
-
-    currentBinary := OperatingSystem pathOfSTXExecutable asFilename.
-    currentBinary suffix asLowercase = 'exe' ifTrue:[
-        otherBinary := currentBinary withSuffix:'com'. 
-    ] ifFalse:[
-        otherBinary := currentBinary withSuffix:'exe'. 
-    ].
-
-    registryKeyForDpiAware := self registryKeyForHighDpiAware. 
-
-    (Array
-        with:currentBinary
-        with:otherBinary) do:[:eachBinaryFilename |
-            registryKeyForDpiAware
-                valueNamed:eachBinaryFilename nameString 
-                put:dpiAwareMode.
-        ].
-
-    "Created: / 25-11-2019 / 09:43:56 / Stefan Reise"
-!
-
-setHighDpiAware
-    "after set this key,
-     the next started stx/expecco instance will not be scaled by windows
-     you can check for success by inspect the binary properties 
-     via windows context menu of the binary"
-
-    "
-        self unsetHighDpiAware.    
-        self isApplicationHighDpiAware.
-        self setHighDpiAware.          
-        self isApplicationHighDpiAware.   
-    "
-
-    self commonSetDpiAwareModeForExpeccoBinaries:self registryValueForHighDpiAware.
-
-    "Created: / 25-11-2019 / 09:44:30 / Stefan Reise"
-!
-
-unsetHighDpiAware
-    "after unset this key,
-     the next started stx/expecco instance will be scaled by windows
-     you can check for success by inspect the binary properties 
-     via windows context menu of the binary"
-
-    "
-        self unsetHighDpiAware.    
-        self isApplicationHighDpiAware.
-        self setHighDpiAware.          
-        self isApplicationHighDpiAware.
-    "
-
-    self commonSetDpiAwareModeForExpeccoBinaries:self regitsryValueForHighDpiUnAware.
-
-    "Created: / 25-11-2019 / 09:44:55 / Stefan Reise"
-! !
-
-!WinWorkstation class methodsFor:'constants'!
-
-registryValueForHighDpiAware
-    ^ '~HIGHDPIAWARE'
-
-    "Created: / 25-11-2019 / 09:52:25 / Stefan Reise"
-!
-
-regitsryValueForHighDpiUnAware
-    ^ '~DPIUNAWARE'
-
-    "Created: / 25-11-2019 / 09:53:30 / Stefan Reise"
-! !
-
 !WinWorkstation class methodsFor:'converting'!
 
 convertVirtualResolutionPointToCurrentResolutionPoint:aPoint
@@ -6788,18 +6710,6 @@
     ^ 'WIN32'
 
     "Modified: 26.5.1996 / 15:32:46 / cg"
-!
-
-registryKeyForHighDpiAware
-    "
-        self registryKeyForHighDpiAware    
-    "
-
-    ^ Win32OperatingSystem::RegistryEntry
-        key:'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers'
-        createIfAbsent:true.
-
-    "Created: / 25-11-2019 / 09:51:45 / Stefan Reise"
 ! !
 
 !WinWorkstation class methodsFor:'queries - monitor'!
@@ -20629,7 +20539,7 @@
     }
 %}
     "
-     (StandardSystemView new label:'äöü') open
+     (StandardSystemView new label:'äöü') open
     "
 !