/* 
  MODULE "imageweb" - part EDITOR
  author : iri - http://www.irizone.net
  version 1.0 - june 2004
*/

typeof editWin = ObjWin;;
typeof flag = I;;
typeof flag1 = ObjCheck;;
typeof flag2 = ObjCheck;;
typeof flag3 = ObjCheck;;
typeof flag4 = ObjCheck;;
typeof url = ObjText;;
typeof name = ObjText;;

fun cbCheck(box, n, state)=
  set flag = n;
  if (state == 1) && (n == 0) then
    (_SETcheck flag2 0;
     _SETcheck flag3 0;
     _SETcheck flag4 0;
     0)
  else if (state == 1) && (n== 1) then
    (_SETcheck flag1 0;
     _SETcheck flag3 0;
     _SETcheck flag4 0;
     0)
  else if (state == 1) && (n== 2) then
    (_SETcheck flag1 0;
     _SETcheck flag2 0;
     _SETcheck flag4 0;
     0)
  else if (state == 1) && (n== 3) then
    (_SETcheck flag1 0;
     _SETcheck flag2 0;
     _SETcheck flag3 0;
     0)
  else 
    0;;

fun save (filename, n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"destroy"::"destroy"::nil)::
  ("action"::"newAll"::nil)::
  ("actionC"::"show"::"show"::nil)::
  ("actionC"::"hide"::"hide"::nil)::
  ("actionC"::"new"::nil)::
  ("event"::"destroyed"::"destroyed"::nil)::
  ("event"::"chgAdmin"::nil)::
  ("eventC"::"shown"::nil)::
  ("eventC"::"hidden"::nil)::
  ("eventC"::"error"::nil)::
  ("eventC"::"loaded"::nil)::
  ("urlimgweb"::(_GETtext url)::nil)::
  ("nameAdmin"::(_GETtext name)::nil)::
  ("flagBMP"::(itoa flag)::nil)::
  ("zone"::"Button"::nil)::
  ("zoneC"::"Image"::nil)::
  nil;;
  
fun load (l)=
  _SETtext url getInfo l "urlimgweb";
  _SETtext name getInfo l "nameAdmin";
  set flag = atoi getInfo l "flagBMP";
  if flag == 0 then
    _SETcheck flag1 1
  else if flag == 1 then
    _SETcheck flag2 1
  else if flag == 2 then
    _SETcheck flag3 1
  else if flag == 3 then
    _SETcheck flag4 1
  else
    nil;
  0;;
      
fun IniEditor (s)= 
 let startEditor
     _channel nil nil nil 355 80 WN_NORMAL EDITOR_NORMAL 
      s "dms/games/clouvion/clouvion.dmc" nil nil
       @load @save nil
   -> ed in
   (
      set editWin = getEditWin ed;
      _CRtext _channel editWin 5 5 50 20 ET_BORDER "init url :";
      set url = _CReditLine _channel editWin 60 5 290 20 ET_DOWN|ET_AHSCROLL "";
      _CRtext _channel editWin 5 30 50 20 ET_BORDER "flag :";
      set flag1 = _CRcheck _channel editWin 60 30 60 20 CH_DOWN|CH_LEFT "stretched";
      set flag2 = _CRcheck _channel editWin 130 30 60 20 CH_DOWN|CH_LEFT "center";
      set flag3 = _CRcheck _channel editWin 200 30 60 20 CH_DOWN|CH_LEFT "whole";
      set flag4 = _CRcheck _channel editWin 270 30 60 20 CH_DOWN|CH_LEFT "tiled";
      _CRtext _channel editWin 5 55 50 20 ET_BORDER "button srv";
      set name = _CReditLine _channel editWin 60 55 290 20 ET_DOWN|ET_AHSCROLL "admin image web";
      _CBcheck flag1 @cbCheck 0;
      _CBcheck flag2 @cbCheck 1;
      _CBcheck flag3 @cbCheck 2;
      _CBcheck flag4 @cbCheck 3;
     if s==nil then nil else openDMI ed
   );
0;;