[Tkabber-dev] r1493 - in trunk/tkabber-plugins: . whiteboard

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Aug 26 14:32:18 MSD 2008


Author: sergei
Date: 2008-08-26 14:32:18 +0400 (Tue, 26 Aug 2008)
New Revision: 1493

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/whiteboard/whiteboard.tcl
Log:
	* whiteboard/whiteboard.tcl: Fixed width of tools radiobuttons.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2008-08-26 10:19:22 UTC (rev 1492)
+++ trunk/tkabber-plugins/ChangeLog	2008-08-26 10:32:18 UTC (rev 1493)
@@ -9,6 +9,8 @@
 	* README: Added description fo receipts and unixkeys plugins, cleared
 	  description for ctcomp plugins (thanks to Konstantin Khomoutov).
 
+	* whiteboard/whiteboard.tcl: Fixed width of tools radiobuttons.
+
 2008-08-08  Sergei Golovan <sgolovan at nes.ru>
 
 	* checkers/checkers.tcl, chess/chess.tcl, renju/renju.tcl,

Modified: trunk/tkabber-plugins/whiteboard/whiteboard.tcl
===================================================================
--- trunk/tkabber-plugins/whiteboard/whiteboard.tcl	2008-08-26 10:19:22 UTC (rev 1492)
+++ trunk/tkabber-plugins/whiteboard/whiteboard.tcl	2008-08-26 10:32:18 UTC (rev 1493)
@@ -65,46 +65,53 @@
     set tbfreehand [radiobutton $w.tb.freehand -text [::msgcat::mc "FreeHand"] \
 			-variable [namespace current]::tool($chatid) \
 			-value freehand \
+			-anchor w \
 			-command [list [namespace current]::freehand_bind \
 				      $c $chatid]]
 
     set tbpolyline [radiobutton $w.tb.line -text [::msgcat::mc "PolyLine"] \
 			-variable [namespace current]::tool($chatid) \
 			-value polyline \
+			-anchor w \
 			-command [list [namespace current]::line_bind $c $chatid]]
     
     set tbrectangle [radiobutton $w.tb.rectangle -text [::msgcat::mc "Rectangle"] \
 			-variable [namespace current]::tool($chatid) \
 			-value rectangle \
+			-anchor w \
 			-command [list [namespace current]::rectangle_bind \
 				      $c $chatid]]
 
     set tbpolygon [radiobutton $w.tb.polygon -text [::msgcat::mc "Polygon"] \
 			-variable [namespace current]::tool($chatid) \
 			-value polygon \
+			-anchor w \
 			-command [list [namespace current]::polygon_bind \
 				      $c $chatid]]
 
     set tbcircle [radiobutton $w.tb.circle -text [::msgcat::mc "Circle"] \
 			-variable [namespace current]::tool($chatid) \
 			-value circle \
+			-anchor w \
 			-command [list [namespace current]::circle_bind \
 				      $c $chatid]]
 
     set tbtext [radiobutton $w.tb.text -text [::msgcat::mc "Text"] \
-		      -variable [namespace current]::tool($chatid) \
-		      -value text \
-		      -command [list [namespace current]::text_bind \
-				    $c $chatid]]
+			-variable [namespace current]::tool($chatid) \
+			-value text \
+			-anchor w \
+			-command [list [namespace current]::text_bind \
+				       $c $chatid]]
 
     set tbmove [radiobutton $w.tb.move -text [::msgcat::mc "Move/Transform"] \
-		    -variable [namespace current]::tool($chatid) \
-		    -value move \
-		    -command [list [namespace current]::move_bind \
-				  $c $chatid]]
+			-variable [namespace current]::tool($chatid) \
+			-value move \
+			-anchor w \
+			-command [list [namespace current]::move_bind \
+				       $c $chatid]]
 
     pack $tbfreehand $tbpolyline $tbrectangle $tbpolygon $tbcircle $tbtext \
-	 $tbmove -anchor w
+	 $tbmove -anchor w -fill x
 
     button $w.tb.clear -text [::msgcat::mc "Clear"] \
 	-command [list [namespace current]::send_clear $chatid]



More information about the Tkabber-dev mailing list