/* ----------------------------------------------------------------------------- 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 deleteOb(inst)= 0;; fun cbClose(inst, from, action, param, reply)= // test if we are in editor then we stop the play mode if (inst.INST_groupstr.GRP_project.PRJ_bMode == 1) then ( _script "stopEditorFromPlugin"; 0; ) // test if we are in plugIT mode (instantiate) else if (inst.INST_groupstr.GRP_project.PRJ_bMode >= 2) then ( let (V3DgetSessionView c3dXsession) -> viewstr in if (inst.INST_groupstr.GRP_project.PRJ_bHideOnClose) then ( hideProject inst.INST_groupstr.GRP_project viewstr; 0; ) else ( deleteProject inst.INST_groupstr.GRP_project viewstr; 0; ); ) else _closemachine; 0;; fun newOb(inst)= PluginRegisterAction inst "Close" @cbClose; setPluginInstanceCbDel inst @deleteOb; 0;; fun IniPlug(file)= PlugRegister @newOb nil; setPluginEditor @dynamicedit; 0;;