Mercurial > emacs
view lwlib/lwlib.h @ 21410:d68f866455c6
Use regexp-opt and eval-and-compile to
build font-lock patterns.
(fortran-mode): Define indent-region-function,
indent-line-function.
(fortran-tab-mode-string): Make buffer-local.
(fortran-comment-indent-style): Custom tweak.
(fortran-comment-region, fortran-electric-line-number,
fortran-analyze-depth, fortran-break-before-delimiters,
fortran-mode): Doc fix.
(fortran-startup-message, bug-fortran-mode): Variables
deleted.
(fortran-font-lock-keywords-1): Add "select", "case"; allow
double-quoted strings.
(fortran-mode-map): Add fill-paragraph menu item. Don't
define \t.
(fortran-mode): Make `fill-column' buffer-local; set
`fill-paragraph-function', `indent-region-function',
`indent-line-function'.
(calculate-fortran-indent): Renamed to:
(fortran-calculate-indent):
(fortran-split-line): Simplify.
(fortran-remove-continuation): New function.
(fortran-join-line): Use it.
(fortran-end-prog-re1, fortran-end-prog-re): New variables.
(beginning-of-fortran-subprogram, end-of-fortran-subprogram):
Use them.
(fortran-blink-matching-if, fortran-blink-matching-do,
fortran-indent-new-line): Bind case-fold-search.
(fortran-end-do, fortran-beginning-do, fortran-end-if,
fortran-beginning-if): Bind case-fold-search. Allow labelled
blocks. Use fortran-end-prog-re.
(fortran-if-start-re): New variable.
(fortran-calculate-indent): Allow labelled blocks. Simplify the
conds. Make select case indentation work.
(fortran-is-in-string-p): Ignore Emacs 18 bug kluge.
(fortran-fill): Allow double quotes in check for string.
(fortran-fill-paragraph): New function.
(fortran-fill-statement): New function.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 07 Apr 1998 18:59:44 +0000 |
parents | de5c3eda52fc |
children | d8d30f76cc61 |
line wrap: on
line source
#ifndef LWLIB_H #define LWLIB_H #include <X11/Intrinsic.h> /* ** Widget values depend on the Widget type: ** ** widget: (name value key enabled data contents/selected) ** ** label: ("name" "string" NULL NULL NULL NULL) ** button: ("name" "string" "key" T/F data <default-button-p>) ** button w/menu: ** ("name" "string" "key" T/F data (label|button|button w/menu...)) ** menubar: ("name" NULL NULL T/F data (button w/menu)) ** selectable thing: ** ("name" "string" "key" T/F data T/F) ** checkbox: selectable thing ** radio: ("name" NULL NULL T/F data (selectable thing...)) ** strings: ("name" NULL NULL T/F data (selectable thing...)) ** text: ("name" "string" <ign> T/F data) ** main: ("name") */ typedef unsigned long LWLIB_ID; typedef enum _change_type { NO_CHANGE = 0, INVISIBLE_CHANGE = 1, VISIBLE_CHANGE = 2, STRUCTURAL_CHANGE = 3 } change_type; typedef struct _widget_value { /* name of widget */ char* name; /* value (meaning depend on widget type) */ char* value; /* keyboard equivalent. no implications for XtTranslations */ char* key; /* true if enabled */ Boolean enabled; /* true if selected */ Boolean selected; /* true if was edited (maintained by get_value) */ Boolean edited; /* true if has changed (maintained by lw library) */ change_type change; /* true if this widget itself has changed, but not counting the other widgets found in the `next' field. */ change_type this_one_change; /* Contents of the sub-widgets, also selected slot for checkbox */ struct _widget_value* contents; /* data passed to callback */ XtPointer call_data; /* next one in the list */ struct _widget_value* next; /* slot for the toolkit dependent part. Always initialize to NULL. */ void* toolkit_data; /* tell us if we should free the toolkit data slot when freeing the widget_value itself. */ Boolean free_toolkit_data; /* we resource the widget_value structures; this points to the next one on the free list if this one has been deallocated. */ struct _widget_value *free_list; } widget_value; typedef void (*lw_callback) (/* Widget w, LWLIB_ID id, void* data */); void lw_register_widget (/* char* type, char* name, LWLIB_ID id, widget_value* val, lw_callback pre_activate_cb, lw_callback selection_cb, lw_callback post_activate_cb */); Widget lw_get_widget (/* LWLIB_ID id, Widget parent, Boolean pop_up_p */); Widget lw_make_widget (/* LWLIB_ID id, Widget parent, Boolean pop_up_p */); Widget lw_create_widget (/* char* type, char* name, LWLIB_ID id, widget_value* val, Widget parent, Boolean pop_up_p, lw_callback pre_activate_cb, lw_callback selection_cb, lw_callback post_activate_cb */); LWLIB_ID lw_get_widget_id (/* Widget w */); void lw_modify_all_widgets (/* LWLIB_ID id, widget_value* val, Boolean deep_p */); void lw_destroy_widget (/* Widget w */); void lw_destroy_all_widgets (/* LWLIB_ID id */); void lw_destroy_everything (/* void */); void lw_destroy_all_pop_ups (/* void */); Widget lw_raise_all_pop_up_widgets (/* void */); widget_value* lw_get_all_values (/* LWLIB_ID id */); Boolean lw_get_some_values (/* LWLIB_ID id, widget_value* val */); void lw_pop_up_all_widgets (/* LWLIB_ID id */); void lw_pop_down_all_widgets (/* LWLIB_ID id */); widget_value *malloc_widget_value (); void free_widget_value (/* widget_value * */); void lw_popup_menu (/* Widget */); /* Toolkit independent way of focusing on a Widget at the Xt level. */ void lw_set_keyboard_focus (/* Widget parent, Widget w */); /* Silly Energize hack to invert the "sheet" button */ void lw_show_busy (/* Widget w, Boolean busy */); /* Silly hack to assist with Lucid/Athena geometry management. */ void lw_refigure_widget (/* Widget w, Boolean doit */); /* Toolkit independent way of determining if an event occurred on a menubar. */ Boolean lw_window_is_in_menubar (/* Window win, Widget menubar_widget */); /* Manage resizing: TRUE permits resizing widget w; FALSE disallows it. */ void lw_allow_resizing (/* Widget w, Boolean flag */); /* Set up the main window. */ void lw_set_main_areas (/* Widget parent, Widget menubar, Widget work_area */); #endif /* LWLIB_H */