From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 11 Nov 2004 17:22:12 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed
X-Git-Tag: tkcon-2-5~31
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=75f42e2eb582e1c459c177ffeaca735d5f4fc3c3;p=tkcon

	* tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed
	when exit is aliased to DeleteTab. [Bug 1064462]
	(::tkcon::Expect): graphicsSet isn't valid yet
---

diff --git a/ChangeLog b/ChangeLog
index 8d9f2b0..910b7d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-11  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed
+	when exit is aliased to DeleteTab. [Bug 1064462]
+	(::tkcon::Expect): graphicsSet isn't valid yet
+
 2004-10-10  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (::tkcon::Highlight): use ctext for the 'edit' dialog
diff --git a/tkcon.tcl b/tkcon.tcl
index e4857df..2732451 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -797,7 +797,8 @@ proc ::tkcon::NewTab {{con {}}} {
     GotoTab $con
 }
 
-proc ::tkcon::DeleteTab {{con {}} {slave {}}} {
+# The extra code arg is for the alias of exit to this function
+proc ::tkcon::DeleteTab {{con {}} {slave {}} {code 0}} {
     variable PRIV
 
     set numtabs [llength $PRIV(tabs)]
@@ -3214,10 +3215,12 @@ proc ::tkcon::Expect {cmd} {
 	    } "^\x1b\\\[KS" {
 		# (smkx,ks) start keyboard-transmit mode
 		# terminfo invokes these when going in/out of graphics mode
-		graphicsSet 1
+		# In graphics mode, we should have no scrollbars
+		#graphicsSet 1
 	    } "^\x1b\\\[KE" {
 		# (rmkx,ke) end keyboard-transmit mode
-		graphicsSet 0
+		# Out of graphics mode, we should have scrollbars
+		#graphicsSet 0
 	    }
 	}
 	}