Crear componentes en Gambas - Parte 5

A continuación se lista un primer bosquejo de la clase Notify, que debe analizar para verificar la presencia de deficiencias conceptuales, para anticipar problemas futuros y, entonces, pensar en qué cambios haría usted.

Intente deducir que problemas podrían ocurrir si fuera necesario cambiar la implementación de la clase Notify. En particular, verifique si el diseño de la clase cumple con los criterios de encapsulamiento y ocultación de información. Piense también si el cumplimiento de estos principios es estrictamente necesario y si no lo fuera ¿deberían ser públicos los atributos de esta clase?

EXPORT PUBLIC CONST URGENCY_LOW AS String = "low" PUBLIC CONST URGENCY_CRITICAL AS String = "critical" PUBLIC CONST URGENCY_NORMAL AS String = "normal" STATIC PRIVATE $sSummary AS String STATIC PRIVATE $sMessage AS String STATIC PRIVATE $sUrgency AS String STATIC PRIVATE $iTimeOut AS Integer STATIC PRIVATE $sIcon AS String STATIC PRIVATE $sCategory AS String STATIC PRIVATE $vHint AS Variant STATIC PROPERTY Summary AS String STATIC PROPERTY Message AS String STATIC PROPERTY Urgency AS String STATIC PROPERTY TimeOut AS Integer STATIC PROPERTY Icon AS String STATIC PROPERTY Category AS String STATIC PROPERTY Hint AS Variant STATIC PUBLIC SUB Send(OPTIONAL pSummary AS String, pMessage AS String, pUrgency AS String, pTimeOut AS Integer, pCategory AS String, pHint AS Variant, pIcon AS String) END STATIC PRIVATE FUNCTION Urgency_Read() AS String END STATIC PRIVATE SUB Urgency_Write(Value AS String) END STATIC PRIVATE FUNCTION TimeOut_Read() AS Integer END STATIC PRIVATE SUB TimeOut_Write(Value AS Integer) END STATIC PRIVATE FUNCTION Icon_Read() AS String END STATIC PRIVATE SUB Icon_Write(Value AS String) END STATIC PRIVATE FUNCTION Category_Read() AS String END STATIC PRIVATE SUB Category_Write(Value AS String) END STATIC PRIVATE FUNCTION Hint_Read() AS Variant END STATIC PRIVATE SUB Hint_Write(Value AS Variant) END STATIC PRIVATE FUNCTION Summary_Read() AS String END STATIC PRIVATE SUB Summary_Write(Value AS String) END STATIC PRIVATE FUNCTION Message_Read() AS String END STATIC PRIVATE SUB Message_Write(Value AS String) END

Anterior

Siguiente