C++ (Cpp) Fl_Tile::position Examples

Example #1

File: spark_fltk_tile.cpp Project: ghosthamlet/spark-scheme

Scheme_Object*
spark_fltk_tile::position(int argc, Scheme_Object** argv)
{
  DEFAULT_RET_INIT;

  Fl_Tile* tile = _get_fl_tile(argc, argv, 0);
  if (tile)
    {
      int from_x = 0;
      int from_y = 0;
      int to_x = 0;
      int to_y = 0;
      spark::Utils::int_from_scheme_long(argv[1], from_x);
      spark::Utils::int_from_scheme_long(argv[2], from_y);
      spark::Utils::int_from_scheme_long(argv[3], to_x);
      spark::Utils::int_from_scheme_long(argv[4], to_y);
      tile->position(from_x, from_y, to_x, to_y);
      _ret_ = scheme_true;
    }

  DEFAULT_RET_FINISH;
}