[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdRemote.f, 1.11, 1.12 Main.f, 1.68, 1.69

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

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

Modified Files:
	EdRemote.f Main.f 
Log Message:
IDE nows opens files from explorer in the running instance

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** Main.f	12 Feb 2011 02:48:46 -0000	1.68
--- Main.f	28 Apr 2011 18:02:49 -0000	1.69
***************
*** 1614,1617 ****
--- 1614,1627 ----
  \ Removed setting the thread priority of the main task. It block's the system
  \ too much and isn't really needed (Montag, Oktober 09 2006, dbu).
+                 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
                  start: Frame
                  GetHandle: frame hwndOwner !  DefaultPrinter   \ initialise PSD and PD
***************
*** 1631,1636 ****
  
         w32fIDE to NewAppID             \ set w32f communication & messaging
!        true to RunUnique
! 
         NoConsoleBoot                   \ no console needed, will start MessageLoop
         ' Main ' SAVE catch win32forthIDE.exe checkstack
--- 1641,1645 ----
  
         w32fIDE to NewAppID             \ set w32f communication & messaging
!        false to RunUnique
         NoConsoleBoot                   \ no console needed, will start MessageLoop
         ' Main ' SAVE catch win32forthIDE.exe checkstack

Index: EdRemote.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdRemote.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** EdRemote.f	10 Apr 2009 16:37:04 -0000	1.11
--- EdRemote.f	28 Apr 2011 18:02:49 -0000	1.12
***************
*** 76,79 ****
--- 76,86 ----
                       ENDCASE
                    ENDOF
+                   w32fIDE    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 HandleW32FMsg