/*
-----------------------------------------------------------------------------
This source file is part of OpenSpace3D
For the latest info, see http://www.openspace3d.com

Copyright (c) 2012 I-maginer

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.

This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA 02111-1307, USA, or go to
http://www.gnu.org/copyleft/lesser.txt

-----------------------------------------------------------------------------
*/

fun cbCloseEdit(p)=
  let p -> [ctrlobjname ctrlmatname ctrlenablemat ctrlenablecursor ctrlbubble ctrlignore ctrlformat ctrlchildren ctrlenable] in
  let getEdCtrlTextLineValue ctrlobjname -> objname in
  let getEdCtrlEditTextValue ctrlbubble -> ebubble in
  let getSelectedEdCtrlSelect ctrlmatname -> matname in
  let getEdCtrlCheckState ctrlenablemat -> emat in
  let getEdCtrlCheckState ctrlenablecursor -> ecursor in
  let getEdCtrlCheckState ctrlignore -> eignore in
  let getSelectedEdCtrlSelectPos ctrlformat -> format in
  let getEdCtrlCheckState ctrlchildren -> children in
  let getEdCtrlCheckState ctrlenable -> initstate in
    ["object" objname]::
    ["material" matname]::
    ["enablemat" itoa emat]::
    ["cursor" itoa ecursor]::
    ["bubble" ebubble]::
    ["ignore" itoa eignore]::
    ["format" itoa format]::
    ["children" itoa children]::
    ["enable" itoa initstate]::
    nil;;


fun fillMaterialSelector(viewstr, ctrlmatname, objname)=
  if objname == nil then nil else
  let V3DgetDefaultSession viewstr -> sessionstr in
  let SO3SceneGetObject (V3DgetSession sessionstr) objname -> obj in
  let SO3EntityMaterialList obj -> lmat in
  let nil -> lmatname in
  (
    let sizelist lmat -> size in
    let 0 -> i in
    while i < size do
    (
      let nth_list lmat i -> mat in
      let SO3MaterialGetName mat -> matname in
        set lmatname = lcat lmatname matname::nil;
      
      set i = i + 1;
    );
    
    fillEdCtrlSelect ctrlmatname lmatname;
  );
  0;;


fun cbSelectObj(val, type, p)=
  let p -> [inst winstr viewstr ctrlobjname ctrlmatname] in
  let V3DgetDefaultSession viewstr -> sessionstr in
  let SO3SceneGetObject (V3DgetSession sessionstr) val -> obj in
  if obj == nil then nil else
  (
    setEdCtrlTextLineValue ctrlobjname val;
    fillMaterialSelector viewstr ctrlmatname val;
  );
  0;;


fun cbCloseRes(ctrlbtn)=
  setEdCtrlButtonEnable ctrlbtn 1;
  0;;


fun cbBtnPickObj(ctrlbtn, p)=
  let p -> [inst winstr viewstr ctrlobjname ctrlmatname objname] in
  (
    setEdCtrlButtonEnable ctrlbtn 0;
    dlgSelectPluginInstanceResource inst winstr iTypeEntity|iTypeNode objname mkfun3 @cbSelectObj [inst winstr viewstr ctrlobjname ctrlmatname] mkfun1 @cbCloseRes ctrlbtn 0;
  );
  0;;


fun cbRefreshBtnSpec(pickbtn, p)=
  let p -> [ctrlobjname ctrlmatname] in
  (
    setEdCtrlTextLineValue ctrlobjname "";

    fillEdCtrlSelect ctrlmatname nil;
  );
  0;;
  
  
