Mercurial > emacs

comparison src/widget.c @ 16300:0a31bd9ca4bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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