tcl - How do I bring an R Tk window to the front after launching via Rscript from another application? -

-

i have script along lines of:

if (!require(tcltk2)) {install.packages('tcltk2', repos="http://cran.us.r-project.org"); require(tcltk2)}  base <- null done <- tclvar(0)  quasitelgui <- function(inputfile = null) {     base <- tktoplevel()     tkwm.title(base, "quasitel")      # files     file.frm <- tkframe(base, borderwidth=2)     datafile.lbl <- tklabel(file.frm, text="data")     datafile.entry <- tkentry(file.frm, state="readonly")     datafile.btn <- tkbutton(file.frm, text="browse...")     tkgrid(datafile.lbl, datafile.entry, datafile.btn)     tkgrid.configure(datafile.lbl, sticky="e")     tkgrid.configure(datafile.entry, sticky="ew", padx=1)     tkgrid.columnconfigure(file.frm, 1, weight=1)     tkgrid(file.frm)     tkgrid.configure(file.frm, sticky="ew")      # main     main.frm <- tkframe(base, borderwidth=2)     g1.lbl <- tklabel(main.frm, text="group 1")     g2.lbl <- tklabel(main.frm, text="group 2")     tkgrid(g1.lbl, g2.lbl)      q.btn <- tkbutton(bott.frm, text="quit", command=function() tclvalue(done) <- 1)     tkbind(base,"<destroy>", function() tclvalue(done) <- 2)     tkgrid(filter.lbl, columnspan=2)     tkgrid(filter.entry)     tkgrid(ok.btn, q.btn)     tkgrid.configure(ok.btn, q.btn, padx=1)     tkgrid(bott.frm)     tkgrid.columnconfigure(base, 0, weight=1)      if (length(inputfile) > 0) { datafile.open(inputfile) } }  cmd.args <- commandargs(trailingonly=true)  if (length(cmd.args) > 0) {     quasitelgui(gsub("\\\\", "/", cmd.args[1])) } else {     quasitelgui() }  tkfocus(base) tkwait.variable(done) tkdestroy(base)

i'm running via rscript gui. want window grab focus when starts. tkfocus doesn't it.

not focus, raise:

> library(tcltk) loading tcl/tk interface ... done > w1 <- tktoplevel() > w2 <- tktoplevel() > tkraise(w1)

Comments

Post a Comment

Popular posts from this blog

delphi - How to convert bitmaps to video? -

-
Image
my application creates images fractals , love feeling of 'flying' around fractal. once saved 2000 bitmaps file , created avi using premiere. experience rather frustrating though succeeded in creating movie. spectacular. of course want create video application. don't care niftyness of codec, compression or whatever. want have video can replay on systems. in past have tried never succeeded. triggered question alas not ffmpeg running. update i decided adapt question , put bounty it. have seen several solutions attractive (because it's simple) seems me taviwrite. tried taviwriter did not succeed. in procedure taviwriter.write; function call around line 370 avierr := avisavev(s, // pchar(filename), nil, // file handler nil, // callback nstreams, // number of streams streams, compoptions); // compress options
Read more

jasper reports - Fixed header in Excel using JasperReports -

-
how can create excel report fixed header using japserreports? mean need header fixed when scroll excel file. this possible adding couple properties in jrxml file each report. take @ advanced excel features freeze panes. if wanted freeze after first column header (down left side basically) this: <statictext> <reportelement style="sans_bold" mode="opaque" x="0" y="60" width="104" height="20" forecolor="#ffffff" backcolor="#666666"> <property name="net.sf.jasperreports.export.xls.auto.filter" value="start"/> <property name="net.sf.jasperreports.export.xls.column.width" value="110"/> <property name="net.sf.jasperreports.export.xls.freeze.column.edge" value="left"/> </reportelement> &
Read more

python - ('The SQL contains 0 parameter markers, but 50 parameters were supplied', 'HY000') or TypeError: 'tuple' object is not callable -

-
import pyodbc,nltk,array cnxn = pyodbc.connect('driver={mysql odbc 5.1 driver};server=127.0.0.1;port=3306;database=information_schema;user=root; password=1234;option=3;') cursor = cnxn.cursor() cursor.execute("use collegedatabase ;") cursor.execute("select * sampledata ; ") cnxn.commit() s=[] j=[] x=[] words = [] w = [] sfq = [] pos=[] entry in cursor: s.append(entry.injury_type),j.append(entry.injury_desc) nltk.tokenize import punktwordtokenizer nltk.corpus import stopwords tokenizer = punktwordtokenizer() english_stops = set(stopwords.words('english')) in range(0,26): # filter stop words tokenizer.tokenize(j[i]) w.append([word word in tokenizer.tokenize(j[i]) if word not in english_stops]) in range(0 , 26):#converting tokenzied text ito string sfq.append(" ".join(w[a])) replacers import regexpreplacer replacer = regexpreplacer() in range (0,26):#pos tagging replacer.repl
Read more