The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

(define-object AppletWidget (GtkPlug) (perl Gnome::Panel::AppletWidget))
;(define-object ButtonWidget (GtkWidget) (perl Gnome::Panel::ButtonWidget)))
;(define-object CornetWidget (GtkWindow)	(perl Gnome::Panel::CornerWidget))
;(define-object DrawerWidget (GtkWindow) (perl Gnome::Panel::DrawerWidget))
;(define-object PanelWidget (GtkFixed) (perl Gnome::Panel::PanelWidget))
;(define-object SnappedWidget (GtkWindow) (perl Gnome::Panel::SnappedWidget))

(define-enum PanelOrientType
	(up	ORIENT_UP)
	(down	ORIENT_DOWN)
	(left	ORIENT_LEFT)
	(right	ORIENT_RIGHT))

(define-enum PanelTileType
	(launcher-tile	LAUNCHER_TILE)
	(drawer-tile	DRAWER_TILE)
	(menu-tile	MENU_TILE))