[vwnc] bug in Epigent Application window styles package

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[vwnc] bug in Epigent Application window styles package

Mark Plas

Hi Runar,

 

I found a bug in the following method (the fix is already present):

 

makeColorTransparent: aColorValue for: aWindow

 

      [

      self

            setWindowLong: aWindow windowHandle

            nIndex: self GWL_EXSTYLE

            dwNewLong:

                  ((self getWindowLong: aWindow windowHandle nIndex: self GWL_EXSTYLE) bitOr: self WS_EX_LAYERED).

      self

            setLayeredWindowAttributes: aWindow windowHandle

            color:

                  ((aColorValue blue * 255) rounded bitShift: 16) + ((aColorValue green * 255) rounded bitShift: 8)

                        + (aColorValue red * 255) rounded

            byte: 0

            flags: self LWA_COLORKEY] on: Error do: [:ex | ex return]

 

 

The RGB values were supplied in the wrong order. Blue should be the highest order byte and red the lowest one which isn’t so in the version in the public repository.

 

Best regards,

Mark

 


_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc