62 lines
1.9 KiB
Batchfile
62 lines
1.9 KiB
Batchfile
/* OS/2 REXX */
|
|
'@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
|