/*******************************************************************************
 Module Whiteboard
 Editor part
 Version: 1.0
 Authors: LEBLOND Gregory & BRESCIA Franck & OHAYON Franck
 Last update: 28/02/2001
 Whiteboard Module
*******************************************************************************/

typeof CKregister = ObjCheck;;

fun cbLoad(l) = 
  _SETcheck CKregister 
    if !strcmp (getInfo l "CKregister") "yes" then
      1
    else
      0;
  0
;;

fun cbSave(filename, n)=
 ("CKregister"::(if _GETcheck CKregister then "yes" else "no")::nil):: 
 ("action"::"start"::nil)::
 ("action"::"chgLogin"::nil)::
 ("action"::"register"::nil)::
 ("action"::"unregister"::nil)::
 ("actionC"::"show"::nil)::
 ("actionC"::"hide"::nil)::
 ("eventC"::"showImage"::nil)::
 ("eventC"::"in"::nil)::
 nil
;;

fun IniEditor(s)=
  let [350 40] -> [w h] in
  let startEditor _channel nil 0 0 w h WN_NORMAL EDITOR_NORMAL s nil nil nil @cbLoad @cbSave nil -> ed in
  let getEditWin ed -> editWin in
  (
    set CKregister =  _CRcheck  _channel editWin 50 10 270 20 0 (_locEditor "CKREGISTER" nil);
    if s==nil then nil else openDMI ed;
  );
  0
;;