if (inherits(displ, "GGobiScatmatDisplay"))display_widget1 <- display_widget[[2]][[1]]display_widget2 <- display_widget[[2]][[3]][["widget"]]
if (inherits(displ, "GGobiScatmatDisplay"))display_widget1 <- display_widget[[2]][[1]]else display_widget2 <- display_widget[[2]][[3]][["widget"]]