plugin updates

1 files changed, 18 insertions, 18 deletions

diff --git a/library/comdlg.tcl b/library/comdlg.tcl
index 4f00217..30e4c81 100644
--- a/library/comdlg.tcl
+++ b/library/comdlg.tcl
@@ -52,9 +52,9 @@ proc tclParseConfigSpec {w specs flags argList} {
 	set verproc($cmdsw) [lindex $spec 4]
     }
 
-    if {[expr [llength $argList] %2] != 0} {
+    if {([llength $argList]%2) != 0} {
 	foreach {cmdsw value} $argList {
-	    if ![info exists cmd($cmdsw)] {
+	    if {![info exists cmd($cmdsw)]} {
 	        error "unknown option \"$cmdsw\", must be [tclListValidFlags cmd]"
 	    }
 	}
@@ -70,7 +70,7 @@ proc tclParseConfigSpec {w specs flags argList} {
     # 3: parse the argument list
     #
     foreach {cmdsw value} $argList {
-	if ![info exists cmd($cmdsw)] {
+	if {![info exists cmd($cmdsw)]} {
 	    error "unknown option \"$cmdsw\", must be [tclListValidFlags cmd]"
 	}
 	set data($cmdsw) $value
@@ -137,10 +137,10 @@ proc tclVerifyInteger {string} {
 #
 proc tkFocusGroup_Create {t} {
     global tkPriv
-    if [string compare [winfo toplevel $t] $t] {
+    if {[string compare [winfo toplevel $t] $t]} {
 	error "$t is not a toplevel window"
     }
-    if ![info exists tkPriv(fg,$t)] {
+    if {![info exists tkPriv(fg,$t)]} {
 	set tkPriv(fg,$t) 1
 	set tkPriv(focus,$t) ""
 	bind $t <FocusIn>  "tkFocusGroup_In  $t %W %d"
@@ -156,7 +156,7 @@ proc tkFocusGroup_Create {t} {
 #
 proc tkFocusGroup_BindIn {t w cmd} {
     global tkFocusIn tkPriv
-    if ![info exists tkPriv(fg,$t)] {
+    if {![info exists tkPriv(fg,$t)]} {
 	error "focus group \"$t\" doesn't exist"
     }
     set tkFocusIn($t,$w) $cmd
@@ -171,7 +171,7 @@ proc tkFocusGroup_BindIn {t w cmd} {
 #
 proc tkFocusGroup_BindOut {t w cmd} {
     global tkFocusOut tkPriv
-    if ![info exists tkPriv(fg,$t)] {
+    if {![info exists tkPriv(fg,$t)]} {
 	error "focus group \"$t\" doesn't exist"
     }
     set tkFocusOut($t,$w) $cmd
@@ -185,7 +185,7 @@ proc tkFocusGroup_BindOut {t w cmd} {
 proc tkFocusGroup_Destroy {t w} {
     global tkPriv tkFocusIn tkFocusOut
 
-    if ![string compare $t $w] {
+    if {![string compare $t $w]} {
 	unset tkPriv(fg,$t)
 	unset tkPriv(focus,$t) 
 
@@ -196,8 +196,8 @@ proc tkFocusGroup_Destroy {t w} {
 	    unset tkFocusOut($name)
 	}
     } else {
-	if [info exists tkPriv(focus,$t)] {
-	    if ![string compare $tkPriv(focus,$t) $w] {
+	if {[info exists tkPriv(focus,$t)]} {
+	    if {![string compare $tkPriv(focus,$t) $w]} {
 		set tkPriv(focus,$t) ""
 	    }
 	}
@@ -218,14 +218,14 @@ proc tkFocusGroup_Destroy {t w} {
 proc tkFocusGroup_In {t w detail} {
     global tkPriv tkFocusIn
 
-    if ![info exists tkFocusIn($t,$w)] {
+    if {![info exists tkFocusIn($t,$w)]} {
 	set tkFocusIn($t,$w) ""
 	return
     }
-    if ![info exists tkPriv(focus,$t)] {
+    if {![info exists tkPriv(focus,$t)]} {
 	return
     }
-    if ![string compare $tkPriv(focus,$t) $w] {
+    if {![string compare $tkPriv(focus,$t) $w]} {
 	# This is already in focus
 	#
 	return
@@ -250,10 +250,10 @@ proc tkFocusGroup_Out {t w detail} {
 	# This is caused by mouse moving out of the window
 	return
     }
-    if ![info exists tkPriv(focus,$t)] {
+    if {![info exists tkPriv(focus,$t)]} {
 	return
     }
-    if ![info exists tkFocusOut($t,$w)] {
+    if {![info exists tkFocusOut($t,$w)]} {
 	return
     } else {
 	eval $tkFocusOut($t,$w)
@@ -280,18 +280,18 @@ proc tkFDGetFileTypes {string} {
 	set label [lindex $t 0]
 	set exts {}
 
-	if [info exists hasDoneType($label)] {
+	if {[info exists hasDoneType($label)]} {
 	    continue
 	}
 
 	set name "$label ("
 	set sep ""
 	foreach ext $fileTypes($label) {
-	    if ![string compare $ext ""] {
+	    if {![string compare $ext ""]} {
 		continue
 	    }
 	    regsub {^[.]} $ext "*." ext
-	    if ![info exists hasGotExt($label,$ext)] {
+	    if {![info exists hasGotExt($label,$ext)]} {
 		append name $sep$ext
 		lappend exts $ext
 		set hasGotExt($label,$ext) 1