The R Project SVN R

Rev

Rev 59039 | Rev 68817 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61162
Line 104... Line 104...
104 
\dontrun{
 104 
\dontrun{
105 
## These cannot be run by examples() but should be OK when pasted
 105 
## These cannot be run by examples() but should be OK when pasted
106 
## into an interactive R session with the tcltk package loaded
 106 
## into an interactive R session with the tcltk package loaded
107 
 
 107 
 
108 
tt <- tktoplevel()
 108 
tt <- tktoplevel()
109 
label.widget <- tklabel(tt, text="Hello, World!")
 109 
label.widget <- tklabel(tt, text = "Hello, World!")
110 
button.widget <- tkbutton(tt, text="Push",
 110 
button.widget <- tkbutton(tt, text = "Push",
111 
                          command=function()cat("OW!\n"))
 111 
                          command = function()cat("OW!\n"))
112 
tkpack(label.widget, button.widget) # geometry manager
 112 
tkpack(label.widget, button.widget) # geometry manager
113 
                                    # see Tk-commands
 113 
                                    # see Tk-commands
114 
 
 114 
 
115 
## Push the button and then...
 115 
## Push the button and then...
116 
 
 116