- match !parentref with None -> assert false | Some p -> p in
- parent#remove sequentViewer#coerce;
- w#add sequentViewer#coerce;
- parentref := Some w;
+ match sequentViewer#misc#parent with
+ None -> assert false
+ | Some p -> GContainer.cast_container p
+ in
+ parent#remove sequentViewer#coerce;
+ w#add sequentViewer#coerce