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

   1 (set-extent-begin-glyph
   2  (make-extent (point) (point))
   3  (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
   4
   5 (defun foo ()
   6   (interactive)
   7   (setq ok-select (not ok-select)))
   8
   9 ;; button in a group
  10 (setq ok-select nil)
  11 (set-extent-begin-glyph
  12  (make-extent (point) (point))
  13  (make-glyph [button :descriptor ["ok     " (setq ok-select t)
  14                                   :style radio :selected ok-select]]))
  15 ;; button in a group
  16 (set-extent-begin-glyph
  17  (make-extent (point) (point))
  18  (make-glyph [button :descriptor ["ok" (setq ok-select nil) :style radio
  19                                   :selected (not ok-select)]]))
  20 ;; normal pushbutton
  21 (set-extent-begin-glyph
  22  (make-extent (point) (point))
  23  (setq pbutton (make-glyph [button :width 10 :height 2
  24                                    :face modeline-mousable
  25                                    :descriptor ["ok" foo :selected t]])))
  26 ;; normal pushbutton
  27 (set-extent-begin-glyph
  28  (make-extent (point) (point))
  29  (make-glyph [button :descriptor ["A Big Button" foo ]]))
  30 ;; edit box
  31 (set-extent-begin-glyph
  32  (make-extent (point) (point))
  33  (setq hedit (make-glyph [edit :pixel-width 50 :pixel-height 30
  34                                :face bold-italic
  35                                :descriptor ["Hello"]])))
  36 ;; combo box
  37 (set-extent-begin-glyph
  38  (make-extent (point) (point))
  39  (setq hcombo (make-glyph
  40                [combo :width 10 :height 3 :descriptor ["Hello"]
  41                       :properties (:items ("One" "Two" "Three"))])))
  42
  43 ;; line
  44 (set-extent-begin-glyph
  45  (make-extent (point) (point))
  46  (make-glyph [label :pixel-width 150 :descriptor "Hello"]))
  47
  48 ;; scrollbar
  49 ;(set-extent-begin-glyph
  50 ; (make-extent (point) (point))
  51 ; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]]))
  52
  53 ;; generic subwindow
  54 (setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 50]))
  55 (set-extent-begin-glyph (make-extent (point) (point)) sw)
  56