[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.9,1.10 Mediatree.f,1.11,1.12 PLAYER4.F,1.20,1.21 Pl_Version.f,1.11,1.12

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18303/apps/Player4

Modified Files:
	Catalog.f Mediatree.f PLAYER4.F Pl_Version.f 
Log Message:
Jos: Made it possible to drag and drop files into de catalog.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** PLAYER4.F	25 Sep 2005 14:27:42 -0000	1.20
--- PLAYER4.F	29 Sep 2005 16:46:06 -0000	1.21
***************
*** 535,538 ****
--- 535,539 ----
  \ build an application on disk or run Player
  \ -----------------------------------------------------------------------------
+ 
  turnkey? [if]
          false to MciDebug?

Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Mediatree.f	26 May 2005 08:29:29 -0000	1.11
--- Mediatree.f	29 Sep 2005 16:46:06 -0000	1.12
***************
*** 85,90 ****
  
  :M ExWindowStyle:    ( -- style )
!         ExWindowStyle: Super 
!         WS_EX_CLIENTEDGE or ;M
  
  : CreateTreeView   ( -- ) \ create a treeview window
--- 85,114 ----
  
  :M ExWindowStyle:    ( -- style )
!         ExWindowStyle: Super
!         WS_EX_CLIENTEDGE or
!         WS_EX_ACCEPTFILES or ;M
! 
! : AddDropFile ( wHndl adr cnt - )
!         2dup r/o  open-file  throw dup file-size  throw  d>s swap  close-file  throw
!         (add-file) drop
!  ;
! 
! : AddDropFiles {  wParam lParam \ drop$ #File wHndl -- res }
!         SetForegroundWindow: self
!         MAXCOUNTED 1+ LocalAlloc: drop$
!         0 to #File
!         0 0 -1 wParam  Call DragQueryFile  ?dup
!            if  datfile$ count file-exist? check-config
!                database$  create/open dup file-append throw to wHndl
!                    begin    MAXCOUNTED drop$ #File wParam Call DragQueryFile dup 0>
!                    while    wHndl drop$ rot AddDropFile   1 +to #File
!                    repeat
!           then
!         2drop wParam Call DragFinish
!         wHndl CloseReMap
!         RefreshCatalog ;
! 
! :M WM_DROPFILES ( wParam lParam -- res )
!         AddDropFiles  ;M
  
  : CreateTreeView   ( -- ) \ create a treeview window
***************
*** 148,150 ****
  \s
  
!