From 79ad58a64786e88e51edf300b881e41d61bf4595 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Mon, 14 Nov 2011 16:19:57 +0000
Subject: use eq/ne in place of ==/!= for string (in)equelity checks

svn path=/trunk/externals/loaders/tclpd/; revision=15745
---
 examples/bitmap.tcl | 42 +++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

(limited to 'examples/bitmap.tcl')

diff --git a/examples/bitmap.tcl b/examples/bitmap.tcl
index 64d2b92..e1d0495 100644
--- a/examples/bitmap.tcl
+++ b/examples/bitmap.tcl
@@ -40,13 +40,13 @@ proc+ bitmap::constructor {self args} {
     lappend @config -uwidth 8
     lappend @config -uheight 8
     lappend @config -cellsize 16
-    lappend @config -label ""
-    lappend @config -labelpos "top"
-    lappend @config -sendsymbol ""
-    lappend @config -receivesymbol ""
-    lappend @config -fgcolor "#000000"
-    lappend @config -bgcolor "#ffffff"
-    lappend @config -lblcolor "#000000"
+    lappend @config -label {}
+    lappend @config -labelpos {top}
+    lappend @config -sendsymbol {}
+    lappend @config -receivesymbol {}
+    lappend @config -fgcolor {#000000}
+    lappend @config -bgcolor {#ffffff}
+    lappend @config -lblcolor {#000000}
     set @data {
         0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
         0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
@@ -64,17 +64,17 @@ proc+ bitmap::constructor {self args} {
 }
 
 proc+ bitmap::destructor {self} {
-    if {$@rcvLoadData != {}} {
+    if {$@rcvLoadData ne {}} {
         #should not happen!
         pd_unbind $self $@rcvLoadData
     }
-    if {[dict get $@config -receivesymbol] != {}} {
+    if {[dict get $@config -receivesymbol] ne {}} {
         pd_unbind $self $@recv
     }
 }
 
 proc+ bitmap::0_config {self args} {
-    if {$args == {}} {
+    if {$args eq {}} {
         return $@config
     } else {
         set newconf [list]
@@ -105,7 +105,7 @@ proc+ bitmap::0_config {self args} {
             set old [dict get $@config -$opt]
             if {[dict exists $newconf -$opt]} {
                 set new [dict get $newconf -$opt]
-                if {$old != $new} {
+                if {$old ne $new} {
                     dict set @config -$opt $new
                     set ui 1
                 }
@@ -115,12 +115,12 @@ proc+ bitmap::0_config {self args} {
             set old [dict get $@config -$opt]
             if {[dict exists $newconf -$opt]} {
                 set new [dict get $newconf -$opt]
-                if {$old != $new} {
-                    if {$opt == "receivesymbol"} {
-                        if {$old != {}} {
+                if {$old ne $new} {
+                    if {$opt eq {receivesymbol}} {
+                        if {$old ne {}} {
                             pd_unbind $self $@recv
                         }
-                        if {$new != {}} {
+                        if {$new ne {}} {
                             set @recv [canvas_realizedollar $@canvas $new]
                             pd_bind $self $@recv
                         } else {
@@ -196,7 +196,7 @@ proc+ bitmap::0_setrow {self args} {
     set bgcolor [dict get $@config -bgcolor]
     set colors [list $bgcolor $fgcolor]
     for {set idx [expr {$row*$w}]} {$idx < [expr {($row+1)*$w}]} {incr idx} {
-        set d [expr {0!=[pd::arg $z int]}]
+        set d [expr {0 != [pd::arg $z int]}]
         lset @data $idx $d
         sys_gui [list $@c itemconfigure cell_${col}_${row}_$self \
             -fill [lindex $colors $d]]\n
@@ -215,7 +215,7 @@ proc+ bitmap::0_setcol {self args} {
     set bgcolor [dict get $@config -bgcolor]
     set colors [list $bgcolor $fgcolor]
     for {set idx [expr {$col}]} {$idx < [expr {$w*$h}]} {incr idx $w} {
-        set d [expr {0!=[pd::arg $z int]}]
+        set d [expr {0 != [pd::arg $z int]}]
         lset @data $idx $d
         sys_gui [list $@c itemconfigure cell_${col}_${row}_$self \
             -fill [lindex $colors $d]]\n
@@ -227,7 +227,7 @@ proc+ bitmap::0_setcol {self args} {
 proc+ bitmap::0_setcell {self args} {
     set r [pd::arg 0 int]
     set c [pd::arg 1 int]
-    set d [expr {0!=[pd::arg 2 int]}]
+    set d [expr {0 != [pd::arg 2 int]}]
     set w [dict get $@config -uwidth]
     set fgcolor [dict get $@config -fgcolor]
     set bgcolor [dict get $@config -bgcolor]
@@ -248,7 +248,7 @@ proc+ bitmap::0_setdata {self args} {
     }
     set @data [list]
     foreach i $d {lappend @data [expr {int($i)}]}
-    if {$@rcvLoadData != {}} {
+    if {$@rcvLoadData ne {}} {
         pd_unbind $self $@rcvLoadData
         set @rcvLoadData {}
     }
@@ -290,7 +290,7 @@ proc+ bitmap::widgetbehavior_select {self args} {
     set sel [lindex $args 0]
     set fgcolor [dict get $@config -fgcolor]
     set bgcolor [dict get $@config -bgcolor]
-    set selcolor "blue"
+    set selcolor {blue}
     set colors [list $selcolor $fgcolor]
     sys_gui [list $@c itemconfigure $self \
         -outline [lindex $colors $sel]]\n
@@ -333,7 +333,7 @@ proc+ bitmap::widgetbehavior_click {self args} {
         set j [expr {$xpix/$sz}]
         set i [expr {$ypix/$sz}]
         set idx [expr {$w*${i}+${j}}]
-        set d [expr {[lindex $@data $idx]==0}]
+        set d [expr {[lindex $@data $idx] == 0}]
         lset @data $idx $d
         sys_gui [list $@c itemconfigure cell_${j}_${i}_$self \
             -fill [lindex $colors $d]]\n
-- 
cgit v1.2.1