
       /*************************************
        ****  CLASS: Test
        *************************************/
MakeClass( Test, Root );

/************** METHOD: abreTest   **************/
MakeMethod( Test, abreTest, [],
{
If Member?(Self:listaTest, FRIO) And Not(KnownValue?( Self:frio))
Then ShowImage(RBfrio); 

If Member?(Self:listaTest, ELECTRICO) And Not(KnownValue?( Self:electrico)) 
Then ShowImage(SLelectrico); 

If Member?(Self:listaTest, SENSIBILIDAD) And Not(KnownValue?( Self:sensibilidad))
Then ShowImage(RBsensibilidad);


If Member?(Self:listaTest, CALOR) And Not(KnownValue?( Self:calor))
Then ShowImage(RBcalor);

If Member?(Self:listaTest, CUA) And Not(KnownValue?( Self:cua))
Then ShowImage(RBcua); 

If Member?(Self:listaTest, DOPPLER) And Not(KnownValue?( Self:doppler))
Then ShowImage(RBdoppler);


If Member?(Self:listaTest, CAVIDAD) And Not(KnownValue?( Self:cavidad))
Then ShowImage(RBcavidad);


If Member?(Self:listaTest, TRANSILUMINACION) And Not(KnownValue?( Self:transiluminacion))
Then ShowImage(RBtransiluminacion);

} );

/************** METHOD: cierraCalor   **************/
MakeMethod( Test, cierraCalor, [],
HideImage(RBcalor) );

/************** METHOD: cierraFrio   **************/
MakeMethod( Test, cierraFrio, [],
HideImage(RBfrio) );

/************** METHOD: cierraCua   **************/
MakeMethod( Test, cierraCua, [],
HideImage(RBcua) );

/************** METHOD: cierraDoppler   **************/
MakeMethod( Test, cierraDoppler, [],
HideImage(RBdoppler) );

/************** METHOD: cierraSensibilidad   **************/
MakeMethod( Test, cierraSensibilidad, [],
HideImage(RBsensibilidad) );

/************** METHOD: cierraElectrico   **************/
MakeMethod( Test, cierraElectrico, [],
HideImage(SLelectrico) );

/************** METHOD: cierraCavidad   **************/
MakeMethod( Test, cierraCavidad, [],
HideImage(RBcavidad) );

/************** METHOD: cierraTransiluminacion   **************/
MakeMethod( Test, cierraTransiluminacion, [],
HideImage(RBtransiluminacion) );
MakeSlot( Test:frio );
SetSlotOption( Test:frio, AFTER_CHANGE, cierraFrio );
MakeSlot( Test:calor );
SetSlotOption( Test:calor, AFTER_CHANGE, cierraCalor );
MakeSlot( Test:electrico );
SetSlotOption( Test:electrico, VALUE_TYPE, NUMBER );
SetSlotOption( Test:electrico, MINIMUM_VALUE, 0 );
SetSlotOption( Test:electrico, MAXIMUM_VALUE, 10 );
SetSlotOption( Test:electrico, AFTER_CHANGE, cierraElectrico );
MakeSlot( Test:sensibilidad );
SetSlotOption( Test:sensibilidad, AFTER_CHANGE, cierraSensibilidad );
MakeSlot( Test:cua );
SetSlotOption( Test:cua, AFTER_CHANGE, cierraCua );
MakeSlot( Test:doppler );
SetSlotOption( Test:doppler, AFTER_CHANGE, cierraDoppler );
MakeSlot( Test:listaTest );
SetSlotOption( Test:listaTest, MULTIPLE );
ClearList( Test:listaTest );
SetSlotOption( Test:listaTest, AFTER_CHANGE, abreTest );
MakeSlot( Test:cavidad );
SetSlotOption( Test:cavidad, AFTER_CHANGE, cierraCavidad );
MakeSlot( Test:transiluminacion );
SetSlotOption( Test:transiluminacion, AFTER_CHANGE, cierraTransiluminacion );
