Tk Library Source Code

Artifact de54940132072f55d32beafca8725b19e1a3d6ce:

Attachment "tkchat.cleanup.diff" to ticket [466317ffff] added by andreas_kupries 2001-09-29 14:23:45.

---

--- /home/lwv26/bin/tkchat.tcl	Sat Sep 29 02:43:47 2001
+++ /ldatae/WWW/tkchat.tcl	Sat Sep 29 03:05:22 2001
@@ -91,3 +91,3 @@
     errLog "Post: status was [::http::status $tok]"
-    switch [::http::status $tok] {
+    switch -- [::http::status $tok] {
 	ok { if {[catch {fetchPage} err]} { errLog $err } }
@@ -118,3 +118,3 @@
     errLog "Logon: status was [::http::status $tok]"
-    switch [::http::status $tok] {
+    switch -- [::http::status $tok] {
 	ok	{ if {[catch {pause off} err]} { errLog $err } }
@@ -208,6 +208,6 @@
 	set Options(FetchTimerID) \
-		[after [expr $Options(Refresh) * 1000] fetchPage]
+		[after [expr {$Options(Refresh) * 1000}] fetchPage]
     }
     errLog "Fetch: status was [::http::status $tok]"
-    switch [::http::status $tok] {
+    switch -- [::http::status $tok] {
 	ok - OK - Ok {
@@ -266,3 +266,3 @@
     errLog "Online: status was [::http::status $tok]"
-    switch [::http::status $tok] {
+    switch -- [::http::status $tok] {
 	ok {
@@ -292,3 +292,3 @@
 	# doesn't work well when we exec the call to browsers
-	# and if we follow spec and esacpe them with %26 then
+	# and if we follow spec and escape them with %26 then
 	# the cgi script on the other end pukes so we will
@@ -534,3 +534,3 @@
 proc ::tkchat::hook {do type cmd} {
-    switch -glob $type {
+    switch -glob -- $type {
 	msg - mes* { set var MessageHooks }
@@ -544,3 +544,3 @@
 	add	{ set ${var}($cmd) {} }
-	remove	{ catch {unset ${var}($cmd)} }
+	remove	{ catch {unset -- ${var}($cmd)} }
 	default	{
@@ -596,3 +596,3 @@
     # this code from  http://mini.net/tcl/557.html
-    switch $tcl_platform(platform) {
+    switch -- $tcl_platform(platform) {
 	"unix" {
@@ -689,3 +689,3 @@
     set height [expr {[string length $str] / 75 + 1}]
-    if {[set lines [regexp -all "\n" $str]] > $height} {
+    if {[set lines [regexp -all -- "\n" $str]] > $height} {
 	set height $lines
@@ -1061,3 +1061,3 @@
     bind $f <Configure> {
-	wm geometry [winfo toplevel %W] [expr %w + 30]x500
+	wm geometry [winfo toplevel %W] [expr {%w + 30}]x500
 	[winfo parent %W] config -scrollregion [list 0 0 %w %h]
@@ -1126,3 +1126,3 @@
 	vwait ::DlgDone
-	switch $::DlgDone {
+	switch -- $::DlgDone {
 	    ok {
@@ -1197,3 +1197,3 @@
 proc ::tkchat::debug {cmd args } {
-    switch $cmd {
+    switch -- $cmd {
 	console {