From: George H. <geo...@us...> - 2007-05-21 09:57:30
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23692/win32forth/src/lib Modified Files: TrayWindow.f Log Message: gah:moved MethodExecute and MethodCatch to Forth vocabulary , moved get-mouse-xy into generic.f (to reduce dependancies) and made thread safe.Fixed bug in constants when wincon.dll isn't available Index: TrayWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TrayWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TrayWindow.f 15 Jan 2006 09:25:50 -0000 1.1 --- TrayWindow.f 21 May 2007 09:57:26 -0000 1.2 *************** *** 15,18 **** --- 15,20 ---- cr .( Loading TrayWindow class...) + Require Window.f + anew -TrayWindow.f *************** *** 47,51 **** :M DefaultIcon: ( -- hIcon ) ! \ *G Get the handle of the icon whitch should be added to the traybar. DefaultIcon: super ;M --- 49,53 ---- :M DefaultIcon: ( -- hIcon ) ! \ *G Get the handle of the icon which should be added to the traybar. DefaultIcon: super ;M |