Help-lint edit for furnace.utilities
parent
7a8a48bdab
commit
c3f5dc2e96
|
@ -79,10 +79,10 @@ M: object link-attr 2drop ;
|
|||
|
||||
GENERIC: modify-form ( responder -- xml/f )
|
||||
|
||||
M: object modify-form f ;
|
||||
M: object modify-form drop f ;
|
||||
|
||||
: form-modifications ( -- xml )
|
||||
[ [ modify-form [ , ] when ] each-responder ] { } make ;
|
||||
[ [ modify-form [ , ] when* ] each-responder ] { } make ;
|
||||
|
||||
: hidden-form-field ( value name -- xml )
|
||||
over [
|
||||
|
|
Loading…
Reference in New Issue