Mercurial > emacs
changeset 25562:374f4e51615c
(lw_separator_p): Add alternative separator type names.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 06 Sep 1999 15:57:51 +0000 |
| parents | 67c224f5cc1a |
| children | 856179ce1645 |
| files | lwlib/lwlib.c |
| diffstat | 1 files changed, 44 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lwlib/lwlib.c Mon Sep 06 15:57:48 1999 +0000 +++ b/lwlib/lwlib.c Mon Sep 06 15:57:51 1999 +0000 @@ -1452,6 +1452,50 @@ break; } } + else if (strlen (label) > 3 + && bcmp (label, "--", 2) == 0) + { + /* Alternative, more Emacs-style names. */ + static struct separator_table + { + char *name; + enum menu_separator type; + } + separator_names[] = + { + "space", SEPARATOR_NO_LINE, + "no-line", SEPARATOR_NO_LINE, + "single-line", SEPARATOR_SINGLE_LINE, + "double-line", SEPARATOR_DOUBLE_LINE, + "single-dashed-line", SEPARATOR_SINGLE_DASHED_LINE, + "double-dashed-line", SEPARATOR_DOUBLE_DASHED_LINE, + "shadow-etched-in", SEPARATOR_SHADOW_ETCHED_IN, + "shadow-etched-out", SEPARATOR_SHADOW_ETCHED_OUT, + "shadow-etched-in-dash", SEPARATOR_SHADOW_ETCHED_IN_DASH, + "shadow-etched-out-dash", SEPARATOR_SHADOW_ETCHED_OUT_DASH, + "shadow-double-etched-in", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN, + "shadow-double-etched-out", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT, + "shadow-double-etched-in-dash", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH, + "shadow-double-etched-out-dash",SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH, + 0 + }; + + int i; + + label += 2; + for (i = 0; separator_names[i].name; ++i) + if (strcmp (label, separator_names[i].name) == 0) + { + separator_p = 1; + *type = separator_names[i].type; + + /* If separator type is not supported under Motif, + use a similar one. */ + if (motif_p && *type >= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN) + *type -= 4; + break; + } + } else { /* Old-style separator, maybe. It's a separator if it contains