renderCommandParametersOn: html
	"Used by Prototype to update the list of commands"
	| commandParameters |
	
	commandParameters :=  commandDefinition requestDefinition.
	
	commandParameters do: [ :each |
		html text: each name.
		html textInput 
			callback: [ :value | each value: value  ];
			value: each value . 
		html space.
		 ]