From: George H. <geo...@us...> - 2013-12-09 21:27:25
|
Update of /cvsroot/win32forth/win32forth/demos In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31216 Modified Files: MultiHello.f Log Message: Added call to PostQuitMessage that got lost somewhere. Index: MultiHello.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MultiHello.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** MultiHello.f 29 Nov 2013 14:43:29 -0000 1.8 --- MultiHello.f 9 Dec 2013 21:27:23 -0000 1.9 *************** *** 94,97 **** --- 94,98 ---- :M On_Done: ( -- ) \ things to do before program termination + 0 call PostQuitMessage drop myblock task>handle @ call CloseHandle 0= throw \ close taskhandle myblock free throw \ free taskblock *************** *** 189,192 **** --- 190,195 ---- New> DemoThreadWindow start: [ ] ; + 1 proc CloseHandle + :noname ( -- ) ['] (StartWindow) 5 cells allocate throw tuck tuck |