[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdCommand.f, 1.7, 1.8 EdRemote.f, 1.2, 1.3 Main.f, 1.25, 1.26

[Rod O. <rod...@us...>]

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