widget button in custom
Shinichiro HIDA <[email protected]>
| Newsgroups | gmane.emacs.xemacs.user.japanese |
|---|---|
| Organization | petite auberge Stained Glass |
| Message-ID | <[email protected]> |
飛田です。
Debian sid の xemacs-21.4.11 を利用させて頂いております。
;; たぶん Debian 固有の問題ではないと思うので、こちらへ投稿します。
X 上で M-x customize-face とかやったときに出て来るボタンですが、手もと
では、いつの頃からか一部しか出なくなってたのに気づいて気になってたので
すが、これは、意図的な物(*)なのでしょうか?
(*) 何か設定すると、切替えられるとか、設定出来る機能が新設されてたりし
ますか?
手もとでは、次のよう(昔の状態)にすると、以前のようなボタンが見られるよ
うにはなるのですが、ひょっとして obsolate だったりしますか?
--
Shinichiro HIDA mailto:[email protected]
GPG fingerprint = 5F2D 1656 FFF6 F691 A51C 5E61 E416 D398 470C 1CE9
cus-edit.el.diff
(application/octet-stream, 1.1 KB)
--- cus-edit.el.orig 2003-01-16 12:26:33.000000000 +0900
+++ cus-edit.el 2003-01-16 12:26:47.000000000 +0900
@@ -1057,15 +1057,19 @@
(widget-insert "\nOperate on everything in this buffer:\n ")
(widget-create 'push-button
:tag "Set"
+ :tag-glyph '("set-up" "set-down")
:help-echo "\
Make your editing in this buffer take effect for this session"
+ :mouse-down-action (lambda (&rest junk) t)
:action (lambda (widget &optional event)
(Custom-set)))
(widget-insert " ")
(widget-create 'push-button
:tag "Save"
+ :tag-glyph '("save-up" "save-down")
:help-echo "\
Make your editing in this buffer take effect for future Emacs sessions"
+ :mouse-down-action (lambda (&rest junk) t)
:action (lambda (widget &optional event)
(Custom-save)))
(if custom-reset-button-menu
@@ -1099,7 +1103,9 @@
(widget-insert " ")
(widget-create 'push-button
:tag "Done"
+ :tag-glyph '("done-up" "done-down")
:help-echo "Remove the buffer"
+ :mouse-down-action (lambda (&rest junk) t)
:action (lambda (widget &optional event)
(Custom-buffer-done)))
(widget-insert "\n"))