kkobayashi #7119(2008/08/13 10:58 GMT) [ R ] Rating0/0=0.00
いまさらですが、お題の「画面中央に」を満たしていなかったので直しました。
1 2 3 4 5 6 7 8 9
library(tcltk) w <- 100 h <- 75 tt <- tktoplevel(width=w, height=h) g <- paste("+", c(round((as.integer(tkwinfo("screenwidth", tt)) - w)/2), round((as.integer(tkwinfo("screenheight", tt)) - h)/2)), sep="", collapse="") tkwm.geometry(tt, g) tkwm.title(tt, "こんにちは、GUI！")
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#7119()
[
R
]
Rating0/0=0.00
いまさらですが、お題の「画面中央に」を満たしていなかったので直しました。
library(tcltk) w <- 100 h <- 75 tt <- tktoplevel(width=w, height=h) g <- paste("+", c(round((as.integer(tkwinfo("screenwidth", tt)) - w)/2), round((as.integer(tkwinfo("screenheight", tt)) - h)/2)), sep="", collapse="") tkwm.geometry(tt, g) tkwm.title(tt, "こんにちは、GUI！")Rating0/0=0.00-0+