entry(".e", -textvariable => var1);
entry(".e2, -textvarible => var2);
entry(".e3", -textvariable => var3);
button(".b", -command => {set var3 [expr $var1 + $var2]});
tkpack ".e";
tkpack ".e2";
tkpack ".e3";
tkpack ".b";
MainLoop;