X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgtk-package.el;fp=lisp%2Fgtk-package.el;h=1da2db9b61b6433c98052da447ca428ea4721e75;hb=9a9fedfd2473568f4827f6295de7b03259b160e5;hp=0000000000000000000000000000000000000000;hpb=97badae7fa41c4bd3e92511ff7b16389e646e022;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/gtk-package.el b/lisp/gtk-package.el
new file mode 100644
index 0000000..1da2db9
--- /dev/null
+++ b/lisp/gtk-package.el
@@ -0,0 +1,10 @@
+;; A GTK version of package-ui.el
+
+(require 'package-get)
+(require 'package-ui)
+
+(defun package-gtk-edit-sites ()
+  (let ((window (gtk-window-new 'toplevel))
+	(box (gtk-hbox-new nil 5)))
+    (gtk-container-add window box)
+    (gtk-widget-show-all window)))