Stk.Packer
val init :
(< id : Stk.Oid.Map.key.. > as 'a -> int) ->
('b -> int option) ->
('c -> int) ->
'd list ->
int * t Stk.Oid.Map.t
val shrink_or_expand :
parts:int ->
remain:int ->
t Stk.Oid.Map.t ->
bool * int * int
val debug_m : t Stk.Oid.Map.t -> unit
val compute_remain : int -> t Stk.Oid.Map.t -> bool * int * int
val compute :
int ->
(Widget.widget -> int) ->
(Widget.widget -> int option) ->
(Widget.widget -> int) ->
Widget.widget list ->
t Stk.Oid.Map.t