===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox-win.sm1,v
retrieving revision 1.13
retrieving revision 1.19
diff -u -p -r1.13 -r1.19
--- OpenXM/src/kan96xx/Doc/ox-win.sm1	2002/01/09 11:32:01	1.13
+++ OpenXM/src/kan96xx/Doc/ox-win.sm1	2002/07/31 04:09:16	1.19
@@ -1,5 +1,11 @@
-%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.12 2001/12/28 08:18:23 takayama Exp $
+%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.18 2002/07/31 02:57:37 takayama Exp $
 
+(ox-win.start.noiconic) boundp {
+  /ox-win.start.iconic 0 def
+}{
+  /ox-win.start.iconic 1 def
+} ifelse
+
 /ox-win.sm1.loaded 1 def
 (ox.sm1.loaded) boundp {
 }{
@@ -29,26 +35,43 @@ OpenXM_HOME_WIN tag 0 eq {
   def
 } { } ifelse
 
+/ox.win.set.start {
+  [(stat) (c:\windows\system32\cmd.exe)] extension 0 get
+  0 eq {
+    /ox.win.start [(c:\windows\system32\cmd.exe) (/c) (start) 
+                   ox-win.start.iconic { (/min) } { } ifelse ] def
+  }{
+   [(stat) (c:\winnt\system32\cmd.exe)] extension 0 get
+   0 eq {
+      /ox.win.start [(c:\winnt\system32\cmd.exe) (/c) (start) 
+                     ox-win.start.iconic { (/min) } { } ifelse ] def
+   }{
+     /ox.win.start [ (start) ox-win.start.iconic { (/min) } { } ifelse ] def
+   } ifelse
+  } ifelse
+} def
+ox.win.set.start
+
 %% This is used in asirconnectr_win
 /OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def
 %%%%%%%%%%%%%%% end configuration  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% Set constants for windows.
 [(getenv) (OSTYPE)] extension tag 0 eq {
-  /oxpath.ostype (native-windows) def
+  /ox.ostype (native-windows) def
 }{
-  [(getenv) (OSTYPE)] extension /oxpath.ostype set
+  [(getenv) (OSTYPE)] extension /ox.ostype set
 } ifelse
 
-oxpath.ostype (cygwin) eq {
+ox.ostype (cygwin) eq {
  /oxpath.ox (bin/ox.exe) def
  /oxpath.oxsm1 (bin/ox_sm1.exe) def
  /oxpath.oxlog (bin/oxlog.exe) def
- /oxpath.xterm (start ) def
+ /oxpath.xterm (start /min ) def
  /oxpath.null  (  ) def
  /oxpath.null00  ( >& /dev/null ) def  %%cf. oxNoX
  /oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case
 }{
-   /oxpath.ox
+  /oxpath.ox
   [ OpenXM_HOME_WIN
     (\bin\ox.exe)
   ] cat
@@ -77,7 +100,8 @@ oxpath.ostype (cygwin) eq {
  /data peer 1 get toString def
  /control peer 3 get toString def
  peer message
- [(start ox ) ( -reverse -ox ) (/home/nobuki/OpenXM/src/kxx/ox_sm1.exe)
+ [oxpath.xterm
+  ( ox ) ( -reverse -ox ) OpenXM_HOME_WIN (/bin/ox_sm1.exe)
   ( -data ) data ( -control ) control  ( -pass ) pass 
   ( -wait 2 )
   oxpath.null
@@ -99,9 +123,11 @@ oxpath.ostype (cygwin) eq {
  /data peer 1 get toString def
  /control peer 3 get toString def
  peer message
+ (Hello ) message
  [(forkExec) [
-    (c:/windows/command/start)
-    [OpenXM_HOME_WIN  (\bin\ox)] cat
+    ox.win.start   aload pop 
+%%(c:\windows\system32\cmd.exe) (/c) (start)
+    oxpath.ox
     (-reverse)
     (-ox)
     [OpenXM_HOME_WIN (\bin\ox_sm1.exe)] cat