################################################################ # proc addOne {}-- # Add one to the global variable var # Arguments # NONE # # Results # global var is modified # proc addOne {} { # var exists in global scope global var incr var } set var 0 label .l1 -textvar var button .b1 -text "Incr" -command addOne grid .l1 grid .b1