home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
p
/
projman1.zip
/
NAMECHN.SPR
< prev
next >
Wrap
Text File
|
1993-02-27
|
8KB
|
274 lines
* *********************************************************
* *
* * 02/27/93 NAMECHN.SPR 21:47:35
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (c) 1993 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This program was automatically generated by GENSCRN.
* *
* *********************************************************
PARAMETERS m.oldname
DO CASE
CASE _WINDOWS
* *********************************************************
* *
* * NAMECHN/Windows Setup Code - SECTION 1
* *
* *********************************************************
*
#REGION 1
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.rborder = SET("READBORDER")
SET READBORDER ON
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("_qdp1aplfr")
DEFINE WINDOW _qdp1aplfr ;
AT 0.000, 0.000 ;
SIZE 18.077,91.400 ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR RGB(,,,0,255,255)
ENDIF
* *********************************************************
* *
* * NAMECHN/Windows Setup Code - SECTION 2
* *
* *********************************************************
*
#REGION 1
store 'OK' to m.lhOkDoKey
store m.oldname+space(50) to m.newname
* *********************************************************
* *
* * NAMECHN/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("_qdp1aplfr")
ACTIVATE WINDOW _qdp1aplfr SAME
ELSE
ACTIVATE WINDOW _qdp1aplfr NOSHOW
ENDIF
@ 4.692,11.200 GET m.oldname ;
SIZE 1.000,68.800 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
DISABLE
@ 9.308,11.200 GET m.newname ;
SIZE 1.000,68.800 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K"
@ 2.846,41.000 SAY "Old Name" ;
FONT "MS Sans Serif", 8 ;
STYLE "T"
@ 7.462,40.400 SAY "New Name" ;
FONT "MS Sans Serif", 8 ;
STYLE "T"
@ 14.769,34.800 GET m.lhOkDoKey ;
PICTURE "@*HT Ok;Cancel" ;
SIZE 1.769,8.667,0.667 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "B"
@ 0.000,32.200 SAY "Change Name" ;
PICTURE "@I" ;
FONT "MS Sans Serif", 14 ;
STYLE "BT"
IF NOT WVISIBLE("_qdp1aplfr")
ACTIVATE WINDOW _qdp1aplfr
ENDIF
READ CYCLE
RELEASE WINDOW _qdp1aplfr
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* *
* * NAMECHN/Windows Cleanup Code
* *
* *********************************************************
*
#REGION 1
if m.lhOkDoKey='Ok'
return alltrim(m.newname)
else
return m.oldname
endif
CASE _DOS
* *********************************************************
* *
* * NAMECHN/MS-DOS Setup Code - SECTION 1
* *
* *********************************************************
*
#REGION 1
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
* *********************************************************
* *
* * MS-DOS Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("_qdp1apmvm")
DEFINE WINDOW _qdp1apmvm ;
FROM 0, 0 ;
TO 17,63 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR SCHEME 1
ENDIF
* *********************************************************
* *
* * NAMECHN/MS-DOS Setup Code - SECTION 2
* *
* *********************************************************
*
#REGION 1
store 'OK' to m.lhOkDoKey
store m.oldname+space(50) to m.newname
* *********************************************************
* *
* * NAMECHN/MS-DOS Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("_qdp1apmvm")
ACTIVATE WINDOW _qdp1apmvm SAME
ELSE
ACTIVATE WINDOW _qdp1apmvm NOSHOW
ENDIF
@ 4,2 GET m.oldname ;
SIZE 1,57 ;
DEFAULT " " ;
PICTURE "@K" ;
DISABLE
@ 9,2 GET m.newname ;
SIZE 1,57 ;
DEFAULT " " ;
PICTURE "@K"
@ 2,27 SAY "Old Name" ;
SIZE 1,8, 0
@ 7,27 SAY "New Name" ;
SIZE 1,8, 0
@ 14,22 GET m.lhOkDoKey ;
PICTURE "@*HT Ok;Cancel" ;
SIZE 1,8,1 ;
DEFAULT 1
@ 0,25 SAY "Change Name" ;
SIZE 1,11, 0
IF NOT WVISIBLE("_qdp1apmvm")
ACTIVATE WINDOW _qdp1apmvm
ENDIF
READ CYCLE
RELEASE WINDOW _qdp1apmvm
#REGION 0
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* *
* * NAMECHN/MS-DOS Cleanup Code
* *
* *********************************************************
*
#REGION 1
if m.lhOkDoKey='Ok'
return alltrim(m.newname)
else
return m.oldname
endif
ENDCASE