MODULE ObxControlShifter;
(**

   project   = "BlackBox"
   organization   = "www.oberon.ch"
   contributors   = "Oberon microsystems"
   version   = "System/Rsrc/About"
   copyright   = "System/Rsrc/About"
   license   = "Docu/BB-License"
   changes   = ""
   issues   = ""

**)

   IMPORT Ports, FormControllers;

   PROCEDURE Shift*;

      VAR c: FormControllers.Controller; sel: FormControllers.List;
   BEGIN
      c := FormControllers.Focus();
      IF (c # NIL) & c.HasSelection() THEN
         sel := c.GetSelection();   (* generates a list with references to the selected views *)
         WHILE sel # NIL DO
            c.form.Move(sel.view, 10 * Ports.mm, 0);   (* move to the right *)
            sel := sel.next
         END
      END
   END Shift;
END ObxControlShifter.