Hello out there,
for a kinf´d of technical app I need a 'switch type' button - that is
a button stays pressed when pressed once and only gets released when
pressed again. (Whereas the normal GUI behaviour of buttons is more
the 'door bell' type).
I did come as far as keeping it pressed using the code below:
---
package require Tk
foreach ch [winfo children "."] {destroy $ch}

proc btnPress {w var} {
if {[set $var]} {
puts "calling 'tk::ButtonUp $w'"
tk::ButtonUp $w
set $var 0
} else {
puts "calling 'tk::ButtonDown $w'"
tk::ButtonDown $w
set $var 1
}
}

proc tst {} {
set btn [button .btn -width 3 -text ""]
pack $btn
set ::${btn}State 0
bind $btn <Button-1> [list btnPress %W ::${btn}State]
bind $btn <Enter> {break}
bind $btn <Leave> {break}
bind $btn <<Invoke>> {break}
bind $btn <Key-space> {break}
bind $btn <ButtonRelease-1> {break}
return $btn
}

set b [tst]
---
All the 'break' statements are for disabling the class bindings for
'Button'.
What I see is
- on the first press the ButtonDown message appears and the button
gets pressed
- on following presses I see the Up/Down messages appear as they
should - but my button never gets released again.
This is on Windows 10 and Tcl 8.6.10.

Any help will be greatly appreciated
Helmut

* Helmut Giese <hgiese@ratiosoft.com>
| Hello out there,
| for a kinf´d of technical app I need a 'switch type' button - that is
| a button stays pressed when pressed once and only gets released when
| pressed again. (Whereas the normal GUI behaviour of buttons is more
| the 'door bell' type).
--<snip-snip>--
| Any help will be greatly appreciated

Check the -indicatoron option for TCL *radiobuttons*.

Command-Line Name:-indicatoron
Database Name: indicatorOn
Database Class: IndicatorOn

Specifies whether or not the indicator should be drawn. Must be
a proper boolean value. If false, the -relief option is ignored
and the widget's relief is always sunken if the widget is se-
lected and raised otherwise.

HTH
R'

Hello Ralf,
>
>Check the -indicatoron option for TCL *radiobuttons*.
>
> Command-Line Name:-indicatoron
> Database Name: indicatorOn
> Database Class: IndicatorOn
>
> Specifies whether or not the indicator should be drawn. Must be
> a proper boolean value. If false, the -relief option is ignored
> and the widget's relief is always sunken if the widget is se-
> lected and raised otherwise.
>
this is interesting. I will see, what it looks like.
Many thanks
Helmut
PS: But I still would like to know why that button doesn't go up again
....

On 4/17/24 09:21, Helmut Giese wrote:
> Hello out there,
> for a kinf´d of technical app I need a 'switch type' button - that is
> a button stays pressed when pressed once and only gets released when
> pressed again. (Whereas the normal GUI behaviour of buttons is more
> the 'door bell' type).
> I did come as far as keeping it pressed using the code below:
> ---
> package require Tk
> foreach ch [winfo children "."] {destroy $ch}
>
> proc btnPress {w var} {
> if {[set $var]} {
> puts "calling 'tk::ButtonUp $w'"
> tk::ButtonUp $w
> set $var 0
> } else {
> puts "calling 'tk::ButtonDown $w'"
> tk::ButtonDown $w
> set $var 1
> }
> }
>
> proc tst {} {
> set btn [button .btn -width 3 -text ""]
> pack $btn
> set ::${btn}State 0
> bind $btn <Button-1> [list btnPress %W ::${btn}State]
> bind $btn <Enter> {break}
> bind $btn <Leave> {break}
> bind $btn <<Invoke>> {break}
> bind $btn <Key-space> {break}
> bind $btn <ButtonRelease-1> {break}
> return $btn
> }
>
> set b [tst]
> ---
> All the 'break' statements are for disabling the class bindings for
> 'Button'.
> What I see is
> - on the first press the ButtonDown message appears and the button
> gets pressed
> - on following presses I see the Up/Down messages appear as they
> should - but my button never gets released again.
> This is on Windows 10 and Tcl 8.6.10.
>
> Any help will be greatly appreciated
> Helmut

Try checkbutton

* Helmut Giese <hgiese@ratiosoft.com>
| PS: But I still would like to know why that button doesn't go up again

I *think* you need to 'break' in the Button-1 binding as well, since
otherwise the class binding will fire as well and turn the button to
'Pressed' again.

Rather than 'break'-ing in each and every binding you could just remove the
'Button' class bindings via 'bindtag' from that single button:

proc tst {} {
set btn [button .btn -width 3 -text ""]
pack $btn
# !!!
bindtags $btn [list $btn . all]
set ::${btn}State 0
bind $btn <Button-1> [list btnPress %W ::${btn}State]
return $btn
}

