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
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
|
