Mercurial > emacs
comparison src/widget.c @ 16300:0a31bd9ca4bb
(EmacsFrameSetValues): Copy internal_border_width
from the Emacs frame if caller isn't changing it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 23 Sep 1996 04:40:39 +0000 |
parents | 10d82268090b |
children | 773a9eb73ce9 |
comparison
equal
deleted
inserted
replaced
16299:0e4f99bad2ec | 16300:0a31bd9ca4bb |
---|---|
794 | 794 |
795 Boolean needs_a_refresh = False; | 795 Boolean needs_a_refresh = False; |
796 Boolean has_to_recompute_size; | 796 Boolean has_to_recompute_size; |
797 Boolean has_to_recompute_gcs; | 797 Boolean has_to_recompute_gcs; |
798 Boolean has_to_update_hints; | 798 Boolean has_to_update_hints; |
799 Boolean has_to_update_internal_border_width; | |
799 | 800 |
800 int char_width, char_height; | 801 int char_width, char_height; |
801 Dimension pixel_width; | 802 Dimension pixel_width; |
802 Dimension pixel_height; | 803 Dimension pixel_height; |
803 | 804 |
811 has_to_recompute_size = (cur->emacs_frame.font != new->emacs_frame.font | 812 has_to_recompute_size = (cur->emacs_frame.font != new->emacs_frame.font |
812 && cur->core.width == new->core.width | 813 && cur->core.width == new->core.width |
813 && cur->core.height == new->core.height); | 814 && cur->core.height == new->core.height); |
814 | 815 |
815 has_to_update_hints = (cur->emacs_frame.font != new->emacs_frame.font); | 816 has_to_update_hints = (cur->emacs_frame.font != new->emacs_frame.font); |
817 | |
818 has_to_update_internal_border_width | |
819 = (cur->emacs_frame.internal_border_width | |
820 != new->emacs_frame.internal_border_width); | |
816 | 821 |
817 if (has_to_recompute_gcs) | 822 if (has_to_recompute_gcs) |
818 { | 823 { |
819 setup_frame_gcs (new); | 824 setup_frame_gcs (new); |
820 needs_a_refresh = True; | 825 needs_a_refresh = True; |
836 needs_a_refresh = True; | 841 needs_a_refresh = True; |
837 } | 842 } |
838 | 843 |
839 if (has_to_update_hints) | 844 if (has_to_update_hints) |
840 update_wm_hints (new); | 845 update_wm_hints (new); |
846 | |
847 /* Don't clobber the internal_border_width | |
848 if the caller did not try to change it. */ | |
849 if (! has_to_update_internal_border_width) | |
850 new->emacs_frame.internal_border_width | |
851 = new->emacs_frame.frame->output_data.x->internal_border_width; | |
841 | 852 |
842 update_various_frame_slots (new); | 853 update_various_frame_slots (new); |
843 | 854 |
844 /* #### This doesn't work, I haven't been able to find ANY kludge that | 855 /* #### This doesn't work, I haven't been able to find ANY kludge that |
845 will let (x-create-frame '((iconic . t))) work. It seems that changes | 856 will let (x-create-frame '((iconic . t))) work. It seems that changes |