diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-07-06 14:21:48 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-07-06 14:21:48 +0000 |
| commit | dc41de1e0e27f700525750493582bc6c24852152 (patch) | |
| tree | 16c275c07948b35f57d38696a6f105eea8a08b3d /bin/Process_Win32.pm | |
| parent | e932166de57f49ae73299615ad83df94f2f6c245 (diff) | |
| download | ATCD-dc41de1e0e27f700525750493582bc6c24852152.tar.gz | |
Added the ID strings and gave an option to the NT implementation where
processes can keep the same window instead of creating a new window for
each.
Diffstat (limited to 'bin/Process_Win32.pm')
| -rw-r--r-- | bin/Process_Win32.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/bin/Process_Win32.pm b/bin/Process_Win32.pm index 3e78a766819..941ff29d469 100644 --- a/bin/Process_Win32.pm +++ b/bin/Process_Win32.pm @@ -1,3 +1,4 @@ +# $id$ package Process; use Win32::Process; @@ -12,13 +13,15 @@ sub Create my $args = shift; my $self = []; - if ($newwindow eq "no") + my $console = 0; + + if ($newwindow eq "yes") { - my $console = 0; + $console = CREATE_NEW_CONSOLE; } else { - my $console = CREATE_NEW_CONSOLE; + $console = 0; } Win32::Process::Create ($self->[0], $name, $name." ".$args, 0, |