Button name in his command

[Jeannot]

Hi all,

I was wondering if it is possible to get button name within is command:
set Button .b
button $Button -command {
do another thing ...
$Button configure ...
}

I mean I know that by global I can get it but I was looking for another way.

Thanks a lot

Jeannot

[Uwe Klein]

%W configure ...
}

look into "man n bind"
go down to
"BINDING SCRIPTS AND SUBSTITUTIONS"

uwe

[Jeannot]

Uwe Klein a écrit :

Thanks ... it is so simple when you know where it is hided !!! :-)

Jeannot

[Uwe Klein]

Jeannot wrote:

> Thanks ... it is so simple when you know where it is hided !!! :-)

There are ways beyond drinking the bath-water to get at the soap.
I've had my share of bath-water ;-)
>
> Jeannot
uwe

[Donal K. Fellows]

Jeannot wrote:
> I was wondering if it is possible to get button name within is command:
> set Button .b
> button $Button -command {
> do another thing ...
> $Button configure ...
> }

If this was a binding script, you'd be able to use the %W substitution
for this purpose. But no substitutions are performed on button -command
options. Instead, the right approach involves using a helper procedure
and the [list] command:

proc ButtonHelper {Button} {

do another thing ...
$Button configure ...
}

button $Button -command [list ButtonHelper $Button]

Note that the [list] command is used here because it "does exactly the
right thing" in all cases; double-quoting works too, but only for some
values (numbers and conventional widget names included, but arbitrary
strings definitely not!) Using it always is considered Good Practice, as
is putting anything non-trivial like this in a helper procedure anyway.

Donal.

[Uwe Klein]

OK, more bath-water to me

uwe

[Bryan Oakley]

Uwe Klein wrote:

>
> button $Button -command {
> do another thing ...
> %W configure ...
> }
>
>
> look into "man n bind"
> go down to
> "BINDING SCRIPTS AND SUBSTITUTIONS"

"bind" and "-command" are two different things. What you suggest won't work.

As a rule of thumb, never have more than one command inside a -command
or binding. Rule of thumb two, use [list] to create that command:

button $Button -command [list doSomething $Button]
proc doSomething {w} {
puts "I was called by $w"
}

[Jeannot]

Bryan Oakley a écrit :

You are right ... I thought too quickly it works. I will check the other
solution.

Jeannot

[Jeannot]

Uwe Klein a écrit :

Same for me :-)

good day for learning

thanks

Jeannot