home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
schemos2.zip
/
objects
/
mkedwin.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-13
|
1KB
|
35 lines
/* REXX - DeskMan/2 generated this file */
/* version: 1 rel. 51 */
/* (C) Copyright 1993-1994 */
/* Development Technologies, Inc. and */
/* Gregory Czaja */
/* All Rights Reserved */
Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
Call SysLoadFuncs;
Say 'Please enter the option for restoring objects!';
Say 'Enter R - for Replace, U - for Update, S - for Skip';
Say ' if an object already exists.';
Say 'Enter blank if you want to keep the option specified on Save!';
reply=Translate(SysGetKey());
If reply='S' Then reply='F';
Say '';
/*+#+#+DMan/2: object end ! (don't remove!)*/
/*-#-#-DMan/2: this entry for: Edwin, generated on 1995/03/13 at 19:34:19 */
If reply<>'R' & reply<>'U' & reply<>'F' Then reply='UpdateIfExists';
rc=SysCreateObject("WPProgram","Edwin","<Scheme>",,
"HELPPANEL=4083;"||,
"DEFAULTVIEW=RUNNING;"||,
"NOPRINT=YES;"||,
"EXENAME=SCHEME.EXE;"||,
"PARAMETERS=-edwin -eval (edit);"||,
"PROGTYPE=PM;"||,
"ICONFILE=Edwin.ICO;"||,
"", reply);
If rc<>1 Then Say "Object: Edwin could not be created/updated !";
/*+#+#+DMan/2: object end ! (don't remove !)*/