[Gd-chatter] r11520 - trunk/fundev/sources/system

[andreas at gwydiondylan.org]

Author: andreas
Date: Wed Dec  5 02:08:11 2007
New Revision: 11520

Modified:
   trunk/fundev/sources/system/x86-win32-operating-system.dylan
Log:
job: fd

Support for execution of child processes in hidden windows.


Modified: trunk/fundev/sources/system/x86-win32-operating-system.dylan
==============================================================================
--- trunk/fundev/sources/system/x86-win32-operating-system.dylan	(original)
+++ trunk/fundev/sources/system/x86-win32-operating-system.dylan	Wed Dec  5 02:08:11 2007
@@ -438,6 +438,7 @@
 define constant $STARTF_USESHOWWINDOW = 1;
 define constant $STARTF_USESTDHANDLES = #x00000100;
 
+define constant $SW-HIDE                            =    0;
 define constant $SW-SHOWNORMAL                      =    1;
 define constant $SW-SHOWMINIMIZED                   =    2;
 define constant $SW-SHOWNOACTIVATE                  =    4;
@@ -549,6 +550,7 @@
 				      inherit-console? = #t,
 				      activate? = #t,
 				      minimize? = #f,
+                                      hide? = #f,
 				      outputter :: false-or(<function>),
 				      asynchronous? = #f)
  => (status :: <integer>)
@@ -564,6 +566,7 @@
   startupinfo-dwFlags(startupInfo) := $STARTF_USESHOWWINDOW;
   startupinfo-wShowWindow(startupInfo)
     := case
+         hide?                   => $SW-HIDE;
 	 activate?  & minimize?  => $SW-SHOWMINIMIZED;
 	 activate?  & ~minimize? => $SW-SHOWNORMAL;
 	 ~activate? & minimize?  => $SW-SHOWMINNOACTIVE;