Attachment "440064.diff" to
ticket [440064ffff]
added by
andreas_kupries
2001-09-18 05:20:49.
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 <[email protected]>
+
+ * example/hpupdate.tcl: Some cleanups in the example code,
+ provided by Larry Virden <[email protected]>. This
+ fixes [440064].
+
2001-09-12 Andreas Kupries <[email protected]>
* 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
