1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
/* OS/2 REXX */
/* $XFree86: xc/programs/xinit/xinitrc.cmd,v 3.5 1997/01/27 08:26:14 dawes Exp $ */
'@echo off'
env = 'OS2ENVIRONMENT'
x11root = VALUE('X11ROOT',,env)
IF x11root = '' THEN DO
SAY "The environment variable X11ROOT is not set. X/OS2 won't run without it."
EXIT
END
home = VALUE('HOME',,env)
IF home = '' THEN home = x11root
userresources = home'\.Xresources'
usermodmap = home'\.Xmodmap'
sysresources = x11root'\usr\X11R6\lib\X11\xinit\.Xresources'
sysmodmap = x11root'\usr\X11R6\lib\X11\xinit\.Xmodmap'
xbitmapdir = x11root'\usr\X11R6\include\X11\bitmaps'
manpath = VALUE('MANPATH',,env)
/* merge in defaults */
IF exists(sysresources) THEN
'xrdb -merge 'sysresources
IF exists(sysmodmap) THEN
'xmodmap 'sysmodmap
IF exists(userresources) THEN
'xrdb -merge 'userresources
IF exists(usermodmap) THEN
'xmodmap 'usermodmap
/* start some nice :-) test programs */
'xsetroot -bitmap 'xbitmapdir'\xos2'
/* also try out the following ones:
* 'xsetroot -bitmap 'xbitmapdir'\xfree1'
* 'xsetroot -bitmap 'xbitmapdir'\xfree2'
*/
/****** WARNING! *********
* Below some programs are started minimized, some are started detached.
* In general, those that spawn other shells are minimized, others may be
* detached. You might be tempted to run the xterm's as well as detached.
* This works, but leaves you with an independent xterm/cmd pair, when the
* server shuts down, which you can only see in watchcat, not the process list.
* If you start and stop x11 multiple times, this will let you run out of
* PTYs, and will lead to a large number of background sessions.
*/
'detach xclock -update 1 -geometry 100x100-1+1'
'start/min/n "Login Xterm" xterm -sb -geometry 80x25+0+0 -name login'
IF manpath \= '' THEN
'detach xman -geometry 100x100-105+1'
/* 'startx/min/n "Xterm 1" xterm -sb -geometry 80x50+494+51' */
/* 'startx/min/n "Xterm 2" xterm -sb -geometry 80x20+494-0' */
'twm'
EXIT
exists:
'DIR "'arg(1)'" >nul 2>&1'
if rc = 0 THEN RETURN 1
RETURN 0
|
