bindOnce

bindOnce .c <Escape> ".c.context.nosel invoke Done"

manages that event triggers action, then restores previous event binding

proc bindOnce {win event action} {
  bind $win $event [list bind $win $event [bind $win $event]]
  bind $win $event +$action
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z