Index: modules/ftp/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ChangeLog,v
retrieving revision 1.13
diff -u -r1.13 ChangeLog
--- modules/ftp/ChangeLog	2001/09/13 17:38:32	1.13
+++ modules/ftp/ChangeLog	2001/09/17 22:18:44
@@ -1,3 +1,9 @@
+2001-09-17 Andreas Kupries <andreas_kupries@users.sourceforge.net>
+
+	* example/hpupdate.tcl: Some cleanups in the example code,
+	  provided by Larry Virden <lvirden@users.sourceforge.net>. This
+	  fixes [440064].
+
 2001-09-12  Andreas Kupries <andreas_kupries@users.sourceforge.net>
 
 	* Added manpages for ftp package.
Index: modules/ftp/example/hpupdate.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/example/hpupdate.tcl,v
retrieving revision 1.3
diff -u -r1.3 hpupdate.tcl
--- modules/ftp/example/hpupdate.tcl	2001/08/14 19:42:13	1.3
+++ modules/ftp/example/hpupdate.tcl	2001/09/17 22:18:45
@@ -221,7 +221,7 @@
 proc ftp::DisplayMsg {s msg {state normal}} {
 global status
 
-	switch $state {
+	switch -- $state {
 	  data	        {return}
 	  control       {return}
 	  normal        {.status.head.label configure -fg black}
@@ -364,7 +364,7 @@
 # shine a light 
 proc Blink {mode} {
 global status
-	switch $mode {
+	switch -- $mode {
 	  on {
 		.view.conn.led1 configure -bg $status(on)
 		update idletasks
@@ -615,7 +615,7 @@
 proc ProgressBar {state {bytes 0} {filename ""}} {
 global ftp
 	set w .progress
-	switch $state {
+	switch -- $state {
 	  init	{
 		set ftp(Filename) ""
 		set ftp(ProgressProz) "0%"
@@ -706,19 +706,19 @@
 	if {(![info exists ftp(conn)]) ||
             (![info exists ftp::ftp${ftp(conn)}(State)]) } {
 		tk_messageBox -parent . -title INFO -message "No connection!" -type ok
-		return
+		return 0
 	}
 	
 	# nothing selected 
 	if { [.view.local.list curselection] == {} } {
-		return
+		return 0
 	}
 	
 	# ask user
 	set count [llength [.view.local.list curselection]]
 	set rc [tk_messageBox -parent . -title UPLOAD -message "Do you really want to upload the $count selected file(s)?" -type yesno]
 	if { $rc == "no" } {
-		return
+		return 0
 	}
 	
 	# create list of uploading files
@@ -730,7 +730,7 @@
 	# empty list?
 	if { $upload_list == {} } {
 		tk_messageBox -parent . -title INFO -type ok -message "Nothing selected for upload!!"
-		return
+		return 0
 	}
 	focus .view.local.list
 
@@ -782,6 +782,7 @@
 	set opt(Timestamp) [file mtime $opt(TsFile)]
 	Refresh
 	set status(header) " last update: [clock format $opt(Timestamp) -format %d.%m.%Y\ %H:%M:%S\ Uhr -gmt 0]"
+	return 0
 }
 
 # Refresh
