Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8473/apps/Player4
Modified Files:
PLAYER4.F
Log Message:
Removed a duplicate Method Jos forgot in his last update.
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -d -r1.47 -r1.48
*** PLAYER4.F 13 May 2006 21:43:17 -0000 1.47
--- PLAYER4.F 14 May 2006 09:41:31 -0000 1.48
***************
*** 54,58 ****
needs Resources.f
needs multiopen.f
! needs view.f
: invert-check ( check - ) dup c@ not swap c! RefreshWindow ;
--- 54,58 ----
needs Resources.f
needs multiopen.f
! needs view.f
: invert-check ( check - ) dup c@ not swap c! RefreshWindow ;
***************
*** 86,90 ****
:MENUITEM mHandelReq "Ignore requests"
vadr-config IgnoreRequests dup invert-check c@ not
! if SortCatalog
then
;
--- 86,90 ----
:MENUITEM mHandelReq "Ignore requests"
vadr-config IgnoreRequests dup invert-check c@ not
! if SortCatalog
then
;
***************
*** 234,250 ****
;M
- : drawline ( -- )
- SeparatorX @ 0 MoveTo: dc
- SeparatorX @ height LineTo: dc ;
-
- : on_clicked ( -- )
- true to clicked
- mousex SeparatorX !
- get-dc
- R2_NOT SetRop2: dc
- black LineColor: dc
- drawline
- hwnd Call SetCapture drop ;
-
: On_Mousemove ( -- )
mousex SeparatorX @ =
--- 234,237 ----
***************
*** 260,264 ****
\ mouse click routines for Main Window to track the Splitter movement
-
: DoSizing ( -- )
mousedown? dragging? or 0= ?EXIT
--- 247,250 ----
|
