- let r = EU.list_nth m st.ET.r in
- r.ET.n <- EU.list_toggle n r.ET.n
- | [1] -> st.ET.t <- EU.list_toggle_all st.ET.t
- | [1;m] -> st.ET.t <- EU.list_toggle m st.ET.t
- | [2] -> st.ET.w <- EU.list_toggle_all st.ET.w
- | [2;m] -> st.ET.w <- EU.list_toggle m st.ET.w
- | _ -> EU.raise_error ET.ENoEntry
+ let pred r = EU.list_nth EU.nobj_select n r.ET.rn in
+ EU.list_nth pred m st.ET.sr
+ | [1] -> List.iter EU.oobj_select st.ET.so
+ | [1;n] -> EU.list_nth EU.oobj_select n st.ET.so
+ | [2] -> List.iter EU.nobj_select st.ET.sn
+ | [2;n] -> EU.list_nth EU.nobj_select n st.ET.sn
+ | _ -> EU.raise_error ET.ENoEntry
+
+let expand_entry = function
+ | [0] -> List.iter EU.robj_expand st.ET.sr
+ | [0;m] -> EU.list_nth EU.robj_expand m st.ET.sr
+ | _ -> EU.raise_error ET.ENoEntry