[Tkabber-dev] r1812 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jun 21 14:19:30 MSD 2009


Author: sergei
Date: 2009-06-21 14:19:30 +0400 (Sun, 21 Jun 2009)
New Revision: 1812

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/messages.tcl
Log:
	* messages.tcl: Minor fixes in widgets packing (entry fields shouldn't
	  expand).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-06-18 07:10:18 UTC (rev 1811)
+++ trunk/tkabber/ChangeLog	2009-06-21 10:19:30 UTC (rev 1812)
@@ -1,3 +1,8 @@
+2009-06-21  Sergei Golovan  <sgolovan at nes.ru>
+
+	* messages.tcl: Minor fixes in widgets packing (entry fields shouldn't
+	  expand).
+
 2009-06-18  Sergei Golovan  <sgolovan at nes.ru>
 
 	* muc.tcl: Changed the order of status codes processing in MUC presence

Modified: trunk/tkabber/messages.tcl
===================================================================
--- trunk/tkabber/messages.tcl	2009-06-18 07:10:18 UTC (rev 1811)
+++ trunk/tkabber/messages.tcl	2009-06-21 10:19:30 UTC (rev 1812)
@@ -89,7 +89,7 @@
     }
 
     frame $mw.title
-    pack $mw.title -side top -anchor w -fill x -expand yes -in $mw.frame
+    pack $mw.title -side top -anchor w -fill x -expand no -in $mw.frame
     grid columnconfigure $mw.title 1 -weight 1
 
     if {[llength [connections]] > 1} {
@@ -162,7 +162,6 @@
     ::richtext::render_message $mw.rbody $body ""
     $mw.rbody configure -state disabled
     pack $mw.rsw -side top -fill both -expand yes -in $mw.frame
-    pack $mw.rbody -side top -fill both -expand yes -in $mw.rsw
     $mw.rsw setwidget $mw.rbody
 
     if {$replyP} {
@@ -196,7 +195,6 @@
         pack $mw.sw -in $mw.frame -side top -fill both -expand yes
 
         textUndoable $mw.body -width 60 -height 8 -wrap word
-        pack $mw.body -side top -fill both -expand yes -in $mw.sw
         bind $mw.body <Control-Return> "ButtonBox::invoke [double% $bbox] 0
                 break"
         $mw.sw setwidget $mw.body
@@ -430,7 +428,6 @@
     pack $mw.sw -in $mw.frame -side top -fill both -expand yes
 
     textUndoable $mw.body -width 60 -height 8 -wrap word
-    pack $mw.body -side top -fill both -expand yes -in $mw.sw
     bind $mw.body <Control-Return> "ButtonBox::invoke [double% $bbox] 0
             break"
     $mw.sw setwidget $mw.body
@@ -601,7 +598,7 @@
     pack $mw.frame -side top -fill both -expand yes -padx 2m -pady 2m
 
     frame $mw.subj
-    pack $mw.subj -side top -anchor w -fill x -expand yes -in $mw.frame
+    pack $mw.subj -side top -anchor w -fill x -expand no -in $mw.frame
     grid columnconfigure $mw.subj 1 -weight 1
 
     if {[llength [connections]] > 1} {
@@ -635,7 +632,6 @@
     text $mw.body -width 60 -height 8 -wrap word
     $mw.body insert 0.0 $status
     $mw.body configure -state disabled
-    pack $mw.body -side bottom -fill both -expand yes -in $mw.sw
     $mw.sw setwidget $mw.body
 
     BWidget::place $mw 0 0 center
@@ -836,7 +832,7 @@
     pack $mw.frame -side top -fill both -expand yes -padx 2m -pady 2m
 
     frame $mw.subj
-    pack $mw.subj -side top -anchor w -fill x -expand yes -in $mw.frame
+    pack $mw.subj -side top -anchor w -fill x -expand no -in $mw.frame
     grid columnconfigure $mw.subj 1 -weight 1
 
     set connections {}
@@ -868,7 +864,6 @@
 
     textUndoable $mw.body -width 60 -height 8 -wrap word
     $mw.body insert 0.0 [::msgcat::mc "I would like to add you to my roster."]
-    pack $mw.body -side top -fill both -expand yes -in $mw.sw
     $mw.sw setwidget $mw.body
 
     focus $mw.subj.entry



More information about the Tkabber-dev mailing list