search for: filemenu

...le at the end of the message. -- Best regards, Pavel mailto:papushev@inp.nsk.su #================================================ require ''wxruby'' include Wx class MyFrame < MDIParentFrame def initialize(title) super( nil, -1, title ) @menuBar = MenuBar.new @fileMenu = Menu.new @menuBar.append(@fileMenu, ''File'') @fileMenu.append(:mi_file_new.to_i, "New") evt_menu(:mi_file_new.to_i){|a| MDIChildFrame.new(self, -1, "MDI child") } #<< Test submenu @submenu1 = Menu.new @submenu1.append(...

...- "Tcl/TK Decision Tree Window " yvar <- "EKV" y.entry <- tkentry(tt,textvariable=yvar) submit.but <- tkbutton(tt, text="submit",command=function()tclvalue(done)<-1) done <- tclVar(0) tkpack(y.entry) topMenu <- tkmenu(tt) tkconfigure(tt,menu=topMenu) fileMenu <- tkmenu(topMenu,tearoff=FALSE) load <- function() { file <- tkcmd("tk_getOpenFile") if (!length(file)) return() chn <- tkcmd("open", file, "r") #tkinsert(txt,"0.0",tkcmd("read",chn)) chn <...

Hi,   I am making a mock user interface in tcltk and I would like to add a 'check menu button' such as shown here: http://zetcode.com/tutorials/pygtktutorial/images/checkmenuitem.png   Does anybody know how to do this? I am quite new to R. Cheers!! Albert-Jan ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ All right, but apart from the sanitation, the medicine,

Is this the right way to turn off row headers? table.rowHeaderMode = LAYOUT_FIX_WIDTH table.rowHeaderWidth = 0 -- vjoel : Joel VanderWerf : path berkeley edu : 510 665 3407

...")) ok.but2 <- tkbutton(top, text = "2. ", width=20, font=fontHeading, default="active", overrelief="flat", anchor="w"); tkgrid(ok.but2 ) tkgrid(tklabel(top,text=" ")) topMenu <- tkmenu(top) tkconfigure(top, menu = topMenu) fileMenu <- tkmenu(topMenu, tearoff = FALSE) openRecentMenu <- tkmenu(topMenu, tearoff = FALSE) tkadd(openRecentMenu, "command", label = "5 ", command = function() tkmessageBox( message = "xxxxx", icon = "error")) tkadd(openRecentMenu, "c...

...destroy(mw) } if( returnVal == "cancel" ) { # do nothing cat("Cancel was pressed.\n") } } # bind the destroy event in order to show a message box tkbind(mw,"<Destroy>",exitProg) # menu item which works fine tkadd(fileMenu, "command", label="Quit", command=exitProg) Thank you. Franco Mendolia

...' include Fox class MyWindow < FXMainWindow def initialize(app) super(app, "Window", nil, nil, DECOR_ALL, 0, 0, 600, 350) # Menu bar stretched along the top of the main window menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X) # File menu filemenu = FXMenuPane.new(self) FXMenuTitle.new(menubar, "&File", nil, filemenu) FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit the application", nil, app, FXApp::ID_QUIT) # Field field = FXTextField.new(self, 15) # Table f = FXHorizonta...

...essageBox(message="Syntax error", icon="error") return() } cat("Executing from script window:", "-----", code, "result:", sep="\n") print(eval(e)) } topMenu <- tkmenu(tt) tkconfigure(tt, menu=topMenu) fileMenu <- tkmenu(topMenu, tearoff=FALSE) tkadd(topMenu, "command", label="Run", command=run) But when I run a=mean(c(1,2,3)) I have the result on my R console but i can't access to the result. If i write a, R don't know "a". Thanks a lot, and so sorry for my...

...; ")) ok.but2 <- tkbutton(top, text = "2. ", width=20, font=fontHeading, default="active", overrelief="flat", anchor="w"); tkgrid(ok.but2 ) tkgrid(tklabel(top,text=" ")) topMenu <- tkmenu(top) tkconfigure(top, menu = topMenu) fileMenu <- tkmenu(topMenu, tearoff = FALSE) openRecentMenu <- tkmenu(topMenu, tearoff = FALSE) tkadd(openRecentMenu, "command", label = "5 ", command = function() tkmessageBox( message = "xxxxx", icon = "error")) tkadd(openRecentMenu, "com...