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