Patch to dtk-exp for non-standard ports

["T. V. Raman" <raman@xxxxxxxxxxx>]

A minor bug in the released dtk-exp in emacspeak 9.0 results
in the environment variables DTK_PORT and DTK_OS being
ignored.
This matters only if you run your speech box on the second
or higher serial port.

Attached is  a patch to dtk-exp.
Note: **I am not going to make a separate release for this
patch**

*** dtk-exp	1998/10/24 05:17:28	9.0
--- dtk-exp	1998/11/06 03:26:38
***************
*** 1,4 ****
! # $Id: dtk-exp,v 9.0 1998/10/24 05:17:28 raman Exp raman $
  # Description:  Interfacing to a Dectalk via TCL. 
  # Keywords: Emacspeak, Dectalk, TCL
  # {{{ LCD Entry: 
--- 1,4 ----
! # $Id: dtk-exp,v 9.1 1998/11/06 03:24:57 raman Exp $
  # Description:  Interfacing to a Dectalk via TCL. 
  # Keywords: Emacspeak, Dectalk, TCL
  # {{{ LCD Entry: 
***************
*** 6,13 ****
  # LCD Archive Entry:
  # emacspeak| T. V. Raman |raman@xxxxxxxxxxx 
  # A speech interface to Emacs |
! # $Date: 1998/10/24 05:17:28 $ |
! #  $Revision: 9.0 $ | 
  # Location undetermined
  #
  
--- 6,13 ----
  # LCD Archive Entry:
  # emacspeak| T. V. Raman |raman@xxxxxxxxxxx 
  # A speech interface to Emacs |
! # $Date: 1998/11/06 03:24:57 $ |
! #  $Revision: 9.1 $ | 
  # Location undetermined
  #
  
***************
*** 451,456 ****
--- 451,457 ----
  # {{{guessing os   and port 
  
  proc which_os {} {
+ global env
       #if env variable DTK_OS is set, use it;
       if {[info exists env(DTK_OS)] } {
       return  $env(DTK_OS)
***************
*** 481,488 ****
--- 482,491 ----
       }
  
  proc which_port {{os Linux}} {
+      global env
      if {[info exists env(DTK_PORT)] } {
      set port $env(DTK_PORT)
+     puts stdout "Set port to $port"
      } else {
      switch -exact  -- $os {
             DEC {

-- 
Best Regards,
--raman

      Adobe Systems                 Tel: 1 408 536 3945   (W14-128)
      Advanced Technology Group     Fax: 1 408 537 4042 
      W14-128 345 Park Avenue     Email: raman@xxxxxxxxxxx 
      San Jose , CA 95110 -2704     Email:  raman@xxxxxxxxxxx
      http://labrador.corp.adobe.com/~raman/        (Adobe Intranet)
      http://cs.cornell.edu/home/raman/raman.html    (Cornell)
----------------------------------------------------------------------
    Disclaimer: The opinions expressed are my own and in no way should be taken
as representative of my employer, Adobe Systems Inc.
____________________________________________________________

-----------------------------------------------------------------------------
       To unsubscribe or change your address send mail to
"emacspeak-request@xxxxxxxxxxx" with a subject of "unsubscribe" or "help"