proc ConfigFrameSize {args} {
    set params {}
    set argIndex 0
    while {$argIndex < [llength $args]} {
	set currentArg [lindex $args $argIndex]
	switch -exact -- $currentArg { 
	    -configElementObj {
		set configElementObj [lindex $args [expr $argIndex + 1]]
		incr argIndex 2
	    }
	    -type {
		# auto, fixed, increment, presetDistribution, quadGaussian, random, weightedPairs
		set type [lindex $args [expr $argIndex + 1]]
		append params " -type $type"
		incr argIndex 2
	    }
	    -frameSize {
		set frameSize [lindex $args [expr $argIndex + 1]]
		append params " -fixedSize $frameSize"
		incr argIndex 2
	    }
	    -randomMin {
		set randomMin [lindex $args [expr $argIndex + 1]]
		append params " -randomMin $randomMin"
		incr argIndex 2
	    }
	    -randomMax {
		set randomMax [lindex $args [expr $argIndex + 1]]
		append params " -randomMax $randomMax"
		incr argIndex 2
	    }
	    -incrementFrom {
		set incrementFrom [lindex $args [expr $argIndex + 1]]
		append params " -incrementFrom $incrementFrom"
		incr argIndex 2
	    }
	    -incrementTo {
		set incrementTo [lindex $args [expr $argIndex + 1]]
		append params " -incrementTo $incrementTo"
		incr argIndex 2
	    }
	    -incrementStep {
		set incrementStep [lindex $args [expr $argIndex + 1]]
		append params " -incrementStep $incrementStep"
		incr argIndex 2
	    }
	    default {
		puts "\nError ConfigFrameSize: No such parameter: $currentArg"
	    }
	}
    }

    puts "\nConfigFrameSize: $params"
    if {[catch {eval ixNet setMultiAttribute $configElementObj/frameSize $params} errMsg]} {
	puts "Error: ConfigFrameSize: $params"
	return 1
    }
    ixNet commit
    return 0
}