From: George H. <geo...@us...> - 2012-05-08 20:42:54
|
Update of /cvsroot/win32forth/win32forth/demos In directory vz-cvs-4.sog:/tmp/cvs-serv7556 Modified Files: MDIDialogExample.f MDIExample.f Log Message: Minor mods Index: MDIExample.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MDIExample.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** MDIExample.f 10 Aug 2011 15:58:18 -0000 1.8 --- MDIExample.f 8 May 2012 20:42:52 -0000 1.9 *************** *** 66,73 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! 200 value (NewID) ! : NewID ( <name> -- ) defined IF drop ! ELSE count "header (NewID) dup 1+ to (NewID) DOCON , , THEN ; --- 66,73 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : NewID ( <name> -- ) ! defined IF drop ! ELSE NextID swap count ['] constant execute-parsing THEN ; Index: MDIDialogExample.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MDIDialogExample.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MDIDialogExample.f 21 Dec 2004 00:18:52 -0000 1.1 --- MDIDialogExample.f 8 May 2012 20:42:52 -0000 1.2 *************** *** 37,44 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! 200 value (NewID) ! : NewID ( <name> -- ) defined IF drop ! ELSE count "header (NewID) dup 1+ to (NewID) DOCON , , THEN ; --- 37,44 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : NewID ( <name> -- ) ! defined IF drop ! ELSE NextID swap count ['] constant execute-parsing THEN ; *************** *** 287,289 **** ! go \ No newline at end of file --- 287,289 ---- ! go |