(defstruct null-widget ()
  (:method popularity (me) 0))

(defvarl null-widget (new null-widget))

(defstruct real-widget ()
  pop
  (:method popularity (me) me.pop))