(load "xpm.mbin")
			   
(create-instance 'a2 opal:aggrelist
		 (:rank-margin 7)
		 (:items (directory "xpm/icons2/*.xpm"))
		 (:item-prototype
		  `(,pixmap (:filename
			     ,(o-formula (nth (gvl :rank) (gvl :parent
							       :items)))))))

(create-instance 'w2  inter:interactor-window (:aggregate a2))

(opal:update w2)

