[Tkabber-dev] r390 - in trunk/plugins: . emocpixs emocpixs/msgs

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Sep 19 11:19:36 MSD 2010


Author: Rejjin
Date: 2010-09-19 11:19:36 +0400 (Sun, 19 Sep 2010)
New Revision: 390

Added:
   trunk/plugins/emocpixs/
   trunk/plugins/emocpixs/README
   trunk/plugins/emocpixs/emocpixs.tcl
   trunk/plugins/emocpixs/msgs/
   trunk/plugins/emocpixs/msgs/ca.msg
   trunk/plugins/emocpixs/msgs/de.msg
   trunk/plugins/emocpixs/msgs/eo.msg
   trunk/plugins/emocpixs/msgs/es.msg
   trunk/plugins/emocpixs/msgs/eu.msg
   trunk/plugins/emocpixs/msgs/fr.msg
   trunk/plugins/emocpixs/msgs/it.msg
   trunk/plugins/emocpixs/msgs/nl.msg
   trunk/plugins/emocpixs/msgs/pl.msg
   trunk/plugins/emocpixs/msgs/pt.msg
   trunk/plugins/emocpixs/msgs/ro.msg
   trunk/plugins/emocpixs/msgs/ru.msg
   trunk/plugins/emocpixs/msgs/uk.msg
Log:
It's a plugin for Tkabber adding cascade to input popup menu with images of emoticons. (Menu running with right button click of mouse on input message window)

Added: trunk/plugins/emocpixs/README
===================================================================
--- trunk/plugins/emocpixs/README	                        (rev 0)
+++ trunk/plugins/emocpixs/README	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1,14 @@
+ABOUT
+
+It's a plugin for Tkabber adding cascade to
+input popup menu with images of emoticons. 
+
+INSTALLING
+
+Just place the plugin's directory to /your/config/dir/plugins
+directory so that to get a structure like this:
+/your/config/dir/plugins/emocpixs/emocpixs.tcl
+
+AUTHOR
+
+The plugin was written by Rejjin <xmpp:rejjin at jabber.dk>
\ No newline at end of file

Added: trunk/plugins/emocpixs/emocpixs.tcl
===================================================================
--- trunk/plugins/emocpixs/emocpixs.tcl	                        (rev 0)
+++ trunk/plugins/emocpixs/emocpixs.tcl	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1,26 @@
+# "emocpixs" Tkabber plugin -- Chat input menu with smiles. 
+# Written by Renji <rejjin at jabber.dk>
+
+package require msgcat
+namespace eval emocpixs {
+	::msgcat::mcload [file join [file dirname [info script]] msgs]
+	proc egen {} {
+		variable sms {}
+		foreach im [array names ::plugins::emoticons::images] {
+			lassign [split $im _] => sm
+			lappend sms $im $sm
+		}
+	}
+	hook::add finload_hook [namespace current]::egen
+	proc  menu_gen {m w x y} {
+		variable sms
+		$m add cascade -label [msgcat::mc "Emoticons"] \
+			-menu [menu $m.ems  -tearoff 0]
+		$m add separator
+		foreach {im s} $sms {
+			$m.ems add command -image $im \
+			-command [list $w insert insert $s]
+		}
+	}
+	hook::add textinput_popup_menu_hook [namespace current]::menu_gen 10
+}
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/ca.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/ca.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/ca.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset ca "Emoticons" "Emoticones"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/de.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/de.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/de.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset de "Emoticons"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/eo.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/eo.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/eo.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset eo "Emoticons" "Sentikonoj"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/es.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/es.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/es.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset es "Emoticons" "Emoticonos"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/eu.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/eu.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/eu.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset eu "Emoticons" "Marrazkiak"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/fr.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/fr.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/fr.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset fr "Emoticons" "émoticons"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/it.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/it.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/it.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset it "Emoticons"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/nl.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/nl.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/nl.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset nl "Emoticons"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/pl.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/pl.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/pl.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset pl "Emoticons" "Emotikonki"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/pt.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/pt.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/pt.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset pt "Emoticons"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/ro.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/ro.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/ro.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset ro "Emoticons"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/ru.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/ru.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/ru.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset ru "Emoticons" "Эмоциконки"
\ No newline at end of file

Added: trunk/plugins/emocpixs/msgs/uk.msg
===================================================================
--- trunk/plugins/emocpixs/msgs/uk.msg	                        (rev 0)
+++ trunk/plugins/emocpixs/msgs/uk.msg	2010-09-19 07:19:36 UTC (rev 390)
@@ -0,0 +1 @@
+::msgcat::mcset uk "Emoticons" "iконки емоцій"
\ No newline at end of file



More information about the Tkabber-dev mailing list