[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.47,1.48

[Dirk B. <db...@us...>]

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