* library/debug.tcl (logfile): Use non-blocking IO.

	* library/tree.tcl (set_column_filter, bind, exchange,
	ide_treetable): Don't fully qualify global commands.
	Use itcl::delete. Use non-blocking IO. Rename bind
	method to __bind. Brace exprs. Set default value
	for when_post_menu variable. Itcl 3.0 fixups.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index f7c8e1e..6a13141 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,12 @@
+2000-07-06  Mo DeJong  <mdejong@redhat.com>
+
+       * library/debug.tcl (logfile): Use non-blocking IO.
+       * library/tree.tcl (set_column_filter, bind, exchange,
+       ide_treetable): Don't fully qualify global commands.
+       Use itcl::delete. Use non-blocking IO. Rename bind
+       method to __bind. Brace exprs. Set default value
+       for when_post_menu variable. Itcl 3.0 fixups.
+
 2000-06-30  Mo DeJong  <mdejong@redhat.com>
 
        * library/tree.tcl: Fix typo made in patch

diff --git a/libgui/library/debug.tcl b/libgui/library/debug.tcl
index 3f3ad7c..36114eb 100644 (file)
--- a/libgui/library/debug.tcl
+++ b/libgui/library/debug.tcl
@@ -50,7 +50,7 @@ namespace eval ::debug {
       set logfile $file
     } else {
       set logfile [open $file w+]
-      fconfigure $logfile -buffering line
+      fconfigure $logfile -buffering line -blocking 0
     }
   }
 

diff --git a/libgui/library/tree.tcl b/libgui/library/tree.tcl
index 98e243a..9360d1f 100644 (file)
--- a/libgui/library/tree.tcl
+++ b/libgui/library/tree.tcl
@@ -340,7 +340,7 @@ after idle "update idletasks ; if \[winfo exists $top\] \{pack propagate $top\}"
        
        resize_widget $tree
        
-       ::unset fltentry
+       unset fltentry
     }
 
     method calculate_column_filter {} {
@@ -1421,11 +1421,11 @@ after idle "update idletasks ; if \[winfo exists $top\] \{pack propagate $top\}"
        }
        set lst [join $lst \n]
 
-       $print_dialog delete
+       itcl::delete object $print_dialog
 
        set tmpf [sn_tmpFileName]
        set fd [open $tmpf "w+"]
-       ::fconfigure $fd -encoding $sn_options(def,system-encoding)
+       fconfigure $fd -encoding $sn_options(def,system-encoding) -blocking 0
        puts $fd $lst
        close $fd
 
@@ -1458,8 +1458,8 @@ after idle "update idletasks ; if \[winfo exists $top\] \{pack propagate $top\}"
        return [eval ::bind $tree $args]
     }
 
-    method bind {args} {
-       return [eval ::bind $tree $args]
+    method __bind {args} {
+       return [eval bind $tree $args]
     }
 
     method header {args} {
@@ -1484,9 +1484,9 @@ after idle "update idletasks ; if \[winfo exists $top\] \{pack propagate $top\}"
            return
        }
 
-       set y [::$w nearest $y]
+       set y [$w nearest $y]
 
-       set len [expr [llength $sel] -1]
+       set len [expr {[llength $sel] - 1}]
        set first [lindex $sel 0]
        set last  [lindex $sel $len]
 
@@ -1495,15 +1495,15 @@ after idle "update idletasks ; if \[winfo exists $top\] \{pack propagate $top\}"
        }
 
        if {$first <= $y} {
-           set y [expr $y - $len]
+           set y [expr {$y - $len}]
        }
        if {$y < 0} {
            return
        }
-       ::$w delete $first $last
-       eval ::$w insert $y $exchange
-       ::$w selection clear 0 end
-       ::$w selection set $y [expr $y + $len]
+       $w delete $first $last
+       eval $w insert $y $exchange
+       $w selection clear 0 end
+       $w selection set $y [expr {$y + $len}]
     }
     proc exchange_mark {w} {
        set sel [$w curselection]
@@ -1814,7 +1814,7 @@ after idle "update idletasks ; if \[winfo exists $top\] \{pack propagate $top\}"
 
     #can be set external to be executed when option menu
     #is launched.
-    public when_post_menu
+    public when_post_menu ""
 }
 #############################################################################
 ##  END CLASS for TreeWidget with tab stop support                         ##
@@ -2091,7 +2091,7 @@ proc ide_treetable args {
 
     bind $tree <Configure> {
                                puts stdout "resize %W"
-                               Tree :: resize_widget %W
+                               Tree::resize_widget %W
                           }
 
     return $tree