renderCommandListOn: html
	"Used by Prototype to update the list of commands"
	| commandNames commandsParametersId subsystemsCommandsId |
	
	commandsParametersId := html nextId.
	commandNames := self commandNamesForSubsystem: self subsystem.
	
	html label: 'Command: '.
	html select
			onChange: (html scriptaculous updater 
							id: commandsParametersId;
							triggerForm: (html scriptaculous element up: 'form');
			    	              callback: [ :ajaxHtml | self renderCommandParametersOn: ajaxHtml ]
						);
		callback: [ :value | commandDefinition := self commandWithName: value.
			data := (self commandWithName: value) requestDefinition];
		list: commandNames