git.chise.org Git - chise/xemacs-chise.git.1/blob - tests/gtk/gtk-extra-test.el

   1 (require 'gtk-extra)
   2
   3 (gtk-define-test
   4  "Color Combo" extra color-combo nil
   5  (let ((combo (gtk-color-combo-new)))
   6    (gtk-box-pack-start window combo nil nil 0)))
   7
   8 (gtk-define-test
   9  "Directory Tree" extra dirtree nil
  10  (let ((dir (gtk-dir-tree-new)))
  11    (gtk-box-pack-start window dir nil nil 0)
  12    (gtk-dir-tree-open-dir dir "/")))
  13
  14 (gtk-define-test
  15  "File List" extra filelist nil
  16  (let ((scrolled (gtk-scrolled-window-new nil nil))
  17        (list (gtk-file-list-new 32 2 "/")))
  18    (gtk-scrolled-window-add-with-viewport scrolled list)
  19    (put scrolled 'height 200)
  20    (gtk-box-pack-start window scrolled t t 0)))
  21
  22 (gtk-define-test
  23  "Font Combo" extra fontcombo nil
  24  (let ((fc (gtk-font-combo-new)))
  25    (gtk-box-pack-start window fc t t 0)))
  26