equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1996 by Claus Gittinger |
2 COPYRIGHT (c) 1996 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2149 } else { |
2147 } else { |
2150 sleep(0); |
2148 sleep(0); |
2151 } |
2149 } |
2152 goto again; |
2150 goto again; |
2153 } |
2151 } |
2154 /* fail evtl. später ändern und in st verzögert aufrufen |
2152 /* fail evtl. später ändern und in st verzögert aufrufen |
2155 */ |
2153 */ |
2156 console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed.\n",(char*)ev->ev_arg1); |
2154 console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed.\n",(char*)ev->ev_arg1); |
2157 } |
2155 } |
2158 free((char*)ev->ev_arg1); |
2156 free((char*)ev->ev_arg1); |
2159 ev->ev_arg1 = 0; |
2157 ev->ev_arg1 = 0; |
6711 "Modified: / 25-11-2019 / 14:18:09 / Stefan Reise" |
6709 "Modified: / 25-11-2019 / 14:18:09 / Stefan Reise" |
6712 ! ! |
6710 ! ! |
6713 |
6711 |
6714 !WinWorkstation class methodsFor:'queries'! |
6712 !WinWorkstation class methodsFor:'queries'! |
6715 |
6713 |
6716 isWindowsPlatform |
|
6717 "return true, if this device is a windows screen" |
|
6718 |
|
6719 ^ true |
|
6720 ! |
|
6721 |
|
6722 platformName |
|
6723 "ST-80 compatibility. |
|
6724 Return a string describing the display systems platform. |
|
6725 WinWorkstation always returns 'WIN32'." |
|
6726 |
|
6727 ^ 'WIN32' |
|
6728 |
|
6729 "Modified: 26.5.1996 / 15:32:46 / cg" |
|
6730 ! ! |
|
6731 |
|
6732 !WinWorkstation class methodsFor:'queries - monitor'! |
|
6733 |
|
6734 isHighDpiAware |
6714 isHighDpiAware |
6735 "answers if this app is high dpi aware" |
6715 "answers if this app is high dpi aware" |
6736 |
6716 |
6737 " |
6717 " |
6738 Screen isHighDpiAware. |
6718 Screen isHighDpiAware. |
6771 |
6751 |
6772 ^ isHighDpiAware |
6752 ^ isHighDpiAware |
6773 |
6753 |
6774 "Created: / 27-11-2019 / 13:40:04 / Stefan Reise" |
6754 "Created: / 27-11-2019 / 13:40:04 / Stefan Reise" |
6775 ! |
6755 ! |
|
6756 |
|
6757 isWindowsPlatform |
|
6758 "return true, if this device is a windows screen" |
|
6759 |
|
6760 ^ true |
|
6761 ! |
|
6762 |
|
6763 platformName |
|
6764 "ST-80 compatibility. |
|
6765 Return a string describing the display systems platform. |
|
6766 WinWorkstation always returns 'WIN32'." |
|
6767 |
|
6768 ^ 'WIN32' |
|
6769 |
|
6770 "Modified: 26.5.1996 / 15:32:46 / cg" |
|
6771 ! ! |
|
6772 |
|
6773 !WinWorkstation class methodsFor:'queries - monitor'! |
6776 |
6774 |
6777 monitorDeviceNameForPoint:aPoint |
6775 monitorDeviceNameForPoint:aPoint |
6778 "given a point, return its monitor device name or nil if failed" |
6776 "given a point, return its monitor device name or nil if failed" |
6779 |
6777 |
6780 " |
6778 " |
20605 RETURN (self); |
20603 RETURN (self); |
20606 } |
20604 } |
20607 } |
20605 } |
20608 %} |
20606 %} |
20609 " |
20607 " |
20610 (StandardSystemView new label:'äöü') open |
20608 (StandardSystemView new label:'äöü') open |
20611 " |
20609 " |
20612 ! |
20610 ! |
20613 |
20611 |
20614 setWindowShapeEllipticalX:x Y:y width:w height:h in:aWindowId |
20612 setWindowShapeEllipticalX:x Y:y width:w height:h in:aWindowId |
20615 "set the windows shape to an elliptical region" |
20613 "set the windows shape to an elliptical region" |