1/*
2 *  Make a program object for the OS/2 version of units
3 *  Peter Weilbacher (os2@Weilbacher.org), 25Jan2003
4 *
5 *  Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc
6 *
7 *  This program is free software; you can redistribute it and/or modify
8 *  it under the terms of the GNU General Public License as published by
9 *  the Free Software Foundation; either version 3 of the License, or
10 *  (at your option) any later version.
11 *
12 *  This program is distributed in the hope that it will be useful,
13 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
14 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 *  GNU General Public License for more details.
16 *
17 *  You should have received a copy of the GNU General Public License
18 *  along with this program; if not, write to the Free Software
19 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
20 *
21 */
22
23call RxFuncAdd SysLoadFuncs, REXXUtil, SysLoadFuncs
24call SysLoadFuncs
25
26workdir = Directory()
27classname='WPProgram'
28
29title = 'units'
30location = '<WP_DESKTOP>'
31setup = 'OBJECTID=<UNITS>;'||,
32	'EXENAME=CMD.EXE;'||,
33	'PARAMETERS=/c mode co50,5 & units.exe [from-unit] [to-unit] & pause;'||,
34	'STARTUPDIR='workdir
35if SysCreateObject(classname, title, location, setup, 'U') then
36   say 'Object created.'
37else
38   say 'Could NOT create the object!!'
39
40title = 'units Shell'
41location = '<WP_DESKTOP>'
42setup = 'OBJECTID=<UNITSSHELL>;'||,
43	'EXENAME=CMD.EXE;'||,
44	'PARAMETERS=/c mode co80,25 & units.exe;'||,
45	'STARTUPDIR='workdir
46if SysCreateObject(classname, title, location, setup, 'U') then
47   say 'Object created.'
48else
49   say 'Could NOT create the object!!'
50