home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 2: PC
/
frozenfish_august_1995.bin
/
bbs
/
d09xx
/
d0926.lha
/
JcGraph
/
Rexx
/
WindowPre2.rex
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-10-07
|
1KB
|
52 lines
/* WindowPre2.rex */
/* -------------- */
/* Description: Set window size and position according to value previously */
/* saved with 'Set2'. */
options results
address 'JCGRAPH'
if open('WinDflt','T:WinDflt2','R') then do
'ActivateWindow Output'
here=readln('WinDflt')
SpcPos = pos(" ",here)
MyX = left(here,SpcPos - 1)
MyY = substr(here,SpcPos + 1)
'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
here=readln('WinDflt')
SpcPos = pos(" ",here)
MyX = left(here,SpcPos - 1)
MyY = substr(here,SpcPos + 1)
'SizeWindow Width=' || MyX 'Height=' || MyY
'ActivateWindow Preview'
here=readln('WinDflt')
SpcPos = pos(" ",here)
MyX = left(here,SpcPos - 1)
MyY = substr(here,SpcPos + 1)
'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
here=readln('WinDflt')
SpcPos = pos(" ",here)
MyX = left(here,SpcPos - 1)
MyY = substr(here,SpcPos + 1)
'SizeWindow Width=' || MyX 'Height=' || MyY
'ActivateWindow Interface'
here=readln('WinDflt')
SpcPos = pos(" ",here)
MyX = left(here,SpcPos - 1)
MyY = substr(here,SpcPos + 1)
'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
here=readln('WinDflt')
SpcPos = pos(" ",here)
MyX = left(here,SpcPos - 1)
MyY = substr(here,SpcPos + 1)
'SizeWindow Width=' || MyX 'Height=' || MyY
end