                                      "true"
                                      "false")}}]
                   (map
-                    (fn [parent]
+                    (fn [parent-type-id]
                       {:tag "super"
-                       :attrs {:type (type-map parent parent)}})
+                       :attrs {:type (eclipse-type-id parent-type-id)}})
                     (or (seq (:parents type-def))
                       [:ccw]))))}))
 
-(defn find-marker-extensions-in-registry
+(defn- find-marker-extensions-in-registry
   "Find all marker extensions whose unique name contain the string s.
    Useful for debuggin in the REPL."
   [s]

   :one      IResource/DEPTH_ONE
   :infinite IResource/DEPTH_INFINITE})

(defn create-marker!
  "Create a marker for the given resource-coercible.
   the marker map must contain keys :type, :severity, :message,

    (.setAccessible instance-field true)
    (.set instance-field nil nil)))

(defn- reset-marker-types!
  []
  (reset-marker-manager-cache!)
  (reset-marker-MarkerTypesModel!))

