[Tkabber-dev] r733 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Sep 27 20:47:30 MSD 2006


Author: sergei
Date: 2006-09-27 20:47:12 +0400 (Wed, 27 Sep 2006)
New Revision: 733

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/sound.tcl
Log:
	* plugins/general/sound.tcl: Made sound::play loading sound file
	  if it's not loaded yet if snack library is used (thanks to
	  Pavel Borzenkov).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-09-27 16:46:15 UTC (rev 732)
+++ trunk/tkabber/ChangeLog	2006-09-27 16:47:12 UTC (rev 733)
@@ -1,3 +1,9 @@
+2006-09-26  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/sound.tcl: Made sound::play loading sound file
+	  if it's not loaded yet if snack library is used (thanks to
+	  Pavel Borzenkov).
+
 2006-09-25  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/es.msg: Updated (thanks to Badlop).

Modified: trunk/tkabber/plugins/general/sound.tcl
===================================================================
--- trunk/tkabber/plugins/general/sound.tcl	2006-09-27 16:46:15 UTC (rev 732)
+++ trunk/tkabber/plugins/general/sound.tcl	2006-09-27 16:47:12 UTC (rev 733)
@@ -184,6 +184,9 @@
     set play_priority $priority
 
     if {$options(external_play_program) == ""} {
+	if {![info exist $name]} {
+	    catch { snack::sound $name -file $name }
+        }
 	catch { $name play -block 0 }
     } else {
 	catch { eval "exec $options(external_play_program) $options(external_play_program_options) [list $name] &" }



More information about the Tkabber-dev mailing list