Mercurial > hg > xemacs-beta

comparison src/EmacsFrame.c @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 0132846995bd
children e121b013d1f0
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
588 EmacsFrameSetCharSize (Widget widget, int columns, int rows) 588 EmacsFrameSetCharSize (Widget widget, int columns, int rows)
589 { 589 {
590 EmacsFrame ew = (EmacsFrame) widget; 590 EmacsFrame ew = (EmacsFrame) widget;
591 int pixel_width, pixel_height; 591 int pixel_width, pixel_height;
592 struct frame *f = ew->emacs_frame.frame; 592 struct frame *f = ew->emacs_frame.frame;
593 Arg al [2];
593 594
594 if (columns < 3) 595 if (columns < 3)
595 columns = 3; /* no way buddy */ 596 columns = 3; /* no way buddy */
596 if (rows < 1) 597 if (rows < 1)
597 rows = 1; 598 rows = 1;
599 char_to_pixel_size (f, columns, rows, &pixel_width, &pixel_height); 600 char_to_pixel_size (f, columns, rows, &pixel_width, &pixel_height);
600 601
601 if (FRAME_X_TOP_LEVEL_FRAME_P (f)) 602 if (FRAME_X_TOP_LEVEL_FRAME_P (f))
602 x_wm_set_variable_size (FRAME_X_SHELL_WIDGET (f), columns, rows); 603 x_wm_set_variable_size (FRAME_X_SHELL_WIDGET (f), columns, rows);
603 604
604 XtVaSetValues ((Widget) ew, 605 XtSetArg (al [0], XtNwidth, (Dimension) pixel_width);
605 XtNwidth, (Dimension) pixel_width, 606 XtSetArg (al [1], XtNheight, (Dimension) pixel_height);
606 XtNheight, (Dimension) pixel_height, 607 XtSetValues ((Widget) ew, al, 2);
607 NULL); 608 }
608 }