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