using lremove command

Altair Forum User

Hi,

i am facing some problem with lremove command in HM10.0,

i had written a macro which is using lremove command and i have included 'package require Tclx' also ,

the same macro is working with HM8 and HM9.0 but was giving error invalid command lremove in HM10.0.] (*,)

if i open the command window in HM10 and run my macro it working fine , but without opening command window its not working.

Can any body, let me know how to fix the same.

Looking forward to your replies.

Thanks and regards

Ramu B

Altair Forum User

Hi Ramu,

as far as I know lremove is a procedure from tkcon:

## lremove - remove items from a list# OPTS:#   -all	remove all instances of each item#   -glob	remove all instances matching glob pattern#   -regexp	remove all instances matching regexp pattern# ARGS:	l	a list to remove items from#	args	items to remove (these are 'join'ed together)##proc lremove {args} {    array set opts {-all 0 pattern -exact}    while {[string match -* [lindex $args 0]]} {	switch -glob -- [lindex $args 0] {	    -a*	{ set opts(-all) 1 }	    -g*	{ set opts(pattern) -glob }	    -r*	{ set opts(pattern) -regexp }	    --	{ set args [lreplace $args 0 0]; break }	    default {return -code error 'unknown option \'[lindex $args 0]\''}	}	set args [lreplace $args 0 0]    }    set l [lindex $args 0]    foreach i [join [lreplace $args 0 0]] {	if {[set ix [lsearch $opts(pattern) $l $i]] == -1} continue	set l [lreplace $l $ix $ix]	if {$opts(-all)} {	    while {[set ix [lsearch $opts(pattern) $l $i]] != -1} {		set l [lreplace $l $ix $ix]	    }	}    }    return $l}

I think in hm10 tkcon is not opened upon startup and hidden as in hm versions before - therefore you'll miss it. But you can use the info command to check wheter lremove exists and if not include the code above:

if {[info proc lremove] == ''} {    #include code}