impove debug info

bitbegin · Nov 2, 2018 · 8fc118e · 8fc118e
1 parent 50dac50
commit 8fc118e
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 3 deletions.
diff --git a/modules/view/backends/blur.reds b/modules/view/backends/blur.reds
@@ -113,6 +113,9 @@ INT_SIZE: alias struct! [
 	rect-print: func [
 		rc					[RECT_STRUCT]
 	][
+		print "rc: "
+		prin-hex-chars as integer! rc 8
+		print lf
 		print-line ["left: " rc/left " top: " rc/top " right: " rc/right " bottom: " rc/bottom]
 	]
 ]

diff --git a/modules/view/backends/windows/draw.reds b/modules/view/backends/windows/draw.reds
@@ -1356,7 +1356,12 @@ draw-color-box: func [
 		brush	[integer!]
 ][
 	color: to-gdiplus-color _color
-	print-line ["x: " x " y: " y " width: " width " height: " height " _color: " _color " color: " color]
+	print-line ["x: " x " y: " y " width: " width " height: " height]
+	print " _color: "
+	prin-hex-chars _color 8
+	print " color: "
+	prin-hex-chars color 8
+	print lf
 	brush: 0
 	GdipCreateSolidFill color :brush
 	gdiplus-draw-box graphics x y width height radius 0 brush
@@ -1450,6 +1455,7 @@ create-blur-bitmap: func [
 		width	[integer!]
 		height	[integer!]
 		size	[integer!]
+		color	[integer!]
 		acolor	[integer!]
 		rgb		[integer!]
 		alpha	[byte-ptr!]
@@ -1467,8 +1473,9 @@ create-blur-bitmap: func [
 	height: info/height
 	size: width * height
 	alpha: allocate size
-	acolor: blur-color >>> 24
-	rgb: (to-gdiplus-color blur-color) and 00FFFFFFh
+	color: to-gdiplus-color blur-color
+	acolor: color >>> 24
+	rgb: color and 00FFFFFFh
 
 	gbmp2: 0
 	GdipCreateBitmapFromGraphics width height info/gfx :gbmp2		;-- this create a empty bitmap