
--- hpupdate.tcl	Sun Jul  9 16:13:35 2000
+++ hpupdate2.tcl	Mon Jul  2 11:26:22 2001
@@ -219,3 +219,3 @@
 
-	switch $state {
+	switch -- $state {
 	  data	        {return}
@@ -362,3 +362,3 @@
 global status
-	switch $mode {
+	switch -- $mode {
 	  on {
@@ -613,3 +613,3 @@
 	set w .progress
-	switch $state {
+	switch -- $state {
 	  init	{
@@ -704,3 +704,3 @@
 		tk_messageBox -parent . -title INFO -message "No connection!" -type ok
-		return
+		return 0
 	}
@@ -709,3 +709,3 @@
 	if { [.view.local.list curselection] == {} } {
-		return
+		return 0
 	}
@@ -716,3 +716,3 @@
 	if { $rc == "no" } {
-		return
+		return 0
 	}
@@ -728,3 +728,3 @@
 		tk_messageBox -parent . -title INFO -type ok -message "Nothing selected for 
upload!!"
-		return
+		return 0
 	}
@@ -780,2 +780,3 @@
 	set status(header) " last update: [clock format $opt(Timestamp) -format 
%d.%m.%Y\ %H:%M:%S\ Uhr -gmt 0]"
+	return 0
 }
