Handbook
Glossary
model-field
Vocabulary
ui
.
gadgets
.
controls
Definition
USING:
ui.gadgets.editors
;
IN:
ui.gadgets.controls
TUPLE:
model-field
<
field
model*
;
Methods
USING:
accessors
kernel
models
ui.gadgets
ui.gadgets.controls
ui.gadgets.editors
;
M:
model-field
graft*
[
[
model*>>
value>>
]
[
editor>>
]
bi
set-editor-string
]
[
dup
editor>>
model>>
add-connection
]
[
dup
model*>>
add-connection
]
tri
;
USING:
accessors
kernel
models
ui.gadgets.controls
ui.gadgets.editors
;
M:
model-field
model-changed
2dup
model*>>
=
[
[
value>>
]
[
editor>>
]
bi*
set-editor-string
]
[
nip
[
editor>>
editor-string
]
[
model*>>
]
bi
set-model
]
if
;
USING:
accessors
ui.gadgets.controls
;
M:
model-field
output-model
model*>>
;
USING:
accessors
kernel
models
ui.gadgets
ui.gadgets.controls
;
M:
model-field
ungraft*
[
dup
editor>>
model>>
remove-connection
]
[
dup
model*>>
remove-connection
]
bi
;