Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mt.433.mcz==================== Summary ====================
Name: Graphics-mt.433
Author: mt
Time: 17 May 2020, 4:49:08.858947 pm
UUID: 7e70458e-14f3-ef46-a954-9c1368211056
Ancestors: Graphics-mt.432
Removes instance-side refs to the global Display because it can be quite surprising to call #replacedBy:do: expecting a #become: or similar.
=============== Diff against Graphics-mt.432 ===============
Item was changed:
Form subclass: #DisplayScreen
instanceVariableNames: 'clippingBox extraRegions'
+ classVariableNames: 'DeferringUpdates DisplayChangeSignature DisplayIsFullScreen'
- classVariableNames: 'DeferringUpdates DisplayChangeSignature DisplayIsFullScreen ScreenSave'
poolDictionaries: ''
category: 'Graphics-Display Objects'!
!DisplayScreen commentStamp: '<historical>' prior: 0!
There is only one instance of me, Display. It is a global and is used to handle general user requests to deal with the whole display screen.
Although I offer no protocol, my name provides a way to distinguish this special instance from all other Forms. This is useful, for example, in dealing with saving and restoring the system.
To change the depth of your Display...
Display newDepth: 16.
Display newDepth: 8.
Display newDepth: 1.
Valid display depths are 1, 2, 4, 8, 16 and 32. It is suggested that you run with your monitors setting the same, for better speed and color fidelity. Note that this can add up to 4Mb for the Display form. Finally, note that newDepth: ends by executing a 'ControlManager restore' which currently terminates the active process, so nothing that follows in the doit will get executed.
Depths 1, 2, 4 and 8 bits go through a color map to put color on the screen, but 16 and 32-bit color use the pixel values directly for RGB color (5 and 8 bits per, respectivlely). The color choice an be observed by executing Color fromUser in whatever depth you are using.
!
Item was removed:
- ----- Method: DisplayScreen>>fullScreen (in category 'other') -----
- fullScreen "Display fullScreen"
-
- ScreenSave notNil ifTrue: [Display := ScreenSave].
- clippingBox := super boundingBox!
Item was removed:
- ----- Method: DisplayScreen>>replacedBy:do: (in category 'other') -----
- replacedBy: aForm do: aBlock
- "Permits normal display to draw on aForm instead of the display."
-
- ScreenSave := self.
- Display := aForm.
- aBlock value.
- Display := self.
- ScreenSave := nil.!
Locked
