[Tkabber-dev] r181 - trunk/plugins/bldjid

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Mar 29 01:49:29 MSK 2009


Author: bigote
Date: 2009-03-29 01:49:29 +0300 (Sun, 29 Mar 2009)
New Revision: 181

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
The command /pickup n inserts jids correctly now (thanks to Konstantin Khomoutov).
However, it will be eliminated and its functionality 
will be given to /banjid and /bldjid commands.


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2009-03-28 06:13:19 UTC (rev 180)
+++ trunk/plugins/bldjid/ChangeLog	2009-03-28 22:49:29 UTC (rev 181)
@@ -1,5 +1,19 @@
 2009-03-28  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
+--- Version 0.4a3 of the plugin.
+---	Files modified:
+	bldjid.tcl, ChangLog.
+
+---	Changes:
+	Inserting by command /pickup n works now.
+	Thanks to Konstantin Khomoutov <xmpp:kostix at 007spb.ru>
+
+--- TODO:
+	I've decided to eliminate /pickup command, however.
+	Its functions will be given	to /banjid and /bldjid commands.
+
+2009-03-28  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
 --- Version 0.4a2 of the plugin.
 --- Files modified:
     bldjid.tcl, ChangeLog.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2009-03-28 06:13:19 UTC (rev 180)
+++ trunk/plugins/bldjid/bldjid.tcl	2009-03-28 22:49:29 UTC (rev 181)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2009-03-28 v. 0.4a2
+# "Bldjid" plugin for Tkabber. 2009-03-28 v. 0.4a3
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README file for usage.
 
@@ -66,6 +66,7 @@
     set group [::xmpp::jid::stripResource $jid]
 # TODO: Add check if the current group is valid 
 # in case options(filter_admin_rooms) is enabled
+#puts $xlib
 #	set v_groups [[namespace current]::valid_groups $xlib]
 #puts $v_groups
 #	if {$options(filter_admin_rooms)} {
@@ -311,36 +312,9 @@
 				return stop
 			} else {
 				set jid [lindex [lindex $jids $index] 2]
-puts $jid
-puts $chatid
 				if {$jid != ""} {
 					set ci [chat::input_win $chatid]
-puts $ci
-# Strange, but it doesn't work.
-# (it should insert JID into the current input window):
-					$ci insert insert $jid
-# So at the moment let's just ban it (with confirmation, however).
-# One more strange thing: now it can be seen that the previous command
-# DOES INSERT the jid AFTER "/pickup n" but when the confirmation window appears
-# the input window gets cleared.
-            variable winid
-            set w .pickup$winid
-            incr winid
-
-			set params {affiliation outcast}
-			Dialog $w -title [::msgcat::mc "Ban this JID here?"]] \
-                -modal none -separator 1 -anchor e -default 0 -cancel 1 \
-                -parent .
-            set f [$w getframe]
-            $w add -text [::msgcat::mc "OK"] \
-                -command [list [namespace current]::confirm_ban \
-				$xlib $group $params $jid {} $w]
-            $w add -text [::msgcat::mc "Cancel"] -command [list destroy $w]
-
-            label $w.lsure -padx 10 -pady 5 \
-            -text "Are you sure you want to ban $jid in the current room ($group)?"
-            pack $w.lsure -expand yes -fill both
-            $w draw	
+					after idle [list $ci insert end $jid]
 				}
 			}
 		}



More information about the Tkabber-dev mailing list