[Tkabber-dev] r1821 - in trunk/tkabber: . plugins/chat plugins/roster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Jul 31 02:19:38 MSD 2009


Author: sergei
Date: 2009-07-31 02:19:37 +0400 (Fri, 31 Jul 2009)
New Revision: 1821

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/datagathering.tcl
   trunk/tkabber/joingrdialog.tcl
   trunk/tkabber/muc.tcl
   trunk/tkabber/plugins/chat/nick_colors.tcl
   trunk/tkabber/plugins/roster/conferences.tcl
   trunk/tkabber/presence.tcl
   trunk/tkabber/pubsub.tcl
Log:
	* datagathering.tcl, joingrdialog.tcl, muc.tcl,
	  plugins/chat/nick_colors.tcl, plugins/roster/conferences.tcl,
	  presence.tcl, pubsub.tcl: Moved dialog windows to the center of root
	  window.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/ChangeLog	2009-07-30 22:19:37 UTC (rev 1821)
@@ -1,3 +1,10 @@
+2009-07-31  Sergei Golovan  <sgolovan at nes.ru>
+
+	* datagathering.tcl, joingrdialog.tcl, muc.tcl,
+	  plugins/chat/nick_colors.tcl, plugins/roster/conferences.tcl,
+	  presence.tcl, pubsub.tcl: Moved dialog windows to the center of root
+	  window.
+
 2009-07-28  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).

Modified: trunk/tkabber/datagathering.tcl
===================================================================
--- trunk/tkabber/datagathering.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/datagathering.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -441,6 +441,9 @@
 	set h [expr {$sh - 200}]
     }
     $vf configure -height $h
+
+    BWidget::place $w 0 0 center
+
     wm deiconify $w
     if {$focus != ""} {
 	focus $focus

Modified: trunk/tkabber/joingrdialog.tcl
===================================================================
--- trunk/tkabber/joingrdialog.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/joingrdialog.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -69,7 +69,7 @@
     catch { destroy $gw }
 
     Dialog $gw -title [::msgcat::mc "Join group"] -separator 1 -anchor e \
-	    -default 0 -cancel 1 -parent . -modal none
+	    -default 0 -cancel 1 -modal none
 
     set gf [$gw getframe]
     grid columnconfigure $gf 1 -weight 1

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/muc.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -588,8 +588,7 @@
     # [::msgcat::mc "Edit participant list"]
     # [::msgcat::mc "Edit visitor list"]
     Dialog $w -title [::msgcat::mc [format "Edit %s list" $val]] \
-        -modal none -separator 1 -anchor e -default 0 -cancel 1 \
-        -parent .
+        -modal none -separator 1 -anchor e -default 0 -cancel 1
 
     set wf [$w getframe]
 

Modified: trunk/tkabber/plugins/chat/nick_colors.tcl
===================================================================
--- trunk/tkabber/plugins/chat/nick_colors.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/plugins/chat/nick_colors.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -245,7 +245,7 @@
     } else { 
         set clr black
     }
-    set new [tk_chooseColor -initialcolor $clr -parent $w \
+    set new [tk_chooseColor -initialcolor $clr \
 		 -title [::msgcat::mc "Edit %s color" $nick]]
     if {$new != ""} {
 	$w tag configure NICK-$nick -foreground $new
@@ -316,7 +316,7 @@
 proc nickcolors::edit_nick_color {chatwin nick} {
     variable NickColors
 
-    set new [tk_chooseColor -initialcolor [get_color $nick] -parent $chatwin \
+    set new [tk_chooseColor -initialcolor [get_color $nick] \
 		 -title [::msgcat::mc "Edit %s color" $nick]]
     if {$new == ""} return
 

Modified: trunk/tkabber/plugins/roster/conferences.tcl
===================================================================
--- trunk/tkabber/plugins/roster/conferences.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/plugins/roster/conferences.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -361,7 +361,7 @@
     set gra_xlib [connection_jid $xlib]
 
     Dialog $gw -title [::msgcat::mc "Add Conference to Roster"] -separator 1 -anchor e \
-	    -default 0 -cancel 1 -parent . -modal none
+	    -default 0 -cancel 1 -modal none
 
     set gf [$gw getframe]
     grid columnconfigure $gf 0 -weight 0

Modified: trunk/tkabber/presence.tcl
===================================================================
--- trunk/tkabber/presence.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/presence.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -307,8 +307,7 @@
     }
 
     Dialog $w -title [::msgcat::mc "Change Presence Priority"] \
-	-modal none -separator 1 -anchor e -default 0 -cancel 1 \
-        -parent .
+	-modal none -separator 1 -anchor e -default 0 -cancel 1
 
     $w add -text [::msgcat::mc "OK"] \
 	-command [list do_change_priority $w]

Modified: trunk/tkabber/pubsub.tcl
===================================================================
--- trunk/tkabber/pubsub.tcl	2009-07-28 14:53:13 UTC (rev 1820)
+++ trunk/tkabber/pubsub.tcl	2009-07-30 22:19:37 UTC (rev 1821)
@@ -124,7 +124,7 @@
     }
 
     Dialog $w -title [::msgcat::mc "Subscriptions to pubsub nodes at %s" $service] \
-	      -modal none -separator 1 -anchor e -default 0 -cancel 0 -parent .
+	      -modal none -separator 1 -anchor e -default 0 -cancel 0
 
     $w add -text [::msgcat::mc "Close"] -command [list destroy $w]
 
@@ -349,8 +349,7 @@
     }
 
     Dialog $w -title [::msgcat::mc "Edit entities affiliations: %s" $node] \
-        -modal none -separator 1 -anchor e -default 0 -cancel 1 \
-        -parent .
+        -modal none -separator 1 -anchor e -default 0 -cancel 1
 
     set wf [$w getframe]
 



More information about the Tkabber-dev mailing list