[Win32forth-cvs] win32forth/src/lib ExUtils.f, 1.8, 1.9 bitmap.f, 1.7, 1.8

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1542/src/lib

Modified Files:
	ExUtils.f bitmap.f 
Log Message:
Small change to using arrow keys to size a selection box. Bug fix in bitmap.f. EAB

Index: bitmap.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/bitmap.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** bitmap.f	27 Dec 2006 18:30:18 -0000	1.7
--- bitmap.f	4 Mar 2007 02:58:40 -0000	1.8
***************
*** 443,449 ****
        then
        sprite-bitmap ?dup
!       if sprite-bitmap call DeleteObject drop
           0 to sprite-bitmap
!       then 0 to &bitmap
        Close: super ;M
  
--- 443,449 ----
        then
        sprite-bitmap ?dup
!       if  Call DeleteObject drop
           0 to sprite-bitmap
!       then	0 to &bitmap
        Close: super ;M
  

Index: ExUtils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ExUtils.f	24 Feb 2007 18:11:05 -0000	1.8
--- ExUtils.f	4 Mar 2007 02:58:40 -0000	1.9
***************
*** 198,200 ****
--- 198,205 ----
                      z" " conhndl Call SetWindowText drop ;
  
+ : >str		( n -- addr cnt ) \ converts n to counted string, return unique buffer
+ 		(.) new$ dup>r place
+ 		r@ +NULL
+ 		r> count ;
+ 
  \s