Tk Source Code

Ticket Change Details
Login
Overview

Artifact ID: b49a8c3d61da3a81c2b152b3ce7c2297996ff0563309db52ab7f6aa4823a5adf
Ticket: c92cee4740d33ccfd3f45e06cebab0bd83a9ad45
Deselect radiobutton
User & Date: anonymous 2018-09-15 15:39:45
Changes

  1. assignee changed to: "nobody"
  2. closer changed to: "nobody"
  3. cmimetype changed to: "text/plain"
  4. comment changed to:
    frame .t
    pack .t
    set reptype 0
    radiobutton .t.r1 -text "1" -variable reptyp -value 1
    radiobutton .t.r2 -text "2" -variable reptyp -value 2
    radiobutton .t.r3 -text "3" -variable reptyp -value 3
    radiobutton .t.r4 -text "4" -variable reptyp -value 4
    radiobutton .t.r5 -text "5" -variable reptyp -value 5
    radiobutton .t.r6 -text "6" -variable reptyp -value 6
    
    bind .t.r1 <Double-1> {Chk_Alone $reptyp}
    bind .t.r2 <Double-1> {Chk_Alone $reptyp}
    bind .t.r3 <Double-1> {Chk_Alone $reptyp}
    bind .t.r4 <Double-1> {Chk_Alone $reptyp}
    bind .t.r5 <Double-1> {Chk_Alone $reptyp}
    bind .t.r6 <Double-1> {Chk_Alone $reptyp}
    
    
    grid .t.r1
    grid .t.r2 
    grid .t.r3
    grid .t.r4
    grid .t.r5
    grid .t.r6
    
    proc Chk_Alone {args} {
    global reptyp
    
    #tk_messageBox -message "unselected"
    after idle [list .t.r$args deselect ]
    }
    
    #is a short exemple deselect not work, work only if tk_message is not a comment
    
  5. foundin changed to: "8.6"
  6. is_private changed to: "0"
  7. login: "anonymous"
  8. priority changed to: "5 Medium"
  9. private_contact changed to: "457c266b943d7680e10f513f5b080f807997a9aa"
  10. resolution changed to: "None"
  11. severity changed to: "Minor"
  12. status changed to: "Open"
  13. submitter changed to: "anonymous"
  14. subsystem changed to: "03. [*button] and [label]"
  15. title changed to: "Deselect radiobutton"
  16. type changed to: "Bug"