[Amsn-commits] SF.net SVN: amsn: [6694] trunk/amsn

[<kak...@us...>]

Revision: 6694
Author:   kakaroto
Date:     2006-05-24 07:31:51 -0700 (Wed, 24 May 2006)
ViewCVS:  http://svn.sourceforge.net/amsn/?rev=6694&view=rev

Log Message:
-----------
Fixed 2 webcam bugs, refer to bugids on SF tracker : 1493296 and 1493223

Modified Paths:
--------------
    trunk/amsn/loging.tcl
    trunk/amsn/msncam.tcl
    trunk/amsn/preferences.tcl
Modified: trunk/amsn/loging.tcl
===================================================================
--- trunk/amsn/loging.tcl	2006-05-24 07:08:39 UTC (rev 6693)
+++ trunk/amsn/loging.tcl	2006-05-24 14:31:51 UTC (rev 6694)
@@ -1139,7 +1139,7 @@
 			set whole_size [file size [file join ${webcam_dir} ${email}.cam]]
 		}
 		$w.position.slider configure -to $whole_size
-		bind $w.position.slider <ButtonRelease-1> [list ::CAMGUI::Seek $w [file join ${webcam_dir} ${email}.cam]]
+		bind $w.position.slider <ButtonRelease-1> [list ::CAMGUI::Resume $w [file join ${webcam_dir} ${email}.cam]]
 
 		if { $whole_size > 0 } {
 			$w.slider.playbackspeed configure -state normal

Modified: trunk/amsn/msncam.tcl
===================================================================
--- trunk/amsn/msncam.tcl	2006-05-24 07:08:39 UTC (rev 6693)
+++ trunk/amsn/msncam.tcl	2006-05-24 14:31:51 UTC (rev 6694)
@@ -729,7 +729,7 @@
 					if { [::config::getKey webcamlogs] == 1 } {
 						set fd [getObjOption $sid weblog]
 						if { $fd == "" } {
-							set email [lindex [::MSNP2P::SessionList get $sid] 3]
+							set email [string tolower [lindex [::MSNP2P::SessionList get $sid] 3]]
 							if { ![catch {set fd [open [file join $::webcam_dir ${email}.cam] a]}] } {
 								fconfigure $fd -translation binary
 								setObjOption $sid weblog $fd

Modified: trunk/amsn/preferences.tcl
===================================================================
--- trunk/amsn/preferences.tcl	2006-05-24 07:08:39 UTC (rev 6693)
+++ trunk/amsn/preferences.tcl	2006-05-24 14:31:51 UTC (rev 6694)
@@ -1093,8 +1093,8 @@
 proc new_preferences {} {
 	PreferencesWindow create .prefs
 	
-	PreferenceSection create .prefs.personal
-	PreferenceSection create .prefs.personal.nick
+	PreferencesSection create .prefs.personal
+	PreferencesSection create .prefs.personal.nick
 	
 	.prefs.personal addItem 
 	


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.