86 |
(defconst preview-specs-type |
(defconst preview-specs-type |
87 |
'(repeat |
'(repeat |
88 |
(list :tag "Image spec" |
(list :tag "Image spec" |
89 |
(const :format "" :type) |
;; Use an extra :value keyword to avoid a bug in |
90 |
|
;; `widget-convert' of XEmacs 21.4 and Emacs 21. |
91 |
|
;; Analogously for the following `const' statements. |
92 |
|
(const :format "" :value :type) |
93 |
(choice :tag "Image type" |
(choice :tag "Image type" |
94 |
(const xpm) |
(const xpm) |
95 |
(const xbm) |
(const xbm) |
96 |
(symbol :tag "Other")) |
(symbol :tag "Other")) |
97 |
(set :inline t :tag "Minimum font size" |
(set :inline t :tag "Minimum font size" |
98 |
(list :inline t :tag "" |
(list :inline t :tag "" |
99 |
(const :format "" :min) |
(const :format "" :value :min) |
100 |
(integer :tag "pixels"))) |
(integer :tag "pixels"))) |
101 |
(const :format "" :file) (string :tag "Filename") |
(const :format "" :value :file) (string :tag "Filename") |
102 |
(set :inline t :tag "Ascent ratio" |
(set :inline t :tag "Ascent ratio" |
103 |
(list :inline t :tag "" |
(list :inline t :tag "" |
104 |
(const :format "" :ascent) |
(const :format "" :value :ascent) |
105 |
(integer :tag "percent of image" |
(integer :tag "percent of image" |
106 |
:value 50)))))) |
:value 50)))))) |
107 |
|
|