Posted to tcl by centrix at Thu Jun 22 14:00:06 GMT 2017view raw

  1. #!/bin/env tclsh
  2.  
  3. package require Tk
  4.  
  5. wm minsize . 640 400
  6.  
  7. set ::v_btn1 123
  8. set ::lbl1 "Label 1"
  9. set ::lbl2 "Label 2"
  10.  
  11. set btn1 [button .btn1 -text "Press me" -command {pressMe $::v_btn1}]
  12. #set lbl1 [label .lbl1 -textvariable ::lbl1]
  13. #set lbl2 [label .lbl2 -textvariable ::lbl2]
  14. set lbl1 [label .lbl1 -text "Label 1" -textvariable $::lbl1]
  15. set lbl2 [label .lbl2 -text "Label 2" -textvariable $::lbl2]
  16.  
  17. pack $btn1 -side top
  18. pack $lbl1 -side top
  19. pack $lbl2 -side top
  20.  
  21. proc pressMe {x} {
  22. set ::v_btn1 [expr $x + 1]
  23. puts $::v_btn1
  24. global ::lbl1
  25. set ::lbl1 "Label $::v_btn1"
  26. puts $::lbl1
  27. }
  28.