projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Resorted; add missing `ideographic-strokes' attributes; use
[chise/xemacs-chise.git-]
/
tests
/
glyph-test.el
diff --git
a/tests/glyph-test.el
b/tests/glyph-test.el
index
425b1b8
..
b5d1727
100644
(file)
--- a/
tests/glyph-test.el
+++ b/
tests/glyph-test.el
@@
-18,7
+18,8
@@
(make-extent (point) (point))
(setq radio-button1
(make-glyph
(make-extent (point) (point))
(setq radio-button1
(make-glyph
- [button :descriptor ["ok1" (setq ok-select t)
+ [button :face widget
+ :descriptor ["ok1" (setq ok-select t)
:style radio :selected ok-select]])))
;; button in a group
(set-extent-begin-glyph
:style radio :selected ok-select]])))
;; button in a group
(set-extent-begin-glyph
@@
-48,7
+49,7
@@
(setq push-button
(make-glyph [button :width 10 :height 2
:face modeline-mousable
(setq push-button
(make-glyph [button :width 10 :height 2
:face modeline-mousable
- :descriptor "ok" :callback foo
+ :descriptor "ok" :callback foo
:selected t])))
;; tree view
(set-extent-begin-glyph
:selected t])))
;; tree view
(set-extent-begin-glyph
@@
-82,7
+83,7
@@
;; progress the progress ...
(let ((x 0))
(while (<= x 100)
;; progress the progress ...
(let ((x 0))
(while (<= x 100)
- (set-image-instance-property (glyph-image-instance pgauge) :percent x)
+ (set-image-instance-property (glyph-image-instance pgauge) :value x)
(setq x (+ x 5))
(sit-for 0.1)))
(setq x (+ x 5))
(sit-for 0.1)))
@@
-95,7
+96,7
@@
;; progress the progress ...
(let ((x 0))
(while (<= x 100)
;; progress the progress ...
(let ((x 0))
(while (<= x 100)
- (set-image-instance-property (glyph-image-instance pg) :percent x)
+ (set-image-instance-property (glyph-image-instance pg) :value x)
(setq x (+ x 5))
(sit-for 0.1)))
(setq x (+ x 5))
(sit-for 0.1)))
@@
-147,12
+148,12
@@
;; layout
(setq layout
(make-glyph
;; layout
(setq layout
(make-glyph
- [layout :pixel-width 200 :pixel-height 250
+ [layout :descriptor "The Layout"
:orientation vertical
:justify left
:border [string :data "Hello There Mrs"]
:orientation vertical
:justify left
:border [string :data "Hello There Mrs"]
- :items ([layout :orientation horizontal
- :items (radio-button1 radio-button2)]
+ :items ([native-layout :orientation horizontal
+ :items (radio-button1 radio-button2)]
edit-field toggle-button label str)]))
(set-glyph-face layout 'gui-element)
(set-extent-begin-glyph
edit-field toggle-button label str)]))
(set-glyph-face layout 'gui-element)
(set-extent-begin-glyph