From 75f42e2eb582e1c459c177ffeaca735d5f4fc3c3 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Thu, 11 Nov 2004 17:22:12 +0000 Subject: [PATCH] * 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 --- ChangeLog | 6 ++++++ tkcon.tcl | 9 ++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8d9f2b0..910b7d7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2004-11-11 Jeff Hobbs + + * 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 * 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 } } } -- 2.23.0