/* grid3dedit.pkg : editeur du plugin grid3d */

typeof plugin=S;;
typeof class=S;;
typeof LBlines        = ObjText;;
typeof ELlines    = ObjText;;
typeof LBcols    = ObjText;;
typeof ELcols    = ObjText;;
typeof CHxaxis      = ObjCheck;;
typeof CHyaxis      = ObjCheck;;
typeof CHzaxis      = ObjCheck;;

fun msg(titre, s)=
_DLGMessageBox _channel nil titre s 0;;

proto save=fun [[Inst r1]] [[S r1] [S r1] [[S r1] r1] [[S r1] r1]];;

fun openedit(win,param)=
let strextr param -> l in
let _GETwindowSizePosition win -> [w h x y] in
( 
 set LBlines = _CRtext _channel win 5 5 80 16 ET_ALIGN_LEFT "Lines : ";
 set ELlines = _CReditLine _channel win 85 5 40 18 ET_DOWN|ET_NUMBER
 let getInfo l "lines" -> string in
 if (nil == string) then
  "8"
 else string;  
 set LBcols = _CRtext _channel win 5 35 80 16 ET_ALIGN_LEFT "Columns : ";
 set ELcols = _CReditLine _channel win 85 35 40 18 ET_DOWN|ET_NUMBER
 let getInfo l "columns" -> string in
 if (nil == string) then
  "8"
 else
  string);0;;
  
fun savesuppdmi(l)=
 if l==nil then nil /* supplemental Dmi */
 else 
	let l->[a n] in
  ("action"::(strcat a.nameInst ".in")::nil)::
  ("actionC"::(strcat a.nameInst ".mov")::nil)::
    savesuppdmi n;;

   
fun save(l)=
 if l==nil then [nil nil nil nil]
 else
 [
  nil /* registerF */
  nil /* register */
  ("plugin"::plugin::nil)::nil /* supplemental Dat */
  savesuppdmi l /* supplemental Dmi */
 ];;
 

fun closeedit()=
 strbuild
   ("lines"::(_GETtext ELlines)::nil)::
   ("columns"::(_GETtext ELcols)::nil)::nil;;

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