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
|
