# NOT RUN {
values <- guiGetAllValues()
value1 <- guiGetValue(1)
# }
# NOT RUN {
# }
# NOT RUN {
## These are the constants that you can modify
## to change the way things are displayed.
guiSet( "SLIDER_LENGTH", 500 )
guiSet( "ENTRY_WIDTH", 40 )
guiSet( "LIST_HEIGHT", 15 )
guiSet( "LIST_WIDTH", 15 )
guiSet( "EDIT_WIDTH", 65 )
guiSet( "EDIT_HEIGHT", 5 )
# }
Run the code above in your browser using DataLab