/*******************************************************************************
 Plugin Teleport
 Editor part
 Version: 1.0
 Authors: Sylvain Huet && Sebastien DENEUX
 Last update: 21/06/2001
*******************************************************************************/
fun InstName(UI)=UI.nameInst;;

typeof plugin  = S;;
typeof class   = S;;

typeof ed      = PluginEditor;;
typeof ELcel   = ObjText;;
typeof ELpos   = ObjText;;
typeof ELa     = ObjText;;

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


fun save(l) =
 if l==nil then [nil nil nil nil]
 else
 let l -> [UI nl] in
  let (InstName UI) -> name in
  [
    nil /* registerF */
    nil /* register */
    ("plugin"::plugin::nil)::nil /* supplemental Dat */
    ("eventC"::(strcat class ".getpositions")::nil):: 
    ("eventC"::(strcat class ".teleport")::nil)::
    ("eventC"::(strcat class ".AnimSelect")::nil)::
    ("eventC"::(strcat class ".AnimKey")::nil)::
    ("eventC"::(strcat class ".alerte")::nil)::
    ("eventC"::(strcat class ".Statut?")::nil)::
    ("eventC"::(strcat class ".MsgAudio?")::nil)::
    ("eventC"::(strcat class ".VoiceIP?")::nil)::
    ("eventC"::(strcat class ".VoiceIP")::nil)::
    ("eventC"::(strcat class ".Request?")::nil)::
    ("eventC"::(strcat class ".random")::nil)::
    ("eventC"::(strcat class ".Humeur.oki")::nil)::
    ("eventC"::(strcat class ".Humeur.Notoki")::nil)::
    ("eventC"::(strcat class ".Humeur.Bof")::nil)::
    ("eventC"::(strcat class ".Humeur.Super")::nil)::
    ("eventC"::(strcat class ".Humeur.Applaudir")::nil)::
    ("eventC"::(strcat class ".Statut.Patiente")::nil)::
    ("eventC"::(strcat class ".Statut.Occupé")::nil)::
    ("eventC"::(strcat class ".Statut.Réfléchit")::nil)::
    ("eventC"::(strcat class ".Animer.Question")::nil)::
    ("eventC"::(strcat class ".Animer.Son?")::nil)::
    ("eventC"::(strcat class ".Animer.Bonjour")::nil)::
    ("eventC"::(strcat class ".Animer.AuRevoir")::nil)::
    ("eventC"::(strcat class ".Speak")::nil)::
    ("eventC"::(strcat class ".AvatarUser")::nil)::
    ("event"::(strcat class ".SendMsgAudio")::nil)::
    ("event"::(strcat class ".ShowWitheBoard")::nil)::
    ("event"::(strcat class ".ShowConfigAvatar")::nil)::
    ("event"::(strcat class ".ShowSendMail")::nil)::
    ("event"::(strcat class ".ShowNavWeb")::nil)::
    ("event"::(strcat class ".ShowSendFile")::nil)::
    ("event"::(strcat class ".ShowWebcam")::nil)::
    
    
    
    

    ("action"::(strcat class ".goto")::nil)::
    ("action"::(strcat class ".gotouser")::nil)::
    ("action"::(strcat class ".alerte")::nil)::
    ("action"::(strcat class ".senduser")::nil)::
    ("actionC"::(strcat class ".showuser")::nil)::
    ("actionC"::(strcat name ".select")::nil)::
    ("actionC"::(strcat name ".selectuser")::nil)::
    
    nil /* supplemental Dmi */
  ]
;;

fun openedit(win, param) =
  
  let strextr param -> l in
  let _GETwindowSizePosition win -> [w h x y] in
  ( 
    set ed = startPluginEditor _channel win 0 0 w h WN_CHILDINSIDE|WN_NOBORDER class;
    
    _CRtext _channel ed.PluginEditorEditWin 5 7 80 20 ET_ALIGN_LEFT "Cellule : ";
    set ELcel = _CReditLine _channel ed.PluginEditorEditWin 85 5 200 20 ET_ALIGN_LEFT|ET_DOWN
    let getInfo l "room_name" -> string in  
      if (nil == string) then
        ""
      else
        string;
    
    _CRtext _channel ed.PluginEditorEditWin 5 32 80 20 ET_ALIGN_LEFT "Position : ";
    set ELpos = _CReditLine _channel ed.PluginEditorEditWin 85 30 200 20 ET_ALIGN_LEFT|ET_DOWN
    let getInfo l "position" -> string in
      if (nil == string) then
        ""
      else
        string;
    

    _CRtext _channel ed.PluginEditorEditWin 5 82 80 20 ET_ALIGN_LEFT "Alias : ";
    set ELa = _CReditLine _channel ed.PluginEditorEditWin 85 80 200 20 ET_ALIGN_LEFT|ET_DOWN
    let getInfo l "alias" -> string in
      if (nil == string) then
        ""
      else
        string;
    
    0
  )
;;


fun closeedit() =
  
    strbuild
      ("room_name"::(_GETtext ELcel)::nil)::
      ("position" ::(_GETtext ELpos)::nil)::                                                             
      ("alias"    ::(_GETtext ELa)::nil)::nil  
;;


fun IniPlug(file) =

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