[Tkabber-dev] r1375 - in trunk/tkabber: . msgs plugins/chat plugins/richtext

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Feb 19 21:14:09 MSK 2008


Author: sergei
Date: 2008-02-19 21:14:08 +0300 (Tue, 19 Feb 2008)
New Revision: 1375

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/msgs/ru.msg
   trunk/tkabber/plugins/chat/draw_server_message.tcl
   trunk/tkabber/plugins/richtext/stylecodes.tcl
Log:
	* plugins/chat/draw_server_message.tcl: Removed unnecessary procedure
	  call (thanks to Konstantin Khomoutov).

	* plugins/richtext/stylecodes.tcl: Added a customize option which
	  allows to show stylecode markup symbols regardles of changing fonts
	  in a chat window (thanks to Konstantin Khomoutov).

	* msgs/ru.msg: Updated (thanks to Konstantin Khomoutov).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-02-18 08:13:28 UTC (rev 1374)
+++ trunk/tkabber/ChangeLog	2008-02-19 18:14:08 UTC (rev 1375)
@@ -1,3 +1,14 @@
+2008-02-19  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/chat/draw_server_message.tcl: Removed unnecessary procedure
+	  call (thanks to Konstantin Khomoutov).
+
+	* plugins/richtext/stylecodes.tcl: Added a customize option which
+	  allows to show stylecode markup symbols regardles of changing fonts
+	  in a chat window (thanks to Konstantin Khomoutov).
+
+	* msgs/ru.msg: Updated (thanks to Konstantin Khomoutov).
+
 2008-02-18  Sergei Golovan  <sgolovan at nes.ru>
 
 	* iface.tcl: Show SHA1 hash of SSL certificate when asking for its

Modified: trunk/tkabber/msgs/ru.msg
===================================================================
--- trunk/tkabber/msgs/ru.msg	2008-02-18 08:13:28 UTC (rev 1374)
+++ trunk/tkabber/msgs/ru.msg	2008-02-19 18:14:08 UTC (rev 1375)
@@ -486,6 +486,7 @@
     "Обработка стилевых кодов. Стилевые коды - это специальные\
      символы для выделения частей текста полужирным, курсивным или подчеркнутым\
      начертанием и их комбинациями."
+::msgcat::mcset ru "Hide characters comprising stylecode markup." "Скрывать символы, задающие разметку стилевых кодов."
 ::msgcat::mcset ru "Handshake failed" "Рукопожатие не удалось"
 ::msgcat::mcset ru "Handshake successful" "Рукопожатие успешное"
 ::msgcat::mcset ru "Headline message" "Сообщение типа \"headline\""

Modified: trunk/tkabber/plugins/chat/draw_server_message.tcl
===================================================================
--- trunk/tkabber/plugins/chat/draw_server_message.tcl	2008-02-18 08:13:28 UTC (rev 1374)
+++ trunk/tkabber/plugins/chat/draw_server_message.tcl	2008-02-19 18:14:08 UTC (rev 1375)
@@ -7,8 +7,7 @@
 	set chatw [chat::chat_win $chatid]
 
 	$chatw insert end --- server_lab " "
-	::richtext::render_message [::chat::chat_win $chatid] $body server
-	set cw [chat::winid $chatid]
+	::richtext::render_message $chatw $body server
 	return stop
     }
 }

Modified: trunk/tkabber/plugins/richtext/stylecodes.tcl
===================================================================
--- trunk/tkabber/plugins/richtext/stylecodes.tcl	2008-02-18 08:13:28 UTC (rev 1374)
+++ trunk/tkabber/plugins/richtext/stylecodes.tcl	2008-02-19 18:14:08 UTC (rev 1375)
@@ -15,7 +15,12 @@
     ::custom::defvar options(emphasize) 1 \
 	[::msgcat::mc "Emphasize stylecoded messages using different fonts."] \
 	-type boolean -group Stylecodes \
-	-command [namespace current]::toggle_codes
+	-command [namespace current]::update_config
+
+    ::custom::defvar options(hide_markup) 1 \
+	[::msgcat::mc "Hide characters comprising stylecode markup."] \
+	-type boolean -group Stylecodes \
+	-command [namespace current]::update_config
 }
 
 
@@ -191,7 +196,7 @@
     variable options
 
     if {$options(emphasize)} {
-	$w tag configure stylecode -elide 1
+	$w tag configure stylecode -elide $options(hide_markup)
 	$w tag configure bold -font $font_bold
 	$w tag configure italic -font $font_italic
 	$w tag configure bold_italic -font $font_bold_italic
@@ -205,7 +210,7 @@
     }
 }
 
-proc stylecodes::toggle_codes {args} {
+proc stylecodes::update_config {args} {
     foreach w [::richtext::textlist] {
 	configure_richtext_widget $w
     }



More information about the Tkabber-dev mailing list