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

[<roa...@us...>]

Revision: 7611
          http://svn.sourceforge.net/amsn/?rev=7611&view=rev
Author:   roadkillbunny
Date:     2006-12-10 16:51:49 -0800 (Sun, 10 Dec 2006)

Log Message:
-----------
Fixed problem with http://

Modified Paths:
--------------
    trunk/amsn/autoupdate.tcl
    trunk/amsn/gui.tcl

Modified: trunk/amsn/autoupdate.tcl
===================================================================
--- trunk/amsn/autoupdate.tcl	2006-12-10 20:50:32 UTC (rev 7610)
+++ trunk/amsn/autoupdate.tcl	2006-12-11 00:51:49 UTC (rev 7611)
@@ -96,7 +96,7 @@
 			return
 		}
 
-		set downloadurl "http://$::weburl/download-tls.php?arch=$tlsplatform"
+		set downloadurl "$::weburl/download-tls.php?arch=$tlsplatform"
 
 
 		if {[ catch {set tok [::http::geturl $downloadurl -command "::autoupdate::downloadTLS2 $downloadurl"]} res ]} {
@@ -294,8 +294,8 @@
 		#Create the update window
 		toplevel $w
 		wm title $w "[trans newveravailable $tmp_data]"
-		set changeloglink "http://$::weburl/wiki/index.php/ChangeLog"
-		set homepagelink "http://$::weburl/"
+		set changeloglink "$::weburl/wiki/index.php/ChangeLog"
+		set homepagelink "$::weburl/"
 		#Create the frames
 		frame $w.top
 		frame $w.top.buttons

Modified: trunk/amsn/gui.tcl
===================================================================
--- trunk/amsn/gui.tcl	2006-12-10 20:50:32 UTC (rev 7610)
+++ trunk/amsn/gui.tcl	2006-12-11 00:51:49 UTC (rev 7611)
@@ -3369,20 +3369,20 @@
 	if {[OnMac]} {
 		# The help menu on a mac should be given the Command-? accelerator.
 		$help add command -label "[trans onlinehelp]" \
-			-command "launch_browser http://$::weburl/userwiki/index.php/Main_Page" \
+			-command "launch_browser $::weburl/userwiki/index.php/Main_Page" \
 			-accelerator "Command-?"
 	} else {
 		$help add command -label "[trans onlinehelp]" \
-			-command "launch_browser http://$::weburl/userwiki/index.php/Main_Page" \
+			-command "launch_browser $::weburl/userwiki/index.php/Main_Page" \
 	}
 
 	set lang [::config::getGlobalKey language]
 	$help add command -label "[trans faq]" \
-	    -command "launch_browser \"http://$::weburl/faq.php?lang=$lang\""
+	    -command "launch_browser \"$::weburl/faq.php?lang=$lang\""
 	$help add separator
 	$help add command -label "[trans msnstatus]" \
 	    -command "launch_browser \"http://messenger.msn.com/Status.aspx\""
-	$help add command -label "[trans sendfeedback]" -command "launch_browser \"http://$::weburl/forums/index.php\""
+	$help add command -label "[trans sendfeedback]" -command "launch_browser \"$::weburl/forums/index.php\""
 
 	# About is in the app menu on Mac
 	if {![OnMac]} {
@@ -3510,8 +3510,8 @@
 		#Raise cl window
 		bind all <Command-Key-1> "raise ."
 		#Online Help
-		bind all <Command-/> "launch_browser http://$::weburl/userwiki/index.php/Main_Page"
-		bind all <Command-?> "launch_browser http://$::weburl/userwiki/index.php/Main_Page"
+		bind all <Command-/> "launch_browser $::weburl/userwiki/index.php/Main_Page"
+		bind all <Command-?> "launch_browser $::weburl/userwiki/index.php/Main_Page"
 
 		bind all <Command-m> "catch {wm state %W normal; carbon::processHICommand mini %W}"
 		bind all <Command-M> "catch {wm state %W normal; carbon::processHICommand mini %W}"


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