/* module GLOBALTERM3D - part EDITOR */
/* fonctionne avec le plugin du C3D 'term3d' */
/* by iri : info@irizone.net - mars 2004 */

/*
Copyright (c) 2004 iri. Ce fichier fait partie du module DMS "globalTerm3d".

globalTerm3d est un programme libre; vous pouvez le redistribuer et/ou le modifier selon les termes de la GNU General Public License (Licence Publique Générale GNU) telle qu'elle a été publiée par la Free Software Foundation :
soit la version 2 de la licence, soit (comme vous le souhaitez) toute version ultérieure.

globalTerm3d est distribué dans l'espoir qu'il sera utile, mais SANS LA MOINDRE GARANTIE; pas même la garantie implicite de COMMERCIABILITE ou d'ADEQUATION A UN BUT PARTICULIER.
Voir la GNU General Public License pour plus de détails.

Vous devriez avoir reçu une copie de la GNU General Public License en même temps que ce programme (fichier "COPYING", version 2 de la GNU General Public License); sinon, merci d'écrire à la Free Software Foundation, Inc, 59 Temple Place, Suite 330, Boston, MA02111-1307 USA.

De plus, globalTerm3d peut être intégré à toute distribution de tout ou partie du SCS (Set Construction Set) et basé sur la technologie Scol, à l'exclusion de toute distribution complète ou partielle payante (autre que le prix d'envoi ou d'édition du support de la distribution).

Vous devez respecter la GNU General Public License à tous les égards.
Si vous modifiez ce fichier, vous pouvez étendre cette exception à votre version du fichier, mais n'êtes pas obligé de le faire. Si vous ne souhaitez pas le faire, supprimez cette déclaration l'exception de votre version.
*/

fun save (filename, n)=
  ("action"::"inTerm"::"inTerm"::nil)::
  ("action"::"outTerm"::"outTerm"::nil)::
  ("action"::"outClient"::"outClient"::nil)::
  ("event"::"termSaved"::"termSaved"::nil)::
  nil;;

fun IniEditor (s)= 
  let startEditor
     _channel nil nil nil 355 0 WN_NORMAL EDITOR_NORMAL 
      s "dms/bots/globalTerm3d/globalTerm3d.dmc" nil nil
       nil @save nil
   -> ed in
  if s==nil then nil else openDMI ed;
0;;