[Win32forth-cvs] win32forth/apps/WinEd Ed_Remote.F, 1.7, 1.8 WinEd.f, 1.24, 1.25

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory vz-cvs-4.sog:/tmp/cvs-serv16092

Modified Files:
	Ed_Remote.F WinEd.f 
Log Message:
WinEd nows opens files from explorer in the running instance

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** WinEd.f	19 Apr 2009 07:42:29 -0000	1.24
--- WinEd.f	25 Jun 2011 15:45:24 -0000	1.25
***************
*** 17,20 ****
--- 17,22 ----
  \ 1 value (WinEdDbg)     \ Enable to debug
  
+ CreateTurnkey [if] >WinEd [then]
+ 
  s" apps\WinEd"     "fpath+
  s" apps\WinEd\res" "fpath+
***************
*** 64,67 ****
--- 66,73 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
+ : strip-cmdline ( addr cnt -- addr2 cnt2 )
+                 [CHAR] " skip [CHAR] ' skip BL skip
+                 [CHAR] " -TRAILCHARS [CHAR] ' -TRAILCHARS BL -TRAILCHARS ;
+ 
  : Edit-init  ( -- xxx )
          ['] view-before-bye is before-bye       \ called by WM_CLOSE
***************
*** 95,98 ****
--- 101,114 ----
  
  : WinEd ( -- )
+         w32fsharep 0=
+               if w32fshareName 1024 open-share ?dup
+                  if  to w32fshareh
+                      to w32fsharep
+                  then
+                  CmdLine strip-cmdline
+                  pad place 0 pad $edit
+                  CloseSharedMemory
+                  bye
+                 then
          Edit-init
          load-defaults
***************
*** 137,141 ****
  
                  w32fWined To NewAppID  \ handle inter-process messaging and launching
!                 true to RunUnique
                  ConsoleHiddenBoot
                  ' wined ' SAVE catch WinEd.exe checkstack  \ save WinEd.exe
--- 153,157 ----
  
                  w32fWined To NewAppID  \ handle inter-process messaging and launching
!                 false to RunUnique
                  ConsoleHiddenBoot
                  ' wined ' SAVE catch WinEd.exe checkstack  \ save WinEd.exe

Index: Ed_Remote.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Remote.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Ed_Remote.F	3 Aug 2008 10:56:42 -0000	1.7
--- Ed_Remote.F	25 Jun 2011 15:45:24 -0000	1.8
***************
*** 82,85 ****
--- 82,92 ----
                       ENDCASE
                    ENDOF
+                   w32fWinEd  OF
+                      CASE
+                         ED_OPEN_EDIT   OF drop 1 remote-open    -1 ENDOF
+                         ED_OPEN_BROWSE OF drop 2 remote-open    -1 ENDOF
+                        2drop 0 swap
+                      ENDCASE
+                   ENDOF
                    3drop 0 swap
                  ENDCASE ; is HandleForthMsg