Overview
| Artifact ID: | 482dcb8f3ab01122fb66f3e9dfbcb8cf2a70f386 |
|---|---|
| Ticket: | 440064ffffffffffffffffffffffffffffffffff |
| Date: | 2001-09-18 05:00:57 |
| User: | andreas_kupries |
| Artifact Attached: | 14b65cf69bb32242225450f6fab4e95e0ce6e9bf |
| Filename: | hpupdate_patch.txt |
| Description: | Patch, unified diff |
Content:
--- 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
}