remove duplicated code
This commit is contained in:
parent
fb834f496c
commit
36edd12c6e
@ -148,9 +148,7 @@
|
||||
(tset entry :on_activate
|
||||
(fn [event]
|
||||
(let [result (self:on-activate event.text)]
|
||||
(set prompt.label (or result.prompt ""))
|
||||
(set entry.sensitive result.active)
|
||||
(set entry.text (or result.default result.error "")))))
|
||||
(update-widget-state self result))))
|
||||
self))
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user