/* ****************************************************************************

This source file is a plugIT for OpenSpace3D software
For the latest info about Openspace3d, see http://www.openspace3d.com
For the support for this plugIT, see http://www.scolring.org (section : Openspace3d)

Copyright (c) 2013 Stephane Bisaro aka iri <iri@irizone.net>

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

**************************************************************************** */


/*
Feature :
This plugIT is simple. It allows to start a timer and to stop this when you want. 
When the timer is stopped, an event gives the elapsed time (by a single string
or a number of milliseconds).
*/


fun cbCloseEdit(ctrlautostart)=
  let getEdCtrlCheckState ctrlautostart -> autostart in
    ["oninit" itoa autostart]::
  nil;;


fun dynamicedit(winstr, inst, viewstr, applybtn)=
	let [400 120] -> [iw ih] in
	(
	  setEdWindowSize winstr iw ih;
    
  	let atoi (getPluginInstanceParam inst "oninit") -> oninit in   
  	let crEdCtrlCheck winstr 10 12 280 20 (loc "OS3DCHRONO_0009") EDWIN_RESIZE_MW -> ctrlautostart in
  	(
    	setEdCtrlCheckState ctrlautostart oninit;
    	[(mkfun1 @cbCloseEdit ctrlautostart) nil];
  	);
  );;