# # Simple example of a Gtk notebook. # w <- gtkWindow(show = FALSE) book <- gtkNotebook() label <- gtkButton("My label") b <- gtkButton("Foo") gtkNotebookAppendPage(book, b, label) w$Add(book) cat("Ok\n") w$Show() b1 <- gtkButton("Bar") label1 <- gtkLabel("Second label") gtkNotebookAppendPage(book, b1, label1)