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 )
 | 
					GENERIC: modify-form ( responder -- xml/f )
 | 
				
			||||||
 | 
					
 | 
				
			||||||
M: object modify-form f ;
 | 
					M: object modify-form drop f ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: form-modifications ( -- xml )
 | 
					: form-modifications ( -- xml )
 | 
				
			||||||
    [ [ modify-form [ , ] when ] each-responder ] { } make ;
 | 
					    [ [ modify-form [ , ] when* ] each-responder ] { } make ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: hidden-form-field ( value name -- xml )
 | 
					: hidden-form-field ( value name -- xml )
 | 
				
			||||||
    over [
 | 
					    over [
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue