/* SlideTexture 2.0 Editor - DMS - July 98 - by Patrick Marty */
/* SlideTexture 3.0 Editor - DMS2 - Apr 99 - by Patrice FAVRE */

typeof LBSx    = ObjText;;
typeof ELSx    = ObjText;;
typeof LBSy    = ObjText;;
typeof ELSy    = ObjText;;
typeof LBSxImg = ObjText;;
typeof ELSxImg = ObjText;;
typeof LBSyImg = ObjText;;
typeof ELSyImg = ObjText;;
typeof LBtempo = ObjText;;
typeof ELtempo = ObjText;;

fun listtostring(l)=
if l == nil then
 ""
else
 let l -> [s nl] in
  strcatn s::" "::(listtostring nl)::nil;;
  
fun stringtolist(s)=
let strfind " " s 0 -> pos in
 if pos == nil then
  s::nil
 else
  (substr s 0 pos)::(stringtolist substr s pos+1 (strlen s) - pos);;

fun openedit(win,param)=
let strextr param -> l in
let _GETwindowSizePosition win -> [w h x y] in
let getInfos l "slide" ->  [Sx [Sy [SxImg [SyImg tempo]]]] in
( 
set LBSx = _CRtext _channel win 5 5 40 16 ET_ALIGN_LEFT "Sx : ";
 set ELSx = _CReditLine _channel win 45 5 40 18 ET_DOWN|ET_NUMBER
 if (nil == Sx) then
  "1"
 else
  Sx;

 set LBSy = _CRtext _channel win 95 5 40 16 ET_ALIGN_LEFT "Sy : ";
 set ELSy = _CReditLine _channel win 135 5 40 18 ET_DOWN|ET_NUMBER
 if (nil == Sy) then
  "1"
 else
  Sy;

 set LBSxImg = _CRtext _channel win 195 5 40 16 ET_ALIGN_LEFT "SxImg : ";
 set ELSxImg = _CReditLine _channel win 235 5 40 18 ET_DOWN|ET_NUMBER
 if (nil == SxImg) then
  "1"
 else
  SxImg;

 set LBSyImg = _CRtext _channel win 285 5 40 16 ET_ALIGN_LEFT "SyImg : ";
 set ELSyImg = _CReditLine _channel win 325 5 40 18 ET_DOWN|ET_NUMBER
 if (nil == SyImg) then
  "1"
 else
  SyImg;

 set LBtempo = _CRtext _channel win 5 35 40 16 ET_ALIGN_LEFT "tempo : ";
 set ELtempo = _CReditLine _channel win 45 35 320 18 ET_DOWN
 if (nil == tempo) then
  "1"
 else
  listtostring tempo;

 0
);;

fun closeedit()=
 strbuild
  (listcat
    "slide"::(_GETtext ELSx)::(_GETtext ELSy)::(_GETtext ELSxImg)::(_GETtext ELSyImg)::nil
    stringtolist _GETtext ELtempo
  )::nil;;

fun IniPlug(file)=
	PlugRegister getInfo strextr _getpack _checkpack file "name" nil nil @openedit @closeedit;;