ether #1992(2007/08/07 14:05 GMT) [ Tcl ] Rating0/0=0.00
1 2 3 4 5 6
set w 400 set h 300 set x [expr ([winfo screenwidth .] - $w) / 2] set y [expr ([winfo screenheight .] - $h) / 2] wm geometry . ${w}x$h+$x+$y wm title . こんにちは、GUI！
Rating0/0=0.00-0+
[ reply ]
ether
#1992()
[
Tcl
]
Rating0/0=0.00
set w 400 set h 300 set x [expr ([winfo screenwidth .] - $w) / 2] set y [expr ([winfo screenheight .] - $h) / 2] wm geometry . ${w}x$h+$x+$y wm title . こんにちは、GUI！Rating0/0=0.00-0+
[ reply ]