////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 2011-2022 The Octave Project Developers
//
// See the file COPYRIGHT.md in the top-level directory of this
// distribution or <https://octave.org/copyright/>.
//
// This file is part of Octave.
//
// Octave 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 3 of the License, or
// (at your option) any later version.
//
// Octave 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 Octave; see the file COPYING.  If not, see
// <https://www.gnu.org/licenses/>.
//
////////////////////////////////////////////////////////////////////////

#if defined (HAVE_CONFIG_H)
#  include "config.h"
#endif

#include <QScrollBar>

#include "Container.h"
#include "SliderControl.h"
#include "QtHandlesUtils.h"

#include "graphics.h"
#include "interpreter.h"

#define RANGE_INT_MAX 1000000

OCTAVE_BEGIN_NAMESPACE(octave)

  SliderControl *
  SliderControl::create (octave::interpreter& interp,
                         const graphics_object& go)
  {
    Object *parent = parentObject (interp, go);

    if (parent)
      {
        Container *container = parent->innerContainer ();

        if (container)
          return new SliderControl (interp, go,
                                    new QScrollBar (container));
      }

    return nullptr;
  }

  SliderControl::SliderControl (octave::interpreter& interp,
                                const graphics_object& go,
                                QAbstractSlider *slider)
    : BaseControl (interp, go, slider), m_blockUpdates (false)
  {
    uicontrol::properties& up = properties<uicontrol> ();

    slider->setTracking (false);
    Matrix bb = up.get_boundingbox ();
    bool vertical_slider = ( bb(2) < bb(3) );
    slider->setOrientation (vertical_slider ? Qt::Vertical : Qt::Horizontal);
    if (vertical_slider)
      slider->setInvertedAppearance (true);  // Matlab compatibility
    Matrix steps = up.get_sliderstep ().matrix_value ();
    slider->setMinimum (0);
    slider->setMaximum (RANGE_INT_MAX);
    slider->setSingleStep (octave::math::round (steps(0) * RANGE_INT_MAX));
    slider->setPageStep (octave::math::round (steps(1) * RANGE_INT_MAX));
    Matrix value = up.get_value ().matrix_value ();
    if (value.numel () > 0)
      {
        double dmin = up.get_min (), dmax = up.get_max ();

        slider->setValue (octave::math::round (((value(0) - dmin) / (dmax - dmin))
                                               * RANGE_INT_MAX));
      }

    connect (slider, &QAbstractSlider::valueChanged,
             this, &SliderControl::valueChanged);
  }

  SliderControl::~SliderControl (void)
  { }

  void
  SliderControl::update (int pId)
  {
    uicontrol::properties& up = properties<uicontrol> ();
    QScrollBar *slider = qWidget<QScrollBar> ();

    switch (pId)
      {
      case uicontrol::properties::ID_SLIDERSTEP:
        {
          Matrix steps = up.get_sliderstep ().matrix_value ();

          slider->setSingleStep (octave::math::round (steps(0) * RANGE_INT_MAX));
          slider->setPageStep (octave::math::round (steps(1) * RANGE_INT_MAX));
        }
        break;

      case uicontrol::properties::ID_VALUE:
        {
          Matrix value = up.get_value ().matrix_value ();
          double dmax = up.get_max (), dmin = up.get_min ();

          if (value.numel () > 0)
            {
              int ival = octave::math::round (((value(0) - dmin) / (dmax - dmin))
                                              * RANGE_INT_MAX);

              m_blockUpdates = true;
              slider->setValue (ival);
              m_blockUpdates = false;
            }
        }
        break;

      default:
        BaseControl::update (pId);
        break;
      }
  }

  void
  SliderControl::valueChanged (int ival)
  {
    if (! m_blockUpdates)
      {
        gh_manager& gh_mgr = m_interpreter.get_gh_manager ();

        octave::autolock guard (gh_mgr.graphics_lock ());

        graphics_object go = object ();

        if (go.valid_object ())
          {
            uicontrol::properties& up = Utils::properties<uicontrol> (go);

            Matrix value = up.get_value ().matrix_value ();
            double dmin = up.get_min (), dmax = up.get_max ();

            int ival_tmp = (value.numel () > 0 ?
                            octave::math::round (((value(0) - dmin) / (dmax - dmin))
                                                 * RANGE_INT_MAX) :
                            0);

            if (ival != ival_tmp || value.numel () > 0)
              {
                double dval = dmin + (ival * (dmax - dmin) / RANGE_INT_MAX);

                emit gh_set_event (m_handle, "value", octave_value (dval));
                emit gh_callback_event (m_handle, "callback");
              }
          }
      }
  }

OCTAVE_END_NAMESPACE(octave)