cgit.sxemacs.org Git - sxemacs/blob - lisp/gtk-package.el

   1 ;; A GTK version of package-ui.el
   2
   3 (globally-declare-fboundp
   4  '(gtk-window-new
   5    gtk-hbox-new gtk-container-add gtk-widget-show-all))
   6
   7 (require 'package-get)
   8 (require 'package-ui)
   9
  10 (defun package-gtk-edit-sites ()
  11   (let ((window (gtk-window-new 'toplevel))
  12         (box (gtk-hbox-new nil 5)))
  13     (gtk-container-add window box)
  14     (gtk-widget-show-all window)))