bug - Interaction with DoubleBufferingWindowDisplayPolicy and setting widget background color

Hi

Set ScheduledWindow.DamageRepairPolicy := DoubleBufferingWindowDisplayPolicy and

execute the following code, then open VW settings window. You will notice that the VW settings window

has a white background, other windows will also be messed up. If you comment out the

setLookPreferences: line, there will be no problem, except that the input box will not

be white when you type in it.

Tested in a virgin vw 7.9 image and VM.

“

                ScheduledWindow.DamageRepairPolicy := DoubleBufferingWindowDisplayPolicy.

                ScheduledWindow.DamageRepairPolicy := WindowDisplayPolicy.

“

                | panel window content box view inputPanel pix gc |

                panel := Panel new.

                box := 0 @ 0 extent: 300 @ 100.

                pix := Pixmap extent: box extent.

                gc := pix graphicsContext.

                gc clear.

                gc paint: ColorValue pink.

                gc displayRectangle: box.

                panel add: pix asImage.

                content := Panel new.

                content beColumn: 0.5.

                content add: (PixelSpace extent: 20 @ 20).

                content add: (Label with: 'Please enter your name below.' asText allBold).

                content add: (PixelSpace height: 10).

                view := InputFieldView new.

                view model: '' asValue.

                view := BorderedWrapper on: view.

                view insideColor: ColorValue white.

                view border: (UI.Border width: 1).

                view := WidgetWrapper on: view.

“----”

                view setLookPreferences: (LookPreferences new backgroundColor: ColorValue white).

“----“

                inputPanel := Panel new.

                inputPanel add: view.

                inputPanel layoutAlgorithm:

                                                [:rect :parts | Array with: (rect origin extent: 200 @ 28)].

                content add: inputPanel.

                panel add: content.

                window := ScheduledWindow new.

                window component: panel.

                window openWithExtent: box extent.

Terry

===========================================================

Terry Raymond

Crafted Smalltalk

80 Lazywood Ln.

Tiverton, RI  02878

(401) 624-4517      [hidden email]

===========================================================