SCOLWebNavigatorWidget.cpp

Go to the documentation of this file.

/*
-----------------------------------------------------------------------------
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
 
-----------------------------------------------------------------------------
*/
 
 
#include "SCOLPack/SO3SCOL.h"
 
// Renderer includes
#include "SO3Renderer/SO3WebNavigatorWidget.h"
#include "SO3Renderer/SO3Root.h"
#include "SO3Renderer/SO3WidgetManager.h"
#include "SO3Material/SO3Material.h"
 
// Scene Graph includes
#include "SO3SceneGraph/SO3Scene.h"
 
#if SO3_WEB_NAVIGATOR_BUILD == 1
 
#if defined(_WIN32)
extern int(*CallMainThread)(void*, mmachine m);
#endif
 
int SO3WebNavigatorWidgetCreate(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCreate\n");
#endif
  //$BB reorder params
  int z = MTOI(MMpull(m));
  int h = MTOI(MMpull(m));
  int w = MTOI(MMpull(m));
  int topPos = MTOI(MMpull(m));
  int leftPos = MTOI(MMpull(m));
  int nam = MMpull(m);
  int vp = MMpull(m);
  int s = MMget(m, 0);
 
  if ((s == NIL) || (vp == NIL) || (nam == NIL) || (w == NIL) || (h == NIL) || (z == NIL))
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SScene* scene = MMgetPointer<SScene*>(m, MTOP(s));
  if (scene == NULL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SViewPort* viewport = MMgetPointer<SViewPort*>(m, MTOP(vp));
  if (viewport == NULL)
  {
    MMechostr(MSKDEBUG, "vp is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  std::string name(MMstartstr(m, MTOP(nam)));
  if (name.empty())
  {
    MMechostr(MSKDEBUG, "name is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Hack : If we set bigger value memset crashes : Dont' know why
  if (w >= 5000 || h >= 5000)
  {
    MMechostr(MSKDEBUG, "too bigger values \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  SWebNavigatorWidget* webNavigatorWidget = 0;
  try
  {
    webNavigatorWidget = static_cast<SWebNavigatorWidget*> (SWidgetManager::getSingleton().CreateWidget(scene, name, leftPos, topPos, w, h, viewport, z, SO3_WEB_NAVIGATOR_WIDGET_TYPE));
  }
  catch (Ogre::Exception &e)
  {
    MMechostr(MSKDEBUG, "An exception has occurred while creating web navigator widget: %s\n", e.what());
    MMset(m, 0, NIL);
    return 0;
  }
 
  //get scene scol object
  int p = OBJfindTH(m, SO3SCENETYPE, SCOL_PTR scene);
  // push channel
  MMset(m, 0, MMfetch(m, p, OFFOBJCHN));
 
  if ((MMpushPointer(m, webNavigatorWidget) != 0))
  {
    SWidgetManager::getSingleton().DeleteWidget(webNavigatorWidget);
    MMset(m, 0, NIL);
    return MERRMEM;
  }
 
  return OBJcreate(m, SO3WIDGET, SCOL_PTR webNavigatorWidget, SO3VPTYPE, SCOL_PTR viewport);
}
/*
int SO3WebNavigatorWidgetCreate(mmachine m)
{
  CallMainThread((void*)SO3WebNavigatorWidgetCreateSync, m);
  return 0;
}*/
 
int SO3WebNavigatorWidgetCreateBackground(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCreateBackground\n");
#endif
 
  int h = MTOI(MMpull(m));
  int w = MTOI(MMpull(m));
  int topPos = MTOI(MMpull(m));
  int leftPos = MTOI(MMpull(m));
  int nam = MMpull(m);
  int vp = MMpull(m);
  int s = MMget(m, 0);
 
  if ((s == NIL) || (vp == NIL) || (nam == NIL) || (w == NIL) || (h == NIL))
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SScene* scene = MMgetPointer<SScene*>(m, MTOP(s));
  if (scene == NULL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SViewPort* viewport = MMgetPointer<SViewPort*>(m, MTOP(vp));
  if (viewport == NULL)
  {
    MMechostr(MSKDEBUG, "vp is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  std::string name(MMstartstr(m, MTOP(nam)));
  if (name.empty())
  {
    MMechostr(MSKDEBUG, "name is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Hack : If we set bigger value memset crashes : Dont' know why
  if (w >= 5000 || h >= 5000)
  {
    MMechostr(MSKDEBUG, "too bigger values \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  SWebNavigatorWidget* webNavigatorWidget = 0;
  try
  {
    webNavigatorWidget = static_cast<SWebNavigatorWidget*> (SWidgetManager::getSingleton().CreateWidget(scene, name, leftPos, topPos, w, h, viewport, SO3_WEB_NAVIGATOR_WIDGET_TYPE));
  }
  catch (Ogre::Exception &e)
  {
    MMechostr(MSKDEBUG, "An exception has occurred while creating web navigator widget: %s\n", e.what());
    MMset(m, 0, NIL);
    return 0;
  }
 
  //get scene scol object
  int p = OBJfindTH(m, SO3SCENETYPE, SCOL_PTR scene);
  // push channel
  MMset(m, 0, MMfetch(m, p, OFFOBJCHN));
 
  if ((MMpushPointer(m, webNavigatorWidget) != 0))
  {
    SWidgetManager::getSingleton().DeleteWidget(webNavigatorWidget);
    MMset(m, 0, NIL);
    return MERRMEM;
  }
 
  return OBJcreate(m, SO3WIDGET, SCOL_PTR webNavigatorWidget, SO3VPTYPE, SCOL_PTR viewport);
}
/*
int SO3WebNavigatorWidgetCreateBackground(mmachine m)
{
  CallMainThread((void*)SO3WebNavigatorWidgetCreateBackgroundSync, m);
  return 0;
}*/
 
int SO3WebNavigatorWidgetCreateOnMaterial(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCreateOnMaterial\n");
#endif
  int index = MTOI(MMpull(m));
  int pass = MTOI(MMpull(m));
  int tec = MTOI(MMpull(m));
  int h = MMpull(m);
  int w = MMpull(m);
  int n = MMpull(m);
  int mat = MMpull(m);
  int s = MMget(m, 0);
  if ((s == NIL) || (mat == NIL) || (tec == NIL) || (pass == NIL) || (index == NIL) || (w == NIL) || (h == NIL) || (n == NIL))
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SScene* scene = MMgetPointer<SScene*>(m, MTOP(s));
  if (scene == NULL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SMaterial* material = MMgetPointer<SMaterial*>(m, MTOP(mat));
  if (material == NULL)
  {
    MMechostr(MSKDEBUG, "material==NULL\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  if (material->GetAssociatedWidget() != 0)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCreateOnMaterial : %s already have a widget on it!\n", material->GetName().c_str());
    MMset(m, 0, NIL);
    return 0;
  }
 
  std::string name(MMstartstr(m, MTOP(n)));
  if (name.empty())
  {
    MMechostr(MSKDEBUG, "name is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  if (!strcmp("BaseWhite", material->getOgreMaterialPointer()->getName().c_str()))
  {
    Ogre::LogManager::getSingleton().logMessage("Can't load web navigator widget: Material BaseWhite is Protected!", Ogre::LML_CRITICAL, true);
    MMechostr(MSKDEBUG, "Material BaseWhite is Protected \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  if (material->GetNumTechniques() < tec + 1)
  {
    Ogre::LogManager::getSingleton().logMessage("Can't load web navigator widget: Material has not enough Technique! ", Ogre::LML_CRITICAL, true);
    MMset(m, 0, NIL);
    return 0;
  }
 
  if ((material->getOgreMaterialPointer()->getTechnique(tec)->getNumPasses()) < pass + 1)
  {
    Ogre::LogManager::getSingleton().logMessage("Can't load web navigator widget: Material has not enough Pass! ", Ogre::LML_CRITICAL, true);
    MMset(m, 0, NIL);
    return 0;
  }
 
  if ((material->getOgreMaterialPointer()->getTechnique(tec)->getPass(pass)->getNumTextureUnitStates()) == 0)
  {
    Ogre::LogManager::getSingleton().logMessage("Can't load web navigator widget: Material has not enough Texture! ", Ogre::LML_CRITICAL, true);
    MMset(m, 0, NIL);
    return 0;
  }
 
  if ((material->getOgreMaterialPointer()->getTechnique(tec)->getPass(pass)->getNumTextureUnitStates()) < index + 1)
  {
    Ogre::LogManager::getSingleton().logMessage("Can't load web navigator widget: Material has not enough Texture! ", Ogre::LML_CRITICAL, true);
    MMset(m, 0, NIL);
    return 0;
  }
 
  SWebNavigatorWidget* webNavigatorWidget = 0;
  try
  {
    webNavigatorWidget = static_cast<SWebNavigatorWidget*> (SWidgetManager::getSingleton().CreateWidget(scene, name, MTOI(w), MTOI(h), material, tec, pass, index, SO3_WEB_NAVIGATOR_WIDGET_TYPE));
  }
  catch (Ogre::Exception &e)
  {
    MMechostr(MSKDEBUG, "An exception has occurred while creating web navigator widget: %s\n", e.what());
    MMset(m, 0, NIL);
    return 0;
  }
 
  //get scene scol object
  int p = OBJfindTH(m, SO3SCENETYPE, SCOL_PTR scene);
  // push channel
  MMset(m, 0, MMfetch(m, p, OFFOBJCHN));
 
  if ((MMpushPointer(m, webNavigatorWidget) != 0))
  {
    SWidgetManager::getSingleton().DeleteWidget(webNavigatorWidget);
    MMset(m, 0, NIL);
    return MERRMEM;
  }
 
  return OBJcreate(m, SO3WIDGET, SCOL_PTR webNavigatorWidget, SO3MATERIAL, SCOL_PTR material);
}
/*
int SO3WebNavigatorWidgetCreateOnMaterial(mmachine m)
{
  CallMainThread((void*)SO3WebNavigatorWidgetCreateOnMaterialSync, m);
  return 0;
}*/
 
int SO3WebNavigatorWidgetLoadHTML(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetLoadHTML\n");
#endif
 
  int scolHtml = MMpull(m);
  int scolWidget = MMget(m, 0);
  if ((scolWidget == NIL) || (scolHtml == NIL))
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get HTML content
  const char* html = MMstartstr(m, MTOP(scolHtml));
  if (html == 0)
  {
    MMechostr(MSKDEBUG, "Html content is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  if (!strcmp("", html))
  {
    MMechostr(MSKDEBUG, "Html content is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Load HTML content
  try
  {
    webNavigatorWidget->LoadHTML(std::string(html));
  }
  catch (const Ogre::Exception& e)
  {
    MMechostr(MSKDEBUG, "An error occurs while trying to load a html content on a widget: %s\n", e.what());
    MMset(m, 0, NIL);
    return 0;
  }
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionUndo(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionUndo\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionUndo: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Undo(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionRedo(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionRedo\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionRedo: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Redo(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionCut(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionCut\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionCut: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Cut(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionCopy(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionCopy\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionCopy: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Copy(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionPaste(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionPaste\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionPaste: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Paste(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionDelete(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionDelete\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionDelete: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Delete(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetActionSelectAll(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionSelectAll\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetActionSelectAll: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->SelectAll(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetPrint(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetPrint\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetPrint: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->Print(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetViewSource(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetViewSource\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetViewSource: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  webNavigatorWidget->ViewSource(frameName);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetGetSource(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetSource\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMpull(m);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetSource: Invalid parameters!\n");
    MMpush(m, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  std::string frameSource = webNavigatorWidget->GetSource(frameName);
  return Mpushstrbloc(m, (char*)(frameSource.c_str()));
  return 0;
}
 
int SO3WebNavigatorWidgetGetText(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetText\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMpull(m);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetText: Invalid parameters!\n");
    MMpush(m, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  std::string frameText = webNavigatorWidget->GetText(frameName);
  return Mpushstrbloc(m, (char*)(frameText.c_str()));
  return 0;
}
 
 
int SO3WebNavigatorWidgetGetURL(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetURL\n");
#endif
 
  int scolFrameName = MMpull(m);
  int scolWidget = MMpull(m);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetURL: Invalid parameters!\n");
    MMpush(m, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the optional frame name
  std::string frameName = "";
  if (scolFrameName != NIL)
    frameName = MMstartstr(m, MTOP(scolFrameName));
 
  std::string url = webNavigatorWidget->GetURL(frameName);
  return Mpushstrbloc(m, (char*)(url.c_str()));
  return 0;
}
 
int SO3WebNavigatorWidgetCanGoBack(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCanGoBack\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCanGoBack: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  if (webNavigatorWidget->CanGoBack())
    MMset(m, 0, ITOM(1));
  else
    MMset(m, 0, ITOM(0));
  return 0;
}
 
int SO3WebNavigatorWidgetGoBack(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "WebNavigatorGoBack\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGoBack: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->GoBack();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetCanGoForward(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCanGoForward\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCanGoForward: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  if (webNavigatorWidget->CanGoForward())
    MMset(m, 0, ITOM(1));
  else
    MMset(m, 0, ITOM(0));
  return 0;
}
 
int SO3WebNavigatorWidgetGoForward(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGoForward\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGoForward: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->GoForward();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetReload(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetReload\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetReload: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->Reload();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetReloadIgnoreCache(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetReloadIgnoreCache\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetReloadIgnoreCache: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->ReloadIgnoreCache();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetStopLoad(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetStopLoad\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetStopLoad: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->StopLoad();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetFind(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetFind\n");
#endif
 
  int scolFirstSearch = MMpull(m);
  int scolCaseSensitive = MMpull(m);
  int scolSearchForward = MMpull(m);
  int scolSearchedText = MMpull(m);
  int scolSearchIdentifier = MMpull(m);
  int scolWidget = MMget(m, 0);
  if ((scolWidget == NIL) || (scolSearchedText == NIL) || (scolSearchIdentifier == NIL))
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetFind: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  // Get the search index
  int searchIdentifier = MTOI(scolSearchIdentifier);
 
  // Get text to search
  std::string searchedText = MMstartstr(m, MTOP(scolSearchedText));
 
  // Search forward?
  bool searchForward = true;
  if (scolSearchForward != NIL)
    if (MTOI(scolSearchForward) == 0)
      searchForward = false;
 
  // Case sensitive?
  bool caseSensitive = false;
  if (scolCaseSensitive != NIL)
    if (MTOI(scolCaseSensitive) == 0)
      caseSensitive = true;
 
  // First search or follow up?
  bool firstSearch = true;
  if (scolFirstSearch != NIL)
    if (MTOI(scolFirstSearch) == 0)
      firstSearch = false;
 
  // Launch search, response will be sent in the dedicated callback
  webNavigatorWidget->Find(searchIdentifier, searchedText, searchForward, caseSensitive, firstSearch);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetStopFinding(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetStopFinding\n");
#endif
 
  int scolClearSelection = MMpull(m);
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetStopFinding: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  bool clearSelection = false;
  if (scolClearSelection != NIL)
    if (MTOI(scolClearSelection) == 1)
      clearSelection = true;
 
  webNavigatorWidget->StopFinding(clearSelection);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetGetZoomLevel(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetZoomLevel\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetGetZoomLevel: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  float zoomLevel = webNavigatorWidget->GetZoomLevel();
  MMset(m, 0, FTOM(zoomLevel));
  return 0;
}
 
int SO3WebNavigatorWidgetSetZoomLevel(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetSetZoomLevel\n");
#endif
 
  int scolZoomLevel = MMpull(m);
  int scolWidget = MMget(m, 0);
  if ((scolWidget == NIL) || (scolZoomLevel == NIL))
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetSetZoomLevel: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  float zoomLevel = MTOF(scolZoomLevel);
  webNavigatorWidget->SetZoomLevel(zoomLevel);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetClearHistory(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetClearHistory\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetClearHistory: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->ClearHistory();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetShowDevTools(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetShowDevTools\n");
#endif
 
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetShowDevTools: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->ShowDevTools();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
int SO3WebNavigatorWidgetCloseDevTools(mmachine m)
{
#ifdef SCOL_DEBUG
  MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCloseDevTools\n");
#endif
  int scolWidget = MMget(m, 0);
  if (scolWidget == NIL)
  {
    MMechostr(MSKDEBUG, "SO3WebNavigatorWidgetCloseDevTools: Invalid parameters!\n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Get the widget pointer
  SWidget* widget = MMgetPointer<SWidget*>(m, MTOP(scolWidget));
  if (widget == 0)
  {
    MMechostr(MSKDEBUG, "widget instance is NULL \n");
    MMset(m, 0, NIL);
    return 0;
  }
 
  // Check the type of the widget
  if (widget->GetType() != SO3_WEB_NAVIGATOR_WIDGET_TYPE)
  {
    MMechostr(MSKDEBUG, "bad widget type \n");
    MMset(m, 0, NIL);
    return 0;
  }
  SWebNavigatorWidget* webNavigatorWidget = static_cast<SWebNavigatorWidget*>(widget);
 
  webNavigatorWidget->CloseDevTools();
  MMset(m, 0, ITOM(1));
  return 0;
}
 
 
NativeDefinition natSO3WebWidget[] = {
  { "SO3WebNavigatorWidgetCreate",             8, "fun [SO3_SCENE SO3_VIEWPORT S I I I I I] SO3_WIDGET", SO3WebNavigatorWidgetCreate            },
  { "SO3WebNavigatorWidgetCreateBackground",   7, "fun [SO3_SCENE SO3_VIEWPORT S I I I I] SO3_WIDGET",   SO3WebNavigatorWidgetCreateBackground  },
  { "SO3WebNavigatorWidgetCreateOnMaterial",   8, "fun [SO3_SCENE SO3_MATERIAL S I I I I I] SO3_WIDGET", SO3WebNavigatorWidgetCreateOnMaterial  },
  { "SO3WebNavigatorWidgetLoadHTML",           2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetLoadHTML          },
  { "SO3WebNavigatorWidgetActionUndo",         2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionUndo        },
  { "SO3WebNavigatorWidgetActionRedo",         2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionRedo        },
  { "SO3WebNavigatorWidgetActionCut",          2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionCut         },
  { "SO3WebNavigatorWidgetActionCopy",         2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionCopy        },
  { "SO3WebNavigatorWidgetActionPaste",        2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionPaste       },
  { "SO3WebNavigatorWidgetActionDelete",       2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionDelete      },
  { "SO3WebNavigatorWidgetActionSelectAll",    2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetActionSelectAll   },
  { "SO3WebNavigatorWidgetPrint",              2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetPrint             },
  { "SO3WebNavigatorWidgetViewSource",         2, "fun [SO3_WIDGET S] I",                                SO3WebNavigatorWidgetViewSource        },
  { "SO3WebNavigatorWidgetGetSource",          2, "fun [SO3_WIDGET S] S",                                SO3WebNavigatorWidgetGetSource         },
  { "SO3WebNavigatorWidgetGetText",            2, "fun [SO3_WIDGET S] S",                                SO3WebNavigatorWidgetGetText           },
  { "SO3WebNavigatorWidgetGetURL",             2, "fun [SO3_WIDGET S] S",                                SO3WebNavigatorWidgetGetURL            },
  { "SO3WebNavigatorWidgetCanGoBack",          1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetCanGoBack         },
  { "SO3WebNavigatorWidgetGoBack",             1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetGoBack            },
  { "SO3WebNavigatorWidgetCanGoForward",       1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetCanGoForward      },
  { "SO3WebNavigatorWidgetGoForward",          1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetGoForward         },
  { "SO3WebNavigatorWidgetReload",             1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetReload            },
  { "SO3WebNavigatorWidgetReloadIgnoreCache",  1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetReloadIgnoreCache },
  { "SO3WebNavigatorWidgetStopLoad",           1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetStopLoad          },
  { "SO3WebNavigatorWidgetFind",               6, "fun [SO3_WIDGET I S I I I] I",                        SO3WebNavigatorWidgetFind              },
  { "SO3WebNavigatorWidgetStopFinding",        2, "fun [SO3_WIDGET I] I",                                SO3WebNavigatorWidgetStopFinding       },
  { "SO3WebNavigatorWidgetGetZoomLevel",       1, "fun [SO3_WIDGET] F",                                  SO3WebNavigatorWidgetGetZoomLevel      },
  { "SO3WebNavigatorWidgetSetZoomLevel",       2, "fun [SO3_WIDGET F] I",                                SO3WebNavigatorWidgetSetZoomLevel      },
  { "SO3WebNavigatorWidgetClearHistory",       1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetClearHistory      },
  { "SO3WebNavigatorWidgetShowDevTools",       1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetShowDevTools      },
  { "SO3WebNavigatorWidgetCloseDevTools",      1, "fun [SO3_WIDGET] I",                                  SO3WebNavigatorWidgetCloseDevTools     }
};
 
 
int SCOLloadWebNavigatorWidget(mmachine m)
{
  return PKhardpak2(m, "SO3WebWidget.pkg", sizeof(natSO3WebWidget) / sizeof(natSO3WebWidget[0]), natSO3WebWidget);
}
 
 
int SCOLfreeWebNavigatorWidget()
{
  return 0;
}
 
#endif