Mercurial > hg > xemacs-beta

view lisp/gtk-package.el @ 4682:648f4a0dac3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix build problems on WIN32 platforms caused by the large image crash fix. See the thread on xemacs-patches@xemacs.org beginning with message <20a807210907081256y6c02f4bbv72d34c9f3c72ab02@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Mon, 24 Aug 2009 15:21:21 -0600
parents 7039e6323819
children db7068430402
line wrap: on
line source

;; A GTK version of package-ui.el

(globally-declare-fboundp
 '(gtk-window-new
   gtk-hbox-new gtk-container-add gtk-widget-show-all))

(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)))