Mercurial > hg > xemacs-beta
view lisp/gtk-package.el @ 734:8bd30fae1bce
[xemacs-hg @ 2002-01-25 16:46:24 by stephent]
Per patch <87665q9yfh.fsf@tleepslib.sk.tsukuba.ac.jp>.
| author | stephent |
|---|---|
| date | Fri, 25 Jan 2002 16:46:26 +0000 (2002-01-25) |
| 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)))