Anonymous user
GUI component interaction: Difference between revisions
m
Make indentation consistent.
(Changed behavior if an invalid value is entered: restore the previous value.) |
m (Make indentation consistent.) |
||
Line 2,198:
var valu: int = 0
proc thisDestroy(widget: PWidget, data: Pgpointer) {.cdecl.} =
Line 2,226 ⟶ 2,225:
proc on_question_clicked: bool =
result
▲ dialog.destroy()
proc thisInc(widget: PWidget, data: Pgpointer){.cdecl.} =
Line 2,241 ⟶ 2,237:
proc thisRnd(widget: PWidget, data: Pgpointer){.cdecl.} =
if on_question_clicked():
proc thisTextChanged(widget: PWidget, data: Pgpointer) {.cdecl.} =
try:
except ValueError:
entry_fld.set_text($valu)▼
▲ entry_fld.set_text($valu)
discard signal_connect(win, "destroy", SIGNAL_FUNC(thisDestroy), nil)
discard signal_connect(btn_quit, "clicked", SIGNAL_FUNC(thisDestroy), nil)
discard signal_connect(btn_inc, "clicked", SIGNAL_FUNC(thisInc), nil)
discard signal_connect(btn_rnd, "clicked", SIGNAL_FUNC(thisRnd), nil)
win.show_all()
| |||