1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Commit Graph

70 Commits

Author SHA1 Message Date
Eli Zaretskii
e2c00a4719 (widget-choose): Use display-mouse-p instead of window-system.
(widget-choice-mouse-down-action): Use display-popup-menus-p
instead of window-system.
2000-07-31 15:35:08 +00:00
Dave Love
aeba6f9ad3 (widget-specify-field, widget-specify-button): Allow
non-string help-echo.
(widget-types-convert-widget): Defsubst it.
(widget-echo-help): Try to cope with a help-echo function of two
possible sorts.
2000-07-16 15:27:43 +00:00
Stefan Monnier
ff83e96868 (widget-member): Use the new plist-member. 2000-06-26 21:56:10 +00:00
Dave Love
35a7ac8446 (widget-specify-button): Really suppress the face if required. 2000-06-11 23:02:14 +00:00
Dave Love
bfa6c26084 byte-compile-dynamic since we typically don't use
all the widgets.  Don't require cl or widget.  Remove
eval-and-compile.  Don't autoload finder-commentary.  Doc fixes.
(widget-read-event): Removed.  Callers changed to use read-event.
(widget-button-release-event-p): Renamed from
button-release-event-p.
(widget-field-add-space, widget-field-use-before-change):
Uncustomize.
(widget-specify-field): Use keymap property, not local-map.
(widget-specify-button): Obey :suppress-face.
(widget-specify-insert): Use modern backquote syntax.
(widget-image-directory): Renamed from widget-glyph-directory.
(widget-image-enable): Renamed from widget-glyph-enable.
(widget-image-find): Replaces widget-glyph-find.
(widget-button-pressed-face): Move defvar.
(widget-image-insert): Replaces widget-glyph-insert.
(widget-convert): Use keywordp.
(widget-leave-text, widget-children-value-delete): Use mapc.
(widget-keymap): Remove XEmacs stuff.
(widget-field-keymap, widget-text-keymap): Define all inside
defvar.
(widget-button-click): Don't set point at the click, but re-centre
if we scroll out of window.  Rewritten for images v. glyphs &c.
(widget-tabable-at): Use POS arg, not point.
(widget-beginning-of-line, widget-end-of-line)
(widget-item-value-create, widget-sublist, widget-princ-to-string)
(widget-sexp-prompt-value, widget-echo-help): Simplify.
(widget-default-create): Use widget-image-insert; some rewriting.
(widget-visibility-value-create)
(widget-push-button-value-create, widget-toggle-value-create): Use
widget-image-insert.
(checkbox): Create on and off images dynamically.
(documentation-link): Change :help-echo.
(widget-documentation-link-echo-help): Remove.
2000-06-03 16:43:02 +00:00
Gerd Moellmann
0640c6478b (widget-default-active): Obey `:always-active'.
(widget-documentation-string-value-create): Set `:always-active'.
2000-05-02 13:42:46 +00:00
Dave Love
b2aeee30bf 2000-02-02 Per Abrahamsen <abraham@dina.kvl.dk>
* wid-edit.el (widget-match-inline): An atom never matches a
          list.
