diff -ruN p5-Tk.orig/Makefile p5-Tk/Makefile
--- p5-Tk.orig/Makefile	2008-12-24 22:13:51.000000000 -0500
+++ p5-Tk/Makefile	2009-01-16 11:22:12.525664790 -0500
@@ -6,8 +6,8 @@
 #
 
 PORTNAME=	Tk
-PORTVERSION=	804.027
-PORTREVISION=	2
+DISTVERSION=	804.028_501
+PORTREVISION=	0
 CATEGORIES=	x11-toolkits tk perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
@@ -60,16 +60,17 @@
 		Tk::Image.3 \
 		Tk::InputO.3 \
 		Tk::Internals.3 \
-		Tk::Item.3 \
 		Tk::JPEG.3 \
 		Tk::LabFrame.3 \
 		Tk::Label.3 \
 		Tk::Labelframe.3 \
 		Tk::Listbox.3 \
 		Tk::MainWindow.3 \
+		Tk::Menu::Item.3 \
 		Tk::Menu.3 \
 		Tk::Menubutton.3 \
 		Tk::Message.3 \
+		Tk::MsgBox.3 \
 		Tk::Mwm.3 \
 		Tk::NoteBook.3 \
 		Tk::Optionmenu.3 \
diff -ruN p5-Tk.orig/distinfo p5-Tk/distinfo
--- p5-Tk.orig/distinfo	2006-01-23 22:16:43.000000000 -0500
+++ p5-Tk/distinfo	2008-12-18 03:57:33.377016000 -0500
@@ -1,3 +1,3 @@
-MD5 (Tk-804.027.tar.gz) = d1ca4a6bff6dae4d937fabde4e86256b
-SHA256 (Tk-804.027.tar.gz) = fc12136d8885168cdb77af4107d0cd8121c329925219355a19bfffe01a1ad8a2
-SIZE (Tk-804.027.tar.gz) = 6011130
+MD5 (Tk-804.028_501.tar.gz) = bf7b1726ea98472aa586eda17ca6f9d0
+SHA256 (Tk-804.028_501.tar.gz) = 297f28cbb19cadc8a5e3528a46a2b6d9c4b3dd0efcbee8240047abeae06da57d
+SIZE (Tk-804.028_501.tar.gz) = 6917142
diff -ruN p5-Tk.orig/pkg-plist p5-Tk/pkg-plist
--- p5-Tk.orig/pkg-plist	2006-01-21 22:00:44.000000000 -0500
+++ p5-Tk/pkg-plist	2008-12-18 04:23:59.556496000 -0500
@@ -89,7 +89,6 @@
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/InputO.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/InputO.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Internals.pod
-%%SITE_PERL%%/%%PERL_ARCH%%/Tk/Item.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/ItemStyle.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/JPEG.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/LabEntry.pm
@@ -110,11 +109,14 @@
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menu.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menu.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menu/Item.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menu/Item.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menubar.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menubutton.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Menubutton.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Message.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Message.pod
+%%SITE_PERL%%/%%PERL_ARCH%%/Tk/MsgBox.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/Tk/MsgBox.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Mwm.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/Mwm.pod
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/NBFrame.pm
@@ -302,6 +304,8 @@
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/TEMPLATE.pl
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/Tiler.pl
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/lib/npuz/Xcamel.npuz
+%%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/all.pl
+%%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/cursor.pl
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/npuz.pl
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/demos/widtrib/plop.pl
 %%SITE_PERL%%/%%PERL_ARCH%%/Tk/event.pod
@@ -608,6 +612,14 @@
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Toplevel/autosplit.ix
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/TraverseToMenu.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/ASkludge.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/AltKeyInDialog.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/AmpWidget.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/FindAltKeyTarget.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/MasterMenu.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/RestoreFocusGrab.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/SetAmpText.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/SetFocusGrab.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/UnderlineAmpersand.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/autosplit.ix
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/clipboardKeysyms.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/Widget/pathname.al
@@ -631,6 +643,8 @@
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/focusNext.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/focusPrev.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/getEncoding.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/getNextFocus.al
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/getPrevFocus.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/interps.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/lsearch.al
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/Tk/pTk/extralibs.ld