!7

cmodule MoveModulesEffect > DynSingleFunction {

  transient L<Entry> entries;

  transient int steps = 15, stepsBack = 5;

  transient double sleepBetween = 2.0;

  sclass Entry {

    S module;

    Rect original;

    Pt destiny;

  }

  void doIt {

    entries = synchroList();

    final int w = dm_desktopWidth(), mid = w/2, margin = 20;

    try {

      for (S module : dm_visibleModuleIDs()) {

        Rect r = dm_frameRect(module);

        if (r == null) continue;

        bool goRight = r.x >= mid;

        Pt destiny = pt(goRight ? w+margin : -margin-r.w, r.y);

        entries.add(nu(Entry.class, +module, original := r, +destiny));

      }

      for i to steps: {

        moveThem(i, steps);

        sleep(50);

      }

      sleepSeconds(sleepBetween);

      for (int i = stepsBack-1; i > 0; i--) {

        moveThem(i, stepsBack);

        sleep(50);

      }

    } finally {

      for (Entry e : entries)

        dm_setBounds(e.module, e.original);

    }

  }

  void moveThem(final int i, final int steps) {

    swing {

      for (Entry e : entries)

        dm_setBounds(e.module,

          blend(e.original.x, e.destiny.x, doubleRatio(i, steps-1)),

          blend(e.original.y, e.destiny.y, doubleRatio(i, steps-1)),

          e.original.w, e.original.h);

    }

  }

}