Mercurial > hg > xemacs-beta

view tests/gtk/gtk-extra-test.el @ 4653:25e5e5346d31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
?\012 is whitespace, as it always should have been, thank you Karl Kleinpaste. src/ChangeLog addition: 2009-07-15 Aidan Kehoe <kehoea@parhasard.net> * syntax.c (complex_vars_of_syntax): ?\012 is whitespace, as it always should have been, thank you Karl Kleinpaste and the Gnus team!
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 15 Jul 2009 00:19:45 +0100
parents 0784d089fdc9
children db7068430402
line wrap: on
line source

(require 'gtk-extra)

(gtk-define-test
 "Color Combo" extra color-combo nil
 (let ((combo (gtk-color-combo-new)))
   (gtk-box-pack-start window combo nil nil 0)))

(gtk-define-test
 "Directory Tree" extra dirtree nil
 (let ((dir (gtk-dir-tree-new)))
   (gtk-box-pack-start window dir nil nil 0)
   (gtk-dir-tree-open-dir dir "/")))

(gtk-define-test
 "File List" extra filelist nil
 (let ((scrolled (gtk-scrolled-window-new nil nil))
       (list (gtk-file-list-new 32 2 "/")))
   (gtk-scrolled-window-add-with-viewport scrolled list)
   (put scrolled 'height 200)
   (gtk-box-pack-start window scrolled t t 0)))

(gtk-define-test
 "Font Combo" extra fontcombo nil
 (let ((fc (gtk-font-combo-new)))
   (gtk-box-pack-start window fc t t 0)))