Someone

proc addModuleConfig {ModuleID ModuleName FunctionNr Program} {
		global Modules::Config::List
		
		array set tmpModule {
			ID			$ModuleID
			Name		$ModuleName
			FunctionNr	$FunctionNr
			Channels 	0
		}
		
		if {$List == 0} {
			set List $tmpModule
		} else {
			lappend List $tmpModule
		}
		
		return $tmpModule
	}
	
	proc addChannelConfig {Module ChannelID ChannelName Prio SendBuf RecvBuf} {
		array set tmpChannel {
			Name	$ChannelNanme
			ID		$ChannelID
			SendBuf $SendBuf
			RecvBuf $RecvBuf
			Prio	$Prio
		}
		
		if {$Module(Channels) == 0} {
			set $Module(Channels) [list $tmpChannel]
		} else {
			lappend $Module(Channels) $tmpChannel
		}
	}