fun dynamicedit(winstr, inst, viewstr, applybtn)=
  let [420 270] -> [iw ih] in
  let 10 -> ypos in
  (
    setEdWindowSize winstr iw ih;
    let (getPluginInstanceParam inst "object") -> objname in
    let (getPluginInstanceParam inst "material") -> matname in
    let (getPluginInstanceParam inst "bubble") -> bubble in
    let atoi (getPluginInstanceParam inst "enablemat") -> enablemat in
    let if enablemat == nil then 1 else enablemat -> enablemat in
    let atoi (getPluginInstanceParam inst "cursor") -> ecursor in
    let if ecursor == nil then 1 else ecursor -> ecursor in
    let atoi (getPluginInstanceParam inst "ignore") -> eignore in
    let if eignore == nil then 0 else eignore -> eignore in
    let atoi (getPluginInstanceParam inst "format") -> format in
    let if format == nil then 0 else format -> format in
    let atoi (getPluginInstanceParam inst "children") -> children in
    let if children == nil then 0 else children -> children in
    let atoi (getPluginInstanceParam inst "enable") -> initstate in
    let if initstate == nil then 1 else initstate -> initstate in
    
    let crEdCtrlLabel winstr 10 ((set ypos = 10) + 2) 160 20 (loc "OS3DOBJECTCLICK_0008") nil -> labelobj in
    let crEdCtrlTextLine winstr 180 ypos 140 20 objname nil EDWIN_RESIZE_MW -> ctrlobjname in
    let crEdCtrlButton winstr 325 ypos 55 20 "..." nil -> pickbtn in
    let crEdCtrlButton winstr 385 ypos 35 20 "X" nil -> refreshobjname in
    
    let crEdCtrlLabel winstr 10 ((set ypos = ypos + 25) + 2) 160 20 (loc "OS3DOBJECTCLICK_0006") nil -> labelobj in
    let crEdCtrlSelect winstr 180 ypos (iw - 180) 120 EDWIN_RESIZE_MW -> ctrlmatname in
    
    let crEdCtrlCheck winstr 10 (set ypos = ypos + 25) 280 20 (loc "OS3DOBJECTCLICK_0003") EDWIN_RESIZE_MW -> ctrlenablemat in
    let crEdCtrlCheck winstr 10 (set ypos = ypos + 25) 280 20 (loc "OS3DOBJECTCLICK_0002") EDWIN_RESIZE_MW -> ctrlenablecursor in
    let crEdCtrlLabel winstr 10 ((set ypos = ypos + 25) + 2) 160 20 (loc "OS3DOBJECTCLICK_0001") nil -> labelbubble in
    let crEdCtrlEditText winstr 180 ypos (iw - 180) 50 bubble ET_AVSCROLL|ET_VSCROLL|ET_ALIGN_LEFT|ET_BORDER EDWIN_RESIZE_MW -> ctrlbubble in
    let crEdCtrlCheck winstr 10 (set ypos = ypos + 65) 280 20 (loc "OS3DOBJECTCLICK_0007") EDWIN_RESIZE_MW -> ctrlignore in
    let crEdCtrlLabel winstr 10 ((set ypos = ypos + 25) + 2) 160 20 (loc "OS3DOBJECTCLICK_0005") nil -> labelformat in
    let crEdCtrlSelect winstr 180 ypos (iw - 180) 120 EDWIN_RESIZE_MW -> ctrlformat in
    let crEdCtrlCheck winstr 10 (set ypos = ypos + 25) 280 20 (loc "OS3DOBJECTCLICK_0009") EDWIN_RESIZE_MW -> ctrlchildren in
    let crEdCtrlCheck winstr 10 (set ypos = ypos + 25) 280 20 (loc "OS3DOBJECTCLICK_0004") EDWIN_RESIZE_MW -> ctrlenable in
    (
      setEdCtrlCheckState ctrlenablemat enablemat;
      setEdCtrlCheckState ctrlenablecursor ecursor;
      setEdCtrlCheckState ctrlignore eignore;
      fillEdCtrlSelect ctrlformat (loc "OS3DOBJECTCLICK_0010")::(loc "OS3DOBJECTCLICK_0011")::(loc "OS3DOBJECTCLICK_0013")::(loc "OS3DOBJECTCLICK_0012")::nil;
      selectEdCtrlSelectByPos ctrlformat format;
      setEdCtrlCheckState ctrlchildren children;
      setEdCtrlCheckState ctrlenable initstate;
      
      fillMaterialSelector viewstr ctrlmatname objname;
      selectEdCtrlSelect ctrlmatname matname;
      
      setEdCtrlButtonCb pickbtn mkfun2 @cbBtnPickObj [inst winstr viewstr ctrlobjname ctrlmatname objname];
      setEdCtrlTextLineEnable ctrlobjname 0;
      setEdCtrlButtonCb refreshobjname mkfun2 @cbRefreshBtnSpec [ctrlobjname ctrlmatname];
      
      [mkfun1 @cbCloseEdit [ctrlobjname ctrlmatname ctrlenablemat ctrlenablecursor ctrlbubble ctrlignore ctrlformat ctrlchildren ctrlenable] nil];
    );
  );;