Tk Library Source Code: Attachment Details

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:

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
--- 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
 }