import Dynamic

main = return ()

data Shape value = Box | Circle | Ellipse | Rhombus | Triangle | 
   Icon FilePath deriving (Read,Show)

class HasConfigValue Shape nodeTypeParms => HasShape nodeTypeParms

class HasConfigValue option configuration where
   ($$$) :: Typeable value 
      => option value -> configuration value -> configuration value

   configUsed' :: Typeable value 
      => option value -> configuration value -> Bool