package Zoom.Options is

   type Option is private;

   procedure Create_With_Parent (O : out Option;
                                 P :     Option);

   type Routine is
      access procedure;

   type Callback is
      access function (H : Routine;
                       N : String) return String;

   procedure Set_Callback (O : in out Option;
                           C :        Callback;
                           H :        Routine);
private

   type Option is null record;

end Zoom.Options;