#
#pragma ident "@(#)Config-Reader4uwg-d.flt	1.2 01/02/13 Sun Microsystems"
#

global treeChange_prevvalue
set treeChange_prevvalue 1

proc modelChange { datalist } {
	global treeChange_prevvalue
	set curvalue [ lindex  $datalist 0]
	if {$curvalue == $treeChange_prevvalue } {
		return $curvalue
	}
#	refreshValueAndTrap
	set treeChange_prevvalue $curvalue
	informDependencies update
	return $curvalue
}

global configChange_prevvalue
set configChange_prevvalue 1

proc configChange { datalist } {
	global configChange_prevvalue
	set curvalue [ lindex  $datalist 0]
	if {$curvalue == $configChange_prevvalue } {
                return $curvalue
        }
#	refreshValueAndTrap
	set configChange_prevvalue $curvalue
        return $curvalue
}

