Check-in [9e7c008b8c]
Not logged in
Overview
SHA1:9e7c008b8ca543033e7c47da702436aa184fc7e1
Date: 2000-07-01 14:23:17
User: johannes@zellner.org
Comment: small fix in the completer so that it completes options (public variables) for itcl.
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2000-07-01
22:18
[30437b03ab] 1. usable version after change to automake (user: johannes@zellner.org, tags: trunk)
14:23
[9e7c008b8c] small fix in the completer so that it completes options (public variables) for itcl. (user: johannes@zellner.org, tags: trunk)
2000-03-25
20:59
[407e6d1b0a] Sat Mar 25 21:58:26 CET 2000 (user: johannes@zellner.org, tags: trunk)
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified configure.in from [3dc2bfd8b1] to [177d3bdd31].

     1      1   dnl -*- autoconf -*-
     2      2   dnl FILE: "/home/joze/src/tclreadline/configure.in"
     3         -dnl LAST MODIFICATION: "Sat, 25 Mar 2000 21:17:25 +0100 (joze)"
            3  +dnl LAST MODIFICATION: "Sat, 01 Jul 2000 16:19:57 +0200 (joze)"
     4      4   dnl (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
     5      5   dnl $Id$
     6      6   dnl ---
     7      7   dnl
     8      8   dnl tclreadline -- gnu readline for tcl
     9      9   dnl http://www.zellner.org/tclreadline/
    10     10   dnl Copyright (c) 1998 - 2000, Johannes Zellner <johannes@zellner.org>
................................................................................
    18     18   AC_CONFIG_HEADER(config.h)
    19     19   AC_PREREQ(2.13)
    20     20   AC_REVISION($Revision$)
    21     21   AC_CONFIG_AUX_DIR(./aux)
    22     22   
    23     23   TCLREADLINE_MAJOR_VERSION=1
    24     24   TCLREADLINE_MINOR_VERSION=2
    25         -TCLREADLINE_PATCHLEVEL=0
           25  +TCLREADLINE_PATCHLEVEL=1
    26     26   TCLREADLINE_VERSION=$TCLREADLINE_MAJOR_VERSION.$TCLREADLINE_MINOR_VERSION
    27     27   TCLREADLINE_PATCHLEVEL_STR=${TCLREADLINE_VERSION}.${TCLREADLINE_PATCHLEVEL}
    28     28   VERSION=$TCLREADLINE_VERSION
    29     29   
    30     30   dnl AM_INIT_AUTOMAKE(tclreadline, $VERSION)
    31     31   
    32     32   AC_CANONICAL_HOST

Modified tclreadlineCompleter.tcl from [a07d7cee03] to [e34a842808].

     1      1   # -*- tclsh -*-
     2      2   # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
     3         -# LAST MODIFICATION: "Sat, 25 Mar 2000 21:28:45 +0100 (joze)"
            3  +# LAST MODIFICATION: "Sat, 01 Jul 2000 16:15:55 +0200 (joze)"
     4      4   # (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
     5      5   # $Id$
     6      6   # vim:set ts=4:
     7      7   # ---
     8      8   #
     9      9   # tclreadline -- gnu readline for tcl
    10     10   # http://www.zellner.org/tclreadline/
................................................................................
   490    490   	# We always use `configure' here,
   491    491   	# because cget will not return the
   492    492   	# option table.
   493    493   	#
   494    494   	if {[catch [list set option_table [eval ${cmd} configure]] msg]} {
   495    495   		return 0
   496    496   	}
          497  +	set retval 0
   497    498   	foreach optline ${option_table} {
   498         -		if {5 != [llength ${optline}]} continue else {
          499  +		if {5 == [llength ${optline}]} {
          500  +			# tk returns a list of length 5
   499    501   			lappend options(switches) [lindex ${optline} 0]
   500    502   			lappend options(value)    [lindex ${optline} 4]
          503  +			incr retval
          504  +		} elseif {3 == [llength ${optline}]} {
          505  +			# itcl returns a list of length 3
          506  +			lappend options(switches) [lindex ${optline} 0]
          507  +			lappend options(value)    [lindex ${optline} 2]
          508  +			incr retval
   501    509   		}
   502    510   	}
   503         -	return [llength ${option_table}]
          511  +	return $retval
   504    512   }
   505    513   
   506    514   #**
   507    515   # try to complete a `cmd configure|cget ..' from the command's options.
   508    516   # @param   text start line cmd, standard tclreadlineCompleter arguments.
   509    517   # @return  -- a flag indicating, if (cget|configure) was found.
   510    518   # @return  resultT -- a tclreadline completer formatted string.