From 5e7330b299a083d679f9e3ed119a32dbd4b75321 Mon Sep 17 00:00:00 2001
From: mdejong <mdejong>
Date: Thu, 6 Jul 2000 22:48:59 +0000
Subject: [PATCH] 	* 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.

---
 libgui/ChangeLog         |  9 +++++++++
 libgui/library/debug.tcl |  2 +-
 libgui/library/tree.tcl  | 28 ++++++++++++++--------------
 3 files changed, 24 insertions(+), 15 deletions(-)

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index f7c8e1e659..6a13141af5 100644
--- 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 3f3ad7c598..36114eb036 100644
--- 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 98e243ac33..9360d1fcb4 100644
--- 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
-- 
2.11.0