Fix widget

Shimuuar · Jul 24, 2013 · e7ec748 · e7ec748
1 parent 470593a
commit e7ec748
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/UI/Widget.hs b/UI/Widget.hs
@@ -29,6 +29,7 @@ entryInt opts packs bhvN = do
   vCur        <- freshVar
   vBack       <- freshVar
   (pref, evt) <- addTclEvent
+  configure nm $ TextVariable vCur
   let call = [ Name "entry_validate_int"
              , Name (getEvtPrefix pref)
              , Name vCur