HTH
R'

On 4/17/2024 7:21 AM, Helmut Giese wrote:
> Hello out there,
> for a kinf´d of technical app I need a 'switch type' button - that is
> a button stays pressed when pressed once and only gets released when
> pressed again. (Whereas the normal GUI behaviour of buttons is more
> the 'door bell' type).
> I did come as far as keeping it pressed using the code below:
> ---
> package require Tk
> foreach ch [winfo children "."] {destroy $ch}
>
> proc btnPress {w var} {
> if {[set $var]} {
> puts "calling 'tk::ButtonUp $w'"
> tk::ButtonUp $w
> set $var 0
> } else {
> puts "calling 'tk::ButtonDown $w'"
> tk::ButtonDown $w
> set $var 1
> }
> }
>
> proc tst {} {
> set btn [button .btn -width 3 -text ""]
> pack $btn
> set ::${btn}State 0
> bind $btn <Button-1> [list btnPress %W ::${btn}State]
> bind $btn <Enter> {break}
> bind $btn <Leave> {break}
> bind $btn <<Invoke>> {break}
> bind $btn <Key-space> {break}
> bind $btn <ButtonRelease-1> {break}
> return $btn
> }
>
> set b [tst]
> ---
> All the 'break' statements are for disabling the class bindings for
> 'Button'.
> What I see is
> - on the first press the ButtonDown message appears and the button
> gets pressed
> - on following presses I see the Up/Down messages appear as they
> should - but my button never gets released again.
> This is on Windows 10 and Tcl 8.6.10.
>
> Any help will be greatly appreciated
> Helmut

You could use a label and toggle the relief between raised and sunken.

set lstate 1
label .label -text hello -relief raised
bind .label <1> {toggleit}
proc toggleit {} {
if {[set ::lstate [expr {1-$::lstate}]]} {
.label configure -relief raised
} else {
.label configure -relief sunken
}
} pack .label

-e

et99 <et99@rocketship1.me> wrote:
> On 4/17/2024 7:21 AM, Helmut Giese wrote:
>> Hello out there,
>> for a kinf´d of technical app I need a 'switch type' button - that is
>> a button stays pressed when pressed once and only gets released when
>> pressed again. (Whereas the normal GUI behaviour of buttons is more
>> the 'door bell' type).

It was answered already, but might have been missed...

The answer is to use "checkbutton" instead of "button" or "radiobutton".

On Wed, 17 Apr 2024 16:21:02 +0200
Helmut Giese <hgiese@ratiosoft.com> wrote:

> Hello out there,
> for a kinf´d of technical app I need a 'switch type' button - that is
> a button stays pressed when pressed once and only gets released when
> pressed again. (Whereas the normal GUI behaviour of buttons is more
> the 'door bell' type).
> I did come as far as keeping it pressed using the code below:
> ---
> package require Tk
> foreach ch [winfo children "."] {destroy $ch}
>
> proc btnPress {w var} {
> if {[set $var]} {
> puts "calling 'tk::ButtonUp $w'"
> tk::ButtonUp $w
> set $var 0
> } else {
> puts "calling 'tk::ButtonDown $w'"
> tk::ButtonDown $w
> set $var 1
> }
> }
>
> proc tst {} {
> set btn [button .btn -width 3 -text ""]
> pack $btn
> set ::${btn}State 0
> bind $btn <Button-1> [list btnPress %W ::${btn}State]
> bind $btn <Enter> {break}
> bind $btn <Leave> {break}
> bind $btn <<Invoke>> {break}
> bind $btn <Key-space> {break}
> bind $btn <ButtonRelease-1> {break}
> return $btn
> }
>
> set b [tst]
> ---
> All the 'break' statements are for disabling the class bindings for
> 'Button'.
> What I see is
> - on the first press the ButtonDown message appears and the button
> gets pressed
> - on following presses I see the Up/Down messages appear as they
> should - but my button never gets released again.
> This is on Windows 10 and Tcl 8.6.10.
>
> Any help will be greatly appreciated
> Helmut

Are you looking for a checkbutton instead? In this case is simply

pack [checkbutton .btn -width 3 -text "" -indicatoron 0 -variable .btnState]

With ttk you can get the same effect with

pack [ttk::checkbutton .btn -width 3 -text "" -style Toolbutton -variable .btnState]

Regards

--
Emiliano

Hello,
many thanks to all who responded.
I didn't know it was that easy.
For me a checkbutton always was this square where one could put a
check mark in - hence the name. It never occurred to me that it could
look totally different.
Seems like there is still a lot to learn ...
Thanks again
Helmut