equal
deleted
inserted
replaced
786 Delay waitFor:3 seconds. self getFrameBufferImage:0 in:nil |
786 Delay waitFor:3 seconds. self getFrameBufferImage:0 in:nil |
787 " |
787 " |
788 |
788 |
789 "Created: / 25-02-2017 / 09:49:07 / cg" |
789 "Created: / 25-02-2017 / 09:49:07 / cg" |
790 "Modified (comment): / 28-02-2017 / 15:22:17 / cg" |
790 "Modified (comment): / 28-02-2017 / 15:22:17 / cg" |
|
791 ! |
|
792 |
|
793 screenBounds:displayNr |
|
794 "returns the bounds of the screen. |
|
795 This is needed, because the dimension of the XQuartz screen does not include the dock." |
|
796 |
|
797 |rx ry rwidth rheight| |
|
798 |
|
799 %{ |
|
800 #ifndef NO_COCOA |
|
801 CGDirectDisplayID targetDisplay = 0; |
|
802 |
|
803 rx = ry = __MKSMALLINT(0); |
|
804 rwidth = __MKUINT( CGDisplayPixelsWide(targetDisplay) ); |
|
805 rheight = __MKUINT( CGDisplayPixelsHigh(targetDisplay) ); |
|
806 #endif // NO_COCOA |
|
807 %}. |
|
808 (rwidth isNil) ifTrue:[ |
|
809 ^ self primitiveFailed |
|
810 ]. |
|
811 ^ rx@ry extent:(rwidth@rheight) |
|
812 |
|
813 " |
|
814 self screenBounds:0 |
|
815 " |
|
816 |
|
817 "Created: / 05-03-2017 / 11:10:08 / cg" |
791 ! ! |
818 ! ! |
792 |
819 |
793 !OSXOperatingSystem class methodsFor:'documentation'! |
820 !OSXOperatingSystem class methodsFor:'documentation'! |
794 |
821 |
795 version |
822 version |