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

  gb.form.action.h

  (c) 2000-2007 Benoit Minisini <gambas@users.sourceforge.net>

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 1, 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 General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

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

#define __GB_FORM_ACTION_H

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

#define HAS_ACTION(_widget)
If a widget has the action flag set.

#define SET_ACTION(_widget, _flag)
Sets or clears the action flag.

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

static GB_FUNCTION _action_register_func;
static GB_FUNCTION _action_raise_func;
static GB_FUNCTION _action_get_func;

static void init_action()
{
	static bool init = false;
	void *klass;

	if (init)
		return;

	klass = (void *)GB.FindClass("Action");
	GB.GetFunction(&_action_register_func, klass, "Register", "os", "");
	GB.GetFunction(&_action_raise_func, klass, "Raise", "o", "");
	GB.GetFunction(&_action_get_func, klass, "Get", "o", "s");

	init = true;
}

void CACTION_register(void *control, const char *key)
{
	//qDebug("CACTION_register: (%s %p) %s", GB.GetClassName(control), control, key);
	//fprintf(stderr, "CACTION_register: (%s %p %p) %s\n", GB.GetClassName(control), control, ((CWIDGET *)control)->widget, key);
	
	if ((!key || !*key) && !HAS_ACTION(control)) 
		//&& !GB.Is(control, CLASS_UserControl) && !GB.Is(control, CLASS_UserContainer))
		return;

	init_action();

	GB.Push(2,
		GB_T_OBJECT, control,
		GB_T_STRING, key, 0);

	GB.Call(&_action_register_func, 2, true);

	SET_ACTION(control, key && *key);
}

void CACTION_raise(void *control)
{
	init_action();

	//qDebug("CACTION_raise: (%s %p)", GB.GetClassName(THIS), THIS);

	if (!HAS_ACTION(control))
		return;

	GB.Push(1, GB_T_OBJECT, control);
	GB.Call(&_action_raise_func, 1, true);
}

void CACTION_get(void *control)
{
	init_action();

	GB.Push(1, GB_T_OBJECT, control);
	GB.Call(&_action_get_func, 1, false);

	// The result is in the good place, as if we did a GB.ReturnString()
}