2000-02-16 13:28:33 +00:00
Dave Love
99f016129e (widgets) [defgroup]: Remove url link.
(widget-color-choice-list, widget-color-history, widget-mouse-help):
Deleted.
(widget-specify-field, widget-specify-button): Don't use
widget-mouse-help as help-echo property.
(default): Use #'ignore for :validate and :mouse-down-action.
(checkbox): Add help-echo.
(widget-sexp-validate): Rewritten to clarify error messages.
(character): Use char-valid-p in :match function.
(widget-color-complete): Use facemenu-color-alist.
(widget-color-action): Use facemenu-read-color.
2000-02-10 17:47:48 +00:00
Gerd Moellmann
e006fe5ab6 (widget-button-click): Wrap with save-excursion
to restore track-mouse in the correct buffer.
1999-11-09 13:43:40 +00:00
Dave Love
a89a9d34dc Remove some compatibility code and checks.
(widget-specify-field, widget-specify-button): Don't use XEmacs
properties.
(widget-overlay-inactive): Change error message.
(widget-button-pressed-face): New variable.
(widget-button-click): Use it.
(widget-documentation-link-add): Specify mouse and button faces.
(widget-echo-help-mouse, widget-stop-mouse-tracking): Functions removed
now the functionality is built in.
1999-09-13 13:54:33 +00:00
Dave Love
35194e3f1a (widget-use-overlay-change): Uncustomize and make it unconditionally t. 1999-07-20 22:53:17 +00:00
Karl Heuer
808bcfd2c7 (widget-before-change): Signal text-read-only rather
than an ordinary error.
1999-03-30 18:09:57 +00:00
Richard M. Stallman
1468535ed1 (widget-choice-value-create): Use equal' instead of eq'. 1999-02-15 12:07:01 +00:00
Richard M. Stallman
31d5543d2c (widget-alist-convert-option): Delete spurious comma.
(widget-plist-convert-option): Delete spurious comma.
1999-01-20 07:11:00 +00:00
Richard M. Stallman
a7013a02d0 (alist): Use sexp as default key-type. 1999-01-19 18:45:08 +00:00
Markus Rost
4200b742d9 Fix typo. 1999-01-18 09:44:54 +00:00
Richard M. Stallman
fc56773e1f (plist, alist): New widget types.
(coding-system): Define this unconditionally.
1999-01-18 01:02:58 +00:00
Karl Heuer
703c3a110b (widget-menu-max-shortcuts): New variable.
(widget-choose): Don't use single-char shortcuts if # items
exceeds that many.  Use minibuffer instead.
1998-09-13 03:36:27 +00:00
Richard M. Stallman
23c1c5525d (widget-beginning-of-line): Properly handle
multiline fields.  Don't use call-interactively.
(widget-end-of-line): Likewise.
1998-08-08 02:34:05 +00:00
Richard M. Stallman
416cd771be (widget-default-get): Doc fix.
(widget-editable-list-entry-create): Apply :value-to-external to
the value returned from wiget-default-get.
1998-06-15 22:07:42 +00:00
Richard M. Stallman
b720878d35 (other): Doc fix. 1998-06-13 05:04:42 +00:00
Richard M. Stallman
e9367b9c2a (widget-specify-secret): New function.
(widget-after-change): Use it.
(widget-specify-field): Use it.
1998-06-10 05:08:04 +00:00
Richard M. Stallman
cc0a25e146 (other): New widget type. 1998-06-10 04:19:36 +00:00
Richard M. Stallman
be96282a73 (widgets: sexp, variable, list, vector): Doc fixes. 1998-05-09 07:12:14 +00:00
Richard M. Stallman
783824f57e (default, widget-default-default-get): Define it.
(group, widget-group-default-get): Define it.
(menu-choice, widget-choice-default-get): Define it.
(widget-default-get): New function.
(widget-choice-action): Call it.
(widget-editable-list-entry-create): Call it.
1998-04-08 07:26:54 +00:00
Richard M. Stallman
1703018330 (widget-beginning-of-line): Don't set zmacs-region-stays.
(widget-end-of-line): Likewise.
(widget-glyph-click): Use read-event.
(widget-color-choice-list): Delete compatibility code.
(widget-color-sample-face-get): Likewise.
(widget-choose): Likewise.
(widget-event-point): Fix paren error.
1998-04-02 06:41:37 +00:00
Richard M. Stallman
4084d12891 Delete some compatibility code.
(widget-event-point, widget-read-event): Define unconditionally.

(widget-echo-help-mouse): Don't use window-end.

