Now take into account also the upper-left corner of the workspace.

git-svn-id: svn://kolibrios.org@4146 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/system/icon_new/bgredraw.inc

@@ -1,38 +1,50 @@
 BGRedrawThread:
 
-        mcall   40,010000b
+	mcall	40,010000b
 
 BGRTRedrawIcons:
-        mcall   48,5
-        mov     dx,ax
-        shr     eax,16
-        sub     dx,ax
-        mov     [ScreenX],dx
-        mov     ax,bx
-        shr     ebx,16
-        sub     ax,bx
-        mov     [ScreenY],ax
+	mcall	48,5
 
-        mov     ecx,[MaxNumIcon]
-        test    ecx,ecx
-        jz      .NoDraw
-        xor     ebx,ebx
-    @@: push    ecx
-        cmp     [IconNoDraw],ebx
-        je      .nd
-        stdcall DrawIcon,ebx,0
+	mov	[wsXe],ax
+	mov	[wsYe],bx
+
+	mov	dx,ax
+	shr	eax,16
+	mov	[wsX],ax
+	sub	dx,ax
+	mov	[wsW],dx
+
+	mov	ax,bx
+	shr	ebx,16
+	mov	[wsY],bx
+	sub	ax,bx
+	mov	[wsH],ax
+
+	mcall	14
+	mov	[ScreenH],ax
+	shr	eax,16
+	mov	[ScreenW],ax
+
+	mov	ecx,[MaxNumIcon]
+	test	ecx,ecx
+	jz	.NoDraw
+	xor	ebx,ebx
+    @@: push	ecx
+	cmp	[IconNoDraw],ebx
+	je	.nd
+	stdcall DrawIcon,ebx,0
       .nd:
-        inc     ebx
-        pop     ecx
-        loop    @b
+	inc	ebx
+	pop	ecx
+	loop	@b
    .NoDraw:
 
 BGRTmessages:
-        mcall   10
-        sub     eax,5
-        jz      BGRTRedrawIcons
+	mcall	10
+	sub	eax,5
+	jz	BGRTRedrawIcons
 
-        jmp     BGRTmessages
+	jmp	BGRTmessages