[Win32forth-cvs] win32forth/src Utils.f,1.19,1.20

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	Utils.f 
Log Message:
Jos: Redefined the cursor part.

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Utils.f	30 Jul 2008 11:02:27 -0000	1.19
--- Utils.f	2 Aug 2008 13:03:35 -0000	1.20
***************
*** 577,587 ****
  EXTERNAL
  
! : make-cursor   ( cursor_constant appinst -- )
                  create , ,
!                 does>  dup cell+ @ swap @
!                 if     z" w32fConsole.dll" Call GetModuleHandle
!                 else   NULL
!                 then   Call LoadCursor
!                        Call SetCursor drop ;
  
  \ Standard Win32 API Cursors
--- 577,595 ----
  EXTERNAL
  
! : make-cursor   ( cursor_constant|z.cur-adr  usingCURfile -- )
! \ *G Enables various shapes of the mouse.
! \ ** When a *.cur file is used the file must be in the search path
! \ ** of the application.
! \ ** When you have NT or better you could use resources.f
                  create , ,
!                 does>  dup cell+ @ swap @  \ Runtime: ( - )
! 			if     dup>r call LoadCursorFromFile dup 0=
! 				if	r> z" Can not find file:"
! 					[ MB_TASKMODAL MB_ICONSTOP or ] literal
! 					NULL MessageBox 2drop abort
! 				else	r>drop
! 				then
! 			else   NULL Call LoadCursor
! 			then   Call SetCursor drop ;
  
  \ Standard Win32 API Cursors
***************
*** 605,616 ****
  sys-FLOAD src\res\resforth.h \ load the headerfile with a few constants
  
! winver win95 >	[IF]  	: hand-cursor ( - ) 32649 set-pointer ;
! 		[ELSE]	IDC_HAND      TRUE  make-cursor hand-cursor
! 		[THEN]
  
- IDC_SPLITV      TRUE    make-cursor splitv-cursor
- IDC_SPLITH      TRUE    make-cursor splith-cursor
- IDC_MAGNIFY     TRUE    make-cursor magnify-cursor
- IDC_HARROW      TRUE    make-cursor harrow-cursor
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 613,622 ----
  sys-FLOAD src\res\resforth.h \ load the headerfile with a few constants
  
! here z," HAND.CUR"        TRUE    make-cursor hand-cursor
! here z," SPLITV.CUR"      TRUE    make-cursor splitv-cursor
! here z," SPLITH.CUR"      TRUE    make-cursor splith-cursor
! here z," MAGNIFY.CUR"     TRUE    make-cursor magnify-cursor
! here z," HARROW.CUR"      TRUE    make-cursor harrow-cursor
  
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\