(widget-choice-value-create): If there is an :explicit-choice, respect it.
(widget-choice-action): Record an explicit choice in :explicit-choice.
1998-04-02 06:33:26 +00:00
Per Abrahamsen
af0f19d71b Use browse-url directly. 1998-03-04 10:48:19 +00:00
Karl Heuer
4d52438ece (widget-choose): Allow scrolling of large lists. 1997-12-19 14:46:20 +00:00
Karl Heuer
a59b702540 (variable-link): New widget.
(widget-variable-link-action): New function.
(function-link): New widget.
(widget-function-link-action): New function.
1997-10-16 18:22:36 +00:00
Karl Heuer
d6bc306b43 (widget-button-click): Move point to where clicked. 1997-10-15 23:57:19 +00:00
Karl Heuer
ba7fbe9273 (widget-plist-member): Move from here to src/fns.c;
translated into C for efficiency.
(widget-put, widget-get, widget-apply): Likewise.
1997-09-30 07:20:58 +00:00
Richard M. Stallman
540a8bd25e (widget-before-change): Obey `inhibit-read-only'. 1997-08-15 19:26:07 +00:00
Richard M. Stallman
33eae9c01b (widget-single-line-display-table): Variable
commented out; don't use it either.
1997-08-09 19:11:15 +00:00
Per Abrahamsen
4ee1cf9f78 Synched with 1.9951. 1997-07-28 15:46:57 +00:00
Richard M. Stallman
cfc198e540 (widget-field-use-before-change): Reenable for Emacs 20.
(widget-choose): Using keyboard, if all choices are
diabled, just report an error.
1997-07-06 23:12:14 +00:00
Per Abrahamsen
0f648ca2b9 Synched with 1.9945. 1997-07-04 12:52:14 +00:00
Per Abrahamsen
62f4466253 Synched with 1.9944. 1997-07-04 09:44:36 +00:00
Richard M. Stallman
2f47738170 (color-sample, editable-color): New widget types.
(widget-button-face): Default value widget-button-face.
(widget-default-button-face-get): Use variable widget-button-face.
1997-07-03 07:11:10 +00:00
Per Abrahamsen
c953515ea3 Synched with 1.9942. 1997-07-02 15:35:18 +00:00
Richard M. Stallman
d4b8422faf (widget-choice-action): Use widget-edit-functions.
(widget-toggle-action): Likewise.

(widget-choose): Use only digits, except for C-g.
Allocate digits to disabled commands too.
Don't use a keyboard menu; instead, display a buffer
listing all the alternatives.  Put cursor in echo area.
1997-06-27 06:04:19 +00:00
Per Abrahamsen
da5ec61785 Synched with 1.9936. 1997-06-25 15:30:27 +00:00
Richard M. Stallman
0b296daca5 (widget-menu-minibuffer-flag): New variable.
(widget-choose): Alternative method to read one character from the keyboard.

(widget-documentation-face): New variable.
(widget-specify-doc): Use the variable.

(widget-default-button-face-get): Try to get it from the parent.
(widget-default-create): Use :tag-face for tags.

(widget-edit-functions): Renamed from widget-edit-hook.
(widget-field-action): Pass the widget as an arg when running hook.

(character): Doc fix.
(restricted-sexp): New widget type.
(integer, number): Use restricted-sexp.
1997-06-24 22:44:30 +00:00
Richard M. Stallman
211c9fe920 (widget-edit-hook): New variable.
(widget-field-action, widget-choice-action): Run that hook
instead of displaying an echo area message.
(widget-toggle-action): Likewise.
(group-visibility, widget-group-visibility-create):
Moved to cus-edit.el and renamed.
1997-06-24 03:17:34 +00:00
Richard M. Stallman
d0acc4ea1e (widget-default-value-set): Preserve point here.
(widget-choice-action, widget-toggle-action): Not here.
(widget-choice-action, widget-toggle-action):
Display a message about [State].
(widget-field-action): Improve message.
1997-06-21 23:37:57 +00:00
Richard M. Stallman
f1231b8e0c (widget-file-complete): New function.
(file): Use widget-file-complete for :completion.  Delete :action.
(symbol): Use lisp-complete-symbol for :completion.
(widget-file-action): Function deleted.
(widget-field-action): Just move to next field.
(widget-choice-action, widget-toggle-action):
Preserve point usefully if it is within the widget.

(group-visibility): Inherit from visibility.
1997-06-21 21:25:16 +00:00
Richard M. Stallman
515c9d0d08 (group-visibility): New widget type.
(widget-group-visibility-create): New function.
1997-06-21 18:32:42 +00:00
Richard M. Stallman
f992349954 Comment change. 1997-06-21 17:31:29 +00:00
Richard M. Stallman
9dccd7efe5 (widget-documentation-link-action):
Use describe-function or describe-variable in simple cases.
1997-06-21 17:30:26 +00:00
Per Abrahamsen
944c91b6b3 Synched with 1.9930. 1997-06-21 12:48:00 +00:00