🚀 go-pugleaf

Tu masz 2 procedury, ktore pewnie Ci sie przydadza:

#---------------------

proc center {path} {
 update
 set wd [winfo width $path]
 set ht [winfo height $path]
 set x [expr {([winfo screenwidth $path]-$wd)/2}]
 set y [expr {([winfo screenheight $path]-$ht)/2}]
 wm geometry $path +$x+$y
}

proc centerBy {path {parent {}}} {
 update
 if {$parent == ""} {
  set sp [split $path .]
  if {[llength $sp] > 2} {
   set parent [join [lrange $sp 0 end-1] .]
  } else {
   set parent .
  }
 }
 set sp [split [wm geometry $parent] +]
 set px [lindex $sp 1]
 set py [lindex $sp 2]
 set wd [winfo width $path]
 set ht [winfo height $path]
 set x [expr {$px+([winfo width $parent]-$wd)/2}]
 set y [expr {$py+([winfo height $parent]-$ht)/2}]
 wm geometry $path +$x+$y
}

#----------------

Pierwsza centruje okno na srodku pulpitu. Jako argument podaje sie
sciezke/nazwe okna.
Druga centruje okno na srodku danego okna. Jako drugi argument podaje się to
okno. Jesli jednak drugi argument zostanie pominiety, to okno zostanie
wycentrowane względem głownego okna aplikacji Tcl.

Jest jedna wada: okna musza sie pokazac, zanim zostana ustawione w
odpowiednim miejscu (za co odpowiada komenda [update] na poczatku kazdej z
procedur). Jest to spowodowane tym, ze window manager potrafi okreslic
wymiary okien dopiero po ich pokazaniu, a wymiary te sa potrzebne do
wycentrowania. Podejrzewam, ze da sie ten problem ominac uzywajac [wm
withdraw], trzeba pokombinowac :)

--
Pozdrawiam!
Googie