Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21776/apps/Win32ForthIDE
Modified Files:
EdCommand.f EdRemote.f Main.f
Log Message:
Rod: Open .fpj files in project tab from commandline and by drag & drop
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Main.f 27 Jul 2006 07:29:31 -0000 1.25
--- Main.f 3 Aug 2006 22:47:45 -0000 1.26
***************
*** 938,947 ****
strip-cmdline
! 2dup IsHtmlFile?
! if (OpenHtmlFile)
! else (OpenRemoteFile) ActiveChild
! if bBrowse SetBrowseMode: ActiveChild
! #line 1- GotoLine: ActiveChild
! then
then
else drop
--- 938,951 ----
strip-cmdline
! 2dup IsProjectFile?
! if (open-project)
! else
! 2dup IsHtmlFile?
! if (OpenHtmlFile)
! else (OpenRemoteFile) ActiveChild
! if bBrowse SetBrowseMode: ActiveChild
! #line 1- GotoLine: ActiveChild
! then
! then
then
else drop
Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EdCommand.f 23 Jul 2006 09:36:40 -0000 1.7
--- EdCommand.f 3 Aug 2006 22:47:45 -0000 1.8
***************
*** 98,104 ****
else (OpenBinaryFile)
then
! else 2dup IsHtmlFile?
! if (OpenHtmlFile)
! else (OpenSourceFile)
then
then
--- 98,108 ----
else (OpenBinaryFile)
then
! else 2dup IsProjectFile?
! if (open-project)
! else
! 2dup IsHtmlFile?
! if (OpenHtmlFile)
! else (OpenSourceFile)
! then
then
then
Index: EdRemote.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdRemote.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EdRemote.f 23 Jul 2006 09:36:40 -0000 1.2
--- EdRemote.f 3 Aug 2006 22:47:45 -0000 1.3
***************
*** 88,91 ****
--- 88,95 ----
2dup s" .HTM" compare 0= -rot s" .HTML" compare 0= or ;
+ : IsProjectFile? ( adr len -- f )
+ ".ext-only" 2dup upper
+ s" .FPJ" compare 0= ;
+
:noname { wParam -- }
ed-ptr 0= ?EXIT \ leave if shared memory not inited
|
